More minor cleanup to CCP parser. Still WIP.

This commit is contained in:
Bobbi Webber-Manners 2019-10-25 23:07:58 -04:00
parent 6d9e8f5604
commit e6d373f59f
3 changed files with 3 additions and 8 deletions

View File

@ -1572,8 +1572,6 @@ N2FL3 INC HL ; Advance source pointer
LD A,(HL) ; Read character
CP '.' ; See if it is a period
JP Z,N2FS2 ; Prepare to copy the extension
CP ' ' ; See if it is a space ** TODO:STILL NEED THIS? **
JP Z,N2FS3 ; If so, we are done ** TODO:STILL NEED THIS? **
LD (DE),A ; Write character
INC B ; Increment count of chars written
N2FS1 DEC C ; Decrement count of chars remaining
@ -1893,7 +1891,6 @@ N2H2 OR 0F0H ;
; TODO: Implement the built-in commands using a table
; TODO: Built-in commands argument handling
; TODO: Parse * wildcard and generate FCB with ?s
; TODO: Command tail -> 080F buffer
; TODO: Build default FCB1 and 2 from args, if present
; Get a line of text from the console & handle it
@ -1949,8 +1946,6 @@ CCPS1 CP 3 ; Check if three chars
; Attempt to load .COM file from disk
CCPS2 CALL PARSE ; Parse the command line
LD HL,0080H ; Reset DMAADDR to 0080H
LD (DMAADDR),HL ; ...
LD DE,PATHBUF2 ; Point to the FCB in PATHBUF2
CALL RUNCOM ; Try to run .COM file
@ -2154,18 +2149,18 @@ CNS6 RET
; Load and run a .COM file to 0100H
; DE is the address of the FCB describing the file to run
RUNCOM CALL F_OPEN ;
RUNCOM LD HL,0080H ; Set DMAADDR to 0080H
LD (DMAADDR),HL ; ...
CALL F_OPEN ;
CP 0 ;
JP NZ,RCOERR ; Open error
LD HL,0100H ; Set DMAADDR to 0100H
LD (DMAADDR),HL ; ...
RCL1 CALL F_READ ; Read records until done
PUSH AF ; Preserve A
LD HL,(DMAADDR) ; Advance DMAADDR for each record
LD BC,80H ; ...
ADD HL,BC ; ...
LD (DMAADDR),HL ; ...
POP AF ; Restore A
CP 0 ; Check return code from F_READ
JP Z,RCL1 ; If zero, keep looping
CP 1 ; Check return code from F_READ

Binary file not shown.

Binary file not shown.