mirror of
https://github.com/dschmenk/apple2pi.git
synced 2024-05-29 08:41:27 +00:00
Update to full ROM build
This commit is contained in:
parent
8bca8e6e92
commit
e28497336a
|
@ -1,5 +1,5 @@
|
||||||
MEMORY {
|
MEMORY {
|
||||||
ROM: start = $c700, size = $100, file = %O;
|
ROM: start = $c000, size = $8000, file = %O;
|
||||||
}
|
}
|
||||||
SEGMENTS {
|
SEGMENTS {
|
||||||
CODE: load = ROM, type = ro;
|
CODE: load = ROM, type = ro;
|
||||||
|
|
247
pidrive/rom.s
247
pidrive/rom.s
|
@ -1,219 +1,38 @@
|
||||||
.DEFINE EQU =
|
.DEFINE EQU =
|
||||||
.DEFINE DB .BYTE
|
.DEFINE DB .BYTE
|
||||||
.DEFINE DW .WORD
|
.DEFINE DW .WORD
|
||||||
.DEFINE PAGE .ALIGN 256
|
.DEFINE PAGE .ALIGN 256
|
||||||
.DEFINE ORG .ORG
|
.DEFINE ORG .ORG
|
||||||
.CODE
|
.CODE
|
||||||
ROMSLOT EQU $07
|
.SCOPE
|
||||||
PISLOT EQU $02 ; ROMSLOT
|
ROMSLOT EQU 0
|
||||||
BOOTDEV EQU ROMSLOT*16
|
.INCLUDE "slotrom.s"
|
||||||
ORG $C000+ROMSLOT*256
|
.ENDSCOPE
|
||||||
;*
|
.SCOPE
|
||||||
;* ACIA REGISTERS
|
ROMSLOT EQU 1
|
||||||
;*
|
.INCLUDE "slotrom.s"
|
||||||
ACIADR EQU $C088+PISLOT*16
|
.ENDSCOPE
|
||||||
ACIASR EQU $C089+PISLOT*16
|
.SCOPE
|
||||||
ACIACR EQU $C08A+PISLOT*16
|
ROMSLOT EQU 2
|
||||||
ACIAMR EQU $C08B+PISLOT*16
|
.INCLUDE "slotrom.s"
|
||||||
;*
|
.ENDSCOPE
|
||||||
;* APPLE I/O LOCATIONS
|
.SCOPE
|
||||||
;*
|
ROMSLOT EQU 3
|
||||||
INDCTR EQU $0400
|
.INCLUDE "slotrom.s"
|
||||||
KEYBD EQU $C000
|
.ENDSCOPE
|
||||||
STROBE EQU $C010
|
.SCOPE
|
||||||
;*
|
ROMSLOT EQU 4
|
||||||
;* DRIVER SCRATCHPAD
|
.INCLUDE "slotrom.s"
|
||||||
;*
|
.ENDSCOPE
|
||||||
PAD0 EQU $0478+ROMSLOT
|
.SCOPE
|
||||||
PAD1 EQU $04F8+ROMSLOT
|
ROMSLOT EQU 5
|
||||||
PAD2 EQU $0578+ROMSLOT
|
.INCLUDE "slotrom.s"
|
||||||
PAD3 EQU $05F8+ROMSLOT
|
.ENDSCOPE
|
||||||
PAD4 EQU $0678+ROMSLOT
|
.SCOPE
|
||||||
PAD5 EQU $06F8+ROMSLOT
|
ROMSLOT EQU 6
|
||||||
PAD6 EQU $0778+ROMSLOT
|
.INCLUDE "slotrom.s"
|
||||||
PAD7 EQU $07F8+ROMSLOT
|
.ENDSCOPE
|
||||||
;*
|
.SCOPE
|
||||||
;* UTIL ROUTINES
|
ROMSLOT EQU 7
|
||||||
;*
|
.INCLUDE "slotrom.s"
|
||||||
WAIT EQU $FCA8
|
.ENDSCOPE
|
||||||
COUT EQU $FDED
|
|
||||||
CROUT EQU $FD8E
|
|
||||||
PRBYTE EQU $FDDA
|
|
||||||
PRHEX EQU $FDE3
|
|
||||||
PRNTAX EQU $F941
|
|
||||||
RDKEY EQU $FD0C
|
|
||||||
RDCHAR EQU $FD35
|
|
||||||
GETLN EQU $FD6A
|
|
||||||
;*
|
|
||||||
;* ZERO PAGE PARAMETERS
|
|
||||||
;*
|
|
||||||
PDCMD EQU $42
|
|
||||||
PDUNIT EQU $43
|
|
||||||
PDBUFF EQU $44
|
|
||||||
PDBUFL EQU $44
|
|
||||||
PDBUFH EQU $45
|
|
||||||
PDBLKL EQU $46
|
|
||||||
PDBLKH EQU $47
|
|
||||||
;*
|
|
||||||
;* PRODOS COMMANDS
|
|
||||||
;*
|
|
||||||
PDSTAT EQU 0
|
|
||||||
PDREAD EQU 1
|
|
||||||
PDWRITE EQU 2
|
|
||||||
PDFORMT EQU 3
|
|
||||||
;*
|
|
||||||
;* PRODOS ERRORS
|
|
||||||
;*
|
|
||||||
PDNOERR EQU $00
|
|
||||||
PDIOERR EQU $27
|
|
||||||
PDNODEV EQU $28
|
|
||||||
PDWRPRT EQU $2B
|
|
||||||
;*
|
|
||||||
;* AUTOSTART BOOT SIGNATURE
|
|
||||||
;*
|
|
||||||
LDX #$20
|
|
||||||
LDY #$00
|
|
||||||
LDX #$03
|
|
||||||
STX $3C
|
|
||||||
;*
|
|
||||||
;* INIT ACIA
|
|
||||||
;*
|
|
||||||
STY PAD1 ; CLEAR SYNCED FLAG
|
|
||||||
STY ACIASR ; RESET STATUS REGISTER
|
|
||||||
LDA #$0B
|
|
||||||
STA ACIACR ; SET CONTROL REGISTER
|
|
||||||
LDA #$10
|
|
||||||
STA ACIAMR ; SET COMMAND REGISTER (115K BAUD)
|
|
||||||
;*
|
|
||||||
;* CREATE COMMAND BUFFER FOR BOOT BLOCK
|
|
||||||
;*
|
|
||||||
STY PDUNIT
|
|
||||||
STY PDBUFL
|
|
||||||
STY PDBLKL
|
|
||||||
STY PDBLKH
|
|
||||||
INY ; LDY #PDREAD
|
|
||||||
STY PDCMD
|
|
||||||
LDY #$08
|
|
||||||
STY PDBUFH
|
|
||||||
JSR DOCMD
|
|
||||||
BCC BOOT
|
|
||||||
LDA $00
|
|
||||||
BEQ CONT
|
|
||||||
RTS
|
|
||||||
CONT: JMP $FABA ; JUMP BACK TO AUTOSTART BOOT SCANNER ROM
|
|
||||||
BOOT: LDX #BOOTDEV
|
|
||||||
STX PDUNIT
|
|
||||||
JMP $801
|
|
||||||
;*
|
|
||||||
;* PRODOS INTELLIGENT DEVICE ENTRYPOINT
|
|
||||||
;*
|
|
||||||
DOCMD: PHP
|
|
||||||
SEI
|
|
||||||
LDA PAD1
|
|
||||||
CMP #$81
|
|
||||||
BEQ SNDCMD
|
|
||||||
;*
|
|
||||||
;* SYNC WITH HOST
|
|
||||||
;*
|
|
||||||
SYNC: LDA #$80
|
|
||||||
STA ACIADR
|
|
||||||
LDA INDCTR
|
|
||||||
PHA
|
|
||||||
INX
|
|
||||||
TXA
|
|
||||||
AND #$07
|
|
||||||
TAX
|
|
||||||
LDA SPIN,X
|
|
||||||
STA INDCTR
|
|
||||||
LDA #$FF
|
|
||||||
JSR WAIT
|
|
||||||
PLA
|
|
||||||
STA INDCTR
|
|
||||||
LDA KEYBD
|
|
||||||
BPL CHKRSP
|
|
||||||
STA STROBE
|
|
||||||
BMI IOERR
|
|
||||||
SPIN: DB $A1, $AF, $AD, $DC, $A1, $AF, $AD, $DC
|
|
||||||
CHKRSP: LDA ACIASR
|
|
||||||
AND #$08
|
|
||||||
BEQ SYNC
|
|
||||||
LDA ACIADR
|
|
||||||
CMP #$81
|
|
||||||
BNE SYNC
|
|
||||||
STA PAD1
|
|
||||||
SNDCMD: LDA PDUNIT
|
|
||||||
ASL
|
|
||||||
LDA PDCMD
|
|
||||||
ROL
|
|
||||||
ASL
|
|
||||||
ORA #$A0
|
|
||||||
STA PAD0
|
|
||||||
JSR SENDACC
|
|
||||||
LDA PDBLKL
|
|
||||||
JSR SENDACC
|
|
||||||
LDA PDBLKH
|
|
||||||
JSR SENDACC
|
|
||||||
CHKACK: JSR RECVACC
|
|
||||||
TAX
|
|
||||||
DEX
|
|
||||||
CPX PAD0
|
|
||||||
BNE CHKACK
|
|
||||||
LDY PDCMD
|
|
||||||
BEQ STATUS
|
|
||||||
LDX #$02 ; # OF PAGES TO XFER
|
|
||||||
DEY ; CPY #PDREAD
|
|
||||||
BEQ RDBLK
|
|
||||||
DEY ; CMP #PDWRITE
|
|
||||||
BEQ WRBLK
|
|
||||||
IOERR: LDA #PDIOERR
|
|
||||||
CMDERR: PLP
|
|
||||||
SEC
|
|
||||||
RTS
|
|
||||||
RDBLK: JSR RECVACC
|
|
||||||
STA (PDBUFF),Y
|
|
||||||
INY
|
|
||||||
BNE RDBLK
|
|
||||||
INC PDBUFH
|
|
||||||
DEX
|
|
||||||
BNE RDBLK
|
|
||||||
STATUS: LDX #$FF
|
|
||||||
DEY ; LDY #$FF
|
|
||||||
CMDEX: JSR RECVACC
|
|
||||||
BNE CMDERR
|
|
||||||
PLP
|
|
||||||
CLC
|
|
||||||
RTS
|
|
||||||
WRBLK: LDA (PDBUFF),Y
|
|
||||||
JSR SENDACC
|
|
||||||
INY
|
|
||||||
BNE WRBLK
|
|
||||||
INC PDBUFH
|
|
||||||
DEX
|
|
||||||
BNE WRBLK
|
|
||||||
BEQ CMDEX
|
|
||||||
;*
|
|
||||||
;* ACIA I/O ROUTINES
|
|
||||||
;*
|
|
||||||
SENDACC:
|
|
||||||
PHA
|
|
||||||
SENDWT: LDA ACIASR
|
|
||||||
AND #$10
|
|
||||||
BEQ SENDWT
|
|
||||||
PLA
|
|
||||||
STA ACIADR
|
|
||||||
RTS
|
|
||||||
RECVACC:
|
|
||||||
RECVWT: LDA ACIASR
|
|
||||||
AND #$08
|
|
||||||
BEQ RECVWT
|
|
||||||
LDA ACIADR
|
|
||||||
RTS
|
|
||||||
ENDCMD:
|
|
||||||
.REPEAT $C000+ROMSLOT*256+250-*
|
|
||||||
DB $FF
|
|
||||||
.ENDREP
|
|
||||||
DB "Pi"
|
|
||||||
DW 0
|
|
||||||
DB $97
|
|
||||||
DB <DOCMD
|
|
||||||
.ASSERT * = $C000+(ROMSLOT+1)*256, error, "Code not page size"
|
|
||||||
|
|
Loading…
Reference in New Issue
Block a user