From 181b85b6169e27c0681a0ed70f8640d022998fe9 Mon Sep 17 00:00:00 2001 From: Florian Reitz Date: Sun, 16 Jun 2019 17:40:48 +0200 Subject: [PATCH] Changes for 6502 cpu --- Firmware/makefile | 2 +- Firmware/src/AppleIISd.inc | 1 + Firmware/src/AppleIISd.s | 73 ++++++++++++++++++++++++++++---- Firmware/src/Helper.s | 85 +++++++++++++++++++++++++++++++++----- Firmware/src/ProDOS.s | 6 +-- Firmware/src/Smartport.s | 48 +++++++++++++++++---- Software/src/Flasher.c | 2 +- 7 files changed, 184 insertions(+), 33 deletions(-) diff --git a/Firmware/makefile b/Firmware/makefile index f4298fe..41a9a3f 100644 --- a/Firmware/makefile +++ b/Firmware/makefile @@ -9,7 +9,7 @@ # Space or comma separated list of cc65 supported target platforms to build for. # Default: c64 (lowercase!) -TARGETS := apple2enh +TARGETS := apple2 # Name of the final, single-file executable. # Default: name of the current dir with target name appended diff --git a/Firmware/src/AppleIISd.inc b/Firmware/src/AppleIISd.inc index 5659e3e..bf61f83 100644 --- a/Firmware/src/AppleIISd.inc +++ b/Firmware/src/AppleIISd.inc @@ -55,6 +55,7 @@ SS := DATA+3 DUMMY = $FF FRX = $10 ; CTRL register ECE = $04 +TC = $80 SS0 = $01 ; SS register SDHC = $10 WP = $20 diff --git a/Firmware/src/AppleIISd.s b/Firmware/src/AppleIISd.s index 7e17e4a..a3b6f9a 100644 --- a/Firmware/src/AppleIISd.s +++ b/Firmware/src/AppleIISd.s @@ -89,9 +89,16 @@ BPL @INIT ; and skip boot if pressed @NEXTSLOT: LDA CURSLOT ; skip boot when no card + .IFPC02 DEC A STA CMDHI ; use CMDHI/LO as pointer STZ CMDLO + .ELSE + SBC #1 + STA CMDHI + LDA #0 + STA CMDLO + .ENDIF JMP (CMDLO) @INIT: JSR INIT @@ -107,16 +114,29 @@ ; load disk blocks 0 and 1 to $800 and $A00 @BOOT: LDA #$08 ; load to $800 STA BUFFER+1 ; buffer hi + .IFPC02 STZ BUFFER ; buffer lo STZ BLOCKNUM+1 ; block hi STZ BLOCKNUM ; block lo + .ELSE + LDA #0 + STA BUFFER + STA BLOCKNUM+1 + STA BLOCKNUM + .ENDIF JSR READ BCS @NEXTSLOT ; load not successful LDA #$0A STA BUFFER+1 ; buffer hi + .IFPC02 STZ BUFFER ; buffer lo STZ BLOCKNUM+1 ; block hi + .ELSE + LDA #0 + STA BUFFER + STA BLOCKNUM+1 + .ENDIF LDA #$01 STA BLOCKNUM ; block lo JSR READ @@ -135,7 +155,12 @@ DRIVER: CLC ; ProDOS entry SEC ; Smartport entry @PRODOS: PHP ; transfer P to X + .IFPC02 PLX + .ELSE + PLA + TAX + .ENDIF LDY #PDZPSIZE-1 ; save zeropage area for ProDOS @SAVEZP: LDA PDZPAREA,Y PHA @@ -162,14 +187,16 @@ DRIVER: CLC ; ProDOS entry STA SLOT16 ; $s0 TAX ; X holds now SLOT16 BIT $CFFF + JMP DRIVEREXT - JSR CARDDET + .segment "EXTROM" +DRIVEREXT: JSR CARDDET BCC @INITED LDA #ERR_OFFLINE; no card inserted - BRA @END + BCS @END @INITED: LDA #INITED ; check for init - BIT SS,X + AND SS,X BNE @DISP JSR INIT BCS @END ; Init failed @@ -180,7 +207,8 @@ DRIVER: CLC ; ProDOS entry BCS @SMARTPORT ; Smartport dispatcher JSR PRODOS ; ProDOS dispatcher -@END: PHX +@END: .IFPC02 + PHX LDX SLOT ; X holds $0s STA R30,X ; save A PLA @@ -190,6 +218,21 @@ DRIVER: CLC ; ProDOS entry PHP PLA STA R33,X ; save P + .ELSE + PHP + PHA + TXA + PHA + LDX SLOT + PLA + STA R31,X ; save X + TYA + STA R32,X ; save Y + PLA + STA R30,X ; save A + PLA + STA R33,X ; save P + .ENDIF LDY #0 @RESTZP: PLA ; restore zeropage area @@ -198,6 +241,7 @@ DRIVER: CLC ; ProDOS entry CPY #PDZPSIZE BCC @RESTZP + .IFPC02 LDA R33,X ; get retval PHA LDA R32,X @@ -208,11 +252,25 @@ DRIVER: CLC ; ProDOS entry PLX ; restore X PLY ; restore Y PLP ; restore P + .ELSE + LDA R33,X + PHA + LDA R30,X + PHA + LDA R32,X + PHA + LDA R31,X + TAX ; restore X + PLA + TAY ; restore Y + PLA ; restore A + PLP ; restore P + .ENDIF RTS @SMARTPORT: CLC JSR SMARTPORT - BRA @END + JMP @END ;******************************* @@ -227,7 +285,6 @@ DRIVER: CLC ; ProDOS entry ; ;******************************* - .segment "EXTROM" INIT: LDA #$03 ; set SPI mode 3 STA CTRL,X LDA SS,X @@ -239,7 +296,7 @@ INIT: LDA #$03 ; set SPI mode 3 LDA #DUMMY @LOOP: STA DATA,X -@WAIT: BIT CTRL,X +@WAIT: AND CTRL,X BPL @WAIT DEY BNE @LOOP ; do 10 times @@ -368,7 +425,7 @@ INIT: LDA #$03 ; set SPI mode 3 RTS -TEXT: .asciiz " Apple][Sd v1.2.1 (c)2018 Florian Reitz " +TEXT: .asciiz " Apple][Sd v1.2.2 (c)2019 Florian Reitz " CMD0: .byt $40, $00, $00 .byt $00, $00, $95 diff --git a/Firmware/src/Helper.s b/Firmware/src/Helper.s index 0f659e2..2fd7af9 100644 --- a/Firmware/src/Helper.s +++ b/Firmware/src/Helper.s @@ -30,16 +30,32 @@ ; ;******************************* -SDCMD: PHY +SDCMD: .IFPC02 + PHY + .ELSE + TYA + PHA + .ENDIF LDY #0 @LOOP: LDA (CMDLO),Y STA DATA,X -@WAIT: BIT CTRL,X ; TC is in N +@WAIT: .IFPC02 + BIT CTRL,X ; TC is in N BPL @WAIT + .ELSE + LDA #TC + AND CTRL,X + BNE @WAIT + .ENDIF INY CPY #6 BCC @LOOP + .IFPC02 PLY + .ELSE + PLA + TAY + .ENDIF RTS @@ -52,8 +68,14 @@ SDCMD: PHY GETR1: LDA #DUMMY STA DATA,X -@WAIT: BIT CTRL,X +@WAIT: .IFPC02 + BIT CTRL,X ; TC is in N BPL @WAIT + .ELSE + LDA #TC + AND CTRL,X + BNE @WAIT + .ENDIF LDA DATA,X ; get response BMI GETR1 ; wait for MSB=0 PHA @@ -72,13 +94,24 @@ GETR1: LDA #DUMMY GETR3: JSR GETR1 ; get R1 first PHA ; save R1 + .IFPC02 PHY ; save Y + .ELSE + TYA + PHA + .ENDIF LDY #04 ; load counter JMP @WAIT ; first byte is already there @LOOP: LDA #DUMMY ; send dummy STA DATA,X -@WAIT: BIT CTRL,X +@WAIT: .IFPC02 + BIT CTRL,X ; TC is in N BPL @WAIT + .ELSE + LDA #TC + AND CTRL,X + BNE @WAIT + .ENDIF LDA DATA,X PHA DEY @@ -92,7 +125,12 @@ GETR3: JSR GETR1 ; get R1 first STA R31,Y PLA STA R30,Y ; R30 is MSB + .IFPC02 PLY ; restore Y + .ELSE + PLA + TAY + .ENDIF LDA #DUMMY STA DATA,X ; send another dummy PLA ; restore R1 @@ -108,16 +146,29 @@ GETR3: JSR GETR1 ; get R1 first ; ;******************************* -GETBLOCK: PHX ; save X +GETBLOCK: .IFPC02 + PHX ; save X PHY ; save Y + .ELSE + TXA + PHA ; save X + TYA + PHA ; save y + .ENDIF LDX SLOT ; SLOT is now in X LDY SLOT16 LDA BLOCKNUM ; store block num STA R33,X ; in R30-R33 LDA BLOCKNUM+1 STA R32,X + .IFPC02 STZ R31,X STZ R30,X + .ELSE + LDA #0 + STA R31,X + STA R30,X + .ENDIF TYA ; get SLOT16 EOR DSNUMBER @@ -129,7 +180,11 @@ GETBLOCK: PHX ; save X @DRIVE: BIT DSNUMBER ; drive number BPL @SDHC ; D1 LDA R31,X ; D2 + .IFPC02 INC A + .ELSE + ADC #1 + .ENDIF STA R31,X @SDHC: LDA #SDHC @@ -144,20 +199,29 @@ GETBLOCK: PHX ; save X DEY BNE @LOOP - @END: PLY ; restore Y + @END: .IFPC02 + PLY ; restore Y PLX ; restore X + .ELSE + PLA + TAY ; restore y + PLA + TAX ; restore x + .ENDIF RTS ;******************************* ; ; Send SD command +; X must contain SLOT16 ; Cmd is in A ; +; Y is destroyed +; ;******************************* -COMMAND: PHY ; save Y - LDY SLOT +COMMAND: LDY SLOT STA DATA,X ; send command LDA R30,Y ; get arg from R30 on STA DATA,X @@ -170,7 +234,6 @@ COMMAND: PHY ; save Y LDA #DUMMY STA DATA,X ; dummy crc JSR GETR1 - PLY ; restore Y RTS @@ -186,7 +249,7 @@ COMMAND: PHY ; save Y CARDDET: PHA LDA #CD ; 0: card in - BIT SS,X ; 1: card out + AND SS,X ; 1: card out CLC BEQ @DONE ; card is in SEC ; card is out @@ -206,7 +269,7 @@ CARDDET: PHA WRPROT: PHA LDA #WP ; 0: write enabled - BIT SS,X ; 1: write disabled + AND SS,X ; 1: write disabled CLC BEQ @DONE SEC diff --git a/Firmware/src/ProDOS.s b/Firmware/src/ProDOS.s index 0cd0493..04f0c3f 100644 --- a/Firmware/src/ProDOS.s +++ b/Firmware/src/ProDOS.s @@ -152,7 +152,7 @@ READ: JSR GETBLOCK ; calc block address @ERROR: SEC ; an error occured LDA #ERR_IOERR - BRA @DONE + BCS @DONE ;******************************* @@ -228,8 +228,8 @@ WRITE: JSR WRPROT @IOERROR: SEC ; an error occured LDA #ERR_IOERR - BRA @DONE + BCS @DONE @WPERROR: SEC LDA #ERR_NOWRITE - BRA @DONE + BCS @DONE diff --git a/Firmware/src/Smartport.s b/Firmware/src/Smartport.s index da41235..5a146a8 100644 --- a/Firmware/src/Smartport.s +++ b/Firmware/src/Smartport.s @@ -70,7 +70,12 @@ SMARTPORT: LDY #SMZPSIZE-1 ; save zeropage area for Smarport CPX #$09+1 ; command too large BCS @END + .IFPC02 LDA (SMPARAMLIST) ; parameter count + .ELSE + LDY #0 + LDA (SMPARAMLIST),Y + .ENDIF CMP REQPARAMCOUNT,X BNE @COUNTMISMATCH @@ -82,7 +87,15 @@ SMARTPORT: LDY #SMZPSIZE-1 ; save zeropage area for Smarport TXA ; SMCMD ASL A ; shift for use of word addresses TAX + .IFPC02 JSR @JMPSPCOMMAND ; Y holds SLOT + .ELSE + LDA SPDISPATCH+1,X + PHA + LDA SPDISPATCH,X + PHA + RTS ; jump to cmd offset + .ENDIF BCS @END ; jump on error LDA #NO_ERR @@ -102,10 +115,12 @@ SMARTPORT: LDY #SMZPSIZE-1 ; save zeropage area for Smarport @COUNTMISMATCH: LDA #ERR_BADPCNT - BRA @END - + BNE @END + + .IFPC02 @JMPSPCOMMAND: ; use offset from cmd*2 JMP (SPDISPATCH,X) + .ENDIF @@ -124,7 +139,12 @@ SMSTATUS: JSR GETCSLIST ; TODO support partitions based on card size @STATUS00: LDA #4 ; support 4 partitions + .IFPC02 STA (SMCMDLIST) + .ELSE + LDY #0 + STA (SMCMDLIST),Y + .ENDIF LDY #7 @LOOP00: LDA STATUS00DATA-1,Y @@ -146,7 +166,12 @@ SMSTATUS: JSR GETCSLIST RTS @GETDCB: LDA #1 ; return 'empty' DCB, one byte + .IFPC02 STA (SMCMDLIST) + .ELSE + LDY #0 + STA (SMCMDLIST),Y + .ENDIF TAY LDA #NO_ERR STA (SMCMDLIST),Y @@ -162,7 +187,12 @@ SMSTATUS: JSR GETCSLIST @WRPROT: JSR WRPROT BCC @STATUSBYTE ORA #$04 ; SD card write-protected -@STATUSBYTE:STA (SMCMDLIST) +@STATUSBYTE:.IFPC02 + STA (SMCMDLIST) + .ELSE + LDY #0 + STA (SMCMDLIST),Y + .ENDIF LDY #1 ; block count, always $00FFFF LDA #$FF @@ -278,18 +308,18 @@ TRANSLATE: LDA DRVNUM,Y BEQ @UNIT3 CMP #4 BEQ @UNIT4 - BRA @BADUNIT ; only 4 partitions are supported + BNE @BADUNIT ; only 4 partitions are supported @UNIT1: LDA SLOT16 ; this slot - BRA @STORE + BNE @STORE @UNIT2: LDA SLOT16 ORA #$80 ; drive 1 - BRA @STORE + BNE @STORE @UNIT3: LDA SLOT16 - DEC A ; phantom slot - BRA @STORE + SBC #1 ; phantom slot + BNE @STORE @UNIT4: LDA SLOT16 - DEC A ; phantom slot + SBC #1 ; phantom slot ORA #$80 ; drive 1 @STORE: STA DSNUMBER ; store in ProDOS variable diff --git a/Software/src/Flasher.c b/Software/src/Flasher.c index 8db7569..d2bfebb 100644 --- a/Software/src/Flasher.c +++ b/Software/src/Flasher.c @@ -84,7 +84,7 @@ int main() cprintf("\r\nFlashing EXTROM: "); if(writeChip(buffer + 256, pExtRom, fileSize - 256)) { - cprintf("\r\n\r\nFlashing finished!\n"); + cprintf("\r\n\r\n\aFlashing finished!\n"); } else {