Epple-II/rom/stdin.s65
Christopher A. Mosher e39092ede5 Merge in Epple-II-Rom
2015-07-14 23:43:52 -04:00

32 lines
492 B
Plaintext

YSAV1 = $35
EOF = $FF
STKBAS = $0100
READC = $C080
LATCHC = $C081
KEYIN = $FD1B
MONRTS = $FF58
STDIN TXA
PHA
JSR MONRTS
TSX
LDA STKBAS,X
ASL
ASL
ASL
ASL
TAX
LDA LATCHC,X
REREAD LDA READC,X
BPL REREAD
STA YSAV1
CMP #EOF
BNE EXIT
JSR KEYIN
STA YSAV1
EXIT PLA
TAX
LDA YSAV1
RTS