; ; BabelFish AppleSoft Translator ; ; by Kelvin W Sherlock September 1998 ; ; offset_fType gequ 16 offset_eof gequ 18 offset_aType gequ 44 BAS_FTYPE gequ $FC BAS_ATYPE gequ $0801 ; SFFilter ; ; in stack: ; ; (3) |rtl ; |---- ; (4) |DirEntryRecPtr ; |---- ; (2) |returnval ; |---- ; |......... ; out stack: ; ; |returnval ; |---- ; |......... ; ; Returns 0 if it's not an Applesoft File, or 4 if it is. ; SFFilter START _d equ 1 _rtlb equ 3 DirPtr equ 7 retval equ 11 phb ;even up the stack phd tsc tcd stz 2 :-) ; dey dey lda [