home *** CD-ROM | disk | FTP | other *** search
/ Emulator Universe CD / emulatoruniversecd1998.iso / Amiga / ROMs / ghoulsn1.adf / boot1.s < prev    next >
Encoding:
Text File  |  1996-09-29  |  1.3 KB  |  85 lines
  1. ; ==========================================
  2. ; Amiga boot program
  3. ; ==========================================
  4.  
  5.     even
  6.  
  7.     lea $80000-4,sp
  8.  
  9.     move.l 4,a6            ; set super
  10.     jsr -150(a6)    
  11.  
  12.     move.w #$7fff,custom+$9a
  13.     move.w #$7fff,custom+$96
  14.     move.w #$2700,sr
  15.  
  16.     move.l #31,d0
  17.     lea colour0,a0
  18. clear_cols
  19.     clr.w (a0)+
  20.     dbra d0,clear_cols
  21.  
  22.     lea precieve_start,a0
  23.     lea $80000-1024,a1
  24.     move.l #(precieve_end-precieve_start)-1,d0    
  25. relocate_1
  26.     move.b (a0)+,(a1)+
  27.     dbra d0,relocate_1
  28.     jmp $80000-1024
  29.  
  30. precieve_start
  31.     move.l #coper_list-precieve_start,d0
  32.     add.l #$80000-1024,d0
  33. wait_frame
  34.     cmp.b #255,custom+6        ; wait for frame
  35.     bne wait_frame
  36.  
  37. ;    lea my_stack,sp
  38. ;    move.w #$2700,sr
  39. ;    move.w #$7fff,custom+$9a
  40. ;    move.w #$7fff,custom+$96
  41. ;    move.w #$c030,custom+$9a
  42. ;    move.w #$83c0,custom+$96
  43. ;    move.l #coper_list,cop1lch
  44.     move.l d0,cop1lch
  45.     move.w copjmp1,d0
  46.  
  47.     lea program,a0
  48.     lea $18400,a1
  49.     move.l #86000,d0
  50. .relocate
  51. ;    move.b (a0),colour0
  52.     move.b (a0)+,(a1)+
  53.     subq.l #1,d0
  54.     bne .relocate
  55.  
  56.     jmp $1841c
  57.  
  58.  
  59.     even
  60.  
  61. coper_list    
  62.     dc.w $00e0,$0007,$000e2,$6000
  63.     dc.w $00e4,$0007,$000e6,$6000+8000
  64.     dc.w $00e8,$0007,$000ea,$6000+16000
  65.     dc.w $00ec,$0007,$000ee,$6000+24000
  66.     dc.w $00f0,$0007,$000f2,$6000+32000
  67.     dc.w $ffff,$fffe
  68.  
  69.     ds.b 64
  70. my_stack
  71.  
  72.     even
  73.  
  74.     include ram:equates.s
  75.  
  76. precieve_end
  77.  
  78.  
  79.     even
  80. program
  81.     incbin df0:ghouls.prg
  82.  
  83.     end
  84.  
  85.