!R = #$1b
!exclaim = #$28
!BelowR = $0f24

lda !R
sta $0f09

lda !exclaim
sta !BelowR


STZ $1401	;disable L/R scrolling

lda #$01
sta $7f9da1     ; disable L/R on HUD
sta $7f9da3     ; Set R Power on HUD


lda $17         ; Check if R pressed
and #$10
beq end

stz $7d         ; v speed

end:
rtl

back to listings