;pss - makes sprites move around
!amount = #8
!yamount = #0
!item = #76
main:

LDA $15  ;pressed down
BIT #04
BEQ .pass1

;STA $0DC2
; do stuff when down is pressed:
LDA $A0
LDA !item 
;ADC #01
STA $A0

LDA $A1
LDA !item 
;ADC #01
STA $A1

LDA $A2
LDA !item 
;ADC #01
STA $A2

LDA $A3
LDA !item 
;ADC #01
STA $A3

.pass1

LDA $16  ;pressed a
BIT #$80
BNE .pass
RTL
.pass


;yhigh:
        LDA $D4
        SBC !yamount
        STA $D4
        LDA $D5
        SBC !yamount
        STA $D5
        LDA $D6
        SBC !yamount
        STA $D6
        LDA $D7
        SBC !yamount
        STA $D7
        LDA $D8
        SBC !yamount
        STA $D8
        LDA $D9
        SBC !yamount
        STA $D9
        LDA $DA
        SBC !yamount
        STA $DA
        LDA $DB
        SBC !yamount
        STA $DB
        LDA $DC
        SBC !yamount
        STA $DC
        LDA $DD
        SBC !yamount
        STA $DD
        LDA $DE
        SBC !yamount
        STA $DE
        LDA $DF
        SBC !yamount
        STA $DF

;get second hand timer

        LDA $0F33  ;second hand
        AND #01
        BEQ .zero



;xhigh:
        LDA $E0
        SBC !amount
        STA $E0
        LDA $E1
        SBC !amount
        STA $E1
        LDA $E2
        SBC !amount
        STA $E2
        LDA $E3
        SBC !amount
        STA $E3
        LDA $E4
        SBC !amount
        STA $E4
        LDA $E5
        SBC !amount
        STA $E5
        LDA $E6
        SBC !amount
        STA $E6
        LDA $E7
        SBC !amount
        STA $E7
        LDA $E8
        SBC !amount
        STA $E8
        LDA $E9
        SBC !amount
        STA $E9
        LDA $EA
        SBC !amount
        STA $EA
        LDA $EB
        SBC !amount
        STA $EB
        BRA .return

.zero

        LDA $E0
        ADC !amount
        STA $E0
        LDA $E1
        ADC !amount
        STA $E1
        LDA $E2
        ADC !amount
        STA $E2
        LDA $E3
        ADC !amount
        STA $E3
        LDA $E4
        ADC !amount
        STA $E4
        LDA $E5
        ADC !amount
        STA $E5
        LDA $E6
        ADC !amount
        STA $E6
        LDA $E7
        ADC !amount
        STA $E7
        LDA $E8
        ADC !amount
        STA $E8
        LDA $E9
        ADC !amount
        STA $E9
        LDA $EA
        ADC !amount
        STA $EA
        LDA $EB
        ADC !amount
        STA $EB
        BRA .return

.return
        RTL

back to listings