get_file_info -- use named offsets
This commit is contained in:
parent
fe70a36c67
commit
b6696b8d6b
|
@ -91,30 +91,34 @@ exit
|
||||||
import do_eof, do_blocks, do_r_eof, do_r_blocks
|
import do_eof, do_blocks, do_r_eof, do_r_blocks
|
||||||
|
|
||||||
file_info_dcb_0
|
file_info_dcb_0
|
||||||
dc.w $00, do_ignore ; pathname
|
with FileRec
|
||||||
dc.w $04, do_access
|
dc.w pathname, do_ignore ; pathname
|
||||||
dc.w $06, do_file_type
|
dc.w fAccess, do_access
|
||||||
dc.w $08, do_aux_type
|
dc.w fileType, do_file_type
|
||||||
dc.w $0c, do_storage_type
|
dc.w auxType, do_aux_type
|
||||||
dc.w $0e, do_create_date_time_0
|
dc.w storageType, do_storage_type
|
||||||
dc.w $12, do_mod_date_time_0
|
dc.w createDate, do_create_date_time_0
|
||||||
dc.w $16, do_blocks
|
dc.w modDate, do_mod_date_time_0
|
||||||
|
dc.w blocksUsed, do_blocks
|
||||||
|
endwith
|
||||||
file_info_dcb_0_size equ *-file_info_dcb_0
|
file_info_dcb_0_size equ *-file_info_dcb_0
|
||||||
|
|
||||||
file_info_dcb_1
|
file_info_dcb_1
|
||||||
|
with FileInfoRecGS
|
||||||
;dc.w $00, do_ignore ; pCount
|
;dc.w $00, do_ignore ; pCount
|
||||||
dc.w $02, do_ignore ; pathname
|
dc.w pathname, do_ignore ; pathname
|
||||||
dc.w $06, do_access
|
dc.w access, do_access
|
||||||
dc.w $08, do_file_type
|
dc.w fileType, do_file_type
|
||||||
dc.w $0a, do_aux_type
|
dc.w auxType, do_aux_type
|
||||||
dc.w $0e, do_storage_type
|
dc.w storageType, do_storage_type
|
||||||
dc.w $10, do_create_date_time
|
dc.w createDateTime, do_create_date_time
|
||||||
dc.w $18, do_mod_date_time
|
dc.w modDateTime, do_mod_date_time
|
||||||
dc.w $20, do_option_list
|
dc.w optionList, do_option_list
|
||||||
dc.w $24, do_eof
|
dc.w eof, do_eof
|
||||||
dc.w $28, do_blocks
|
dc.w blocksUsed, do_blocks
|
||||||
dc.w $2c, do_r_eof
|
dc.w resourceEOF, do_r_eof
|
||||||
dc.w $30, do_r_blocks
|
dc.w resourceBlocks, do_r_blocks
|
||||||
|
endwith
|
||||||
endp
|
endp
|
||||||
|
|
||||||
|
|
||||||
|
|
Loading…
Reference in New Issue