diff --git a/applecorn.po b/applecorn.po index 11cae02..70805a1 100644 Binary files a/applecorn.po and b/applecorn.po differ diff --git a/auxmem.hostfs.s b/auxmem.hostfs.s index a8eab17..7e074fd 100644 --- a/auxmem.hostfs.s +++ b/auxmem.hostfs.s @@ -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 diff --git a/mainmem.s b/mainmem.s index aa958f6..062303e 100644 --- a/mainmem.s +++ b/mainmem.s @@ -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