Sayfa 22

sta $0450,y lda #(sdata/$40) sta $07f8,x iny iny iny inx cpx #$08 bne lcolor lda #$ff sta $d015

key jsr $ffe4 ldx #$00 compare cmp select,x beq change inx cpx #$08 bne compare jmp key

change stx sprnum sta $d020 set jsr $ffe4

on_off ldx sprnum cmp #$4f ;"O" tuşu bne colch lda $d015 eor eorcode,x sta $d015 jmp set colch cmp #$43 ;"C" tuşu bne x_pand inc $d027,x jmp set x_pand cmp #$58 ;"X" tuşu bne y_pand lda $d01d eor eorcode,x sta $d01d jmp set y_pand cmp #$59 ;"Y" tuşu bne prior lda $d017 eor eorcode,x sta $d017 jmp set prior cmp #$50 ;"P" tuşu bne default lda $d01b eor eorcode,x sta $d01b jmp set default cmp #$44 ;"D" tuşu bne inc_x lda select,x sta $d027,x lda $d015 ora eorcode,x sta $d015 lda $d01d and off,x sta $d01d