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

get dir entry debugging

This commit is contained in:
Kelvin Sherlock 2015-08-26 16:51:02 -04:00
parent 1ed7bb7466
commit 0ec7e21f5d
2 changed files with 21 additions and 16 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

28
get_dir_entry.aii
View File

@ -101,8 +101,10 @@ get_dir_entry procname export
;~DebugSetTrace #1 ;~DebugSetTrace #1
jsr init_fcr
jsr init_vcr jsr init_vcr
jsr init_fcr
;brk $ea
; check for read-access ; check for read-access
ldy #fcr.access ldy #fcr.access
@ -226,7 +228,7 @@ get_dir_entry_dcb_1
endp endp
init proc init procname
with fst_parms,dp,data with fst_parms,dp,data
@ -315,7 +317,7 @@ minix
endp endp
base_displace proc base_displace procname
with fst_parms, dp with fst_parms, dp
with data with data
@ -377,7 +379,7 @@ backward
count_entries proc count_entries procname
; count the number of entries. ; count the number of entries.
with fst_parms with fst_parms
@ -437,7 +439,7 @@ exit
rts rts
endp endp
count_dirent_block proc count_dirent_block procname
; 16-byte dirent entries -- 64 per block. ; 16-byte dirent entries -- 64 per block.
with dp, data with dp, data
@ -466,7 +468,7 @@ done
strlen proc strlen procname
; strlen the dirent. ; strlen the dirent.
; will be 0-terminated unless if < dirent size. ; will be 0-terminated unless if < dirent size.
@ -492,7 +494,7 @@ exit
rts rts
endp endp
do_flags proc do_flags procname
with fst_parms with fst_parms
; $8000 for extended file, 0 for everything else. ; $8000 for extended file, 0 for everything else.
@ -501,7 +503,7 @@ do_flags proc
rts rts
endp endp
do_entry_num proc do_entry_num procname
with fst_parms with fst_parms
with data with data
@ -510,7 +512,7 @@ do_entry_num proc
rts rts
endp endp
do_name_buffer_0 proc do_name_buffer_0 procname
with fst_parms with fst_parms
with dp with dp
@ -555,7 +557,7 @@ exit
rts rts
endp endp
do_name_buffer_1 proc do_name_buffer_1 procname
with fst_parms with fst_parms
with dp with dp
@ -632,7 +634,7 @@ exit
; therefore the only special case is dirent_entry == 0 (since displacement 1 -> read entry 0) ; therefore the only special case is dirent_entry == 0 (since displacement 1 -> read entry 0)
; ;
; ;
find_absolute_dirent proc find_absolute_dirent procname
with data with data
; if displacement > dirent_entry, we can re-use that info. ; if displacement > dirent_entry, we can re-use that info.
@ -729,7 +731,7 @@ eod
; a = 0 if found, or error. ; a = 0 if found, or error.
; ;
; inputs y = dirent offset ; inputs y = dirent offset
find_dirent_block proc find_dirent_block procname
with dp, data with dp, data
ldy dirent_offset ldy dirent_offset
@ -863,7 +865,7 @@ no
endp endp
sparse_dirent_block proc sparse_dirent_block procname
; (not 32-bit safe) ; (not 32-bit safe)
; decrease size by the appropriate amount ; decrease size by the appropriate amount

9
main.aii
View File

@ -183,14 +183,17 @@ app_entry procname
rep #$30 rep #$30
IF DEBUG_S16 THEN
jsr debug
ENDIF
;brk $42 ;brk $42
sty <call_class sty <call_class
; debug saves all registers.
IF DEBUG_S16 THEN
jsr debug
ENDIF
; check the class 0 or 1 only. ; check the class 0 or 1 only.
cpy #2+1 cpy #2+1