mirror of
https://github.com/bobbimanners/Zapple-II.git
synced 2024-06-11 10:29:30 +00:00
Fixed F_SNEXT so it doesn't need FCB in DE
This commit is contained in:
parent
bf2f2c1f2f
commit
8e0c6fc3e2
|
@ -23,9 +23,7 @@
|
||||||
; TODO: Needs proper boot / warm boot entry points
|
; TODO: Needs proper boot / warm boot entry points
|
||||||
; TODO: NAME2FCB needs to generate size information in some cases but not
|
; TODO: NAME2FCB needs to generate size information in some cases but not
|
||||||
; others. Right now this functionality is just commented out.
|
; others. Right now this functionality is just commented out.
|
||||||
; TODO: PIP wildcards only get first file, so there must be a problem with
|
; TODO: Get STAT.COM to work. Think it is picky about arg handling.
|
||||||
; F_SFIRST/F_SNEXT still
|
|
||||||
; TODO: Get STAT.COM to work
|
|
||||||
; TODO: F_WRITE bug turns out to be bug in ProDOS 2.5.0a7 (SET_MARK)
|
; TODO: F_WRITE bug turns out to be bug in ProDOS 2.5.0a7 (SET_MARK)
|
||||||
; TODO: Maybe I should eliminate use of "EX AF,AF'" in BDOS since CP/M apps
|
; TODO: Maybe I should eliminate use of "EX AF,AF'" in BDOS since CP/M apps
|
||||||
; may expect exclusive use of alternate register set.
|
; may expect exclusive use of alternate register set.
|
||||||
|
@ -967,12 +965,11 @@ FSFS2 LD A,0FFH ; No match
|
||||||
RET
|
RET
|
||||||
|
|
||||||
; Search for next match of filename in directory
|
; Search for next match of filename in directory
|
||||||
; DE is the address of the FCB describing the file to look for
|
; The address of the FCB describing the file to look for is in TEMPWORD
|
||||||
; Returns error codes in A and L: 0 for success, 0FFH for not found
|
; Returns error codes in A and L: 0 for success, 0FFH for not found
|
||||||
; The matching FCB is always in slot 0, so success return code always 0
|
; The matching FCB is always in slot 0, so success return code always 0
|
||||||
; TODO: Should handle '?' in extent field also
|
; TODO: Should handle '?' in extent field also
|
||||||
F_SNEXT LD (TEMPWORD),DE ; Store pointer to search FCB
|
F_SNEXT LD HL,(CDBPTR) ; Pointer into current block
|
||||||
LD HL,(CDBPTR) ; Pointer into current block
|
|
||||||
LD A,(CDBCOUNT) ; File count for current block
|
LD A,(CDBCOUNT) ; File count for current block
|
||||||
FSNL1 LD DE,(TEMPWORD) ; Get ptr to search FCB back
|
FSNL1 LD DE,(TEMPWORD) ; Get ptr to search FCB back
|
||||||
CALL CHKDIRBLK ; Search directory block
|
CALL CHKDIRBLK ; Search directory block
|
||||||
|
@ -1962,7 +1959,7 @@ PRHEX PUSH AF
|
||||||
; Very simple CCP
|
; Very simple CCP
|
||||||
;
|
;
|
||||||
; Commands:
|
; Commands:
|
||||||
; - d - Change default drive (A:, B: etc.)
|
; - d: - Change default drive (A:, B: etc.)
|
||||||
; - DIR - Show directory (DIR, DIR A:, DIR FOO.TXT, DIR F???????.???)
|
; - DIR - Show directory (DIR, DIR A:, DIR FOO.TXT, DIR F???????.???)
|
||||||
; - ERA - Erase file(s) (ERA FOO.TXT, ERA F???????.???)
|
; - ERA - Erase file(s) (ERA FOO.TXT, ERA F???????.???)
|
||||||
; - REN - Rename file (REN BAR.TXT=FOO.TXT)
|
; - REN - Rename file (REN BAR.TXT=FOO.TXT)
|
||||||
|
@ -1972,12 +1969,13 @@ PRHEX PUSH AF
|
||||||
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
|
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
|
||||||
|
|
||||||
; TODO: Sanity check / validate number of command args for builtins
|
; TODO: Sanity check / validate number of command args for builtins
|
||||||
; TODO: Not handling case where there are no args propertly. If PIP is started
|
; TODO: Not handling case where there are no args properly. If PIP is started
|
||||||
; without arguments then it should go to interactive mode. Zeroing FILEBUF
|
; without arguments then it should go to interactive mode. Zeroing FILEBUF
|
||||||
; does the trick!
|
; does the trick!
|
||||||
; TODO: Make unadorned drives expand to x:????????.??? or something so
|
; TODO: Make unadorned drives expand to x:????????.??? or something so
|
||||||
; DIR A: works. Or just special case it in DIRECT ...
|
; DIR A: works. Or just special case it in DIRECT ...
|
||||||
; Need to handle this differently for eg: ERA A: vs DIR A: !!
|
; Need to handle this differently for eg: ERA A: vs DIR A: !!
|
||||||
|
; TODO: For some reason ERA B:????????.??? doesn't work
|
||||||
; TODO: Parse * wildcard and generate FCB with ?s
|
; TODO: Parse * wildcard and generate FCB with ?s
|
||||||
; TODO: Implement REN, SAVE commands
|
; TODO: Implement REN, SAVE commands
|
||||||
|
|
||||||
|
|
Binary file not shown.
BIN
zapple2.po
BIN
zapple2.po
Binary file not shown.
Loading…
Reference in New Issue
Block a user