From 82d86548c313a4aeed9d906c9a3305bd659c3880 Mon Sep 17 00:00:00 2001
From: Terence Boldt <terence@boldt.ca>
Date: Sat, 27 Mar 2021 11:07:36 -0400
Subject: [PATCH] Remove relative code to free up x register

---
 Apple2/CommandFirmware.asm          | 101 ++++++++++++++++++++++++++
 Apple2/CommandFirmware.lst          | 108 ++++++++++++++++++++++++++++
 Apple2/DriveFirmware.asm            |  34 ++++-----
 Apple2/DriveFirmware.lst            |  34 ++++-----
 Apple2/FileAccessFirmware.asm       | 101 ++++++++++++++++++++++++++
 Apple2/FileAccessFirmware.lst       | 108 ++++++++++++++++++++++++++++
 Apple2/Firmware_27256_EPROM.bin     | Bin 32768 -> 32768 bytes
 Apple2/Firmware_AT28C64B_EEPROM.bin | Bin 8192 -> 8192 bytes
 Apple2/MenuFirmware.asm             |  15 ++--
 Apple2/MenuFirmware.lst             |  41 +++++------
 Apple2/assemble.sh                  |  30 ++++++--
 11 files changed, 504 insertions(+), 68 deletions(-)
 create mode 100644 Apple2/CommandFirmware.asm
 create mode 100644 Apple2/CommandFirmware.lst
 create mode 100644 Apple2/FileAccessFirmware.asm
 create mode 100644 Apple2/FileAccessFirmware.lst

diff --git a/Apple2/CommandFirmware.asm b/Apple2/CommandFirmware.asm
new file mode 100644
index 0000000..50fe54a
--- /dev/null
+++ b/Apple2/CommandFirmware.asm
@@ -0,0 +1,101 @@
+;ProDOS Zero Page
+Command = $42 ;ProDOS Command
+Unit = $43 ;ProDOS unit (SDDD0000)
+BufferLo = $44
+BufferHi = $45
+BlockLo = $46
+BlockHi = $47
+
+; ProDOS Error Codes
+IOError = $27
+NoDevice = $28
+WriteProtect = $2B
+
+InputByte = $c08e+SLOT*$10
+OutputByte = $c08d+SLOT*$10
+InputFlags = $c08b+SLOT*$10
+OutputFlags = $c087+SLOT*$10
+
+ReadBlockCommand = $01
+WriteBlockCommand = $02
+GetTimeCommand = $03
+ChangeDriveCommand = $04
+ExecCommand = $05
+LoadFileCommand = $06
+SaveFileCommand = $07
+
+ .org SLOT*$100 + $C000
+;ID bytes for booting and drive detection
+ cpx #$20    ;ID bytes for ProDOS and the
+ cpx #$00    ; Apple Autostart ROM
+ cpx #$03    ;
+
+ ldx #SLOT*$10
+ stx $2b
+ stx Unit 
+
+;force EPROM to second page on boot
+ lda #$1f ;set all flags high and page 3 of EPROM for menu
+PageJump:
+ sta OutputFlags
+ jmp Start ;this jump is only called if coming in from PageJump with A=$2f
+
+;entry points for ProDOS
+DriverEntry:
+ lda #$0f ;set all flags high and page 0 of EPROM
+ sta OutputFlags
+
+Start:
+
+; Put command firmware here
+;
+;
+;
+
+
+SendByte:
+ pha 
+waitWrite: 
+ lda InputFlags
+ rol
+ rol 
+ bcs waitWrite
+ pla
+ sta OutputByte
+ lda #$0e ; set bit 0 low to indicate write started
+ sta OutputFlags 
+finishWrite:
+ lda InputFlags
+ rol
+ rol
+ bcc finishWrite
+ lda #$0f
+ sta OutputFlags
+ rts
+
+GetByte:
+ lda #$0d ;set read flag low
+ sta OutputFlags
+waitRead:
+ lda InputFlags
+ rol
+ bcs waitRead
+ lda InputByte
+ pha
+ lda #$0f ;set all flags high
+ sta OutputFlags
+finishRead:
+ lda InputFlags
+ rol
+ bcc finishRead
+ pla
+end:
+ rts
+
+.repeat	251-<end
+.byte 0
+.endrepeat
+.byte      0,0     ;0000 blocks = check status
+.byte      7       ;bit set(0=status 1=read 2=write) unset(3=format, 4/5=number of volumes, 6=interruptable, 7=removable)
+.byte     DriverEntry&$00FF ;low byte of entry
+
diff --git a/Apple2/CommandFirmware.lst b/Apple2/CommandFirmware.lst
new file mode 100644
index 0000000..41b9cbe
--- /dev/null
+++ b/Apple2/CommandFirmware.lst
@@ -0,0 +1,108 @@
+ca65 V2.18 - N/A
+Main file   : CommandFirmware.asm
+Current file: CommandFirmware.asm
+
+000000r 1               ;ProDOS Zero Page
+000000r 1               Command = $42 ;ProDOS Command
+000000r 1               Unit = $43 ;ProDOS unit (SDDD0000)
+000000r 1               BufferLo = $44
+000000r 1               BufferHi = $45
+000000r 1               BlockLo = $46
+000000r 1               BlockHi = $47
+000000r 1               
+000000r 1               ; ProDOS Error Codes
+000000r 1               IOError = $27
+000000r 1               NoDevice = $28
+000000r 1               WriteProtect = $2B
+000000r 1               
+000000r 1               InputByte = $c08e+SLOT*$10
+000000r 1               OutputByte = $c08d+SLOT*$10
+000000r 1               InputFlags = $c08b+SLOT*$10
+000000r 1               OutputFlags = $c087+SLOT*$10
+000000r 1               
+000000r 1               ReadBlockCommand = $01
+000000r 1               WriteBlockCommand = $02
+000000r 1               GetTimeCommand = $03
+000000r 1               ChangeDriveCommand = $04
+000000r 1               ExecCommand = $05
+000000r 1               LoadFileCommand = $06
+000000r 1               SaveFileCommand = $07
+000000r 1               
+000000r 1                .org SLOT*$100 + $C000
+00C500  1               ;ID bytes for booting and drive detection
+00C500  1  E0 20         cpx #$20    ;ID bytes for ProDOS and the
+00C502  1  E0 00         cpx #$00    ; Apple Autostart ROM
+00C504  1  E0 03         cpx #$03    ;
+00C506  1               
+00C506  1  A2 50         ldx #SLOT*$10
+00C508  1  86 2B         stx $2b
+00C50A  1  86 43         stx Unit
+00C50C  1               
+00C50C  1               ;force EPROM to second page on boot
+00C50C  1  A9 1F         lda #$1f ;set all flags high and page 3 of EPROM for menu
+00C50E  1               PageJump:
+00C50E  1  8D D7 C0      sta OutputFlags
+00C511  1  4C 19 C5      jmp Start ;this jump is only called if coming in from PageJump with A=$2f
+00C514  1               
+00C514  1               ;entry points for ProDOS
+00C514  1               DriverEntry:
+00C514  1  A9 0F         lda #$0f ;set all flags high and page 0 of EPROM
+00C516  1  8D D7 C0      sta OutputFlags
+00C519  1               
+00C519  1               Start:
+00C519  1               
+00C519  1               ; Put command firmware here
+00C519  1               ;
+00C519  1               ;
+00C519  1               ;
+00C519  1               
+00C519  1               
+00C519  1               SendByte:
+00C519  1  48            pha
+00C51A  1               waitWrite:
+00C51A  1  AD DB C0      lda InputFlags
+00C51D  1  2A            rol
+00C51E  1  2A            rol
+00C51F  1  B0 F9         bcs waitWrite
+00C521  1  68            pla
+00C522  1  8D DD C0      sta OutputByte
+00C525  1  A9 0E         lda #$0e ; set bit 0 low to indicate write started
+00C527  1  8D D7 C0      sta OutputFlags
+00C52A  1               finishWrite:
+00C52A  1  AD DB C0      lda InputFlags
+00C52D  1  2A            rol
+00C52E  1  2A            rol
+00C52F  1  90 F9         bcc finishWrite
+00C531  1  A9 0F         lda #$0f
+00C533  1  8D D7 C0      sta OutputFlags
+00C536  1  60            rts
+00C537  1               
+00C537  1               GetByte:
+00C537  1  A9 0D         lda #$0d ;set read flag low
+00C539  1  8D D7 C0      sta OutputFlags
+00C53C  1               waitRead:
+00C53C  1  AD DB C0      lda InputFlags
+00C53F  1  2A            rol
+00C540  1  B0 FA         bcs waitRead
+00C542  1  AD DE C0      lda InputByte
+00C545  1  48            pha
+00C546  1  A9 0F         lda #$0f ;set all flags high
+00C548  1  8D D7 C0      sta OutputFlags
+00C54B  1               finishRead:
+00C54B  1  AD DB C0      lda InputFlags
+00C54E  1  2A            rol
+00C54F  1  90 FA         bcc finishRead
+00C551  1  68            pla
+00C552  1               end:
+00C552  1  60            rts
+00C553  1               
+00C553  1  00 00 00 00  .repeat	251-<end
+00C557  1  00 00 00 00  
+00C55B  1  00 00 00 00  
+00C5FC  1               .byte 0
+00C5FC  1               .endrepeat
+00C5FC  1  00 00        .byte      0,0     ;0000 blocks = check status
+00C5FE  1  07           .byte      7       ;bit set(0=status 1=read 2=write) unset(3=format, 4/5=number of volumes, 6=interruptable, 7=removable)
+00C5FF  1  14           .byte     DriverEntry&$00FF ;low byte of entry
+00C600  1               
+00C600  1               
diff --git a/Apple2/DriveFirmware.asm b/Apple2/DriveFirmware.asm
index 1fd0892..872f155 100644
--- a/Apple2/DriveFirmware.asm
+++ b/Apple2/DriveFirmware.asm
@@ -11,10 +11,10 @@ IOError = $27
 NoDevice = $28
 WriteProtect = $2B
 
