Apple-2gs-SW
/
minix.fst
mirror of https://github.com/ksherlock/minix.fst.git
1
0
Fork 0
Code Issues Projects Releases Wiki Activity

fix bugs with newline read

This commit is contained in:
Kelvin Sherlock 2015-09-05 09:56:38 -04:00
parent 95b55aaaab
commit 9aeab0b425
1 changed files with 5 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
read.aii
View File

@ -57,7 +57,7 @@ nl_mask ds.w 1
endr endr
data record 0 data record
nl_table ds.b 256 nl_table ds.b 256
endr endr
@ -623,8 +623,8 @@ done
; ;
; builds a new-line table, if necessary. ; builds a new-line table, if necessary.
; returns: ; returns:
; c = 1 if new_line mode enabled. ; c = 0 if new_line mode enabled.
; c = 0 if new_line mode disabled. ; c = 1 if new_line mode disabled.
build_nl_table procname build_nl_table procname
@ -705,7 +705,7 @@ slow_read procname
adc io_buffer adc io_buffer
sta ptr sta ptr
lda #0 lda #0
adc io_buffer adc io_buffer+2
sta ptr+2 sta ptr+2
; count = (1024 - mark) & 1023 ; count = (1024 - mark) & 1023
@ -730,7 +730,7 @@ aligned
lda io_buffer lda io_buffer
sta ptr sta ptr
lda io_buffer+2 lda io_buffer+2
sta ptr sta ptr+2
@loop @loop
; read aligned blocks. ; read aligned blocks.