From 11c055d91473ee5ce112e9657887ef60dbaabc13 Mon Sep 17 00:00:00 2001 From: Terence Boldt Date: Wed, 20 Mar 2024 10:48:11 -0400 Subject: [PATCH] Fix Pico build --- .gitignore | 12 + Apple2/CommandFirmware.lst | 195 ---------------- Apple2/DriveFirmware.lst | 213 ----------------- Apple2/FileAccessFirmware.lst | 183 --------------- Apple2/MenuFirmware.lst | 231 ------------------ Apple2/RPi.Command.lst | 280 ---------------------- Apple2/Shell.lst | 309 ------------------------- RaspberryPi/apple2driver/driver.go | 2 + RaspberryPi/driveimage/AT28C64B.bin | Bin 8192 -> 0 bytes RaspberryPi/driveimage/RPi.Command.bin | Bin 431 -> 0 bytes RaspberryPi/driveimage/Shell.bin | Bin 436 -> 0 bytes RaspberryPiPico/CMakeLists.txt | 6 +- RaspberryPiPico/README.md | 1 + RaspberryPiPico/build.sh | 2 + RaspberryPiPico/incbin.S | 2 +- RaspberryPiPico/setup.sh | 5 + 16 files changed, 26 insertions(+), 1415 deletions(-) delete mode 100644 Apple2/CommandFirmware.lst delete mode 100644 Apple2/DriveFirmware.lst delete mode 100644 Apple2/FileAccessFirmware.lst delete mode 100644 Apple2/MenuFirmware.lst delete mode 100644 Apple2/RPi.Command.lst delete mode 100644 Apple2/Shell.lst delete mode 100644 RaspberryPi/driveimage/AT28C64B.bin delete mode 100644 RaspberryPi/driveimage/RPi.Command.bin delete mode 100644 RaspberryPi/driveimage/Shell.bin create mode 100644 RaspberryPiPico/README.md create mode 100755 RaspberryPiPico/build.sh create mode 100755 RaspberryPiPico/setup.sh diff --git a/.gitignore b/.gitignore index 390a0a0..ece671c 100644 --- a/.gitignore +++ b/.gitignore @@ -1,7 +1,19 @@ *-bak *.o *.DS_Store +*.bin +*.lst RaspberryPi/apple2driver/apple2driver RaspberryPi/Apple2-IO-RPi.log RaspberryPiPico/build/ Hardware/Apple2IORPi-backups/ +RaspberryPiPico/Apple2-IO-RPi.* +RaspberryPiPico/CMakeCache.txt +RaspberryPiPico/CMakeFiles/ +RaspberryPiPico/Makefile +RaspberryPiPico/_deps/ +RaspberryPiPico/cmake_install.cmake +RaspberryPiPico/elf2uf2/ +RaspberryPiPico/generated/ +RaspberryPiPico/pico-sdk/ +RaspberryPiPico/pioasm/ diff --git a/Apple2/CommandFirmware.lst b/Apple2/CommandFirmware.lst deleted file mode 100644 index 4c3767f..0000000 --- a/Apple2/CommandFirmware.lst +++ /dev/null @@ -1,195 +0,0 @@ -ca65 V2.18 - Debian 2.19-1 -Main file : CommandFirmware.asm -Current file: CommandFirmware.asm - -000000r 1 ; Copyright Terence J. Boldt (c)2020-2024 -000000r 1 ; Use of this source code is governed by an MIT -000000r 1 ; license that can be found in the LICENSE file. -000000r 1 -000000r 1 ; This file contains the source for the firmware -000000r 1 ; that was formerly used to act as a pseudo-shell -000000r 1 -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 MenuCommand = $08 -000000r 1 -000000r 1 InputString = $fd67 -000000r 1 PrintChar = $fded -000000r 1 Keyboard = $c000 -000000r 1 ClearKeyboard = $c010 -000000r 1 Wait = $fca8 -000000r 1 -000000r 1 .org SLOT*$100 + $C000 -00C700 1 ;ID bytes for booting and drive detection -00C700 1 E0 20 cpx #$20 ;ID bytes for ProDOS and the -00C702 1 E0 00 cpx #$00 ; Apple Autostart ROM -00C704 1 E0 03 cpx #$03 ; -00C706 1 -00C706 1 A2 70 ldx #SLOT*$10 -00C708 1 86 2B stx $2b -00C70A 1 86 43 stx Unit -00C70C 1 -00C70C 1 ;force EPROM to second page on boot -00C70C 1 A9 3F lda #$3f ;set all flags high and page 3 of EPROM for menu -00C70E 1 PageJump: -00C70E 1 8D F7 C0 sta OutputFlags -00C711 1 4C 19 C7 jmp Start ;this jump is only called if coming in from PageJump with A=$2f -00C714 1 -00C714 1 ;entry points for ProDOS -00C714 1 DriverEntry: -00C714 1 A9 0F lda #$0f ;set all flags high and page 0 of EPROM -00C716 1 8D F7 C0 sta OutputFlags -00C719 1 -00C719 1 Start: -00C719 1 20 00 C3 jsr $c300 ;enable 80 columns -00C71C 1 A9 05 lda #$05 ;execute command -00C71E 1 20 95 C7 jsr SendByte -00C721 1 A0 00 ldy #$00 -00C723 1 sendHelp: -00C723 1 B9 8E C7 lda HelpCommand,y -00C726 1 F0 06 beq endSendHelp -00C728 1 20 95 C7 jsr SendByte -00C72B 1 C8 iny -00C72C 1 D0 F5 bne sendHelp -00C72E 1 endSendHelp: -00C72E 1 A9 00 lda #$00 -00C730 1 20 95 C7 jsr SendByte -00C733 1 20 6B C7 jsr DumpOutput -00C736 1 -00C736 1 A5 33 lda $33 -00C738 1 48 pha -00C739 1 A9 A4 lda #$a4 -00C73B 1 85 33 sta $33 -00C73D 1 GetCommand: -00C73D 1 20 67 FD jsr InputString -00C740 1 AD 00 02 lda $0200 -00C743 1 C9 8D cmp #$8d ;skip when return found -00C745 1 F0 F6 beq GetCommand -00C747 1 20 4D C7 jsr SendCommand -00C74A 1 18 clc -00C74B 1 90 F0 bcc GetCommand -00C74D 1 -00C74D 1 SendCommand: -00C74D 1 2C 10 C0 bit ClearKeyboard -00C750 1 A9 05 lda #$05 ;send command 5 = exec -00C752 1 20 95 C7 jsr SendByte -00C755 1 A0 00 ldy #$00 -00C757 1 getInput: -00C757 1 B9 00 02 lda $0200,y -00C75A 1 C9 8D cmp #$8d -00C75C 1 F0 08 beq sendNullTerminator -00C75E 1 29 7F and #$7f -00C760 1 20 95 C7 jsr SendByte -00C763 1 C8 iny -00C764 1 D0 F1 bne getInput -00C766 1 sendNullTerminator: -00C766 1 A9 00 lda #$00 -00C768 1 20 95 C7 jsr SendByte -00C76B 1 DumpOutput: -00C76B 1 20 AD C7 jsr GetByte -00C76E 1 B0 07 bcs skipOutput -00C770 1 C9 00 cmp #$00 -00C772 1 F0 19 beq endOutput -00C774 1 20 ED FD jsr PrintChar -00C777 1 skipOutput: -00C777 1 2C 00 C0 bit Keyboard ;check for keypress -00C77A 1 10 EF bpl DumpOutput ;keep dumping output if no keypress -00C77C 1 AD 00 C0 lda Keyboard ;send keypress to RPi -00C77F 1 20 ED FD jsr PrintChar -00C782 1 29 7F and #$7f -00C784 1 20 95 C7 jsr SendByte -00C787 1 2C 10 C0 bit ClearKeyboard -00C78A 1 18 clc -00C78B 1 90 DE bcc DumpOutput -00C78D 1 endOutput: -00C78D 1 60 rts -00C78E 1 -00C78E 1 HelpCommand: -00C78E 1 61 32 68 65 .byte "a2help",$00 -00C792 1 6C 70 00 -00C795 1 -00C795 1 SendByte: -00C795 1 2C FB C0 bit InputFlags -00C798 1 70 FB bvs SendByte -00C79A 1 8D FD C0 sta OutputByte -00C79D 1 .if HW_TYPE = 0 -00C79D 1 A9 1E lda #$1e ; set bit 0 low to indicate write started -00C79F 1 8D F7 C0 sta OutputFlags -00C7A2 1 finishWrite: -00C7A2 1 2C FB C0 bit InputFlags -00C7A5 1 50 FB bvc finishWrite -00C7A7 1 A9 1F lda #$1f -00C7A9 1 8D F7 C0 sta OutputFlags -00C7AC 1 .endif -00C7AC 1 60 rts -00C7AD 1 -00C7AD 1 GetByte: -00C7AD 1 .if HW_TYPE = 0 -00C7AD 1 A2 1D ldx #$1d ;set read flag low -00C7AF 1 8E F7 C0 stx OutputFlags -00C7B2 1 .endif -00C7B2 1 waitRead: -00C7B2 1 2C FB C0 bit InputFlags -00C7B5 1 10 0C bpl readByte -00C7B7 1 2C 00 C0 bit Keyboard ;keypress will abort waiting to read -00C7BA 1 10 F6 bpl waitRead -00C7BC 1 .if HW_TYPE = 0 -00C7BC 1 A9 1F lda #$1f ;set all flags high and exit -00C7BE 1 8D F7 C0 sta OutputFlags -00C7C1 1 .endif -00C7C1 1 38 sec ;failure -00C7C2 1 60 rts -00C7C3 1 readByte: -00C7C3 1 AD FE C0 lda InputByte -00C7C6 1 .if HW_TYPE = 0 -00C7C6 1 A2 1F ldx #$1f ;set all flags high -00C7C8 1 8E F7 C0 stx OutputFlags -00C7CB 1 finishRead: -00C7CB 1 2C FB C0 bit InputFlags -00C7CE 1 10 FB bpl finishRead -00C7D0 1 .endif -00C7D0 1 18 clc ;success -00C7D1 1 end: -00C7D1 1 60 rts -00C7D2 1 -00C7D2 1 00 00 00 00 .repeat 251-RPI ; external command JMP -002063 1 8D 08 BE STA EXTRNCMD+2 ; vector. -002066 1 -002066 1 A9 05 lda #ExecCommand -002068 1 20 6F 03 jsr SendByte -00206B 1 A0 00 ldy #$00 -00206D 1 nextCommandByte: -00206D 1 B9 8C 20 lda a2help, y -002070 1 F0 07 beq finishCommand -002072 1 20 6F 03 jsr SendByte -002075 1 C8 iny -002076 1 4C 6D 20 jmp nextCommandByte -002079 1 finishCommand: -002079 1 A9 00 lda #$00 -00207B 1 20 6F 03 jsr SendByte -00207E 1 showVersion: -00207E 1 20 8D 03 jsr GetByte -002081 1 C9 00 cmp #$00 -002083 1 F0 06 beq FinishDriver -002085 1 20 ED FD jsr PrintChar -002088 1 4C 7E 20 jmp showVersion -00208B 1 FinishDriver: -00208B 1 60 rts -00208C 1 -00208C 1 a2help: -00208C 1 61 32 68 65 .byte "a2help", $00 -002090 1 6C 70 00 -002093 1 -002093 1 Text: -002093 1 D2 D0 C9 A0 aschi "RPI command version: 000E" -002097 1 E3 EF ED ED -00209B 1 E1 EE E4 A0 -0020AC 1 8D .byte $8d -0020AD 1 end: -0020AD 1 00 .byte $00 -0020AE 1 -0020AE 1 00 00 00 00 .repeat 255-XRETURN ; at the time we intercept -00031D 1 -00031D 1 8D 51 BE STA XTRNADDR+1 ; our command. -000320 1 A9 00 LDA #0 ;Mark the cmd number as -000322 1 8D 53 BE STA XCNUM ; zero (external). -000325 1 8D 54 BE STA PBITS ;And indicate no parameters -000328 1 8D 55 BE STA PBITS+1 ; to be parsed. -00032B 1 A9 8D lda #$8d -00032D 1 20 ED FD jsr $fded -000330 1 A2 70 slotx: ldx #$70 ; set x to slot # in high nibble -000332 1 18 clc -000333 1 90 04 bcc SendCommand -000335 1 ; -000335 1 38 NOTOURS: SEC ; ALWAYS SET CARRY IF NOT YOUR -000336 1 6C AD 03 JMP (NXTCMD) ; CMD AND LET NEXT COMMAND TRY -000339 1 ; ; TO CLAIM IT. -000339 1 -000339 1 SendCommand: -000339 1 2C 10 C0 bit ClearKeyboard -00033C 1 A9 05 lda #$05 ;send command 5 = exec -00033E 1 20 6F 03 jsr SendByte -000341 1 A0 03 ldy #$03 ;skip over "RPI" -000343 1 getInput: -000343 1 B9 00 02 lda $0200,y -000346 1 C9 8D cmp #$8d -000348 1 F0 08 beq sendNullTerminator -00034A 1 29 7F and #$7f -00034C 1 20 6F 03 jsr SendByte -00034F 1 C8 iny -000350 1 D0 F1 bne getInput -000352 1 sendNullTerminator: -000352 1 A9 00 lda #$00 -000354 1 20 6F 03 jsr SendByte -000357 1 DumpOutput: -000357 1 20 8D 03 jsr GetByte -00035A 1 C9 00 cmp #$00 -00035C 1 F0 06 beq endOutput -00035E 1 20 ED FD jsr PrintChar -000361 1 18 clc -000362 1 90 F3 bcc DumpOutput -000364 1 endOutput: -000364 1 18 clc -000365 1 6C AD 03 jmp (NXTCMD) -000368 1 -000368 1 HelpCommand: -000368 1 61 32 68 65 .byte "a2help",$00 -00036C 1 6C 70 00 -00036F 1 -00036F 1 SendByte: -00036F 1 48 pha -000370 1 waitWrite: -000370 1 BD 8B C0 lda InputFlags,x -000373 1 2A rol -000374 1 2A rol -000375 1 B0 F9 bcs waitWrite -000377 1 68 pla -000378 1 9D 8D C0 sta OutputByte,x -00037B 1 .if HW_TYPE = 0 -00037B 1 A9 1E lda #$1e ; set bit 0 low to indicate write started -00037D 1 9D 87 C0 sta OutputFlags,x -000380 1 finishWrite: -000380 1 BD 8B C0 lda InputFlags,x -000383 1 2A rol -000384 1 2A rol -000385 1 90 F9 bcc finishWrite -000387 1 A9 1F lda #$1f -000389 1 9D 87 C0 sta OutputFlags,x -00038C 1 .endif -00038C 1 60 rts -00038D 1 -00038D 1 GetByte: -00038D 1 .if HW_TYPE = 0 -00038D 1 A9 1D lda #$1d ;set read flag low -00038F 1 9D 87 C0 sta OutputFlags,x -000392 1 .endif -000392 1 waitRead: -000392 1 BD 8B C0 lda InputFlags,x -000395 1 2A rol -000396 1 B0 FA bcs waitRead -000398 1 readByte: -000398 1 BD 8E C0 lda InputByte,x -00039B 1 .if HW_TYPE = 0 -00039B 1 48 pha -00039C 1 A9 1F lda #$1f ;set all flags high -00039E 1 9D 87 C0 sta OutputFlags,x -0003A1 1 finishRead: -0003A1 1 BD 8B C0 lda InputFlags,x -0003A4 1 2A rol -0003A5 1 90 FA bcc finishRead -0003A7 1 68 pla -0003A8 1 .endif -0003A8 1 18 clc ;success -0003A9 1 60 rts -0003AA 1 -0003AA 1 -0003AA 1 F2 F0 E9 CMD: aschi "rpi" -0003AD 1 CMDLEN = 3 ;Our command length -0003AD 1 ; -0003AD 1 00 00 NXTCMD: .byte 0,0 ; STORE THE NEXT EXT CMD'S -0003AF 1 ; ADDRESS HERE. -0003AF 1 -0003AF 1 -0003AF 1 diff --git a/Apple2/Shell.lst b/Apple2/Shell.lst deleted file mode 100644 index 7ff11be..0000000 --- a/Apple2/Shell.lst +++ /dev/null @@ -1,309 +0,0 @@ -ca65 V2.18 - Debian 2.19-1 -Main file : Shell.asm -Current file: Shell.asm - -000000r 1 ; Copyright Terence J. Boldt (c)2021-2024 -000000r 1 ; Use of this source code is governed by an MIT -000000r 1 ; license that can be found in the LICENSE file. -000000r 1 -000000r 1 ; This file contains the source for the SHELL -000000r 1 ; application that runs on the Apple II to talk -000000r 1 ; to the Raspberry Pi -000000r 1 -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 -000000r 1 OutputByte = $c08d -000000r 1 InputFlags = $c08b -000000r 1 OutputFlags = $c087 -000000r 1 -000000r 1 ResetCommand = $00 -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 MenuCommand = $08 -000000r 1 ShellCommand = $09 -000000r 1 -000000r 1 InputString = $fd6a -000000r 1 StringBuffer = $0200 -000000r 1 PrintChar = $fded -000000r 1 Keyboard = $c000 -000000r 1 ClearKeyboard = $c010 -000000r 1 Home = $fc58 -000000r 1 Wait = $fca8 -000000r 1 PromptChar = $33 -000000r 1 Read80Col = $c01f -000000r 1 TextPage1 = $c054 -000000r 1 TextPage2 = $c055 -000000r 1 -000000r 1 htab = $24 -000000r 1 vtab = $25 -000000r 1 BasL = $28 -000000r 1 htab80 = $057b -000000r 1 BasCalc = $fbc1 -000000r 1 -000000r 1 LastChar = $06 -000000r 1 SlotL = $fe -000000r 1 SlotH = $ff -000000r 1 ESC = $9b -000000r 1 -000000r 1 .org $2000 -002000 1 A2 07 ldx #$07 ; start at slot 7 -002002 1 DetectSlot: -002002 1 A0 00 ldy #$00 -002004 1 A9 FC lda #$fc -002006 1 85 FE sta SlotL -002008 1 8A txa -002009 1 09 C0 ora #$c0 -00200B 1 85 FF sta SlotH -00200D 1 B1 FE lda (SlotL),y -00200F 1 D0 1C bne nextSlot -002011 1 C8 iny -002012 1 B1 FE lda (SlotL),y -002014 1 D0 17 bne nextSlot -002016 1 C8 iny -002017 1 B1 FE lda (SlotL),y -002019 1 C9 17 cmp #$17 -00201B 1 D0 10 bne nextSlot -00201D 1 C8 iny -00201E 1 B1 FE lda (SlotL),y -002020 1 C9 14 cmp #$14 -002022 1 D0 09 bne nextSlot -002024 1 8A txa -002025 1 0A asl -002026 1 0A asl -002027 1 0A asl -002028 1 0A asl -002029 1 AA tax -00202A 1 18 clc -00202B 1 90 04 bcc Init -00202D 1 nextSlot: -00202D 1 CA dex -00202E 1 D0 D2 bne DetectSlot -002030 1 60 rts -002031 1 -002031 1 Init: -002031 1 A9 8D lda #$8d -002033 1 20 00 C3 jsr $c300 ; force 80 columns -002036 1 -002036 1 A0 00 ldy #$00 -002038 1 PrintString: -002038 1 B9 73 21 lda Text,y -00203B 1 F0 08 beq Start -00203D 1 09 80 ora #$80 -00203F 1 20 ED FD jsr PrintChar -002042 1 C8 iny -002043 1 D0 F3 bne PrintString -002045 1 -002045 1 Start: -002045 1 A5 06 lda LastChar -002047 1 48 pha -002048 1 2C 10 C0 bit ClearKeyboard -00204B 1 ; lda #ResetCommand -00204B 1 ; jsr SendByte -00204B 1 A9 09 lda #ShellCommand -00204D 1 20 C7 20 jsr SendByte -002050 1 20 57 20 jsr DumpOutput -002053 1 68 pla -002054 1 85 06 sta LastChar -002056 1 60 rts -002057 1 -002057 1 DumpOutput: -002057 1 20 E5 20 jsr GetByte -00205A 1 C9 00 cmp #$00 -00205C 1 F0 26 beq endOutput -00205E 1 48 pha -00205F 1 20 5E 21 jsr ClearCursor -002062 1 68 pla -002063 1 C9 48 cmp #'H' -002065 1 F0 27 beq setColumn -002067 1 C9 56 cmp #'V' -002069 1 F0 31 beq setRow -00206B 1 C9 43 cmp #'C' -00206D 1 F0 16 beq clearScreen -00206F 1 C9 54 cmp #'T' -002071 1 F0 37 beq setTop -002073 1 C9 42 cmp #'B' -002075 1 F0 3B beq setBottom -002077 1 C9 55 cmp #'U' -002079 1 F0 3F beq moveUp -00207B 1 20 ED FD jsr PrintChar -00207E 1 20 2D 21 jsr SetCursor -002081 1 4C 57 20 jmp DumpOutput -002084 1 endOutput: -002084 1 60 rts -002085 1 clearScreen: -002085 1 20 58 FC jsr Home -002088 1 20 2D 21 jsr SetCursor -00208B 1 4C 57 20 jmp DumpOutput -00208E 1 setColumn: -00208E 1 20 E5 20 jsr GetByte -002091 1 85 24 sta htab -002093 1 8D 7B 05 sta htab80 -002096 1 20 2D 21 jsr SetCursor -002099 1 4C 57 20 jmp DumpOutput -00209C 1 setRow: -00209C 1 20 E5 20 jsr GetByte -00209F 1 85 25 sta vtab -0020A1 1 20 C1 FB jsr BasCalc -0020A4 1 20 2D 21 jsr SetCursor -0020A7 1 4C 57 20 jmp DumpOutput -0020AA 1 setTop: -0020AA 1 20 E5 20 jsr GetByte -0020AD 1 85 22 sta $22 -0020AF 1 4C 57 20 jmp DumpOutput -0020B2 1 setBottom: -0020B2 1 20 E5 20 jsr GetByte -0020B5 1 85 23 sta $23 -0020B7 1 4C 57 20 jmp DumpOutput -0020BA 1 moveUp: -0020BA 1 C6 25 dec vtab -0020BC 1 A5 25 lda vtab -0020BE 1 20 C1 FB jsr BasCalc -0020C1 1 20 2D 21 jsr SetCursor -0020C4 1 4C 57 20 jmp DumpOutput -0020C7 1 -0020C7 1 SendByte: -0020C7 1 48 pha -0020C8 1 waitWrite: -0020C8 1 BD 8B C0 lda InputFlags,x -0020CB 1 2A rol -0020CC 1 2A rol -0020CD 1 B0 F9 bcs waitWrite -0020CF 1 68 pla -0020D0 1 9D 8D C0 sta OutputByte,x -0020D3 1 .if HW_TYPE = 0 -0020D3 1 A9 1E lda #$1e ; set bit 0 low to indicate write started -0020D5 1 9D 87 C0 sta OutputFlags,x -0020D8 1 finishWrite: -0020D8 1 BD 8B C0 lda InputFlags,x -0020DB 1 2A rol -0020DC 1 2A rol -0020DD 1 90 F9 bcc finishWrite -0020DF 1 A9 1F lda #$1f -0020E1 1 9D 87 C0 sta OutputFlags,x -0020E4 1 .endif -0020E4 1 60 rts -0020E5 1 -0020E5 1 GetByte: -0020E5 1 .if HW_TYPE = 0 -0020E5 1 A9 1D lda #$1d ;set read flag low -0020E7 1 9D 87 C0 sta OutputFlags,x -0020EA 1 .endif -0020EA 1 waitRead: -0020EA 1 BD 8B C0 lda InputFlags,x -0020ED 1 2A rol -0020EE 1 90 2B bcc readByte -0020F0 1 2C 00 C0 bit Keyboard ;keypress will abort waiting to read -0020F3 1 10 F5 bpl waitRead -0020F5 1 keyPressed: -0020F5 1 BD 8B C0 lda InputFlags,x -0020F8 1 2A rol -0020F9 1 2A rol -0020FA 1 B0 F9 bcs keyPressed -0020FC 1 AD 00 C0 lda Keyboard ;send keypress to RPi -0020FF 1 29 7F and #$7f -002101 1 9D 8D C0 sta OutputByte,x -002104 1 2C 10 C0 bit ClearKeyboard -002107 1 .if HW_TYPE = 0 -002107 1 A9 1C lda #$1c ;set write flag low too -002109 1 9D 87 C0 sta OutputFlags,x -00210C 1 finishKeyPress: -00210C 1 BD 8B C0 lda InputFlags,x -00210F 1 2A rol -002110 1 2A rol -002111 1 90 F9 bcc finishKeyPress -002113 1 A9 1D lda #$1d ;set flags back for reading -002115 1 9D 87 C0 sta OutputFlags,x -002118 1 .endif -002118 1 4C EA 20 jmp waitRead -00211B 1 readByte: -00211B 1 BD 8E C0 lda InputByte,x -00211E 1 .if HW_TYPE = 0 -00211E 1 48 pha -00211F 1 A9 1F lda #$1f ;set all flags high -002121 1 9D 87 C0 sta OutputFlags,x -002124 1 finishRead: -002124 1 BD 8B C0 lda InputFlags,x -002127 1 2A rol -002128 1 90 FA bcc finishRead -00212A 1 68 pla -00212B 1 .endif -00212B 1 18 clc ;success -00212C 1 end: -00212C 1 60 rts -00212D 1 -00212D 1 SetCursor: -00212D 1 AD 7B 05 lda htab80 ;get horizontal location / 2 -002130 1 4A lsr -002131 1 A8 tay -002132 1 AD 55 C0 lda TextPage2 -002135 1 90 03 bcc setChar -002137 1 AD 54 C0 lda TextPage1 -00213A 1 setChar: -00213A 1 B1 28 lda (BasL),y -00213C 1 85 06 sta LastChar ; save so ClearCursor will pick it up -00213E 1 C9 E0 cmp #$e0 -002140 1 10 0C bpl lowerCase -002142 1 C9 C0 cmp #$c0 -002144 1 10 0D bpl upperCase -002146 1 C9 A0 cmp #$a0 -002148 1 10 04 bpl symbol -00214A 1 C9 80 cmp #$80 -00214C 1 10 0A bpl noop -00214E 1 symbol: -00214E 1 lowerCase: -00214E 1 invert: -00214E 1 49 80 eor #$80 -002150 1 4C 58 21 jmp storeChar -002153 1 upperCase: -002153 1 29 1F and #$1f -002155 1 4C 58 21 jmp storeChar -002158 1 noop: -002158 1 storeChar: -002158 1 91 28 sta (BasL),y -00215A 1 AD 54 C0 lda TextPage1 -00215D 1 60 rts -00215E 1 -00215E 1 ClearCursor: -00215E 1 AD 7B 05 lda htab80 ;get horizontal location / 2 -002161 1 4A lsr -002162 1 A8 tay -002163 1 AD 55 C0 lda TextPage2 -002166 1 90 03 bcc restoreChar -002168 1 AD 54 C0 lda TextPage1 -00216B 1 restoreChar: -00216B 1 A5 06 lda LastChar -00216D 1 91 28 sta (BasL),y -00216F 1 AD 54 C0 lda TextPage1 -002172 1 60 rts -002173 1 -002173 1 Text: -002173 1 .if HW_TYPE = 0 -002173 1 41 70 70 6C .byte "Apple2-IO-RPi Shell Version 000F",$8d -002177 1 65 32 2D 49 -00217B 1 4F 2D 52 50 -002194 1 .else -002194 1 .byte "Apple2-IO-RPi Shell Version 800F",$8d -002194 1 .endif -002194 1 28 63 29 32 .byte "(c)2020-2024 Terence J. Boldt",$8d -002198 1 30 32 30 2D -00219C 1 32 30 32 34 -0021B2 1 8D .byte $8d -0021B3 1 00 .byte $00 -0021B3 1 diff --git a/RaspberryPi/apple2driver/driver.go b/RaspberryPi/apple2driver/driver.go index 8111376..9aaba20 100644 --- a/RaspberryPi/apple2driver/driver.go +++ b/RaspberryPi/apple2driver/driver.go @@ -50,8 +50,10 @@ func main() { var comm a2io.A2Io if cdc { comm = a2io.CDCio{} + fmt.Printf("Starting communications via serial port...\n") } else { comm = a2io.A2Gpio{} + fmt.Printf("Starting communications via GPIO ports...\n") } handlers.SetCommunication(comm) diff --git a/RaspberryPi/driveimage/AT28C64B.bin b/RaspberryPi/driveimage/AT28C64B.bin deleted file mode 100644 index 318e6668b24b29beb38643fdaf9e0fdbe9012920..0000000000000000000000000000000000000000 GIT binary patch literal 0 HcmV?d00001 literal 8192 zcmciHZD?dy9mnz6thOs`+aLuK(9C(EU~wMeRJ01o=ysD-jkwf8@!gb~wo8^al>5#X z`od|&PKFhcAd6)Q#&}s~(N~vYvEJvqVX@7-1QyqQ)x6lYj)~`Vy$@Ri(UwQ3GyT1CmyZCw6egxN=YoBPIu?x-l=0fwV zeX2RfYVP8RQ-6GN<4o`L)`{Nu)>!YEC+r_J*6&}wZx<#S8w=YL8}nOZ+n>E$uun4A zWxMY0F8=Mh`>E~!+9zndF^``G`uP?8ce%jcaNnJypLh<-Y4)$rUf=$(VUJQBfYlAo@% zFz*i!fdB9CCvNG6@F(2Q$K-#T z`}t_3|6J2BNYJwSKYsp18?vSoMU@u%!RG#_U#-s=>`wpM$0*$>=_i@nmgE7$PH zrylzmU-xgZuH*js!L34XlD&VgRB*@t)hW1i%jeL_iHo-y&(&U9y0B7EQJ+##FVbCO z{R{2a5&7}cSbx{X!zUUP`1NA?qCYXvcP;hC+XoH(pA`L1{Z#30+k>BS%l#f(_6&Y6 z^J7isr*+)#v5q&&?+y87)TdO`i*yJ78X}+h*WiB>e(~b4ey#tLqW`I%D&1}S@KbKN z-)GCd!S82&tjYYej{AMq@kjanA-|0Jl!|(h?%>}<DA@5Pr%n_lImbH2A~Jk2RT})^UHxI^igPIOLa6pHfjT(jEK>BA@va_}_+K zyg001>;I(af9j`7ciR#Clw0nP*m7j>N0}dMGC!^3{)ly=QT}MiFQY!CqF$ss_;(Qb z%)bNwE%?QY!}_)UPm2DheyVi09m7w#<^Gs0#|D3#`LQPR(>m^tStlOlkB9s+>QgG} zMY@B350TIOd+>h%zj$$2zt;ar(f`y>mF~6^_$jyCpRnb`;7>9?)?|KK$NdTGB%}Pv zkY7f9N=3a$cku5c@|k}h{*U1oFAnR^_do4Bo&V3;tT|^tz%1+ql*^+109=;KT5fY5 zKMNZRy>Z&rw8T07-MM&S`@N0%-f8(PoZr67etci$y+Zw_0iD^abk|rfi;B~pg_2&C zNpBd_{eOA*3H>+t2fA*hUAH{e^5FL}zc|Ma`teNqW!@_)?^T}nvZy%uDd|<2^yBd7 z`)}|Mblpn3ZuzX`!|!K)agHDK9~QGU>P{JMRw`3-xl`6cG{FBg9C#qJficj_}gr!)KY?f+1>rysKKvp;=gU!^CD-*oMN z($y}opSt!hafiq3H*W9b;`d#96;Iy5&kg)MviLB{PoFO6)BP;PUu*;L4-k#@8GRd2 zSKEN^tgKvEs+GU{!}8PT&aZy?`NwM0wdpebe2qP`^y<>f&o8m>RoIzVF8st=U48bs z^Va#7Ut}-5@+zb0Z2sAAO;3Myx>BhWv_GHJf0N(S{FjFOp7MLT--F*X_&qwvlb=4_ z&#G-eoo@qX^ld<0Z3B+dZ|J|t?`!@mLw;ZReckWF?;HF+9puSRpYCVXHlWV80WNz>K~PsH<(jQTh%2H~AyYe{;wmDSxE< zBlshOKca&?`RUXBtl9?D`8Hri-v-pxHsC1zhW?xUvF5)s3&vi1L}MmFeAz@wgGi9pl!fW`VIXz`4i3GAMz*4pXmMs{>0!<=pavi`gA|5wgGj% Q4Vcll0d=(vI1>N=0N3Y6Gynhq diff --git a/RaspberryPi/driveimage/RPi.Command.bin b/RaspberryPi/driveimage/RPi.Command.bin deleted file mode 100644 index 212cba87f0551d7475949ac0dcb39196904e10ce..0000000000000000000000000000000000000000 GIT binary patch literal 0 HcmV?d00001 literal 431 zcmZ3)zJOunpVog}oCjL}Z~S*b<^+%s2NEa6F9?7rkqew%TtKi&Vgk#l3zri53>6nJ z?3}FdfrGO_;qBiO7d`{I42m-um`@ydcH!$<_Is`mZlA)J<-%93Qj(sax z74n&Z>UtDDumf2qd~y|5G5{G0z04;WKCl7J@u^ctNHoew%_(5Gbm8QJ$M4_1efaLl zf^SbheSZ1=-L3^2Hf%WB%Rqgwh+!`S6Q{!6Rm>MOUp!#G@Np$mZ_vJ#5xoKXR{rk| z+z0eS@V?%VeZ8UkR`vqjxu^gb4i-6UnRNsXKzzl#lY!}E?*|UedXUe62B3OOV!~$$ zpmM0+Joa`U(9+uQGh=S=ft7M|+Yf;G6Mn9g2eK1Z%0fjp{My@hzymA@QZV6HhD5@r I4=))Q0Cdu;J^%m! diff --git a/RaspberryPi/driveimage/Shell.bin b/RaspberryPi/driveimage/Shell.bin deleted file mode 100644 index de2e0bccd05967bf8b2a8cd16ecb0eb81b09492d..0000000000000000000000000000000000000000 GIT binary patch literal 0 HcmV?d00001 literal 436 zcmZ3)zJOunpVog}oCjL}Z~S*b<^+%s2NEa6F9?7rkqew%TtKi&Vgk#l3zrgB_9`$O zUcj)kSn&e~XM@7qzb7tyUdra7BXD3Pr^0asg>Z$8R<;C%rwS(-KB##p#3^Q+^!T8D zGVFulN#_q@Cqq7%pLF_QeKPceJy5TLuA)!4LV`lX9|#MmtyQJBniauQRXF$?!BYaN z2B}d7(#KSnA|yTbb|28v+VC@DZtsDWa&y}cfcX=Cu9OF|6IRMXMJ8zLFdPv03RS$8 z;ecj6Py@*AGDvzrs(oH5?Cm??0oD&vKH*n}M8eu?R<9LnLk~<~UK?^?qed&+$p->F zCl3hlo?IZna