JGH updates to *HELP and *CAT

This commit is contained in:
Bobbi Webber-Manners 2021-08-31 18:47:35 -04:00
parent 9e5c214e9c
commit 28630fabdb
4 changed files with 43 additions and 29 deletions

Binary file not shown.

View File

@ -566,9 +566,7 @@ FSCCAT
>>> XF2MAIN,CATALOG
STARCATRET
>>> ENTAUX
LDA VDUTEXTX
BEQ CATDONE
JSR OSNEWL
JSR FORCENL
CATDONE LDA #0 ; 0=OK
RTS
@ -741,30 +739,31 @@ RENAME LDY #$00
BRK
RENRET
>>> ENTAUX
* JSR CHKERROR
*** JSR CHKNOTFND ;;; NOPE: THIS IS MAINMEM FUNC!!!
CMP #$44 ; Path not found
BEQ :NOTFND
CMP #$45 ; Vol dir not found
BEQ :NOTFND
CMP #$46 ; File not found
BEQ :NOTFND
CMP #$47 ; Duplicate filename
BEQ :EXISTS
CMP #$4E ; Access error
BEQ :LOCKED
CMP #$00
BNE :OTHER ; All other errors
JSR CHKERROR
**** JSR CHKNOTFND ;;; NOPE: THIS IS MAINMEM FUNC!!!
* CMP #$44 ; Path not found
* BEQ :NOTFND
* CMP #$45 ; Vol dir not found
* BEQ :NOTFND
* CMP #$46 ; File not found
* BEQ :NOTFND
* CMP #$47 ; Duplicate filename
* BEQ :EXISTS
* CMP #$4E ; Access error
* BEQ :LOCKED
* CMP #$00
* BNE :OTHER ; All other errors
LDA #$00
RTS
:NOTFND JMP ERRNOTFND
:EXISTS JMP ERREXISTS
:LOCKED BRK
DB $C3
ASC 'Locked'
:OTHER BRK
DB $C7
ASC 'Disc error'
BRK
*:NOTFND JMP ERRNOTFND
*:EXISTS JMP ERREXISTS
*:LOCKED BRK
* DB $C3
* ASC 'Locked'
*:OTHER BRK
* DB $C7
* ASC 'Disc error'
* BRK
* Handle *DIR (directory change) command
* On entry, ZP1 points to command line
@ -971,3 +970,5 @@ ERROR2E DW $C800
ASC 'Disk changed' ; $2E - Disk switched
DB $00

View File

@ -103,13 +103,20 @@ OUTSTR TXA
PRSTR STA OSTEXT+0 ; String in A,Y
STY OSTEXT+1
:L1 LDA (OSTEXT) ; Ptr to string in ZP3
BEQ :S1
BEQ PRSTROK
JSR OSASCI
INC OSTEXT
BNE :L1
INC OSTEXT+1
BRA :L1
:S1 RTS
PRSTROK RTS
* Print NL if not already at column 0
FORCENL LDA #$86
JSR OSBYTE
TXA
BEQ PRSTROK
JMP OSNEWL
* Print XY in hex
OUT2HEX TYA

View File

@ -334,6 +334,9 @@ SKIPSPC LDA (OSLPTR),Y
CMP #$0D ; Return EQ=<cr>
RTS
* Skip a word parameter
SKIPWORD RTS
* Convert (LPTR),Y to XY
LPTRtoXY CLC
TYA
@ -390,7 +393,10 @@ STARHELP3 LDA #32
INX
INX
BNE STARHELPLP1
STARHELP4 JSR OSNEWL
STARHELP4 LDA #$08
JSR OSWRCH
JSR OSWRCH
JSR FORCENL
STARHELP5 LDA $8006
BMI STARHELP6 ; Use ROM's service entry
JSR OSNEWL