mirror of
https://github.com/bobbimanners/Applecorn.git
synced 2024-09-29 13:55:05 +00:00
Finished *FREE.
This commit is contained in:
parent
f5a8a65e96
commit
a9086a3355
BIN
applecorn.po
BIN
applecorn.po
Binary file not shown.
@ -637,12 +637,30 @@ FREERET
|
|||||||
DB $CE ; Bad directory
|
DB $CE ; Bad directory
|
||||||
ASC 'Bad dir'
|
ASC 'Bad dir'
|
||||||
BRK
|
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
|
LDY AUXBLK+1
|
||||||
JSR PRDECXY ; Print in decimal
|
JSR PRDECXY ; Print in decimal
|
||||||
|
LDX #<:USEDM
|
||||||
|
LDY #>:USEDM
|
||||||
|
JSR OUTSTR
|
||||||
JSR FORCENL
|
JSR FORCENL
|
||||||
RTS
|
RTS
|
||||||
|
:FREEM ASC ' 512-byte Blocks Free'
|
||||||
|
DB $00
|
||||||
|
:USEDM ASC ' 512-byte Blocks Used'
|
||||||
|
DB $00
|
||||||
|
|
||||||
* Parse filename pointed to by XY
|
* Parse filename pointed to by XY
|
||||||
* Write filename to MOSFILE in main memory
|
* Write filename to MOSFILE in main memory
|
||||||
|
@ -1033,6 +1033,10 @@ DRVINFO >>> ENTMAIN
|
|||||||
STA AUXBLK
|
STA AUXBLK
|
||||||
LDA GINFOPL+9 ; Blks used MSB
|
LDA GINFOPL+9 ; Blks used MSB
|
||||||
STA AUXBLK+1
|
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
|
>>> MAINZP ; ALt ZP off, ROM back in
|
||||||
PLA
|
PLA
|
||||||
:EXIT >>> XF2AUX,FREERET
|
:EXIT >>> XF2AUX,FREERET
|
||||||
|
Loading…
Reference in New Issue
Block a user