-InputByte = $c08e
-OutputByte = $c08d
-InputFlags = $c08b
-OutputFlags = $c087
+InputByte = $c08e+SLOT*$10
+OutputByte = $c08d+SLOT*$10
+InputFlags = $c08b+SLOT*$10
+OutputFlags = $c087+SLOT*$10
 
 ReadBlockCommand = $01
 WriteBlockCommand = $02
@@ -35,15 +35,15 @@ SaveFileCommand = $07
  stx Unit 
 
 ;force EPROM to second page on boot
- lda #$1f ;set all flags high and page 1 of EPROM
+ lda #$3f ;set all flags high and page 3 of EPROM for menu
 PageJump:
- sta OutputFlags,x
+ sta OutputFlags
  jmp Start ;this jump is only called if coming in from PageJump with A=$0f
 
 ;entry points for ProDOS
 DriverEntry:
  lda #$0f ;set all flags high and page 0 of EPROM
- sta OutputFlags,x
+ sta OutputFlags
  jmp Driver
 
 ;load first two blocks and execute to boot
@@ -143,36 +143,36 @@ write256:
 SendByte:
  pha 
 waitWrite: 
- lda InputFlags,x
+ lda InputFlags
  rol
  rol 
  bcs waitWrite
  pla
- sta OutputByte,x
+ sta OutputByte
  lda #$0e ; set bit 0 low to indicate write started
- sta OutputFlags,x 
+ sta OutputFlags
 finishWrite:
- lda InputFlags,x
+ lda InputFlags
  rol
  rol
  bcc finishWrite
  lda #$0f
- sta OutputFlags,x
+ sta OutputFlags
  rts
 
 GetByte:
  lda #$0d ;set read flag low
- sta OutputFlags,x
+ sta OutputFlags
 waitRead:
- lda InputFlags,x
+ lda InputFlags
  rol
  bcs waitRead
- lda InputByte,x
+ lda InputByte
  pha
  lda #$0f ;set all flags high
- sta OutputFlags,x
+ sta OutputFlags
 finishRead:
- lda InputFlags,x
+ lda InputFlags
  rol
  bcc finishRead
  pla
