Merge PR 147 'Startup reads prefix to CMDBUF'

auxmem.init.s

@@ -204,7 +204,7 @@ BYTE00      BEQ   BYTE00A                    ; OSBYTE 0,0 - generate error
             RTS                              ; %000x1xxx host type, 'A'pple
 BYTE00A     BRK
             DB    $F7
-HELLO       ASC   'Applecorn MOS 2021-11-13'
+HELLO       ASC   'Applecorn MOS 2021-11-14'
             DB    $00                        ; Unify MOS messages
 
 

mainmem.init.s

@@ -4,6 +4,9 @@
 * Initialization, interrupt handling and reset handling code
 * that resides in main memory.
 
+* 14-Nov-2021 If started from CSD, gets prefix to CMDBUF.
+
+
 * Trampoline in main memory used by aux memory IRQ handler
 * to invoke Apple II / ProDOS IRQs in main memory
 A2IRQ       >>>   IENTMAIN          ; IENTMAIN does not do CLI
@@ -37,7 +40,18 @@ SETPRFX     LDA   #GPFXCMD
             STA   DRVBUF2           ; was $0301
             DEC   :OPC7
             BNE   :L1
-RTSINST     RTS
+RTSINST     LDA   CMDPATH
+            BEQ   :GETPFX           ; CMDPATH empty
+            LDA   CMDPATH+1
+            CMP   #'/'
+            BEQ   :GETPFXDONE       ; CMDPATH already absolute path
+:GETPFX     JSR   MLI
+            DB    $C7               ; Get Prefix
+            DW    :GETADDR
+:GETPFXDONE RTS
+:GETADDR    HEX   01                ; One parameter
+            DW    CMDPATH           ; Get prefix to CMDPATH
+
 
 * Disconnect /RAM ramdrive to avoid aux corruption
 * Stolen from Beagle Bros Extra K
@@ -90,55 +104,3 @@ RESET       TSX
             >>>   XF2AUX,AUXMOS
             RTS
 
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-

mainmem.menu.s

@@ -26,8 +26,8 @@ ROMMENU      JSR   HOME               ; Clear screen
 *            JSR   PRSTRA1
             JSR   CROUT
 * TEMP
-* LDA #$00
-* JMP :KEYOK
+; LDA #$00
+; JMP :KEYOK
 * TEMP
 *            JSR   CROUT
 *            LDA   #<TITLE2
@@ -188,5 +188,3 @@ USERSEL      DB    $00
 
 
 
-
-