mirror of
https://github.com/tjboldt/Apple2-IO-RPi.git
synced 2024-06-01 19:41:33 +00:00
Remove relative code to free up x register
This commit is contained in:
parent
786617fb03
commit
82d86548c3
101
Apple2/CommandFirmware.asm
Normal file
101
Apple2/CommandFirmware.asm
Normal file
|
@ -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
|
||||||
|
|
108
Apple2/CommandFirmware.lst
Normal file
108
Apple2/CommandFirmware.lst
Normal file
|
@ -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
|
|
@ -11,10 +11,10 @@ IOError = $27
|
||||||
NoDevice = $28
|
NoDevice = $28
|
||||||
WriteProtect = $2B
|
WriteProtect = $2B
|
||||||
|
|
||||||
InputByte = $c08e
|
InputByte = $c08e+SLOT*$10
|
||||||
OutputByte = $c08d
|
OutputByte = $c08d+SLOT*$10
|
||||||
InputFlags = $c08b
|
InputFlags = $c08b+SLOT*$10
|
||||||
OutputFlags = $c087
|
OutputFlags = $c087+SLOT*$10
|
||||||
|
|
||||||
ReadBlockCommand = $01
|
ReadBlockCommand = $01
|
||||||
WriteBlockCommand = $02
|
WriteBlockCommand = $02
|
||||||
|
@ -35,15 +35,15 @@ SaveFileCommand = $07
|
||||||
stx Unit
|
stx Unit
|
||||||
|
|
||||||
;force EPROM to second page on boot
|
;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:
|
PageJump:
|
||||||
sta OutputFlags,x
|
sta OutputFlags
|
||||||
jmp Start ;this jump is only called if coming in from PageJump with A=$0f
|
jmp Start ;this jump is only called if coming in from PageJump with A=$0f
|
||||||
|
|
||||||
;entry points for ProDOS
|
;entry points for ProDOS
|
||||||
DriverEntry:
|
DriverEntry:
|
||||||
lda #$0f ;set all flags high and page 0 of EPROM
|
lda #$0f ;set all flags high and page 0 of EPROM
|
||||||
sta OutputFlags,x
|
sta OutputFlags
|
||||||
jmp Driver
|
jmp Driver
|
||||||
|
|
||||||
;load first two blocks and execute to boot
|
;load first two blocks and execute to boot
|
||||||
|
@ -143,36 +143,36 @@ write256:
|
||||||
SendByte:
|
SendByte:
|
||||||
pha
|
pha
|
||||||
waitWrite:
|
waitWrite:
|
||||||
lda InputFlags,x
|
lda InputFlags
|
||||||
rol
|
rol
|
||||||
rol
|
rol
|
||||||
bcs waitWrite
|
bcs waitWrite
|
||||||
pla
|
pla
|
||||||
sta OutputByte,x
|
sta OutputByte
|
||||||
lda #$0e ; set bit 0 low to indicate write started
|
lda #$0e ; set bit 0 low to indicate write started
|
||||||
sta OutputFlags,x
|
sta OutputFlags
|
||||||
finishWrite:
|
finishWrite:
|
||||||
lda InputFlags,x
|
lda InputFlags
|
||||||
rol
|
rol
|
||||||
rol
|
rol
|
||||||
bcc finishWrite
|
bcc finishWrite
|
||||||
lda #$0f
|
lda #$0f
|
||||||
sta OutputFlags,x
|
sta OutputFlags
|
||||||
rts
|
rts
|
||||||
|
|
||||||
GetByte:
|
GetByte:
|
||||||
lda #$0d ;set read flag low
|
lda #$0d ;set read flag low
|
||||||
sta OutputFlags,x
|
sta OutputFlags
|
||||||
waitRead:
|
waitRead:
|
||||||
lda InputFlags,x
|
lda InputFlags
|
||||||
rol
|
rol
|
||||||
bcs waitRead
|
bcs waitRead
|
||||||
lda InputByte,x
|
lda InputByte
|
||||||
pha
|
pha
|
||||||
lda #$0f ;set all flags high
|
lda #$0f ;set all flags high
|
||||||
sta OutputFlags,x
|
sta OutputFlags
|
||||||
finishRead:
|
finishRead:
|
||||||
lda InputFlags,x
|
lda InputFlags
|
||||||
rol
|
rol
|
||||||
bcc finishRead
|
bcc finishRead
|
||||||
pla
|
pla
|
||||||
|
|
|
@ -15,10 +15,10 @@ Current file: DriveFirmware.asm
|
||||||
000000r 1 NoDevice = $28
|
000000r 1 NoDevice = $28
|
||||||
000000r 1 WriteProtect = $2B
|
000000r 1 WriteProtect = $2B
|
||||||
000000r 1
|
000000r 1
|
||||||
000000r 1 InputByte = $c08e
|
000000r 1 InputByte = $c08e+SLOT*$10
|
||||||
000000r 1 OutputByte = $c08d
|
000000r 1 OutputByte = $c08d+SLOT*$10
|
||||||
000000r 1 InputFlags = $c08b
|
000000r 1 InputFlags = $c08b+SLOT*$10
|
||||||
000000r 1 OutputFlags = $c087
|
000000r 1 OutputFlags = $c087+SLOT*$10
|
||||||
000000r 1
|
000000r 1
|
||||||
000000r 1 ReadBlockCommand = $01
|
000000r 1 ReadBlockCommand = $01
|
||||||
000000r 1 WriteBlockCommand = $02
|
000000r 1 WriteBlockCommand = $02
|
||||||
|
@ -39,15 +39,15 @@ Current file: DriveFirmware.asm
|
||||||
00C50A 1 86 43 stx Unit
|
00C50A 1 86 43 stx Unit
|
||||||
00C50C 1
|
00C50C 1
|
||||||
00C50C 1 ;force EPROM to second page on boot
|
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 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
|
00C511 1 4C 1C C5 jmp Start ;this jump is only called if coming in from PageJump with A=$0f
|
||||||
00C514 1
|
00C514 1
|
||||||
00C514 1 ;entry points for ProDOS
|
00C514 1 ;entry points for ProDOS
|
||||||
00C514 1 DriverEntry:
|
00C514 1 DriverEntry:
|
||||||
00C514 1 A9 0F lda #$0f ;set all flags high and page 0 of EPROM
|
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
|
00C519 1 4C 32 C5 jmp Driver
|
||||||
00C51C 1
|
00C51C 1
|
||||||
00C51C 1 ;load first two blocks and execute to boot
|
00C51C 1 ;load first two blocks and execute to boot
|
||||||
|
@ -147,36 +147,36 @@ Current file: DriveFirmware.asm
|
||||||
00C5AE 1 SendByte:
|
00C5AE 1 SendByte:
|
||||||
00C5AE 1 48 pha
|
00C5AE 1 48 pha
|
||||||
00C5AF 1 waitWrite:
|
00C5AF 1 waitWrite:
|
||||||
00C5AF 1 BD 8B C0 lda InputFlags,x
|
00C5AF 1 AD DB C0 lda InputFlags
|
||||||
00C5B2 1 2A rol
|
00C5B2 1 2A rol
|
||||||
00C5B3 1 2A rol
|
00C5B3 1 2A rol
|
||||||
00C5B4 1 B0 F9 bcs waitWrite
|
00C5B4 1 B0 F9 bcs waitWrite
|
||||||
00C5B6 1 68 pla
|
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
|
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 finishWrite:
|
||||||
00C5BF 1 BD 8B C0 lda InputFlags,x
|
00C5BF 1 AD DB C0 lda InputFlags
|
||||||
00C5C2 1 2A rol
|
00C5C2 1 2A rol
|
||||||
00C5C3 1 2A rol
|
00C5C3 1 2A rol
|
||||||
00C5C4 1 90 F9 bcc finishWrite
|
00C5C4 1 90 F9 bcc finishWrite
|
||||||
00C5C6 1 A9 0F lda #$0f
|
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
|
00C5CB 1 60 rts
|
||||||
00C5CC 1
|
00C5CC 1
|
||||||
00C5CC 1 GetByte:
|
00C5CC 1 GetByte:
|
||||||
00C5CC 1 A9 0D lda #$0d ;set read flag low
|
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 waitRead:
|
||||||
00C5D1 1 BD 8B C0 lda InputFlags,x
|
00C5D1 1 AD DB C0 lda InputFlags
|
||||||
00C5D4 1 2A rol
|
00C5D4 1 2A rol
|
||||||
00C5D5 1 B0 FA bcs waitRead
|
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
|
00C5DA 1 48 pha
|
||||||
00C5DB 1 A9 0F lda #$0f ;set all flags high
|
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 finishRead:
|
||||||
00C5E0 1 BD 8B C0 lda InputFlags,x
|
00C5E0 1 AD DB C0 lda InputFlags
|
||||||
00C5E3 1 2A rol
|
00C5E3 1 2A rol
|
||||||
00C5E4 1 90 FA bcc finishRead
|
00C5E4 1 90 FA bcc finishRead
|
||||||
00C5E6 1 68 pla
|
00C5E6 1 68 pla
|
||||||
|
|
101
Apple2/FileAccessFirmware.asm
Normal file
101
Apple2/FileAccessFirmware.asm
Normal file
|
@ -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
|
||||||
|
|
108
Apple2/FileAccessFirmware.lst
Normal file
108
Apple2/FileAccessFirmware.lst
Normal file
|
@ -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
|
Binary file not shown.
Binary file not shown.
|
@ -11,10 +11,10 @@ IOError = $27
|
||||||
NoDevice = $28
|
NoDevice = $28
|
||||||
WriteProtect = $2B
|
WriteProtect = $2B
|
||||||
|
|
||||||
InputByte = $c08e
|
InputByte = $c08e+SLOT*$10
|
||||||
OutputByte = $c08d
|
OutputByte = $c08d+SLOT*$10
|
||||||
InputFlags = $c08b
|
InputFlags = $c08b+SLOT*$10
|
||||||
OutputFlags = $c087
|
OutputFlags = $c087+SLOT*$10
|
||||||
|
|
||||||
ReadBlockCommand = $01
|
ReadBlockCommand = $01
|
||||||
WriteBlockCommand = $02
|
WriteBlockCommand = $02
|
||||||
|
@ -37,13 +37,13 @@ SaveFileCommand = $07
|
||||||
;force EPROM to second page on boot
|
;force EPROM to second page on boot
|
||||||
lda #$1f ;set all flags high and page 1 of EPROMi
|
lda #$1f ;set all flags high and page 1 of EPROMi
|
||||||
PageJump:
|
PageJump:
|
||||||
sta OutputFlags,x
|
sta OutputFlags
|
||||||
jmp Start
|
jmp Start
|
||||||
|
|
||||||
;entry points for ProDOS
|
;entry points for ProDOS
|
||||||
DriverEntry:
|
DriverEntry:
|
||||||
lda #$0f ;set all flags high and page 0 of EPROM
|
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
|
;since the firmware page changes to 0, this falls through to the driver
|
||||||
|
|
||||||
Start:
|
Start:
|
||||||
|
@ -71,9 +71,8 @@ GetChar:
|
||||||
Text:
|
Text:
|
||||||
|
|
||||||
.byte "1. Boot",$8d
|
.byte "1. Boot",$8d
|
||||||
.byte "2. Set Clock",$8d
|
.byte "2. File Access",$8d
|
||||||
.byte "3. Command Line",$8d
|
.byte "3. Command Line",$8d
|
||||||
.byte "4. File Access",$8d
|
|
||||||
|
|
||||||
end:
|
end:
|
||||||
rts
|
rts
|
||||||
|
|
|
@ -15,10 +15,10 @@ Current file: MenuFirmware.asm
|
||||||
000000r 1 NoDevice = $28
|
000000r 1 NoDevice = $28
|
||||||
000000r 1 WriteProtect = $2B
|
000000r 1 WriteProtect = $2B
|
||||||
000000r 1
|
000000r 1
|
||||||
000000r 1 InputByte = $c08e
|
000000r 1 InputByte = $c08e+SLOT*$10
|
||||||
000000r 1 OutputByte = $c08d
|
000000r 1 OutputByte = $c08d+SLOT*$10
|
||||||
000000r 1 InputFlags = $c08b
|
000000r 1 InputFlags = $c08b+SLOT*$10
|
||||||
000000r 1 OutputFlags = $c087
|
000000r 1 OutputFlags = $c087+SLOT*$10
|
||||||
000000r 1
|
000000r 1
|
||||||
000000r 1 ReadBlockCommand = $01
|
000000r 1 ReadBlockCommand = $01
|
||||||
000000r 1 WriteBlockCommand = $02
|
000000r 1 WriteBlockCommand = $02
|
||||||
|
@ -41,13 +41,13 @@ Current file: MenuFirmware.asm
|
||||||
00C50C 1 ;force EPROM to second page on boot
|
00C50C 1 ;force EPROM to second page on boot
|
||||||
00C50C 1 A9 1F lda #$1f ;set all flags high and page 1 of EPROMi
|
00C50C 1 A9 1F lda #$1f ;set all flags high and page 1 of EPROMi
|
||||||
00C50E 1 PageJump:
|
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
|
00C511 1 4C 19 C5 jmp Start
|
||||||
00C514 1
|
00C514 1
|
||||||
00C514 1 ;entry points for ProDOS
|
00C514 1 ;entry points for ProDOS
|
||||||
00C514 1 DriverEntry:
|
00C514 1 DriverEntry:
|
||||||
00C514 1 A9 0F lda #$0f ;set all flags high and page 0 of EPROM
|
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 ;since the firmware page changes to 0, this falls through to the driver
|
||||||
00C519 1
|
00C519 1
|
||||||
00C519 1 Start:
|
00C519 1 Start:
|
||||||
|
@ -76,22 +76,19 @@ Current file: MenuFirmware.asm
|
||||||
00C53A 1
|
00C53A 1
|
||||||
00C53A 1 31 2E 20 42 .byte "1. Boot",$8d
|
00C53A 1 31 2E 20 42 .byte "1. Boot",$8d
|
||||||
00C53E 1 6F 6F 74 8D
|
00C53E 1 6F 6F 74 8D
|
||||||
00C542 1 32 2E 20 53 .byte "2. Set Clock",$8d
|
00C542 1 32 2E 20 46 .byte "2. File Access",$8d
|
||||||
00C546 1 65 74 20 43
|
00C546 1 69 6C 65 20
|
||||||
00C54A 1 6C 6F 63 6B
|
00C54A 1 41 63 63 65
|
||||||
00C54F 1 33 2E 20 43 .byte "3. Command Line",$8d
|
00C551 1 33 2E 20 43 .byte "3. Command Line",$8d
|
||||||
00C553 1 6F 6D 6D 61
|
00C555 1 6F 6D 6D 61
|
||||||
00C557 1 6E 64 20 4C
|
00C559 1 6E 64 20 4C
|
||||||
00C55F 1 34 2E 20 46 .byte "4. File Access",$8d
|
00C561 1
|
||||||
00C563 1 69 6C 65 20
|
00C561 1 end:
|
||||||
00C567 1 41 63 63 65
|
00C561 1 60 rts
|
||||||
00C56E 1
|
00C562 1
|
||||||
00C56E 1 end:
|
00C562 1 00 00 00 00 .repeat 251-<end
|
||||||
00C56E 1 60 rts
|
00C566 1 00 00 00 00
|
||||||
00C56F 1
|
00C56A 1 00 00 00 00
|
||||||
00C56F 1 00 00 00 00 .repeat 251-<end
|
|
||||||
00C573 1 00 00 00 00
|
|
||||||
00C577 1 00 00 00 00
|
|
||||||
00C5FC 1 .byte 0
|
00C5FC 1 .byte 0
|
||||||
00C5FC 1 .endrepeat
|
00C5FC 1 .endrepeat
|
||||||
00C5FC 1 00 00 .byte 0,0 ;0000 blocks = check status
|
00C5FC 1 00 00 .byte 0,0 ;0000 blocks = check status
|
||||||
|
|
|
@ -19,11 +19,31 @@ ca65 MenuFirmware.asm -D SLOT=6 -o MenuSlot6.o
|
||||||
ca65 MenuFirmware.asm -D SLOT=7 -o MenuSlot7.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
|
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 \
|
cat \
|
||||||
DriveFirmware.bin MenuFirmware.bin DriveFirmware.bin DriveFirmware.bin \
|
DriveFirmware.bin CommandFirmware.bin FileAccessFirmware.bin MenuFirmware.bin \
|
||||||
DriveFirmware.bin MenuFirmware.bin DriveFirmware.bin DriveFirmware.bin \
|
DriveFirmware.bin CommandFirmware.bin FileAccessFirmware.bin MenuFirmware.bin \
|
||||||
DriveFirmware.bin MenuFirmware.bin DriveFirmware.bin DriveFirmware.bin \
|
DriveFirmware.bin CommandFirmware.bin FileAccessFirmware.bin MenuFirmware.bin \
|
||||||
DriveFirmware.bin MenuFirmware.bin DriveFirmware.bin DriveFirmware.bin \
|
DriveFirmware.bin CommandFirmware.bin FileAccessFirmware.bin MenuFirmware.bin \
|
||||||
> Firmware_27256_EPROM.bin
|
> Firmware_27256_EPROM.bin
|
||||||
cat \
|
cat \
|
||||||
DriveFirmware.bin MenuFirmware.bin DriveFirmware.bin DriveFirmware.bin \
|
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 *.o
|
||||||
rm DriveFirmware.bin
|
rm DriveFirmware.bin
|
||||||
rm MenuFirmware.bin
|
rm MenuFirmware.bin
|
||||||
|
rm CommandFirmware.bin
|
||||||
|
rm FileAccessFirmware.bin
|
||||||
|
|
Loading…
Reference in New Issue
Block a user