mirror of
https://github.com/cmosher01/Epple-II.git
synced 2025-01-03 17:31:46 +00:00
32 lines
492 B
Plaintext
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
|