Apple-2-SW/Applecorn
1
0
Fork 0
mirror of https://github.com/bobbimanners/Applecorn.git synced 2024-06-11 09:29:32 +00:00
Code Issues Projects Releases Wiki Activity

Finished *FREE.

Browse Source
This commit is contained in:
Bobbi Webber-Manners 2021-09-05 15:15:45 -04:00
parent f5a8a65e96
commit a9086a3355
3 changed files with 24 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

BIN
applecorn.po
View File

Binary file not shown.

22
auxmem.hostfs.s
View File

@ -637,12 +637,30 @@ FREERET
DB $CE ; Bad directory
ASC 'Bad dir'
BRK
:NOERR LDX AUXBLK ; Blocks used
:NOERR SEC
LDA AUXBLK+2 ; LSB of total blks
SBC AUXBLK ; LSB of blocks used
TAX
LDA AUXBLK+3 ; MSB of total blks
SBC AUXBLK+1 ; MSB of blocks used
TAY
JSR PRDECXY ; Print in decimal
LDX #<:FREEM
LDY #>:FREEM
JSR OUTSTR
JSR FORCENL
LDX AUXBLK+0 ; Blocks used
LDY AUXBLK+1
JSR PRDECXY ; Print in decimal
LDX #<:USEDM
LDY #>:USEDM
JSR OUTSTR
JSR FORCENL
RTS
:FREEM ASC ' 512-byte Blocks Free'
DB $00
:USEDM ASC ' 512-byte Blocks Used'
DB $00
* Parse filename pointed to by XY
* Write filename to MOSFILE in main memory

4
mainmem.s
View File

@ -1033,6 +1033,10 @@ DRVINFO >>> ENTMAIN
STA AUXBLK
LDA GINFOPL+9 ; Blks used MSB
STA AUXBLK+1
LDA GINFOPL+5 ; Tot blks LSB
STA AUXBLK+2
LDA GINFOPL+6 ; Tot blks MSB
STA AUXBLK+3
>>> MAINZP ; ALt ZP off, ROM back in
PLA
:EXIT >>> XF2AUX,FREERET