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 ~scanError no scan error so far
|
||||
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
|
||||
ora ~eofFound
|
||||
bne rm1
|
||||
lda [format] get a character
|
||||
and #$00FF
|
||||
|
|
Loading…
Reference in New Issue