70 lines
1.1 KiB
Plaintext
70 lines
1.1 KiB
Plaintext
|
|
; my direct page.
|
|
dp record $0080
|
|
|
|
ptr ds.l 1 ; misc ptr
|
|
|
|
my_vcr ds.l 1
|
|
my_fcr ds.l 1
|
|
my_vcr_ptr ds.l 1
|
|
cookie ds.w 1
|
|
call_class ds.w 1
|
|
tmp ds.w 1
|
|
|
|
__end equ *
|
|
IF *>=$d4 THEN
|
|
AERROR 'dp -- too large.'
|
|
ENDIF
|
|
endr
|
|
|
|
|
|
fcr record 0
|
|
id ds.w 1 ; ref num
|
|
path_name ds.l 1
|
|
fst_id ds.w 1
|
|
vcr_id ds.w 1
|
|
level ds.w 1
|
|
newline ds.l 1
|
|
newline_length ds.w 1
|
|
mask ds.w 1
|
|
access ds.w 1
|
|
|
|
; fst-specific items
|
|
|
|
cookie ds.w 1
|
|
|
|
__sizeof equ *
|
|
endr
|
|
|
|
vcr record 0
|
|
id ds.w 1
|
|
name ds.l 1
|
|
status ds.w 1
|
|
open_count ds.w 1
|
|
fst_id ds.w 1
|
|
device ds.w 1
|
|
fst_ptr ds.l 1
|
|
|
|
; fst-specific items
|
|
|
|
__sizeof equ *
|
|
endr
|
|
|
|
|
|
|
|
; 5 = mfs, we're stealing it for now.
|
|
fst_id equ 5
|
|
|
|
; Upper-case pathnames
|
|
; |Character-based FST
|
|
; ||Format capable
|
|
; |||Strip high bits from pathname characters
|
|
; ||||Read-Only FST
|
|
; |||||Reserved
|
|
; ||||||||||||||Format type
|
|
; |||||||||||||||| (00 = Universal)
|
|
; |||||||||||||||| (01 = Apple-generic)
|
|
; |||||||||||||||| (10 = Non-Apple)
|
|
; |||||||||||||||| (11 = Apple-][ specific)
|
|
fst_attr equ %0000000000000000
|