3 ;×ÓÅ ËÏÏÒÄÉÎÁÔÙ - ÜÔÏ ËÏÏÒÄ-ÔÙ ÎÏÇ ÓÐÒÁÊÔÁ
6 chels equ 200 ;ÞÉÓÌÏ ÐÅÒÓÎÁÖÅÊ
7 lpf equ 220 ;ÓÔÒÏË ÓÐÒÁÊÔÏ× ÚÁ ÆÒÅÊÍ
14 adrbuf equ #b800 ;7 bytes=1 sprite on scr
56 ld (hl),b ;disable "sub b:jp c"
171 ld (rloksp+1),iy;begin new picture
286 ;ÓÌÕÞÉÌÏÓØ ÐÒÅÒÙ×ÁÎÉÅ
292 defw rl0,rl7,rl6,rl5,rl4,rl3,rl2,rl1
295 ld (prspq+1),sp;call every frame
300 ld a,201 ;last sprite
301 ld (prsp),a ;"pict finished" sign
303 ld sp,0 ;every lpf lines
626 ret ;prog addr (or quit)
755 ; 0xfefe: V C X Z s 0xeffe: 6 7 8 9 0
756 ; 0xfdfe: G F D S A 0xdffe: Y U I O P
757 ; 0xfbfe: T R E W Q 0xbffe: H J K L e
758 ; 0xf7fe: 5 4 3 2 1 0x7ffe: B N M y _
776 ; bit 0: fire? (unused?)
787 res 4,c ; 'right' flag
791 res 5,c ; 'left' flag
803 res 3,c ; 'down' flag
809 res 0,c ; 'fire' flag
816 res 1,c ; unknown flag
1211 db %0011_1111, %0000_0000
1212 db %0001_1111, %0100_0000
1213 db %0000_1111, %0110_0000
1214 db %0000_0111, %0111_0000
1215 db %0000_0011, %0101_1000
1216 db %0000_0001, %0100_1100
1217 db %0000_0000, %0100_0110
1218 db %0000_0001, %0110_1000
1219 db %0000_0011, %0101_1000
1220 db %1010_0001, %0000_1100
1221 db %1110_0011, %0000_1000
1222 db %1111_0111, %0000_0000
1224 ;defw #3f,#401f,#600f,#5007,#4803,#4401
1225 ;defw #4e00,#7801,#5803,#ca1,#8e3,#f7
1227 chelbuf: ds chels*4,0
1294 onintl: equ $-tmpxtmp