mirror of
https://github.com/tjboldt/ProDOS-ROM-Drive.git
synced 2024-11-24 15:31:17 +00:00
Add ESC to skip boot to next slot
This commit is contained in:
Terence Boldt
parent
784a63edbf
commit
d6691c6567
Binary file not shown.
@ -22,6 +22,11 @@
|
|||||||
highLatch = $FF
|
highLatch = $FF
|
||||||
knownRts = $FF58
|
knownRts = $FF58
|
||||||
|
|
||||||
|
;autostart ROM next card
|
||||||
|
sloop = $FABA
|
||||||
|
keyboard = $C000
|
||||||
|
clearKeyboard = $C010
|
||||||
|
|
||||||
.org $C700
|
.org $C700
|
||||||
;code is relocatable
|
;code is relocatable
|
||||||
; but set to $c700 for
|
; but set to $c700 for
|
||||||
@ -33,7 +38,14 @@
|
|||||||
cpx #$03 ;
|
cpx #$03 ;
|
||||||
cpx #$3C ;this one for older II's
|
cpx #$3C ;this one for older II's
|
||||||
|
|
||||||
|
;check for ESC key and if so, jump to next slot in autostart
|
||||||
|
lda keyboard
|
||||||
|
cmp #$9B
|
||||||
|
bne start
|
||||||
|
jmp sloop
|
||||||
|
|
||||||
;zero out block numbers and buffer address
|
;zero out block numbers and buffer address
|
||||||
|
start:
|
||||||
sty buflo
|
sty buflo
|
||||||
sty blklo
|
sty blklo
|
||||||
sty blkhi
|
sty blkhi
|
||||||
@ -90,18 +102,13 @@ getstat:
|
|||||||
rts
|
rts
|
||||||
|
|
||||||
readblk:
|
readblk:
|
||||||
lda ioAddressLo
|
saveVars:
|
||||||
pha
|
ldy #ioAddressLo
|
||||||
lda ioAddressHi
|
varLoop:
|
||||||
pha
|
lda $00,y
|
||||||
lda tempY
|
|
||||||
pha
|
|
||||||
lda blockHalfCounter
|
|
||||||
pha
|
|
||||||
lda lowLatch
|
|
||||||
pha
|
|
||||||
lda highLatch
|
|
||||||
pha
|
pha
|
||||||
|
iny
|
||||||
|
bne varLoop
|
||||||
|
|
||||||
lda blkhi ;get hi block
|
lda blkhi ;get hi block
|
||||||
asl a ;shift up to top 3 bits
|
asl a ;shift up to top 3 bits
|
||||||
|
|||||||
Binary file not shown.
@ -26,6 +26,11 @@ Current file: Firmware.asm
|
|||||||
000000r 1 highLatch = $FF
|
000000r 1 highLatch = $FF
|
||||||
000000r 1 knownRts = $FF58
|
000000r 1 knownRts = $FF58
|
||||||
000000r 1
|
000000r 1
|
||||||
|
000000r 1 ;autostart ROM next card
|
||||||
|
000000r 1 sloop = $FABA
|
||||||
|
000000r 1 keyboard = $C000
|
||||||
|
000000r 1 clearKeyboard = $C010
|
||||||
|
000000r 1
|
||||||
000000r 1 .org $C700
|
000000r 1 .org $C700
|
||||||
00C700 1 ;code is relocatable
|
00C700 1 ;code is relocatable
|
||||||
00C700 1 ; but set to $c700 for
|
00C700 1 ; but set to $c700 for
|
||||||
@ -37,185 +42,187 @@ Current file: Firmware.asm
|
|||||||
00C704 1 E0 03 cpx #$03 ;
|
00C704 1 E0 03 cpx #$03 ;
|
||||||
00C706 1 E0 3C cpx #$3C ;this one for older II's
|
00C706 1 E0 3C cpx #$3C ;this one for older II's
|
||||||
00C708 1
|
00C708 1
|
||||||
00C708 1 ;zero out block numbers and buffer address
|
00C708 1 ;check for ESC key and if so, jump to next slot in autostart
|
||||||
00C708 1 84 44 sty buflo
|
00C708 1 AD 00 C0 lda keyboard
|
||||||
00C70A 1 84 46 sty blklo
|
00C70B 1 C9 9B cmp #$9B
|
||||||
00C70C 1 84 47 sty blkhi
|
00C70D 1 D0 03 bne start
|
||||||
00C70E 1 C8 iny ;set command = 1 for read block
|
00C70F 1 4C BA FA jmp sloop
|
||||||
00C70F 1 84 42 sty command
|
00C712 1
|
||||||
00C711 1 20 58 FF jsr knownRts ;jump to known RTS to get our address from the stack
|
00C712 1 ;zero out block numbers and buffer address
|
||||||
00C714 1 BA tsx
|
00C712 1 start:
|
||||||
00C715 1 BD 00 01 lda $0100,x ;this for example would be $C7 in slot 7
|
00C712 1 84 44 sty buflo
|
||||||
00C718 1 85 45 sta bufhi ;keep the slot here
|
00C714 1 84 46 sty blklo
|
||||||
00C71A 1 0A asl
|
00C716 1 84 47 sty blkhi
|
||||||
00C71B 1 0A asl
|
00C718 1 C8 iny ;set command = 1 for read block
|
||||||
00C71C 1 0A asl
|
00C719 1 84 42 sty command
|
||||||
00C71D 1 0A asl
|
00C71B 1 20 58 FF jsr knownRts ;jump to known RTS to get our address from the stack
|
||||||
00C71E 1 85 43 sta unit
|
00C71E 1 BA tsx
|
||||||
00C720 1
|
00C71F 1 BD 00 01 lda $0100,x ;this for example would be $C7 in slot 7
|
||||||
00C720 1 ;display copyright message
|
00C722 1 85 45 sta bufhi ;keep the slot here
|
||||||
00C720 1 A0 CE ldy #<text
|
00C724 1 0A asl
|
||||||
00C722 1 drawtxt:
|
00C725 1 0A asl
|
||||||
00C722 1 B1 44 lda (buflo),y
|
00C726 1 0A asl
|
||||||
00C724 1 F0 06 beq boot
|
00C727 1 0A asl
|
||||||
00C726 1 99 02 07 sta $07D0-<text,y ;put text on last line
|
00C728 1 85 43 sta unit
|
||||||
00C729 1 C8 iny
|
00C72A 1
|
||||||
00C72A 1 D0 F6 bne drawtxt
|
00C72A 1 ;display copyright message
|
||||||
00C72C 1
|
00C72A 1 A0 CF ldy #<text
|
||||||
00C72C 1 ;load block 0000 at $0800
|
00C72C 1 drawtxt:
|
||||||
00C72C 1 boot:
|
00C72C 1 B1 44 lda (buflo),y
|
||||||
00C72C 1 A9 08 lda #$08 ;push $0800 onto the stack so an RTS will run at $0801
|
00C72E 1 F0 06 beq boot
|
||||||
00C72E 1 85 45 sta bufhi
|
00C730 1 99 01 07 sta $07D0-<text,y ;put text on last line
|
||||||
00C730 1 48 pha
|
00C733 1 C8 iny
|
||||||
00C731 1 A9 00 lda #$00
|
00C734 1 D0 F6 bne drawtxt
|
||||||
00C733 1 48 pha
|
00C736 1
|
||||||
00C734 1 ;This is the ProDOS entry point for this card
|
00C736 1 ;load block 0000 at $0800
|
||||||
00C734 1 entry:
|
00C736 1 boot:
|
||||||
00C734 1 A6 43 ldx unit ;make sure it's drive 1
|
00C736 1 A9 08 lda #$08 ;push $0800 onto the stack so an RTS will run at $0801
|
||||||
00C736 1 10 04 bpl docmd ;yep, do command
|
00C738 1 85 45 sta bufhi
|
||||||
00C738 1 38 sec ;nope, set device not connected
|
00C73A 1 48 pha
|
||||||
00C739 1 A9 28 lda #nodev
|
00C73B 1 A9 00 lda #$00
|
||||||
00C73B 1 60 rts ;go back to ProDOS
|
00C73D 1 48 pha
|
||||||
00C73C 1
|
00C73E 1 ;This is the ProDOS entry point for this card
|
||||||
00C73C 1 docmd:
|
00C73E 1 entry:
|
||||||
00C73C 1 A5 42 lda command
|
00C73E 1 A6 43 ldx unit ;make sure it's drive 1
|
||||||
00C73E 1 F0 08 beq getstat ;command 0 is GetStatus
|
00C740 1 10 04 bpl docmd ;yep, do command
|
||||||
00C740 1 C9 01 cmp #$01
|
00C742 1 38 sec ;nope, set device not connected
|
||||||
00C742 1 F0 0C beq readblk ;command 1 is ReadBlock
|
00C743 1 A9 28 lda #nodev
|
||||||
00C744 1 38 sec ;Format/Write not permitted
|
00C745 1 60 rts ;go back to ProDOS
|
||||||
00C745 1 A9 2B lda #wperr ;write protect error
|
00C746 1
|
||||||
00C747 1 60 rts ;go back to ProDOS
|
00C746 1 docmd:
|
||||||
00C748 1
|
00C746 1 A5 42 lda command
|
||||||
00C748 1 getstat:
|
00C748 1 F0 08 beq getstat ;command 0 is GetStatus
|
||||||
00C748 1 18 clc ;send back status
|
00C74A 1 C9 01 cmp #$01
|
||||||
00C749 1 A9 00 lda #$00 ;good status
|
00C74C 1 F0 0C beq readblk ;command 1 is ReadBlock
|
||||||
00C74B 1 A2 00 ldx #$00 ;1024 blocks
|
00C74E 1 38 sec ;Format/Write not permitted
|
||||||
00C74D 1 A0 04 ldy #$04 ;
|
00C74F 1 A9 2B lda #wperr ;write protect error
|
||||||
00C74F 1 60 rts
|
00C751 1 60 rts ;go back to ProDOS
|
||||||
00C750 1
|
00C752 1
|
||||||
00C750 1 readblk:
|
00C752 1 getstat:
|
||||||
00C750 1 A5 FA lda ioAddressLo
|
00C752 1 18 clc ;send back status
|
||||||
00C752 1 48 pha
|
00C753 1 A9 00 lda #$00 ;good status
|
||||||
00C753 1 A5 FB lda ioAddressHi
|
00C755 1 A2 00 ldx #$00 ;1024 blocks
|
||||||
00C755 1 48 pha
|
00C757 1 A0 04 ldy #$04 ;
|
||||||
00C756 1 A5 FC lda tempY
|
00C759 1 60 rts
|
||||||
00C758 1 48 pha
|
00C75A 1
|
||||||
00C759 1 A5 FD lda blockHalfCounter
|
00C75A 1 readblk:
|
||||||
00C75B 1 48 pha
|
00C75A 1 saveVars:
|
||||||
00C75C 1 A5 FE lda lowLatch
|
00C75A 1 A0 FA ldy #ioAddressLo
|
||||||
00C75E 1 48 pha
|
00C75C 1 varLoop:
|
||||||
00C75F 1 A5 FF lda highLatch
|
00C75C 1 B9 00 00 lda $00,y
|
||||||
00C761 1 48 pha
|
00C75F 1 48 pha
|
||||||
00C762 1
|
00C760 1 C8 iny
|
||||||
00C762 1 A5 47 lda blkhi ;get hi block
|
00C761 1 D0 F9 bne varLoop
|
||||||
00C764 1 0A asl a ;shift up to top 3 bits
|
00C763 1
|
||||||
00C765 1 0A asl a ;since that's all the high
|
00C763 1 A5 47 lda blkhi ;get hi block
|
||||||
00C766 1 0A asl a ;blocks we can handle
|
00C765 1 0A asl a ;shift up to top 3 bits
|
||||||
00C767 1 0A asl a ;
|
00C766 1 0A asl a ;since that's all the high
|
||||||
|
00C767 1 0A asl a ;blocks we can handle
|
||||||
00C768 1 0A asl a ;
|
00C768 1 0A asl a ;
|
||||||
00C769 1 85 FF sta highLatch
|
00C769 1 0A asl a ;
|
||||||
00C76B 1 A5 46 lda blklo ;get low block
|
00C76A 1 85 FF sta highLatch
|
||||||
00C76D 1 4A lsr a ;shift so we get the top 5
|
00C76C 1 A5 46 lda blklo ;get low block
|
||||||
00C76E 1 4A lsr a ;bits - this also goes in
|
00C76E 1 4A lsr a ;shift so we get the top 5
|
||||||
00C76F 1 4A lsr a ;the high latch
|
00C76F 1 4A lsr a ;bits - this also goes in
|
||||||
00C770 1 05 FF ora highLatch ;add it to those top 3 bits
|
00C770 1 4A lsr a ;the high latch
|
||||||
00C772 1 85 FF sta highLatch ;save it back in scratch ram
|
00C771 1 05 FF ora highLatch ;add it to those top 3 bits
|
||||||
00C774 1 9D 81 C0 sta writeLatchHigh,x ;set high latch for card
|
00C773 1 85 FF sta highLatch ;save it back in scratch ram
|
||||||
00C777 1 A5 46 lda blklo ;get low block
|
00C775 1 9D 81 C0 sta writeLatchHigh,x ;set high latch for card
|
||||||
00C779 1 0A asl a ;shift it to top 3 bits
|
00C778 1 A5 46 lda blklo ;get low block
|
||||||
00C77A 1 0A asl a ;
|
00C77A 1 0A asl a ;shift it to top 3 bits
|
||||||
00C77B 1 0A asl a ;
|
00C77B 1 0A asl a ;
|
||||||
00C77C 1 0A asl a ;
|
00C77C 1 0A asl a ;
|
||||||
00C77D 1 0A asl a ;
|
00C77D 1 0A asl a ;
|
||||||
00C77E 1 85 FE sta lowLatch
|
00C77E 1 0A asl a ;
|
||||||
00C780 1 A9 02 lda #$02
|
00C77F 1 85 FE sta lowLatch
|
||||||
00C782 1 85 FD sta blockHalfCounter
|
00C781 1 A9 02 lda #$02
|
||||||
00C784 1 A9 C0 lda #$C0
|
00C783 1 85 FD sta blockHalfCounter
|
||||||
00C786 1 85 FB sta ioAddressHi
|
00C785 1 A9 C0 lda #$C0
|
||||||
00C788 1
|
00C787 1 85 FB sta ioAddressHi
|
||||||
00C788 1 ;This gets 256 bytes from the ROM card
|
00C789 1
|
||||||
00C788 1
|
00C789 1 ;This gets 256 bytes from the ROM card
|
||||||
00C788 1 read256:
|
00C789 1
|
||||||
00C788 1 A0 00 ldy #$00
|
00C789 1 read256:
|
||||||
00C78A 1 loop256:
|
00C789 1 A0 00 ldy #$00
|
||||||
00C78A 1 A5 FE lda lowLatch
|
00C78B 1 loop256:
|
||||||
00C78C 1 9D 80 C0 sta writeLatchLow,x
|
00C78B 1 A5 FE lda lowLatch
|
||||||
00C78F 1 8A txa
|
00C78D 1 9D 80 C0 sta writeLatchLow,x
|
||||||
00C790 1 09 80 ora #$80
|
00C790 1 8A txa
|
||||||
00C792 1 85 FA sta ioAddressLo
|
00C791 1 09 80 ora #$80
|
||||||
00C794 1
|
00C793 1 85 FA sta ioAddressLo
|
||||||
00C794 1 loop16:
|
00C795 1
|
||||||
00C794 1 84 FC sty tempY
|
00C795 1 loop16:
|
||||||
00C796 1 A0 00 ldy #$00
|
00C795 1 84 FC sty tempY
|
||||||
00C798 1 B1 FA lda (ioAddressLo),y
|
00C797 1 A0 00 ldy #$00
|
||||||
00C79A 1 A4 FC ldy tempY
|
00C799 1 B1 FA lda (ioAddressLo),y
|
||||||
00C79C 1 91 44 sta (buflo),y
|
00C79B 1 A4 FC ldy tempY
|
||||||
00C79E 1 C8 iny
|
00C79D 1 91 44 sta (buflo),y
|
||||||
00C79F 1 E6 FA inc ioAddressLo
|
00C79F 1 C8 iny
|
||||||
00C7A1 1 A5 FA lda ioAddressLo
|
00C7A0 1 E6 FA inc ioAddressLo
|
||||||
00C7A3 1 29 0F and #$0F
|
00C7A2 1 A5 FA lda ioAddressLo
|
||||||
00C7A5 1 D0 ED bne loop16
|
00C7A4 1 29 0F and #$0F
|
||||||
00C7A7 1
|
00C7A6 1 D0 ED bne loop16
|
||||||
00C7A7 1 continue256:
|
00C7A8 1
|
||||||
00C7A7 1 E6 FE inc lowLatch
|
00C7A8 1 continue256:
|
||||||
00C7A9 1 C0 00 cpy #$00
|
00C7A8 1 E6 FE inc lowLatch
|
||||||
00C7AB 1 D0 DD bne loop256
|
00C7AA 1 C0 00 cpy #$00
|
||||||
00C7AD 1 C6 FD dec blockHalfCounter
|
00C7AC 1 D0 DD bne loop256
|
||||||
00C7AF 1 D0 18 bne readnext256
|
00C7AE 1 C6 FD dec blockHalfCounter
|
||||||
00C7B1 1
|
00C7B0 1 D0 18 bne readnext256
|
||||||
00C7B1 1 finish:
|
00C7B2 1
|
||||||
00C7B1 1 68 pla
|
00C7B2 1 finish:
|
||||||
00C7B2 1 85 FF sta highLatch
|
00C7B2 1 68 pla
|
||||||
00C7B4 1 68 pla
|
00C7B3 1 85 FF sta highLatch
|
||||||
00C7B5 1 85 FE sta lowLatch
|
00C7B5 1 68 pla
|
||||||
00C7B7 1 68 pla
|
00C7B6 1 85 FE sta lowLatch
|
||||||
00C7B8 1 85 FD sta blockHalfCounter
|
00C7B8 1 68 pla
|
||||||
00C7BA 1 68 pla
|
00C7B9 1 85 FD sta blockHalfCounter
|
||||||
00C7BB 1 85 FC sta tempY
|
00C7BB 1 68 pla
|
||||||
00C7BD 1 68 pla
|
00C7BC 1 85 FC sta tempY
|
||||||
00C7BE 1 85 FB sta ioAddressHi
|
00C7BE 1 68 pla
|
||||||
00C7C0 1 68 pla
|
00C7BF 1 85 FB sta ioAddressHi
|
||||||
00C7C1 1 85 FA sta ioAddressLo
|
00C7C1 1 68 pla
|
||||||
00C7C3 1
|
00C7C2 1 85 FA sta ioAddressLo
|
||||||
00C7C3 1 C6 45 dec bufhi
|
00C7C4 1
|
||||||
00C7C5 1 18 clc ;clear error code for success
|
00C7C4 1 C6 45 dec bufhi
|
||||||
00C7C6 1 A9 00 lda #$00
|
00C7C6 1 18 clc ;clear error code for success
|
||||||
00C7C8 1 60 rts
|
00C7C7 1 A9 00 lda #$00
|
||||||
00C7C9 1
|
00C7C9 1 60 rts
|
||||||
00C7C9 1 readnext256:
|
00C7CA 1
|
||||||
00C7C9 1 E6 45 inc bufhi ; set buffer to receive next 256 bytes
|
00C7CA 1 readnext256:
|
||||||
00C7CB 1 18 clc ; effectively a branch always
|
00C7CA 1 E6 45 inc bufhi ; set buffer to receive next 256 bytes
|
||||||
00C7CC 1 90 BA bcc read256
|
00C7CC 1 18 clc ; effectively a branch always
|
||||||
00C7CE 1
|
00C7CD 1 90 BA bcc read256
|
||||||
00C7CE 1 ;macro for string with high-bit set
|
00C7CF 1
|
||||||
00C7CE 1 .macro aschi str
|
00C7CF 1 ;macro for string with high-bit set
|
||||||
00C7CE 1 .repeat .strlen (str), c
|
00C7CF 1 .macro aschi str
|
||||||
00C7CE 1 .byte .strat (str, c) | $80
|
00C7CF 1 .repeat .strlen (str), c
|
||||||
00C7CE 1 .endrep
|
00C7CF 1 .byte .strat (str, c) | $80
|
||||||
00C7CE 1 .endmacro
|
00C7CF 1 .endrep
|
||||||
00C7CE 1
|
00C7CF 1 .endmacro
|
||||||
00C7CE 1 D2 CF CD AD text: aschi "ROM-Drive (c)1998-2022 Terence J. Boldt"
|
00C7CF 1
|
||||||
00C7D2 1 C4 F2 E9 F6
|
00C7CF 1 D2 CF CD AD text: aschi "ROM-Drive (c)1998-2022 Terence J. Boldt"
|
||||||
00C7D6 1 E5 A0 A8 E3
|
00C7D3 1 C4 F2 E9 F6
|
||||||
00C7DA 1 A9 B1 B9 B9
|
00C7D7 1 E5 A0 A8 E3
|
||||||
00C7DE 1 B8 AD B2 B0
|
00C7DB 1 A9 B1 B9 B9
|
||||||
00C7E2 1 B2 B2 A0 D4
|
00C7DF 1 B8 AD B2 B0
|
||||||
00C7E6 1 E5 F2 E5 EE
|
00C7E3 1 B2 B2 A0 D4
|
||||||
00C7EA 1 E3 E5 A0 CA
|
00C7E7 1 E5 F2 E5 EE
|
||||||
00C7EE 1 AE A0 C2 EF
|
00C7EB 1 E3 E5 A0 CA
|
||||||
00C7F2 1 EC E4 F4
|
00C7EF 1 AE A0 C2 EF
|
||||||
00C7F5 1 end:
|
00C7F3 1 EC E4 F4
|
||||||
00C7F5 1 00 .byte 0
|
00C7F6 1 end:
|
||||||
00C7F6 1
|
00C7F6 1 00 .byte 0
|
||||||
00C7F6 1 ; These bytes need to be at the top of the 256 byte firmware as ProDOS
|
00C7F7 1
|
||||||
00C7F6 1 ; uses these to find the entry point and drive capabilities
|
00C7F7 1 ; These bytes need to be at the top of the 256 byte firmware as ProDOS
|
||||||
00C7F6 1
|
00C7F7 1 ; uses these to find the entry point and drive capabilities
|
||||||
00C7F6 1 00 00 00 00 .repeat 251-<end
|
00C7F7 1
|
||||||
00C7FA 1 00 00
|
00C7F7 1 00 00 00 00 .repeat 251-<end
|
||||||
|
00C7FB 1 00
|
||||||
00C7FC 1 .byte 0
|
00C7FC 1 .byte 0
|
||||||
00C7FC 1 .endrepeat
|
00C7FC 1 .endrepeat
|
||||||
00C7FC 1
|
00C7FC 1
|
||||||
00C7FC 1 00 00 .byte 0,0 ;0000 blocks = check status
|
00C7FC 1 00 00 .byte 0,0 ;0000 blocks = check status
|
||||||
00C7FE 1 03 .byte 3 ;bit 0=read 1=status
|
00C7FE 1 03 .byte 3 ;bit 0=read 1=status
|
||||||
00C7FF 1 34 .byte <entry ;low byte of entry
|
00C7FF 1 3E .byte <entry ;low byte of entry
|
||||||
00C7FF 1
|
00C7FF 1
|
||||||
|
|||||||
Binary file not shown.
Loading…
Reference in New Issue
Block a user