Sayfa 12

*=$c000 lda #<yeni ldx #>yeni sta $0308 stx $0309 rts yeni lda $7a ldx $7b sta $fb stx $fc lda #<comset ldx #>comset sta $fd stx $fe ldx #$00 ldy #$00 loop0 jsr $0073 sta $02 loop1 lda ($fd),y cmp $02 bne nextcom iny tya cmp comlen,x bne loop0 exec txa asl tax lda comexe+1,x pha lda comexe,x pha rts nextcom lda comlen,x clc adc $fd sta $fd bcc next0 inc $fc next0 inx cpx commax bne loop1 lda $fb ldx $fc sta $7a stx $7b jmp $a7e4 ;--------------------------------------------------------------------- commax .byte 10 comlen .byte 6,4,6,4,6,6,6,5,6,5 comset .text "sprite" .text "spr" .byte $b9 ;POS .text "sprpnt" .text "spr" .byte $bd ;EXP .text "sprmul" .text "sprmcl"