Apple-2gs-SW/minix.fst
1
0
Fork 0
mirror of https://github.com/ksherlock/minix.fst.git synced 2025-01-28 05:31:13 +00:00
Code Issues Projects Releases Wiki Activity

fix read

Browse Source
This commit is contained in:
Kelvin Sherlock 2015-08-26 22:37:44 -04:00
parent 222ad605e6
commit 7aa25334bc
1 changed files with 25 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

28
read.aii
View File

@ -169,6 +169,18 @@ read procname export
jsr init_vcr jsr init_vcr
jsr init_fcr jsr init_fcr
; zero-out transferCount, even if there's an error
; later
ldy call_class
lda tc_table,y
tay
lda #0
sta [param_blk_ptr],y
iny
iny
sta [param_blk_ptr],y
;brk $ea
;~DebugSetTrace #1 ;~DebugSetTrace #1
; can only read from regular files or links. ; can only read from regular files or links.
@ -206,7 +218,7 @@ read procname export
stz transferCount+2 stz transferCount+2
ldy #fcr.mark+2 ldy #fcr.mark
lda [my_fcr],y lda [my_fcr],y
sta mark sta mark
iny iny
@ -421,6 +433,17 @@ update_counts procname
with my_dp with my_dp
; mark += count
lda count
clc
adc mark
sta mark
lda #0
adc mark+2
sta mark+2
;dataBuffer += count ;dataBuffer += count
lda count lda count
@ -437,7 +460,6 @@ update_counts procname
clc clc
adc transferCount adc transferCount
sta transferCount sta transferCount
lda #0 lda #0
adc transferCount+2 adc transferCount+2
sta transferCount+2 sta transferCount+2
@ -453,7 +475,7 @@ update_counts procname
sbc #0 sbc #0
sta requestCount+2 sta requestCount+2
; a = requestCount+2
ora requestCount ora requestCount
beq done beq done
jmp next_block jmp next_block