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

Updated .PO disk image.

Browse Source
This commit is contained in:
Bobbi Webber-Manners 2021-10-13 20:57:16 -04:00
parent 22ab75874e
commit a173e8667e
21 changed files with 774 additions and 735 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

BIN
applecorn.po
View File

Binary file not shown.

2
applecorn.s
View File

@ -229,6 +229,8 @@ MAINZP MAC

2
auxmem.bytwrd.s
View File

@ -489,6 +489,8 @@ OSBM2 ASC ').'

2
auxmem.chario.s
View File

@ -462,5 +462,7 @@ BYTE76 LDX #$00 ; Update LEDs and return X=SHIFT

2
auxmem.gfx.s
View File

@ -321,3 +321,5 @@ RELCOORD CLC
STA VDUQ+7 STA VDUQ+7
RTS RTS

93
auxmem.hostfs.s
View File

@ -688,19 +688,19 @@ FREERET
LDA AUXBLK+3 ; MSB of total blks LDA AUXBLK+3 ; MSB of total blks
SBC AUXBLK+1 ; MSB of blocks used SBC AUXBLK+1 ; MSB of blocks used
TAY TAY
LDA #$00 ; *TO DO* b16-b23 of free LDA #$00 ; *TO DO* b16-b23 of free
* NEW * NEW
JSR :FREEDEC ; Print 'AAYYXX blocks aaayyyxxx bytes ' JSR :FREEDEC ; Print 'AAYYXX blocks aaayyyxxx bytes '
LDX #<:FREE LDX #<:FREE
LDY #>:FREE LDY #>:FREE
JSR OUTSTR ; Print 'free'<nl> JSR OUTSTR ; Print 'free'<nl>
LDX AUXBLK+0 ; Blocks used LDX AUXBLK+0 ; Blocks used
LDY AUXBLK+1 LDY AUXBLK+1
LDA #$00 ; *TO DO* b16-b23 of used LDA #$00 ; *TO DO* b16-b23 of used
JSR :FREEDEC ; Print 'AAYYXX blocks aaayyyxxx bytes ' JSR :FREEDEC ; Print 'AAYYXX blocks aaayyyxxx bytes '
LDX #<:USED LDX #<:USED
LDY #>:USED LDY #>:USED
JMP OUTSTR ; Print 'used'<nl> JMP OUTSTR ; Print 'used'<nl>
* OLD * OLD
* JSR PRDECXY ; Print in decimal * JSR PRDECXY ; Print in decimal
@ -723,20 +723,20 @@ FREERET
STA FSNUM+3 STA FSNUM+3
* What's the maximum number of blocks? * What's the maximum number of blocks?
* JSR PRHEX ; Blocks b16-b23 in hex * JSR PRHEX ; Blocks b16-b23 in hex
JSR PR2HEX ; Blocks b0-b15 in hex JSR PR2HEX ; Blocks b0-b15 in hex
LDX #<:BLOCKS LDX #<:BLOCKS
LDY #>:BLOCKS LDY #>:BLOCKS
JSR OUTSTR ; ' blocks ' JSR OUTSTR ; ' blocks '
STZ FSNUM+0 ; FSNUM=blocks*512 STZ FSNUM+0 ; FSNUM=blocks*512
ASL FSNUM+1 ASL FSNUM+1
ROL FSNUM+2 ROL FSNUM+2
ROL FSNUM+3 ROL FSNUM+3
LDX #FSNUM ; X=>number to print LDX #FSNUM ; X=>number to print
LDY #8 ; Y=pad up to 8 digits LDY #8 ; Y=pad up to 8 digits
JSR PRINTDEC ; Print it in decimal JSR PRINTDEC ; Print it in decimal
LDX #<:BYTES LDX #<:BYTES
LDY #>:BYTES LDY #>:BYTES
JMP OUTSTR ; ' bytes ' JMP OUTSTR ; ' bytes '
:BLOCKS ASC ' blocks ' :BLOCKS ASC ' blocks '
DB 0 DB 0
:BYTES ASC ' bytes ' :BYTES ASC ' bytes '
@ -932,67 +932,68 @@ MKERROR4
* AcornOS ProDOS * AcornOS ProDOS
ERROR40 DW $CC00 ERROR40 DW $CC00
ASC 'Bad filename' ; $40 - Invalid pathname syntax ASC 'Bad filename' ; $40 - Invalid pathname syntax
ERROR41 DW $C400 ERROR41 DW $C400
ASC 'Directory exists' ; $41 - Duplicate filename (split from $47) ASC 'Directory exists' ; $41 - Duplicate filename (split from $47)
ERROR42 DW $C000 ERROR42 DW $C000
ASC 'Too many open' ; $42 - File Control Block table full ASC 'Too many open' ; $42 - File Control Block table full
ERROR43 DW $DE00 ERROR43 DW $DE00
ASC 'Channel not open' ; $43 - Invalid reference number ASC 'Channel not open' ; $43 - Invalid reference number
ERROR44 ; $44 - Path not found ERROR44 ; $44 - Path not found
ERROR46 DW $D600 ERROR46 DW $D600
ASC 'File not found' ; $46 - File not found ASC 'File not found' ; $46 - File not found
ERROR45 DW $D600 ERROR45 DW $D600
ASC 'Disk not found' ; $45 - Volume directory not found ASC 'Disk not found' ; $45 - Volume directory not found
ERROR47 DW $C400 ERROR47 DW $C400
ASC 'File exists' ; $47 - Duplicate filename (see also $41) ASC 'File exists' ; $47 - Duplicate filename (see also $41)
ERROR48 DW $C600 ERROR48 DW $C600
ASC 'Disk full' ; $48 - Overrun error ASC 'Disk full' ; $48 - Overrun error
ERROR49 DW $B300 ERROR49 DW $B300
ASC 'Directory full' ; $49 - Volume directory full ASC 'Directory full' ; $49 - Volume directory full
ERROR4A ; $4A - Incompatible file format ERROR4A ; $4A - Incompatible file format
ERROR4B ; $4B - Unsupported storage_type ERROR4B ; $4B - Unsupported storage_type
ERROR52 DW $C800 ERROR52 DW $C800
ASC 'Disk not recognised' ; $52 - Not a ProDOS disk ASC 'Disk not recognised' ; $52 - Not a ProDOS disk
ERROR4C DW $DF00 ERROR4C DW $DF00
ASC 'End of file' ; $4C - End of file has been encountered ASC 'End of file' ; $4C - End of file has been encountered
ERROR4D DW $C100 ERROR4D DW $C100
ASC 'Not open for update' ; $4D - Position out of range ASC 'Not open for update' ; $4D - Position out of range
ERROR4E DW $BD00 ERROR4E DW $BD00
ASC 'Insufficient access' ; $4E - Access error (see also $4F) ASC 'Insufficient access' ; $4E - Access error (see also $4F)
ERROR4F DW $C300 ERROR4F DW $C300
ASC 'Locked' ; $4F - Access error (split from $4E) ASC 'Locked' ; $4F - Access error (split from $4E)
ERROR50 DW $C200 ERROR50 DW $C200
ASC 'Can' ASC 'Can'
DB $27 DB $27
ASC 't - file open' ; $50 - File is open ASC 't - file open' ; $50 - File is open
ERROR51 DW $A800 ERROR51 DW $A800
ASC 'Broken directory' ; $51 - Directory count error ASC 'Broken directory' ; $51 - Directory count error
ERROR53 DW $DC00 ERROR53 DW $DC00
ASC 'Invalid parameter' ; $53 - Invalid parameter ASC 'Invalid parameter' ; $53 - Invalid parameter
ERROR54 DW $D400 ERROR54 DW $D400
ASC 'Directory not empty' ; $54 - Directory not empty ASC 'Directory not empty' ; $54 - Directory not empty
ERROR55 DW $FF00 ERROR55 DW $FF00
ASC 'ProDOS: VCB full' ; $55 - Volume Control Block table full ASC 'ProDOS: VCB full' ; $55 - Volume Control Block table full
ERROR56 DW $FF00 ERROR56 DW $FF00
ASC 'ProDOS: Bad addr' ; $56 - Bad buffer address ASC 'ProDOS: Bad addr' ; $56 - Bad buffer address
ERROR57 DW $FF00 ERROR57 DW $FF00
ASC 'ProDOS: Dup volm' ; $57 - Duplicate volume ASC 'ProDOS: Dup volm' ; $57 - Duplicate volume
ERROR5B ; spare ERROR5B ; spare
ERROR27 DW $FF00 ERROR27 DW $FF00
ASC 'I/O error' ; $27 - I/O error ASC 'I/O error' ; $27 - I/O error
ERROR28 DW $D200 ERROR28 DW $D200
ASC 'Disk not present' ; $28 - No device detected/connected ASC 'Disk not present' ; $28 - No device detected/connected
ERROR5A DW $FF00 ERROR5A DW $FF00
ASC 'Sector not found' ; $5A - Bit map disk address is impossible ASC 'Sector not found' ; $5A - Bit map disk address is impossible
ERROR2B DW $C900 ERROR2B DW $C900
ASC 'Disk write protected'; $2B - Disk write protected ASC 'Disk write protected' ; $2B - Disk write protected
ERROR5D DW $CA00 ERROR5D DW $CA00
ASC 'Data lost' ; $5D - EOF during LOAD or SAVE ASC 'Data lost' ; $5D - EOF during LOAD or SAVE
ERROR5E DW $C000 ERROR5E DW $C000
ASC 'Can' ASC 'Can'
DB $27 DB $27
ASC 't save' ; $5E - Couldn't open for save ASC 't save' ; $5E - Couldn't open for save
ERROR2E DW $C800 ERROR2E DW $C800
ASC 'Disk changed' ; $2E - Disk switched ASC 'Disk changed' ; $2E - Disk switched
DB $00 DB $00

