Subversion Repositories ngs

Rev

Blame | Last modification | View Log | Download | RSS feed | ?url?

  1.         relaxed on
  2.  
  3.  
  4.  
  5. ramrun  equ     0x4000
  6.  
  7. ram8kb  equ     0x6000
  8.  
  9.                 ORG     0
  10.                 phase   0
  11.  
  12. START:
  13.                 DI
  14.                 ld      sp,ram8kb
  15.  
  16.                 ld      a,0x30  ;10MHz Z80
  17.                 out     (0x0f),a
  18.  
  19.                 xor     a
  20.                 out     (6),a
  21.                 out     (7),a
  22.                 out     (8),a
  23.                 out     (9),a
  24.                 out     (0x16),a
  25.                 out     (0x17),a
  26.                 out     (0x18),a
  27.                 out     (0x19),a
  28.  
  29.                 ld      hl,ramcode
  30.                 ld      de,ramrun
  31.                 push    de
  32.                 ld      bc,ramcend-ramcode
  33.                 ldir
  34.                 ret
  35.  
  36.  
  37. ramcode:
  38.                 phase   ramrun
  39.  
  40.  
  41.                 ld      hl,0x8000 ; move to the RAM page 0 mapped into 8000-FFFF
  42.  
  43.                 ld      a,4; 32768/8192 - move gs105a by four blocks
  44.  
  45.  
  46.  
  47. mov1:
  48.                 ex      af,af'
  49.  
  50.                 ld      a,0x30
  51.                 out     (0x0f),a
  52.                 ld      a,2
  53.                 out     (0),a
  54.  
  55.                 push    hl
  56.                 ld      de,ram8kb
  57.                 ld      bc,8192
  58.                 ldir
  59.  
  60.  
  61.                 ld      a,0x31
  62.                 out     (0x0f),a
  63.                 ld      a,0
  64.                 out     (0),a
  65.  
  66.                 pop     de
  67.                 ld      hl,ram8kb
  68.                 ld      bc,8192
  69.                 ldir
  70.  
  71.                 ex      de,hl
  72.  
  73.                 ex      af,af'
  74.                 dec     a
  75.                 jr      nz,mov1
  76.  
  77.  
  78.  
  79.                 xor     a
  80.                 out     (0),a
  81.                 ld      a,0x13
  82.                 out     (0x0f),a
  83.  
  84.                 jp      0
  85.  
  86.  
  87.  
  88.  
  89.  
  90.  
  91.  
  92.  
  93.                 dephase
  94. ramcend:
  95.  
  96.