Sayfa 13

.text "sprcol" .text "spri" .byte $b0 ;OR .text "sprall" .text "curs" .byte $b0 ;OR comexe .word sprite-1 .word sprpos-1 .word sprpnt-1 .word sprexp-1 .word sprmul-1 .word sprmcl-1 .word sprcol-1 .word sprior-1 .word sprall-1 .word cursor-1 ;--------------------------------------------------------------------- sprite jsr spritex bcs spron and $d015 jmp cont1 spron ora $d015 cont1 sta $d015 jmp $a7ae ;--------------------------------------------------------------------- sprpos jsr comspr jsr $aefd jsr $b7eb stx spry ldx sprnum lda $15 beq noext lda on,x ora $d010 jmp cont2 noext lda off,x and $d010 cont2 sta $d010 txa asl tax lda $14 sta $d000,x lda spry sta $d001,x jmp $a7ae ;--------------------------------------------------------------------- sprpnt jsr comspr jsr common txa ldx sprnum sta $07f8,x jmp $a7ae ;--------------------------------------------------------------------- sprexp jsr spritex bcs sprex and $d01d jmp cont3 sprex ora $d01d cont3 sta $d01d