diff --git a/Apple2/DriveFirmware.lst b/Apple2/DriveFirmware.lst
index 471f8b1..f3d6851 100644
--- a/Apple2/DriveFirmware.lst
+++ b/Apple2/DriveFirmware.lst
@@ -15,10 +15,10 @@ Current file: DriveFirmware.asm
 000000r 1               NoDevice = $28
 000000r 1               WriteProtect = $2B
 000000r 1               
-000000r 1               InputByte = $c08e
-000000r 1               OutputByte = $c08d
-000000r 1               InputFlags = $c08b
-000000r 1               OutputFlags = $c087
+000000r 1               InputByte = $c08e+SLOT*$10
+000000r 1               OutputByte = $c08d+SLOT*$10
+000000r 1               InputFlags = $c08b+SLOT*$10
+000000r 1               OutputFlags = $c087+SLOT*$10
 000000r 1               
 000000r 1               ReadBlockCommand = $01
 000000r 1               WriteBlockCommand = $02
@@ -39,15 +39,15 @@ Current file: DriveFirmware.asm
 00C50A  1  86 43         stx Unit
 00C50C  1               
 00C50C  1               ;force EPROM to second page on boot
-00C50C  1  A9 1F         lda #$1f ;set all flags high and page 1 of EPROM
+00C50C  1  A9 3F         lda #$3f ;set all flags high and page 3 of EPROM for menu
 00C50E  1               PageJump:
-00C50E  1  9D 87 C0      sta OutputFlags,x
+00C50E  1  8D D7 C0      sta OutputFlags
 00C511  1  4C 1C C5      jmp Start ;this jump is only called if coming in from PageJump with A=$0f
 00C514  1               
 00C514  1               ;entry points for ProDOS
 00C514  1               DriverEntry:
 00C514  1  A9 0F         lda #$0f ;set all flags high and page 0 of EPROM
-00C516  1  9D 87 C0      sta OutputFlags,x
+00C516  1  8D D7 C0      sta OutputFlags
 00C519  1  4C 32 C5      jmp Driver
 00C51C  1               
 00C51C  1               ;load first two blocks and execute to boot
@@ -147,36 +147,36 @@ Current file: DriveFirmware.asm
 00C5AE  1               SendByte:
 00C5AE  1  48            pha
 00C5AF  1               waitWrite:
-00C5AF  1  BD 8B C0      lda InputFlags,x
+00C5AF  1  AD DB C0      lda InputFlags
 00C5B2  1  2A            rol
 00C5B3  1  2A            rol
 00C5B4  1  B0 F9         bcs waitWrite
 00C5B6  1  68            pla
-00C5B7  1  9D 8D C0      sta OutputByte,x
+00C5B7  1  8D DD C0      sta OutputByte
 00C5BA  1  A9 0E         lda #$0e ; set bit 0 low to indicate write started
-00C5BC  1  9D 87 C0      sta OutputFlags,x
+00C5BC  1  8D D7 C0      sta OutputFlags
 00C5BF  1               finishWrite:
-00C5BF  1  BD 8B C0      lda InputFlags,x
+00C5BF  1  AD DB C0      lda InputFlags
 00C5C2  1  2A            rol
 00C5C3  1  2A            rol
 00C5C4  1  90 F9         bcc finishWrite
 00C5C6  1  A9 0F         lda #$0f
-00C5C8  1  9D 87 C0      sta OutputFlags,x
+00C5C8  1  8D D7 C0      sta OutputFlags
 00C5CB  1  60            rts
 00C5CC  1               
 00C5CC  1               GetByte:
 00C5CC  1  A9 0D         lda #$0d ;set read flag low
-00C5CE  1  9D 87 C0      sta OutputFlags,x
+00C5CE  1  8D D7 C0      sta OutputFlags
 00C5D1  1               waitRead:
-00C5D1  1  BD 8B C0      lda InputFlags,x
+00C5D1  1  AD DB C0      lda InputFlags
 00C5D4  1  2A            rol
 00C5D5  1  B0 FA         bcs waitRead
-00C5D7  1  BD 8E C0      lda InputByte,x
+00C5D7  1  AD DE C0      lda InputByte
 00C5DA  1  48            pha
 00C5DB  1  A9 0F         lda #$0f ;set all flags high
-00C5DD  1  9D 87 C0      sta OutputFlags,x
+00C5DD  1  8D D7 C0      sta OutputFlags
 00C5E0  1               finishRead:
-00C5E0  1  BD 8B C0      lda InputFlags,x
+00C5E0  1  AD DB C0      lda InputFlags
 00C5E3  1  2A            rol
 00C5E4  1  90 FA         bcc finishRead
 00C5E6  1  68            pla
