mirror of
https://github.com/tjboldt/Apple2-IO-RPi.git
synced 2024-12-26 12:29:16 +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
|
||||
WriteProtect = $2B
|
||||
|
||||
InputByte = $c08e
|
||||
OutputByte = $c08d
|
||||
InputFlags = $c08b
|
||||
OutputFlags = $c087
|
||||
InputByte = $c08e+SLOT*$10
|
||||
OutputByte = $c08d+SLOT*$10
|
||||
InputFlags = $c08b+SLOT*$10
|
||||
OutputFlags = $c087+SLOT*$10
|
||||
|
||||
ReadBlockCommand = $01
|
||||
WriteBlockCommand = $02
|
||||
@ -35,15 +35,15 @@ SaveFileCommand = $07
|
||||
stx Unit
|
||||
|
||||
;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:
|
||||
sta OutputFlags,x
|
||||
sta OutputFlags
|
||||
jmp Start ;this jump is only called if coming in from PageJump with A=$0f
|
||||
|
||||
;entry points for ProDOS
|
||||
DriverEntry:
|
||||
lda #$0f ;set all flags high and page 0 of EPROM
|
||||
sta OutputFlags,x
|
||||
sta OutputFlags
|
||||
jmp Driver
|
||||
|
||||
;load first two blocks and execute to boot
|
||||
@ -143,36 +143,36 @@ write256:
|
||||
SendByte:
|
||||
pha
|
||||
waitWrite:
|
||||
lda InputFlags,x
|
||||
lda InputFlags
|
||||
rol
|
||||
rol
|
||||
bcs waitWrite
|
||||
pla
|
||||
sta OutputByte,x
|
||||
sta OutputByte
|
||||
lda #$0e ; set bit 0 low to indicate write started
|
||||
sta OutputFlags,x
|
||||
sta OutputFlags
|
||||
finishWrite:
|
||||
lda InputFlags,x
|
||||
lda InputFlags
|
||||
rol
|
||||
rol
|
||||
bcc finishWrite
|
||||
lda #$0f
|
||||
sta OutputFlags,x
|
||||
sta OutputFlags
|
||||
rts
|
||||
|
||||
GetByte:
|
||||
lda #$0d ;set read flag low
|
||||
sta OutputFlags,x
|
||||
sta OutputFlags
|
||||
waitRead:
|
||||
lda InputFlags,x
|
||||
lda InputFlags
|
||||
rol
|
||||
bcs waitRead
|
||||
lda InputByte,x
|
||||
lda InputByte
|
||||
pha
|
||||
lda #$0f ;set all flags high
|
||||
sta OutputFlags,x
|
||||
sta OutputFlags
|
||||
finishRead:
|
||||
lda InputFlags,x
|
||||
lda InputFlags
|
||||
rol
|
||||
bcc finishRead
|
||||
pla
|
||||
|
@ -15,10 +15,10 @@ Current file: DriveFirmware.asm
|
||||
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 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
|
||||
@ -39,15 +39,15 @@ Current file: DriveFirmware.asm
|
||||
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 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 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
|
||||
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 9D 87 C0 sta OutputFlags,x
|
||||
00C516 1 8D D7 C0 sta OutputFlags
|
||||
00C519 1 4C 32 C5 jmp Driver
|
||||
00C51C 1
|
||||
00C51C 1 ;load first two blocks and execute to boot
|
||||
@ -147,36 +147,36 @@ Current file: DriveFirmware.asm
|
||||
00C5AE 1 SendByte:
|
||||
00C5AE 1 48 pha
|
||||
00C5AF 1 waitWrite:
|
||||
00C5AF 1 BD 8B C0 lda InputFlags,x
|
||||
00C5AF 1 AD DB C0 lda InputFlags
|
||||
00C5B2 1 2A rol
|
||||
00C5B3 1 2A rol
|
||||
00C5B4 1 B0 F9 bcs waitWrite
|
||||
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
|
||||
00C5BC 1 9D 87 C0 sta OutputFlags,x
|
||||
00C5BC 1 8D D7 C0 sta OutputFlags
|
||||
00C5BF 1 finishWrite:
|
||||
00C5BF 1 BD 8B C0 lda InputFlags,x
|
||||
00C5BF 1 AD DB C0 lda InputFlags
|
||||
00C5C2 1 2A rol
|
||||
00C5C3 1 2A rol
|
||||
00C5C4 1 90 F9 bcc finishWrite
|
||||
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
|
||||
00C5CC 1
|
||||
00C5CC 1 GetByte:
|
||||
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 BD 8B C0 lda InputFlags,x
|
||||
00C5D1 1 AD DB C0 lda InputFlags
|
||||
00C5D4 1 2A rol
|
||||
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
|
||||
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 BD 8B C0 lda InputFlags,x
|
||||
00C5E0 1 AD DB C0 lda InputFlags
|
||||
00C5E3 1 2A rol
|
||||
00C5E4 1 90 FA bcc finishRead
|
||||
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
|
||||
WriteProtect = $2B
|
||||
|
||||
InputByte = $c08e
|
||||
OutputByte = $c08d
|
||||
InputFlags = $c08b
|
||||
OutputFlags = $c087
|
||||
InputByte = $c08e+SLOT*$10
|
||||
OutputByte = $c08d+SLOT*$10
|
||||
InputFlags = $c08b+SLOT*$10
|
||||
OutputFlags = $c087+SLOT*$10
|
||||
|
||||
ReadBlockCommand = $01
|
||||
WriteBlockCommand = $02
|
||||
@ -37,13 +37,13 @@ SaveFileCommand = $07
|
||||
;force EPROM to second page on boot
|
||||
lda #$1f ;set all flags high and page 1 of EPROMi
|
||||
PageJump:
|
||||
sta OutputFlags,x
|
||||
sta OutputFlags
|
||||
jmp Start
|
||||
|
||||
;entry points for ProDOS
|
||||
DriverEntry:
|
||||
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
|
||||
|
||||
Start:
|
||||
@ -71,9 +71,8 @@ GetChar:
|
||||
Text:
|
||||
|
||||
.byte "1. Boot",$8d
|
||||
.byte "2. Set Clock",$8d
|
||||
.byte "2. File Access",$8d
|
||||
.byte "3. Command Line",$8d
|
||||
.byte "4. File Access",$8d
|
||||
|
||||
end:
|
||||
rts
|
||||
|
@ -15,10 +15,10 @@ Current file: MenuFirmware.asm
|
||||
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 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
|
||||
@ -41,13 +41,13 @@ Current file: MenuFirmware.asm
|
||||
00C50C 1 ;force EPROM to second page on boot
|
||||
00C50C 1 A9 1F lda #$1f ;set all flags high and page 1 of EPROMi
|
||||
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
|
||||
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 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
|
||||
00C519 1 Start:
|
||||
@ -76,22 +76,19 @@ Current file: MenuFirmware.asm
|
||||
00C53A 1
|
||||
00C53A 1 31 2E 20 42 .byte "1. Boot",$8d
|
||||
00C53E 1 6F 6F 74 8D
|
||||
00C542 1 32 2E 20 53 .byte "2. Set Clock",$8d
|
||||
00C546 1 65 74 20 43
|
||||
00C54A 1 6C 6F 63 6B
|
||||
00C54F 1 33 2E 20 43 .byte "3. Command Line",$8d
|
||||
00C553 1 6F 6D 6D 61
|
||||
00C557 1 6E 64 20 4C
|
||||
00C55F 1 34 2E 20 46 .byte "4. File Access",$8d
|
||||
00C563 1 69 6C 65 20
|
||||
00C567 1 41 63 63 65
|
||||
00C56E 1
|
||||
00C56E 1 end:
|
||||
00C56E 1 60 rts
|
||||
00C56F 1
|
||||
00C56F 1 00 00 00 00 .repeat 251-<end
|
||||
00C573 1 00 00 00 00
|
||||
00C577 1 00 00 00 00
|
||||
00C542 1 32 2E 20 46 .byte "2. File Access",$8d
|
||||
00C546 1 69 6C 65 20
|
||||
00C54A 1 41 63 63 65
|
||||
00C551 1 33 2E 20 43 .byte "3. Command Line",$8d
|
||||
00C555 1 6F 6D 6D 61
|
||||
00C559 1 6E 64 20 4C
|
||||
00C561 1
|
||||
00C561 1 end:
|
||||
00C561 1 60 rts
|
||||
00C562 1
|
||||
00C562 1 00 00 00 00 .repeat 251-<end
|
||||
00C566 1 00 00 00 00
|
||||
00C56A 1 00 00 00 00
|
||||
00C5FC 1 .byte 0
|
||||
00C5FC 1 .endrepeat
|
||||
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
|
||||
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 \
|
||||
DriveFirmware.bin MenuFirmware.bin DriveFirmware.bin DriveFirmware.bin \
|
||||
DriveFirmware.bin MenuFirmware.bin DriveFirmware.bin DriveFirmware.bin \
|
||||
DriveFirmware.bin MenuFirmware.bin DriveFirmware.bin DriveFirmware.bin \
|
||||
DriveFirmware.bin MenuFirmware.bin DriveFirmware.bin DriveFirmware.bin \
|
||||
DriveFirmware.bin CommandFirmware.bin FileAccessFirmware.bin MenuFirmware.bin \
|
||||
DriveFirmware.bin CommandFirmware.bin FileAccessFirmware.bin MenuFirmware.bin \
|
||||
DriveFirmware.bin CommandFirmware.bin FileAccessFirmware.bin MenuFirmware.bin \
|
||||
DriveFirmware.bin CommandFirmware.bin FileAccessFirmware.bin MenuFirmware.bin \
|
||||
> Firmware_27256_EPROM.bin
|
||||
cat \
|
||||
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 DriveFirmware.bin
|
||||
rm MenuFirmware.bin
|
||||
rm CommandFirmware.bin
|
||||
rm FileAccessFirmware.bin
|
||||
|
Loading…
Reference in New Issue
Block a user