autoscroll_vert:
STZ $1411 : STZ $1412
LDA $14
AND #$01
BNE +
REP #$20
LDA $1464
BEQ +
DEC $1464
+
SEP #$20
RTL

back to listings