Compare commits
2 Commits
614af65c68
...
a5504be621
Author | SHA1 | Date |
---|---|---|
Stephen Heumann | a5504be621 | |
Stephen Heumann | 6bc1c3741c |
|
@ -6151,13 +6151,9 @@ ps stz ~assignments no assignments yet
|
||||||
stz ~scanCount no characters scanned
|
stz ~scanCount no characters scanned
|
||||||
stz ~scanError no scan error so far
|
stz ~scanError no scan error so far
|
||||||
stz ~eofFound eof was not the first char
|
stz ~eofFound eof was not the first char
|
||||||
jsl ~getchar test for eof
|
|
||||||
cmp #EOF
|
|
||||||
bne ps0
|
|
||||||
sta ~eofFound
|
|
||||||
ps0 jsl ~putback
|
|
||||||
|
|
||||||
ps1 lda ~scanError quit if a scan error has occurred
|
ps1 lda ~scanError quit if a scan error has occurred
|
||||||
|
ora ~eofFound
|
||||||
bne rm1
|
bne rm1
|
||||||
lda [format] get a character
|
lda [format] get a character
|
||||||
and #$00FF
|
and #$00FF
|
||||||
|
|
Loading…
Reference in New Issue