ExecBase = 4
           OpenLibrary = -30-522
           StartList = 38

init:
 move.l ExecBase.s, a6
 move.l #GRname,a1
 clr.l d0
 jsr OpenLibrary(a6)
 move.l d0,a4
 move.l StartList(a4), CopAddr
 move.l CopAddr, a4
 subq.l #$04, a4

main:
 addq.l #$04, a4
 cmp.w #$0120, (a4)
 bne main
 move.l #SprteAddr, a1
 addq.l #$02, a4
 move.w (a4),(a1)
 addq.l #$02, a1
 addq.l #$04, a4
 move.w (a4),(a1)


move:
 move.l SprteAddr, a4
 addq.l #$04, a4
 move.l a4, SprteAddr
 move.l #$01, Blank
 move.l a4,a1
 move.l #Orig, a2
 move.l #$10, a3

CopOld:
 move.l (a1),(a2)
 addq.l #$04, a1
 addq.l #$04, a2
 subq.l #$01, a3
 cmp.l #$00, a3
 bne CopOld
 moveq #$05,d1

move2:
 move.l #$40000, d3
Release:
 subq.l #$01, d3
 cmp.l #$0000, d3
 bne Release
 subq.l #$01, d1
 cmp.l #$00, d1
 bne move2
 moveq #$05,d1
 move.l #Orig, a2
 moveq #$0, d0
 move.l Blank, d0
 mulu #$44 ,d0
 add.l d0, a2
 move.l #$10,a3
 move.l SprteAddr, a1
 ; move.l #Sword,a2
CopNew:
 move.l (a2),(a1)
 addq.l #$04, a1
 addq.l #$04, a2
 subq.l #$01, a3
 cmp.l #$00, a3
 bne CopNew
 addq.l #$01, Blank
 cmp.l #$09, Blank
 bne move2
 move.l #$00, Blank
 jmp move2


GRname:
 dc.b 'graphics.library',0

CopAddr:
 blk.l $01
Blank:
 blk.l $01
SprteAddr:
 blk.l $01

Orig:
 blk.l $10

Face:
 dc.w $0000, $0FF0, $0FF0, $307C, $1FFC, $6003
 dc.w $399E, $C661, $7FFE, $8001, $7F7D, $8081
 dc.w $7FFE, $8001, $77F6, $8809, $780E, $87F1
 dc.w $3FFC, $C003, $1FF8, $6006, $03C0, $3C3C
 dc.w $03C0, $0420, $07E0, $381E, $3FFE, $4001
 dc.w $0000, $FFFF, $0000, $0000

Disk:
 dc.w $0000, $0000, $0000, $0000, $0006, $001B
 dc.w $000E, $0011, $001E, $0033, $000C, $007F
 dc.w $0070, $00FE, $00F8, $038C, $03F0, $0E08
 dc.w $0FE0, $1830, $1F80, $60E0, $7E80, $C300
 dc.w $7D00, $C2E0, $70E0, $CF30, $7FE0, $F070
 dc.w $0000, $FFE0, $0000, $0000

Sword:
 dc.w $0000, $0200, $0000, $0300, $0100, $0280
 dc.w $0100, $0280, $0180, $0240, $0180, $0240
 dc.w $0180, $0240, $0180, $0240, $0180, $0240
 dc.w $0180, $0240, $0180, $1E70, $0000, $07E0
 dc.w $0180, $03C0, $0000, $03C0, $0180, $03C0
 dc.w $0000, $0180, $0000, $0000

person:
 dc.w $0000, $0000, $0000, $01F0, $0000, $07FC
 dc.w $01C0, $0E3C, $02A0, $1D5E, $03F0, $1C0E
 dc.w $01C0, $3E3E, $0638, $39C6, $0F5C, $30A2
 dc.w $13B2, $2C4D, $0E5C, $31A3, $21E1, $5E1E
 dc.w $37FD, $4802, $63F8, $9404, $E3B8, $1444
 dc.w $C7FC, $2802, $8F0C, $50F2

Demon:
 dc.w $0000, $4004, $4004, $A00A, $600C, $9012
 dc.w $701B, $8822, $3838, $47C4, $6FFC, $FFFE
 dc.w $77DC, $FFFE, $6BAC, $FFFE, $77DC, $FFFE
 dc.w $7FFC, $FFFE, $601C, $FFFE, $3BB8, $6FFC
 dc.w $1FF0, $3FF8, $0000, $1FF0, $0000, $07B0
 dc.w $0000, $0100, $0000, $0000

face2:
 dc.w $0000, $03E0, $0000, $0FF8, $0000, $3FFC
 dc.w $0000, $7FFE, $0000, $FFFF, $1B00, $EFFF
 dc.w $7F00, $C1FF, $67E0, $D83F, $21C0, $7636
 dc.w $36B4, $6B7A, $1EF8, $3704, $1B38, $33C4
 dc.w $0E70, $1988, $07E0, $0C10, $0810, $1FE8
 dc.w $1FF8, $3F84, $0000, $0000

Nuke:
 dc.w $0000, $0000, $0000, $0000, $0000, $07E0
 dc.w $0000, $03C0, $0000, $03C0, $0000, $0000
 dc.w $0000, $0180, $0000, $799E, $0000, $3C3B
 dc.w $0000, $3C3C, $0000, $1818, $0000, $1818
 dc.w $0000, $0000, $0000, $0000, $0000, $0000
 dc.w $0000, $0000, $0000, $0000

Revco:
 dc.w $0000, $0000, $2000, $4000, $0000, $FFFF
 dc.w $BFF1, $400E, $200E, $4070, $2070, $4380
 dc.w $2380, $5C00, $0000, $7FFF, $3FF1, $400E
 dc.w $200E, $4070, $2070, $4380, $2380, $5C00
 dc.w $0000, $FFFF, $BFFF, $4000, $4000, $0000
 dc.w $0000, $0000, $0000, $0000