always read 512-byte blocks.

This commit is contained in:
Kelvin Sherlock 2015-08-26 11:58:17 -04:00
parent f73e1e20e1
commit 55b4d65039
5 changed files with 24 additions and 11 deletions

View File

@ -36,7 +36,7 @@ device_write proc export
;
; inputs: a = block number. (1024 blocks)
; inputs: a = block number. (1024 byte block)
;
;
read_data_block proc export
@ -59,11 +59,16 @@ loop
rts
read_it
; a = block num (1024-byte).
; multiply x 2 for 512-byte blocks.
asl a
sta dev_blk_num
stz dev_blk_num+2
lda #0
rol a
sta dev_blk_num+2
lda #1024
sta dev_blk_size
;sta dev_blk_size
sta dev_req_cnt
stz dev_req_cnt+2

View File

@ -238,8 +238,9 @@ init proc
lda #in_cache
sta dev_parms.dev_cache_pr
; should probably read half-blocks...
lda #1024
sta dev_parms.dev_blk_size
;sta dev_parms.dev_blk_size
sta dev_parms.dev_req_cnt

View File

@ -42,7 +42,7 @@ get_file_info procname export
;~DebugSetTrace #1
brk $ea
;brk $ea
jsr path_to_inode
bcs exit
@ -165,8 +165,8 @@ load_inode procname export
sta dev_blk_num
lda #512
;sta dev_blk_size
sta dev_req_cnt
sta dev_blk_size
; dev_num must already be set up.
;lda device ;;;;

View File

@ -49,12 +49,13 @@ id_disk procname export
sta dev_num
lda #512
sta dev_blk_size
;sta dev_blk_size
sta dev_req_cnt
lda #SUPER_BLOCK*2
sta dev_blk_num
lda #512
sta dev_req_cnt
jsr device_read
bcs exit

View File

@ -219,14 +219,19 @@ app_entry procname
sta io_buffer+2
sta dev_parms.dev_buff+2
;
; minix uses 1024 byte blocks... however, appledisk3.5 can only read 256, 512, or 524 byte blocks.
;
lda #512
sta dev_parms.dev_blk_size
stz dev_parms.dev_blk_size+2
stz dev_parms.dev_num
stz dev_parms.dev_callnum
stz dev_parms.dev_req_cnt
stz dev_parms.dev_req_cnt+2
stz dev_parms.dev_blk_num
stz dev_parms.dev_blk_num+2
stz dev_parms.dev_blk_size
stz dev_parms.dev_blk_size+2
stz my_fcr
stz my_fcr+2
@ -239,6 +244,7 @@ app_entry procname
stz <tool_error
;stz <device
; fake an rtl address for sys_exit
; otherwise, would need to jml sys_exit from functions.
pea |(sys_exit-1)>>8