mirror of
https://github.com/bobbimanners/Applecorn.git
synced 2025-02-07 09:31:12 +00:00
JGH updates to *HELP and *CAT
This commit is contained in:
parent
9e5c214e9c
commit
28630fabdb
BIN
applecorn.po
BIN
applecorn.po
Binary file not shown.
@ -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
|
||||
|
||||
|
||||
|
||||
|
@ -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
|
||||
|
@ -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
|
||||
|
Loading…
x
Reference in New Issue
Block a user