Builds on Merlin-16. Disk image updated.

2024-06-26 06:29:31 +00:00 · 2021-09-23 18:16:21 -04:00 · 2021-09-23 18:16:21 -04:00 · 6278c6d9fc
commit 6278c6d9fc
parent a9e80db0f5
22 changed files with 141 additions and 101 deletions
--- a/applecorn.po
+++ b/applecorn.po
--- a/applecorn.s
+++ b/applecorn.s
@ -216,6 +216,8 @@ MAINZP      MAC



+
+



--- a/auxmem.bytwrd.s
+++ b/auxmem.bytwrd.s
@ -480,3 +480,5 @@ OSBM2        ASC   ').'



+
+
--- a/auxmem.chario.s
+++ b/auxmem.chario.s
@ -455,3 +455,5 @@ BYTE76       LDX   #$00                      ; Update LEDs and return X=SHIFT



+
+
--- a/auxmem.gfx.s
+++ b/auxmem.gfx.s
@ -98,3 +98,5 @@ RELCOORD    CLC



+
+
--- a/auxmem.hostfs.s
+++ b/auxmem.hostfs.s
@ -985,3 +985,5 @@ ERROR2E     DW    $C800



+
+
--- a/auxmem.init.s
+++ b/auxmem.init.s
@ -177,8 +177,10 @@ BYTE00XX    BEQ   BYTE00A                    ; OSBYTE 0,0 - generate error
            RTS                              ; %000x1xxx host type, 'A'pple
 BYTE00A     BRK
            DB    $F7
-HELLO       ASC   'Applecorn MOS 2021-09-22'
+HELLO       ASC   'Applecorn MOS 2021-09-23'
            DB    $00                        ; Unify MOS messages



+
+
--- a/auxmem.misc.s
+++ b/auxmem.misc.s
@ -538,3 +538,5 @@ AUXBLK      ASC   '**ENDOFCODE**'



+
+
--- a/auxmem.mosequ.s
+++ b/auxmem.mosequ.s
@ -77,3 +77,5 @@ OSFILECB     EQU   $2EE        ; OSFILE control block



+
+
--- a/auxmem.oscli.s
+++ b/auxmem.oscli.s
@ -505,3 +505,5 @@ ECHOLP1     JSR   GSREAD



+
+
--- a/auxmem.vdu.s
+++ b/auxmem.vdu.s
@ -803,3 +803,5 @@ BYTEA02      LDY   VDUVARS+1,X



+
+
--- a/2
+++ b/2
@ -1,5 +1,5 @@
 #!/bin/sh
-for file in APPLECORN AUXMEM.BYTWRD AUXMEM.CHARIO AUXMEM.GFX AUXMEM.HOSTFS AUXMEM.INIT AUXMEM.MISC AUXMEM.MOSEQU AUXMEM.OSCLI AUXMEM.VDU MAINMEM.FSEQU MAINMEM.INIT MAINMEM.LDR MAINMEM.LISTS MAINMEM.MENU MAINMEM.MISC MAINMEM.PATH MAINMEM.SVC MAINMEM.WILD; do
+for file in APPLECORN AUXMEM.BYTWRD AUXMEM.CHARIO AUXMEM.GFX AUXMEM.HOSTFS AUXMEM.INIT AUXMEM.MISC AUXMEM.MOSEQU AUXMEM.OSCLI AUXMEM.VDU MAINMEM.FSEQU MAINMEM.GFX MAINMEM.INIT MAINMEM.LDR MAINMEM.LISTS MAINMEM.MENU MAINMEM.MISC MAINMEM.PATH MAINMEM.SVC MAINMEM.WILD; do
  cadius extractfile applecorn.po /APPLECORN/${file}.S .
  rm _FileInformation.txt
  cadius clearhighbit ${file}.S\#040000
--- a/mainmem.fsequ.s
+++ b/mainmem.fsequ.s
@ -67,6 +67,8 @@ GEOFCMD     EQU   $D1



+
+



--- a/mainmem.gfx.s
+++ b/mainmem.gfx.s
@ -123,3 +123,5 @@ HGRADDR      DW    $0000              ; Address 1st line of HGR char



+
+
--- a/mainmem.init.s
+++ b/mainmem.init.s
@ -113,6 +113,8 @@ RESET       TSX



+
+



--- a/mainmem.ldr.s
+++ b/mainmem.ldr.s
@ -160,3 +160,5 @@ LOADCODE    PHP                    ; Save carry flag



+
+
--- a/mainmem.lists.s
+++ b/mainmem.lists.s
@ -131,6 +131,8 @@ QUITPL      HEX   04          ; Number of parameters



+
+



--- a/mainmem.menu.s
+++ b/mainmem.menu.s
@ -148,6 +148,8 @@ ROM8        STR   "USERROM2.ROM"



+
+



--- a/mainmem.misc.s
+++ b/mainmem.misc.s
@ -217,6 +217,8 @@ FILEREFS    DB    $00,$00,$00,$00



+
+



--- a/mainmem.path.s
+++ b/mainmem.path.s
@ -312,6 +312,8 @@ PREFIX      DS    65           ; Buffer for ProDOS prefix



+
+



--- a/mainmem.svc.s
+++ b/mainmem.svc.s
@ -1057,3 +1057,5 @@ MAINRDMEM    STA   A1L
             LDA   (A1L)
 MAINRDEXIT   >>>   XF2AUX,NULLRTS     ; Back to an RTS

+
+
--- a/mainmem.wild.s
+++ b/mainmem.wild.s
@ -389,6 +389,8 @@ MATCHBUF    DS    65            ; For storing match results (Pascal str)



+
+
				`@ -455,3 +455,5 @@ BYTE76 LDX #$00 ; Update LEDs and return X=SHIFT`
				`@ -123,3 +123,5 @@ HGRADDR DW $0000 ; Address 1st line of HGR char`
				`@ -312,6 +312,8 @@ PREFIX DS 65 ; Buffer for ProDOS prefix`
				`@ -389,6 +389,8 @@ MATCHBUF DS 65 ; For storing match results (Pascal str)`