Add empty tape reader checking
This commit is contained in:
parent
ec3cf94c06
commit
509c10cc70
|
@ -561,8 +561,15 @@ read: load r0, svstrt
|
||||||
load r0, svstrt + 1
|
load r0, svstrt + 1
|
||||||
store chrsto + 2, r0
|
store chrsto + 2, r0
|
||||||
|
|
||||||
;Read and store a character
|
;Read a character
|
||||||
chread: load r1, fffd
|
chread: load r1, fffd
|
||||||
|
|
||||||
|
;Check for empty tape reader
|
||||||
|
xor r2, r2
|
||||||
|
brneq r1, r2, chrsto
|
||||||
|
load r1, sub
|
||||||
|
|
||||||
|
;Store a character
|
||||||
chrsto: store buffer + 100, r1
|
chrsto: store buffer + 100, r1
|
||||||
|
|
||||||
;Check for the save end
|
;Check for the save end
|
||||||
|
|
Loading…
Reference in New Issue