2
auxmem.init.s
View File

@ -194,3 +194,5 @@ HELLO ASC 'Applecorn MOS 2021-10-13'

2
auxmem.misc.s
View File

@ -555,4 +555,6 @@ AUXBLK ASC '**ENDOFCODE**'

2
auxmem.mosequ.s
View File

@ -86,6 +86,8 @@ OSFILECB EQU $2EE ; OSFILE control block

2
auxmem.oscli.s
View File

@ -516,4 +516,6 @@ ECHOLP1 JSR GSREAD

1380
auxmem.vdu.s
View File

File diff suppressed because it is too large Load Diff

2
mainmem.fsequ.s
View File

@ -79,6 +79,8 @@ GEOFCMD EQU $D1

2
mainmem.gfx.s
View File

@ -221,3 +221,5 @@ MHGRTAB DW $2000,$2080,$2100,$2180,$2200,$2280,$2300,$2380

2
mainmem.init.s
View File

@ -125,6 +125,8 @@ RESET TSX

2
mainmem.ldr.s
View File

@ -167,3 +167,5 @@ LOADCODE PHP ; Save carry flag

2
mainmem.lists.s
View File

@ -143,6 +143,8 @@ QUITPL HEX 04 ; Number of parameters

2
mainmem.menu.s
View File

@ -160,6 +160,8 @@ ROM8 STR "USERROM2.ROM"

2
mainmem.misc.s
View File

@ -229,6 +229,8 @@ FILEREFS DB $00,$00,$00,$00

2
mainmem.path.s
View File

@ -309,4 +309,6 @@ PREFIX DS 65 ; Buffer for ProDOS prefix

2
mainmem.svc.s
View File

@ -1115,3 +1115,5 @@ MAINRDEXIT >>> XF2AUX,NULLRTS ; Back to an RTS

2
mainmem.wild.s
View File

@ -401,6 +401,8 @@ MATCHBUF DS 65 ; For storing match results (Pascal str)