Bu sayfadaki yazılar
Sayfanın metni
Sayfa 23
sta $d017 sta $d010 sta $d01b lda #$00 sta $d020 txa asl tax lda koor,x sta $d000,x lda koor+1,x sta $d000+1,x jmp key inc_x cmp #$1d ;"RIGHT" tuşu bne dec_x txa asl tax inc $d000,x bne noexb setx ldx sprnum lda $d010 eor eorcode,x sta $d010 noexb jmp set dec_x cmp #$9d ;"LEFT" tuşu bne inc_y txa asl tax dec $d000,x bne noexb jmp setx inc_y cmp #$11 ;"DOWN" tuşu bne dec_y txa asl tax inc $d001,x jmp set dec_y cmp #$91 ;"UP" tuşu bne exb txa asl tax dec $d001,x jmp set exb cmp #$45 ;"E" tuşu bne tekrar lda $d010 eor eorcode,x sta $d010 tekrar jmp set rts
koor .byte $18,$3a,$30,$3a,$48,$3a,$60,$3a .byte $78,$3a,$90,$3a,$a8,$3a,$c0,$3a select .byte $31,$32,$33,$34,$35,$36,$37,$38 sprnum .byte 0 eorcode .byte 1,2,4,8,16,32,64,128 off .byte 254,253,251,247,239,223,191,127 sdata =$02c0 .end
Klavyeyle gezinmek için ← ve → tuşları.
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