Apple-2-SW/Applecorn
1
0
Fork 0
mirror of https://github.com/bobbimanners/Applecorn.git synced 2025-02-02 06:30:04 +00:00
Code Issues Projects Releases Wiki Activity

Merge PR #117 'OSFIND checks return value from calling maincode'

Browse Source
This commit is contained in:
Bobbi Webber-Manners 2021-10-12 09:50:22 -04:00
parent 606a640c08
commit cb4dacb638
2 changed files with 66 additions and 68 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

BIN
applecorn.po
View File

Binary file not shown.

40
auxmem.hostfs.s
View File

@ -8,17 +8,32 @@
* 30-Aug-2021 FSC commands moved to here
* Command line set by *RUN, and read by OSARGS
* 20-Sep-2021 *FREE uses new PRDECIMAL routine
* 12-Oct-2021 OSFIND checks return value from calling maincode.
* $B0-$BF Temporary filing system workspace
FSXREG EQU $B0
FSYREG EQU $B1
FSAREG EQU $B2
FSCTRL EQU FSXREG
FSPTR1 EQU $B4
FSPTR2 EQU $B6
* $C0-$CF Persistant filing system workspace
FSNUM EQU $C8 ; *TEMP*
FSCMDLINE EQU $CE
; B0-B3 addr
; B4-B7 sect
; B8-BB
; BC-BF
; C0-C3 num
; C4-C5 cblk
; C6-C7
; C8-CB
; CC-CD
; CE-CF cmd
* OSFIND - open/close a file for byte access
FINDHND PHX
@ -36,6 +51,7 @@ FINDHND PHX
>>> XF2MAIN,CFILE
OSFINDRET
>>> ENTAUX
JSR CHKERROR ; Check if error returned
PLY ; Value of A on entry
CPY #$00 ; Was it close?
BNE :S1
@ -627,7 +643,7 @@ DRIVE LDA (OSLPTR),Y ; First char
BEQ :HASPARM
:ERR BRK
DB $DC
ASC 'Syntax: DRIVE <dry> (eg: DRIVE :61)'
ASC 'Syntax: DRIVE <drv> (eg: DRIVE :61)'
BRK
:HASPARM >>> XF2MAIN,SETPFX
@ -651,7 +667,7 @@ FREE LDA (OSLPTR),Y ; First char
BEQ :HASPARM
:ERR BRK
DB $DC
ASC 'Syntax: FREE <dry> (eg: FREE :61)'
ASC 'Syntax: FREE <drv> (eg: FREE :61)'
BRK
:HASPARM >>> XF2MAIN,DRVINFO
@ -969,7 +985,7 @@ ERROR28 DW $D200
ERROR5A DW $FF00
ASC 'Sector not found' ; $5A - Bit map disk address is impossible
ERROR2B DW $C900
ASC 'Disk write protected' ; $2B - Disk write protected
ASC 'Disk write protected'; $2B - Disk write protected
ERROR5D DW $CA00
ASC 'Data lost' ; $5D - EOF during LOAD or SAVE
ERROR5E DW $C000
@ -979,21 +995,3 @@ ERROR5E DW $C000
ERROR2E DW $C800
ASC 'Disk changed' ; $2E - Disk switched
DB $00