diff --git a/Apple2/FileAccessFirmware.asm b/Apple2/FileAccessFirmware.asm
new file mode 100644
index 0000000..0c85463
--- /dev/null
+++ b/Apple2/FileAccessFirmware.asm
@@ -0,0 +1,101 @@
+;ProDOS Zero Page
+Command = $42 ;ProDOS Command
+Unit = $43 ;ProDOS unit (SDDD0000)
+BufferLo = $44
+BufferHi = $45
+BlockLo = $46
+BlockHi = $47
+
+; ProDOS Error Codes
+IOError = $27
+NoDevice = $28
+WriteProtect = $2B
+
+InputByte = $c08e+SLOT*$10
+OutputByte = $c08d+SLOT*$10
+InputFlags = $c08b+SLOT*$10
+OutputFlags = $c087+SLOT*$10
+
+ReadBlockCommand = $01
+WriteBlockCommand = $02
+GetTimeCommand = $03
+ChangeDriveCommand = $04
+ExecCommand = $05
+LoadFileCommand = $06
+SaveFileCommand = $07
+
+ .org SLOT*$100 + $C000
+;ID bytes for booting and drive detection
+ cpx #$20    ;ID bytes for ProDOS and the
+ cpx #$00    ; Apple Autostart ROM
+ cpx #$03    ;
+
+ ldx #SLOT*$10
+ stx $2b
+ stx Unit 
+
+;force EPROM to second page on boot
+ lda #$3f ;set all flags high and page 3 of EPROM for menu
+PageJump:
+ sta OutputFlags
+ jmp Start ;this jump is only called if coming in from PageJump with A=$2f
+
+;entry points for ProDOS
+DriverEntry:
+ lda #$0f ;set all flags high and page 0 of EPROM
+ sta OutputFlags
+
+Start:
+
+; Put command firmware here
+;
+;
+;
+
+
+SendByte:
+ pha 
+waitWrite: 
+ lda InputFlags
+ rol
+ rol 
+ bcs waitWrite
+ pla
+ sta OutputByte
+ lda #$0e ; set bit 0 low to indicate write started
+ sta OutputFlags 
+finishWrite:
+ lda InputFlags
+ rol
+ rol
+ bcc finishWrite
+ lda #$0f
+ sta OutputFlags
+ rts
+
+GetByte:
+ lda #$0d ;set read flag low
+ sta OutputFlags
+waitRead:
+ lda InputFlags
+ rol
+ bcs waitRead
+ lda InputByte
+ pha
+ lda #$0f ;set all flags high
+ sta OutputFlags
+finishRead:
+ lda InputFlags
+ rol
+ bcc finishRead
+ pla
+end:
+ rts
+
+.repeat	251-<end
+.byte 0
+.endrepeat
+.byte      0,0     ;0000 blocks = check status
+.byte      7       ;bit set(0=status 1=read 2=write) unset(3=format, 4/5=number of volumes, 6=interruptable, 7=removable)
+.byte     DriverEntry&$00FF ;low byte of entry
+
diff --git a/Apple2/FileAccessFirmware.lst b/Apple2/FileAccessFirmware.lst
new file mode 100644
index 0000000..22c7b1b
--- /dev/null
+++ b/Apple2/FileAccessFirmware.lst
@@ -0,0 +1,108 @@
+ca65 V2.18 - N/A
+Main file   : FileAccessFirmware.asm
+Current file: FileAccessFirmware.asm
+
+000000r 1               ;ProDOS Zero Page
+000000r 1               Command = $42 ;ProDOS Command
+000000r 1               Unit = $43 ;ProDOS unit (SDDD0000)
+000000r 1               BufferLo = $44
+000000r 1               BufferHi = $45
+000000r 1               BlockLo = $46
+000000r 1               BlockHi = $47
+000000r 1               
+000000r 1               ; ProDOS Error Codes
+000000r 1               IOError = $27
+000000r 1               NoDevice = $28
+000000r 1               WriteProtect = $2B
+000000r 1               
+000000r 1               InputByte = $c08e+SLOT*$10
+000000r 1               OutputByte = $c08d+SLOT*$10
+000000r 1               InputFlags = $c08b+SLOT*$10
+000000r 1               OutputFlags = $c087+SLOT*$10
+000000r 1               
+000000r 1               ReadBlockCommand = $01
+000000r 1               WriteBlockCommand = $02
+000000r 1               GetTimeCommand = $03
+000000r 1               ChangeDriveCommand = $04
+000000r 1               ExecCommand = $05
+000000r 1               LoadFileCommand = $06
+000000r 1               SaveFileCommand = $07
+000000r 1               
+000000r 1                .org SLOT*$100 + $C000
+00C500  1               ;ID bytes for booting and drive detection
+00C500  1  E0 20         cpx #$20    ;ID bytes for ProDOS and the
+00C502  1  E0 00         cpx #$00    ; Apple Autostart ROM
+00C504  1  E0 03         cpx #$03    ;
+00C506  1               
+00C506  1  A2 50         ldx #SLOT*$10
+00C508  1  86 2B         stx $2b
+00C50A  1  86 43         stx Unit
+00C50C  1               
+00C50C  1               ;force EPROM to second page on boot
+00C50C  1  A9 3F         lda #$3f ;set all flags high and page 3 of EPROM for menu
+00C50E  1               PageJump:
+00C50E  1  8D D7 C0      sta OutputFlags
+00C511  1  4C 19 C5      jmp Start ;this jump is only called if coming in from PageJump with A=$2f
+00C514  1               
+00C514  1               ;entry points for ProDOS
+00C514  1               DriverEntry:
+00C514  1  A9 0F         lda #$0f ;set all flags high and page 0 of EPROM
+00C516  1  8D D7 C0      sta OutputFlags
+00C519  1               
+00C519  1               Start:
+00C519  1               
+00C519  1               ; Put command firmware here
+00C519  1               ;
+00C519  1               ;
+00C519  1               ;
+00C519  1               
+00C519  1               
+00C519  1               SendByte:
+00C519  1  48            pha
+00C51A  1               waitWrite:
+00C51A  1  AD DB C0      lda InputFlags
+00C51D  1  2A            rol
+00C51E  1  2A            rol
+00C51F  1  B0 F9         bcs waitWrite
+00C521  1  68            pla
+00C522  1  8D DD C0      sta OutputByte
+00C525  1  A9 0E         lda #$0e ; set bit 0 low to indicate write started
+00C527  1  8D D7 C0      sta OutputFlags
+00C52A  1               finishWrite:
+00C52A  1  AD DB C0      lda InputFlags
+00C52D  1  2A            rol
+00C52E  1  2A            rol
+00C52F  1  90 F9         bcc finishWrite
+00C531  1  A9 0F         lda #$0f
+00C533  1  8D D7 C0      sta OutputFlags
+00C536  1  60            rts
+00C537  1               
+00C537  1               GetByte:
+00C537  1  A9 0D         lda #$0d ;set read flag low
+00C539  1  8D D7 C0      sta OutputFlags
+00C53C  1               waitRead:
+00C53C  1  AD DB C0      lda InputFlags
+00C53F  1  2A            rol
+00C540  1  B0 FA         bcs waitRead
+00C542  1  AD DE C0      lda InputByte
+00C545  1  48            pha
+00C546  1  A9 0F         lda #$0f ;set all flags high
+00C548  1  8D D7 C0      sta OutputFlags
+00C54B  1               finishRead:
+00C54B  1  AD DB C0      lda InputFlags
+00C54E  1  2A            rol
+00C54F  1  90 FA         bcc finishRead
+00C551  1  68            pla
+00C552  1               end:
+00C552  1  60            rts
+00C553  1               
+00C553  1  00 00 00 00  .repeat	251-<end
+00C557  1  00 00 00 00  
+00C55B  1  00 00 00 00  
+00C5FC  1               .byte 0
+00C5FC  1               .endrepeat
+00C5FC  1  00 00        .byte      0,0     ;0000 blocks = check status
+00C5FE  1  07           .byte      7       ;bit set(0=status 1=read 2=write) unset(3=format, 4/5=number of volumes, 6=interruptable, 7=removable)
+00C5FF  1  14           .byte     DriverEntry&$00FF ;low byte of entry
+00C600  1               
+00C600  1               
diff --git a/Apple2/Firmware_27256_EPROM.bin b/Apple2/Firmware_27256_EPROM.bin
index a10a07eb7f4771c96ceb10e28a3c40a081a7172d..3bfa412aaa95d01f1d7c3ebf81b90411aa425e92 100644
GIT binary patch
literal 32768
zcmeI5PiP!<6vsEMXe-+0(1VM@&bdOU>!o;E&A;v;2f>TSl^STlHbT7$UeX-ON_q++
zN+^tBC|lZ75K({gKgCsY%R!W!3?h|)NNhFM_kQoUvorn8*ntl0GV^lS;rGi+W<Qz9
ze&;ve_ulLpyS3e;H)>a3zB*&Ix+`MgC1IV!ZBtki%hOhEd4Boa@~m}idCq8xg^6Qd
z%$U>r&)uEapS*iyfBvlXR_DgU^@mpNh0c1-I%?b!Mqhlg`t6o@YWq)X0><V%zMO-X
z^_uaa_+<`Wf;s#Fh`c_#wf$GeI`U|oiE*ZiyE6;l#<+IxnmB#>_WcXpuCPwPyOiVA
z`|=%ktmoCt?FYS&MO#i{!0Lkwom%SGGpBZme^T+U0ly7D2-~Ku^V>Q2ZKH3;`EBI4
zk>5ss8~N=4zdhtn#+evrsyO7giT_i@{~7YHi5`w6|C&I4ngRaLB|i;w@EeMM1Na@_
zhi%i*`JEj6j?s7G{0{Ov$nPM(gZ$2b-x=~J<4lY*RUGm=#D7!q_mF=>^l&WsHzYsJ
z0RJt?Ps1GiXB7V?@Vmed+or4YyE*t>qwmJ~UF3I>-$i~G`P~7(JLFHsnHXoPIOKPU
z|0~7+HS%wY9*!mdrsSs?;QvPQ(=Z4B>xw@Feh>Iz+w^pPF9*M8^u0L0hx{J$d&uu0
zzc=9bhWyDm6XQ%3hx{J#f2a7rNB&Usa4h*l$xk!D|AXYGVGjN`75@(K`@j#|rmyq+
zIrx2}@5lLl<oA)^M}8mq{Q<u}<WI(#7-y<D<oAjHN5%gW^6!WqjwSz&<fj?n|5@_W
zFb97}@$UhD0Q|6R20DL`gFi6(L7YE8{s8#{<PVTP81M%}{$!kqai)qx{($&@Q~dXk
ze^2yqEcy2&Kg|ID?~<Q}Ir!gK{0G1v0zYh<q0S%X;17*{80Qa>KScfz`9tIn2mIlX
zKN)9YoT=iFKP3LY75^dfABY}~CI5lsry1b?SMt*^2S4e519iVn`d_rvrt0sgCm+%O
z2I_vD^uH~o6)!c4k=jwCrtUxDC;e}r?$=5G+frJQzZj`a-T$a3BYx8V2I_vD^uH~o
z75R&i+EJsX?myxu{coV|*Gd1|Qd*I}7^zL&|EMP;e$xL2>VBQ{zb&N|`HPX-QKP2r
zKjJ6-Z=mkiN&nkYT9LmPsZHJgs3#+S(*FkPex3BcEu|Iti;>z<qo(dZ;wSx=>;DSt
zf2-p9->SI&w<@mxt%~b^tK$0Ks<{5QDz5+W^}q4<KkKzGUlYea+JD-(ceu6vhw<X!
z*<bHG3tz`iE}RgrOc~QlOCNNbQ^x$o_ZE#e&Yxera;5v~lrgh(>C!uw-!&F4US8~W
zQZGElWHP$`nUwc`;_H9KZ)fq_rQ+Au|BBzq;&)2Ludn|VznjJHmWp3r|0{kki{C31
zzrOxg{C*a{Un+im{jd0gEdHQW{QCM|@rPObVX63I>wotD!T$jtfc<~n|6>3D@%b<8
z|Fi!e_kWYVKKuXd|Fi!;Cd>cY|E&Mn|G%kHP1yg3RGZBwO|=`BQ$F!NqVr#0|Fi#J
zY^q)2?>;Vr==kgFfA;^2O|=`BL!Nja(eaP1|JnbS>;Ee1Kl}gH&i`ZozuNhK?EhCg
z|BwBDxbLs>|CRs4{(naP2mAkJ%74+<|LXi_|3BmWXaB!U=Rf=ZT>p>#4?zF9{vYmt
zKpi00|Lge=T>t<0{0FZ8=lcJ6{zI~^pX>j*{y$+sjC2tBACp@Ce--clbN&A&-2dVF
zf9(Im{y+Qw)M}0E|BGm~Gg6()+IggZ?ElmKkKz6QD(XM`|JBxi_WyU_`mehEf7t&&
zsC54y_Wy_a&;Gyc|G@SC8U8QV|Ch=C<@$eI|HS+Msn0*I|IhgU=lXx{|DXE&1MdIN
z{r}_sXR@z9_y0%#ll%Xx=bv!@|LFNI$vgq>|IhvZvs{bf<|F@u{eQat=l=if|8xI;
zeEtvj|1b7YJH>ry7x<f^&woAtpZot`Q~h7M_^6?kCw<gjfk&;lUlkpH(tqy%Uv2&8
z{{JEPpVifW?*G3B$G^JI|Ka}sD{%bj`G3m);r{;_{tx&6FO&a!M%8}|^Z(TO&;9>1
Y&VTOzU#9b4@BhdCzs!Fsd;kCc0QKL~V*mgE

literal 32768
zcmeI5y-QnB7{(JVt(I0hbZDs1Gh2{0?I4|6qtPKl!KGu04JcJp(6!Jdb|@)!>>vc;
z6z)=V>>$10S0RIcLZ(88LZB3?RP23oPjb)o=8`N?b9pjE65n8ci_baF`&DDLL~U?8
zv2lMRqukqiuja;7Wt4uVRV7)PQWB+XX|^=243%bBTFoVgzGV1R{l-DEe(PYMo}E<Y
z^V_GDQzdaHUr8u~?5oPE>gUbx`|6d$KT6Vl&9n40>poQy?5+A^#(lD9=mT!#r|JE}
zzj<ZgY#gUJF5-5l-CtAO+};Oue0=9<ajUE<Bks3syxu%&eB-=wQ@pcty!TO^YrIJT
zo5zd!MBB%;+cl5>mc*|Kel5(eb-}N(swVSm#IF&*M*JG_YfXO5=MTnlisK@V__dz$
zGl^dp{Cb#Q?}A@vRbA%SiC-svo%nU)*PHyh&mWBA6vssz@#{V1e<1N2g5L=98(r`l
ztZK;o2JsujZxFvh{6>@C@cDyroZ`5MBYvZ&{7)r*Q}CN%ezOaHlT}Tb-z0vM_)X$B
ziQjDUn?8Rqj#C^Lal~)-l>fQJZwY=Y%x`tUZ?UQ+^IODk5x+(J7V%q6e#_?%#&L?{
zB98d2p7Q4<ep~R{VSc*{ew$ToncpUUoA_<ww~60w^4mUtFpg6k7jeXI_muyQ#P0}x
zC(Q43!SArDBlA1N?-0L3{0{LuO@7Dc55{qd<06juou2Yb`k(UjpS}23Nql>v4!^5k
zWxr1L4}Y_}CzC&Sue*=o(cFmoaDq)0i|gg|1e-6cv&?dF;dS}Z1j`gxR$i{YV!5T&
zLizCo%PuV!*t3O&!rEFnLWbLF^Lf14PXAM${tJFBieHNrzoh>uPyYqK9>uT6ieJ+I
zl&AlK--zNjV#P1%f6CK;!EZ+Ko3Y}T^gre4zu>o`_^nv+OZuPk^k4AXQT%qS_$B>M
zdHOH-ohW`MR{WCw<Nhzsf4KjL{2$!^JNsX_|Kt8I-~WR5dffkU|G(V#f9OB-zmfle
z{~tR4!2j=j{(=7w|6e};1buz@|CinWhyFwVq5p3E3-bS=^AGa>ozFkW|0Dk|pMQdR
zedPboBd_1>-$4Ff)ITEs->QE_{=aelMgG50|AhR1MEw`?|8c5+L;k<@|9=ei|6czG
z{QuDX7yf_e`!D=|`2X_#7yf^L)&Il)hyM@%AO3$D{ePkJANv0~pa0PR*Wdkr(0}MZ
z^dI^U{SWtlL;s=wo#x-5{~!JTeK-FA`Tth_2l;>G|K0O1`u`jC59t4osDD8JKj#0n
zoqve=f0+L#=RbpU{V@NJ`kyfWPs~5X{J+-x*I=Ch=Ko#P{6F~r@c-fe!~ci>5C8w{
z{CCX%?VSJUcmE&y5B-P!L;s=w(0}NEaQ_YF|6~5Y*nfce|8eSn#r%K2{sHs<ss9!E
zf8_t&{WqBZkNtoC{zL5l>+FAF{~z}M$@LGxy?)sLNA(Zb|0n7nu>Y@B{}7xLcyasx
X;Qzz_hyM@%AO1i5fB64#_y7L`d5ap6

diff --git a/Apple2/Firmware_AT28C64B_EEPROM.bin b/Apple2/Firmware_AT28C64B_EEPROM.bin
index 2769f1a2469da76a1c5cf4ff819a3681c4064e64..6e1e46f5731edf569e411d38c0cfe177534cd26f 100644
GIT binary patch
literal 8192
zcmeI$J7^R^7zgl+iZ6T>79I*WwL;Lf5gRoxEm8<JmM0oeP$Ot7*qjz}600Dh1Yrz|
ztY{TP)Y<1mJSANUQBoO1lz>QlMg9Ks&2e{G54RFM_KF?8x&Oias{hW+h?&C7(p!a#
z+b;IHd#abz;1=bs$Lc7ztJ32ZDg%}Ml|FZ6rC&H|uxsV*UfDCZ=4sd5hNnyB26nlJ
z%C~-w{d5bP%3}q0sko~|O<fy#GO3nLeR8{KmIHX~r^i@9oL6u9>5=r~2b8?pH#zmW
z>@HcHlgLS%yWdA&BX_{NthR2w_vLuCs@!$-FU>si#r)&4yVma9`|4d$2h1h{BVUh~
z3%~uW*f_)f4c0$OexH6wtK+Breg?lUYJRidhu??ahu??aulxOmzcnY3lQsvx&;IMy
ze*^we<zY7dQ3XHmkpHIf^O(Uetbd&R0r_clg0w%#;15JCX!Zy22k-~*2k-}Vf6(x^
z<|J~`=HL(5f5-Yg_{Wup+4#qepLfWA*Z6tN;NNcj6XXxcPpcEA{b2@wC~9G|KZHMo
zKZHMoKdk%1hQBo@k&`wDf5`ra*8d3p3FTon{t4sf9r8amejYRU_gcRue?)#-oha>(
zGWa7=i<<or{1N;S{1N<7-5)jltvQLDv^n@A_CK@!=kROgVK#nk{JcZ{7sk(H2LD0p
zpC*4yep;P4?T<6~V^NEn{W1J8{4xA7{BhkMH~g(RiJY`K_+$3JwEkD{Pb&|z@lP8+
z?~wns@$;C$U$*{P@+ah{)k)I+B!fQ@wWQgfz@NaMz@NaM)cr}r-<p%iNt=T|VgEbp
ze-Hnx@-Q3!tnu>>`9Byxj~V=Dtbd;Tn*6jnI_=jP{94p>vtPrn;n(nM_;uZ{8~)au
zL{8cq{F?pWtbYOidF5d?{(0l)9rFJ$ejYRUx&KS({UZ0jIQ)IA@L;!EbzyF~c)u_?
z^-*kI*!A}QYWl2NKe$fq=oUT0!{@3_w-`8aa!BkudUWXQ+3L=2(K~$V)REK2#Ndh3
zL)A9T``bGH>zj-Ezl7c|a{pVu-_GxMl%M;*gx)W5|6701&L4D?pZmXr-Y;_hTYuQj
zA9j?V`@e+VFLM7|f7H$&b(Ej`zl7c|a{pU@+|D0&l%M;*gx)W5|6703&YyIYpZmXr
z-Y;_hTfc7S*B#~O{?E_<)c^VUpWc7zJs>~-r{Dkc^Z%dk|MK&He*SMh|F)j%^Yi~d
meE!e-Kkxti{y)F}&+q@~9w5K}Prv`>_y2!>|NX!2|9=4!Y!>YR

literal 8192
zcmeI%ziZTB7zglNE82>-9UKe_zH@~`t3z?pUVH6ugV4qCq#m@`_Jnp7T&@msQb&iv
zQFw(c(vA+r<jwn|g$(@@ZW0`X0}*Vo)I66r<c(=)mPiS2h8)R#5AvD5d7kT{uF)Ob
zHa6~VRIEE&Z|&M`+Zu(>3EL{QrYxgXZOyi(t)bQony_o7p-&Y&)w_03>Wv)?^s1BA
ze0}@0b7~nk>m9=yM4xTs*&jE*?%S6Re_18}8du>o>z_IXdToE3@lSjPe&8oROz$85
zu3H2D<}l>2%<WG5Uqfzg@0~q9zH_v=)wZn>|0(;|n@9a8u3OjTot@*o_x4=>CImK*
z7wg8E$CVr1z(1z=9qD(HekX(9L7t=f9q>Egcfjv}-wFLr<d5et<gm<v-^taF6hD!E
zlJt`deu6xr`U&_6_zCz4_(|v|kw2cpki#+uev+&Ip5k|<-%a}641O1RuIhKe?}Fb2
zzYBgh^t+Kip2LvCG6#M)SN~(hPo<wG{WOE0B9E$m3VsTH3VsTH8v1GEkLNJtu*`v<
z=IVc{_?h&xq@QK*GvqPV&%n>X&%n>X&q6<o{P7%y9F{rovt0dk#m}XmC;dEwpCgZ}
zehz*Pehz*PejfUH<d5et<gm<vpXcg-rTB&Pi=<y<@C)P#)i1y=z%Rfrz%N3-i2U&!
zh8&hT@QYmiO8=Wd|D$JrI>whr_VAnDW%T1@|L`Zebu#&V_o{ykkJd))`(-rMY_7K_
z%4oi^jw;K|g_rFIWmIXdtUO<Rfoe;ujrPMbsxB=z(36FQ#@bptrH0S!=Kpc?to}EH
z{+E6y&F>V-uk^ne^uP3zG(RbnU+I4{=zr;V)BJ9s{7V0uLH|oXP4m-2`IY`RgZ`I(
zmgZ-L@+<vs2K_JnJk8Gw<yZRO4EkUCMVem}%CGdlp8w_hpPv5{`yW03pTGao^S_?|
z)%h<z*X#LT&;J*D{@4Al`@jGHkKX?$-hcG||NQqKz5mzyfA#$*zSr0L|BJQ%{|k$*
B2BiQ1

diff --git a/Apple2/MenuFirmware.asm b/Apple2/MenuFirmware.asm
index 4fe3eae..6122ffd 100644
--- a/Apple2/MenuFirmware.asm
+++ b/Apple2/MenuFirmware.asm
@@ -11,10 +11,10 @@ IOError = $27
 NoDevice = $28
 WriteProtect = $2B
 
-InputByte = $c08e
-OutputByte = $c08d
-InputFlags = $c08b
-OutputFlags = $c087
+InputByte = $c08e+SLOT*$10
+OutputByte = $c08d+SLOT*$10
+InputFlags = $c08b+SLOT*$10
+OutputFlags = $c087+SLOT*$10
 
 ReadBlockCommand = $01
 WriteBlockCommand = $02
@@ -37,13 +37,13 @@ SaveFileCommand = $07
 ;force EPROM to second page on boot
  lda #$1f ;set all flags high and page 1 of EPROMi
 PageJump:
- sta OutputFlags,x
+ sta OutputFlags
  jmp Start
 
 ;entry points for ProDOS
 DriverEntry:
  lda #$0f ;set all flags high and page 0 of EPROM
- sta OutputFlags,x
+ sta OutputFlags
 ;since the firmware page changes to 0, this falls through to the driver
 
 Start:
@@ -71,9 +71,8 @@ GetChar:
 Text:
 
 .byte	"1. Boot",$8d
-.byte	"2. Set Clock",$8d
+.byte	"2. File Access",$8d
 .byte	"3. Command Line",$8d
-.byte	"4. File Access",$8d
 
 end:
  rts
diff --git a/Apple2/MenuFirmware.lst b/Apple2/MenuFirmware.lst
index 5608c12..08d4405 100644
--- a/Apple2/MenuFirmware.lst
+++ b/Apple2/MenuFirmware.lst
@@ -15,10 +15,10 @@ Current file: MenuFirmware.asm
 000000r 1               NoDevice = $28
 000000r 1               WriteProtect = $2B
 000000r 1               
-000000r 1               InputByte = $c08e
-000000r 1               OutputByte = $c08d
-000000r 1               InputFlags = $c08b
-000000r 1               OutputFlags = $c087
+000000r 1               InputByte = $c08e+SLOT*$10
+000000r 1               OutputByte = $c08d+SLOT*$10
+000000r 1               InputFlags = $c08b+SLOT*$10
+000000r 1               OutputFlags = $c087+SLOT*$10
 000000r 1               
 000000r 1               ReadBlockCommand = $01
 000000r 1               WriteBlockCommand = $02
@@ -41,13 +41,13 @@ Current file: MenuFirmware.asm
 00C50C  1               ;force EPROM to second page on boot
 00C50C  1  A9 1F         lda #$1f ;set all flags high and page 1 of EPROMi
 00C50E  1               PageJump:
-00C50E  1  9D 87 C0      sta OutputFlags,x
+00C50E  1  8D D7 C0      sta OutputFlags
 00C511  1  4C 19 C5      jmp Start
 00C514  1               
 00C514  1               ;entry points for ProDOS
 00C514  1               DriverEntry:
 00C514  1  A9 0F         lda #$0f ;set all flags high and page 0 of EPROM
-00C516  1  9D 87 C0      sta OutputFlags,x
+00C516  1  8D D7 C0      sta OutputFlags
 00C519  1               ;since the firmware page changes to 0, this falls through to the driver
 00C519  1               
 00C519  1               Start:
@@ -76,22 +76,19 @@ Current file: MenuFirmware.asm
 00C53A  1               
 00C53A  1  31 2E 20 42  .byte	"1. Boot",$8d
 00C53E  1  6F 6F 74 8D  
-00C542  1  32 2E 20 53  .byte	"2. Set Clock",$8d
-00C546  1  65 74 20 43  
-00C54A  1  6C 6F 63 6B  
-00C54F  1  33 2E 20 43  .byte	"3. Command Line",$8d
-00C553  1  6F 6D 6D 61  
-00C557  1  6E 64 20 4C  
-00C55F  1  34 2E 20 46  .byte	"4. File Access",$8d
-00C563  1  69 6C 65 20  
-00C567  1  41 63 63 65  
-00C56E  1               
-00C56E  1               end:
-00C56E  1  60            rts
-00C56F  1               
-00C56F  1  00 00 00 00  .repeat	251-<end
-00C573  1  00 00 00 00  
-00C577  1  00 00 00 00  
+00C542  1  32 2E 20 46  .byte	"2. File Access",$8d
+00C546  1  69 6C 65 20  
+00C54A  1  41 63 63 65  
+00C551  1  33 2E 20 43  .byte	"3. Command Line",$8d
+00C555  1  6F 6D 6D 61  
+00C559  1  6E 64 20 4C  
+00C561  1               
+00C561  1               end:
+00C561  1  60            rts
+00C562  1               
+00C562  1  00 00 00 00  .repeat	251-<end
+00C566  1  00 00 00 00  
+00C56A  1  00 00 00 00  
 00C5FC  1               .byte 0
 00C5FC  1               .endrepeat
 00C5FC  1  00 00        .byte      0,0     ;0000 blocks = check status
diff --git a/Apple2/assemble.sh b/Apple2/assemble.sh
index 1ab45fb..a16a46b 100755
--- a/Apple2/assemble.sh
+++ b/Apple2/assemble.sh
@@ -19,11 +19,31 @@ ca65 MenuFirmware.asm -D SLOT=6 -o MenuSlot6.o
 ca65 MenuFirmware.asm -D SLOT=7 -o MenuSlot7.o
 ld65 MenuSlot0.o MenuSlot1.o MenuSlot2.o MenuSlot3.o MenuSlot4.o MenuSlot5.o MenuSlot6.o MenuSlot7.o -o MenuFirmware.bin -t none
 
+ca65 CommandFirmware.asm -D SLOT=0 -o CommandSlot0.o 
+ca65 CommandFirmware.asm -D SLOT=1 -o CommandSlot1.o 
+ca65 CommandFirmware.asm -D SLOT=2 -o CommandSlot2.o
+ca65 CommandFirmware.asm -D SLOT=3 -o CommandSlot3.o
+ca65 CommandFirmware.asm -D SLOT=4 -o CommandSlot4.o
+ca65 CommandFirmware.asm -D SLOT=5 -o CommandSlot5.o --listing CommandFirmware.lst
+ca65 CommandFirmware.asm -D SLOT=6 -o CommandSlot6.o
+ca65 CommandFirmware.asm -D SLOT=7 -o CommandSlot7.o
+ld65 CommandSlot0.o CommandSlot1.o CommandSlot2.o CommandSlot3.o CommandSlot4.o CommandSlot5.o CommandSlot6.o CommandSlot7.o -o CommandFirmware.bin -t none
+
+ca65 FileAccessFirmware.asm -D SLOT=0 -o FileAccessSlot0.o 
+ca65 FileAccessFirmware.asm -D SLOT=1 -o FileAccessSlot1.o 
+ca65 FileAccessFirmware.asm -D SLOT=2 -o FileAccessSlot2.o
+ca65 FileAccessFirmware.asm -D SLOT=3 -o FileAccessSlot3.o
+ca65 FileAccessFirmware.asm -D SLOT=4 -o FileAccessSlot4.o
+ca65 FileAccessFirmware.asm -D SLOT=5 -o FileAccessSlot5.o --listing FileAccessFirmware.lst
+ca65 FileAccessFirmware.asm -D SLOT=6 -o FileAccessSlot6.o
+ca65 FileAccessFirmware.asm -D SLOT=7 -o FileAccessSlot7.o
+ld65 FileAccessSlot0.o FileAccessSlot1.o FileAccessSlot2.o FileAccessSlot3.o FileAccessSlot4.o FileAccessSlot5.o FileAccessSlot6.o FileAccessSlot7.o -o FileAccessFirmware.bin -t none
+
 cat \
-DriveFirmware.bin MenuFirmware.bin DriveFirmware.bin DriveFirmware.bin \
-DriveFirmware.bin MenuFirmware.bin DriveFirmware.bin DriveFirmware.bin \
-DriveFirmware.bin MenuFirmware.bin DriveFirmware.bin DriveFirmware.bin \
-DriveFirmware.bin MenuFirmware.bin DriveFirmware.bin DriveFirmware.bin \
+DriveFirmware.bin CommandFirmware.bin FileAccessFirmware.bin MenuFirmware.bin \
+DriveFirmware.bin CommandFirmware.bin FileAccessFirmware.bin MenuFirmware.bin \
+DriveFirmware.bin CommandFirmware.bin FileAccessFirmware.bin MenuFirmware.bin \
+DriveFirmware.bin CommandFirmware.bin FileAccessFirmware.bin MenuFirmware.bin \
 > Firmware_27256_EPROM.bin
 cat \
 DriveFirmware.bin MenuFirmware.bin DriveFirmware.bin DriveFirmware.bin \
@@ -35,3 +55,5 @@ ld65 Rpi.Command.o -o Rpi.Command.bin -t none
 rm *.o
 rm DriveFirmware.bin
 rm MenuFirmware.bin
+rm CommandFirmware.bin
+rm FileAccessFirmware.bin