forked from Apple-2-HW/Apple2-IO-RPi
Add file read firmware
This commit is contained in:
Terence Boldt
parent
9a451727a6
commit
402373091d
BIN
Apple2/27256.bin
BIN
Apple2/27256.bin
Binary file not shown.
Binary file not shown.
@ -68,7 +68,7 @@ Driver:
|
|||||||
lda Command; Check which command is being requested
|
lda Command; Check which command is being requested
|
||||||
beq GetStatus ;0 = Status command
|
beq GetStatus ;0 = Status command
|
||||||
cmp #ReadBlockCommand
|
cmp #ReadBlockCommand
|
||||||
beq ReadBlock
|
beq ReadBlockAndSetTime
|
||||||
cmp #WriteBlockCommand
|
cmp #WriteBlockCommand
|
||||||
beq WriteBlock
|
beq WriteBlock
|
||||||
sec ;set carry as we don't support any other commands
|
sec ;set carry as we don't support any other commands
|
||||||
@ -84,7 +84,12 @@ GetStatus:
|
|||||||
rts
|
rts
|
||||||
|
|
||||||
; ProDOS Read Block Command
|
; ProDOS Read Block Command
|
||||||
ReadBlock:
|
ReadBlockAndSetTime:
|
||||||
|
lda BlockHi ; only get the time if block 0002
|
||||||
|
bne readBlock
|
||||||
|
lda BlockLo
|
||||||
|
cmp #$02
|
||||||
|
bne readBlock
|
||||||
ldy #$00 ;Get the current time on each block read for now
|
ldy #$00 ;Get the current time on each block read for now
|
||||||
lda #GetTimeCommand
|
lda #GetTimeCommand
|
||||||
jsr SendByte
|
jsr SendByte
|
||||||
@ -94,6 +99,7 @@ getTimeByte:
|
|||||||
iny
|
iny
|
||||||
cpy #$04
|
cpy #$04
|
||||||
bne getTimeByte
|
bne getTimeByte
|
||||||
|
readBlock:
|
||||||
lda #ReadBlockCommand ;read the block after setting the clock
|
lda #ReadBlockCommand ;read the block after setting the clock
|
||||||
jsr SendByte
|
jsr SendByte
|
||||||
lda BlockLo
|
lda BlockLo
|
||||||
|
|||||||
@ -72,9 +72,9 @@ Current file: DriveFirmware.asm
|
|||||||
00C734 1 A5 42 lda Command; Check which command is being requested
|
00C734 1 A5 42 lda Command; Check which command is being requested
|
||||||
00C736 1 F0 0C beq GetStatus ;0 = Status command
|
00C736 1 F0 0C beq GetStatus ;0 = Status command
|
||||||
00C738 1 C9 01 cmp #ReadBlockCommand
|
00C738 1 C9 01 cmp #ReadBlockCommand
|
||||||
00C73A 1 F0 10 beq ReadBlock
|
00C73A 1 F0 10 beq ReadBlockAndSetTime
|
||||||
00C73C 1 C9 02 cmp #WriteBlockCommand
|
00C73C 1 C9 02 cmp #WriteBlockCommand
|
||||||
00C73E 1 F0 46 beq WriteBlock
|
00C73E 1 F0 50 beq WriteBlock
|
||||||
00C740 1 38 sec ;set carry as we don't support any other commands
|
00C740 1 38 sec ;set carry as we don't support any other commands
|
||||||
00C741 1 A9 53 lda #$53 ;Invalid parameter error
|
00C741 1 A9 53 lda #$53 ;Invalid parameter error
|
||||||
00C743 1 60 rts
|
00C743 1 60 rts
|
||||||
@ -88,106 +88,110 @@ Current file: DriveFirmware.asm
|
|||||||
00C74B 1 60 rts
|
00C74B 1 60 rts
|
||||||
00C74C 1
|
00C74C 1
|
||||||
00C74C 1 ; ProDOS Read Block Command
|
00C74C 1 ; ProDOS Read Block Command
|
||||||
00C74C 1 ReadBlock:
|
00C74C 1 ReadBlockAndSetTime:
|
||||||
00C74C 1 A0 00 ldy #$00 ;Get the current time on each block read for now
|
00C74C 1 A5 47 lda BlockHi ; only get the time if block 0002
|
||||||
00C74E 1 A9 03 lda #GetTimeCommand
|
00C74E 1 D0 18 bne readBlock
|
||||||
00C750 1 20 AE C7 jsr SendByte
|
00C750 1 A5 46 lda BlockLo
|
||||||
00C753 1 getTimeByte:
|
00C752 1 C9 02 cmp #$02
|
||||||
00C753 1 20 CC C7 jsr GetByte
|
00C754 1 D0 12 bne readBlock
|
||||||
00C756 1 99 90 BF sta $bf90,y
|
00C756 1 A0 00 ldy #$00 ;Get the current time on each block read for now
|
||||||
00C759 1 C8 iny
|
00C758 1 A9 03 lda #GetTimeCommand
|
||||||
00C75A 1 C0 04 cpy #$04
|
00C75A 1 20 B8 C7 jsr SendByte
|
||||||
00C75C 1 D0 F5 bne getTimeByte
|
00C75D 1 getTimeByte:
|
||||||
00C75E 1 A9 01 lda #ReadBlockCommand ;read the block after setting the clock
|
00C75D 1 20 D6 C7 jsr GetByte
|
||||||
00C760 1 20 AE C7 jsr SendByte
|
00C760 1 99 90 BF sta $bf90,y
|
||||||
00C763 1 A5 46 lda BlockLo
|
00C763 1 C8 iny
|
||||||
00C765 1 20 AE C7 jsr SendByte
|
00C764 1 C0 04 cpy #$04
|
||||||
00C768 1 A5 47 lda BlockHi
|
00C766 1 D0 F5 bne getTimeByte
|
||||||
00C76A 1 20 AE C7 jsr SendByte
|
00C768 1 readBlock:
|
||||||
00C76D 1 A0 00 ldy #$0
|
00C768 1 A9 01 lda #ReadBlockCommand ;read the block after setting the clock
|
||||||
00C76F 1 20 7D C7 jsr read256
|
00C76A 1 20 B8 C7 jsr SendByte
|
||||||
00C772 1 E6 45 inc BufferHi
|
00C76D 1 A5 46 lda BlockLo
|
||||||
00C774 1 20 7D C7 jsr read256
|
00C76F 1 20 B8 C7 jsr SendByte
|
||||||
00C777 1 C6 45 dec BufferHi
|
00C772 1 A5 47 lda BlockHi
|
||||||
00C779 1 A9 00 lda #$0 ;zero accumulator and clear carry for success
|
00C774 1 20 B8 C7 jsr SendByte
|
||||||
00C77B 1 18 clc
|
00C777 1 A0 00 ldy #$0
|
||||||
00C77C 1 60 rts
|
00C779 1 20 87 C7 jsr read256
|
||||||
00C77D 1
|
00C77C 1 E6 45 inc BufferHi
|
||||||
00C77D 1 read256:
|
00C77E 1 20 87 C7 jsr read256
|
||||||
00C77D 1 20 CC C7 jsr GetByte
|
00C781 1 C6 45 dec BufferHi
|
||||||
00C780 1 91 44 sta (BufferLo),y
|
00C783 1 A9 00 lda #$0 ;zero accumulator and clear carry for success
|
||||||
00C782 1 C8 iny
|
00C785 1 18 clc
|
||||||
00C783 1 D0 F8 bne read256
|
00C786 1 60 rts
|
||||||
00C785 1 60 rts
|
00C787 1
|
||||||
00C786 1
|
00C787 1 read256:
|
||||||
00C786 1 ; ProDOS Write Block Command
|
00C787 1 20 D6 C7 jsr GetByte
|
||||||
00C786 1 WriteBlock:
|
00C78A 1 91 44 sta (BufferLo),y
|
||||||
00C786 1 A9 02 lda #WriteBlockCommand
|
00C78C 1 C8 iny
|
||||||
00C788 1 20 AE C7 jsr SendByte
|
00C78D 1 D0 F8 bne read256
|
||||||
00C78B 1 A5 46 lda BlockLo
|
00C78F 1 60 rts
|
||||||
00C78D 1 20 AE C7 jsr SendByte
|
00C790 1
|
||||||
00C790 1 A5 47 lda BlockHi
|
00C790 1 ; ProDOS Write Block Command
|
||||||
00C792 1 20 AE C7 jsr SendByte
|
00C790 1 WriteBlock:
|
||||||
00C795 1 A0 00 ldy #$0
|
00C790 1 A9 02 lda #WriteBlockCommand
|
||||||
00C797 1 20 A5 C7 jsr write256
|
00C792 1 20 B8 C7 jsr SendByte
|
||||||
00C79A 1 E6 45 inc BufferHi
|
00C795 1 A5 46 lda BlockLo
|
||||||
00C79C 1 20 A5 C7 jsr write256
|
00C797 1 20 B8 C7 jsr SendByte
|
||||||
00C79F 1 C6 45 dec BufferHi
|
00C79A 1 A5 47 lda BlockHi
|
||||||
00C7A1 1 A9 00 lda #$0 ;zero accumulator and clear carry for success
|
00C79C 1 20 B8 C7 jsr SendByte
|
||||||
00C7A3 1 18 clc
|
00C79F 1 A0 00 ldy #$0
|
||||||
00C7A4 1 60 rts
|
00C7A1 1 20 AF C7 jsr write256
|
||||||
00C7A5 1
|
00C7A4 1 E6 45 inc BufferHi
|
||||||
00C7A5 1 write256:
|
00C7A6 1 20 AF C7 jsr write256
|
||||||
00C7A5 1 B1 44 lda (BufferLo),y
|
00C7A9 1 C6 45 dec BufferHi
|
||||||
00C7A7 1 20 AE C7 jsr SendByte
|
00C7AB 1 A9 00 lda #$0 ;zero accumulator and clear carry for success
|
||||||
00C7AA 1 C8 iny
|
00C7AD 1 18 clc
|
||||||
00C7AB 1 D0 F8 bne write256
|
00C7AE 1 60 rts
|
||||||
00C7AD 1 60 rts
|
00C7AF 1
|
||||||
00C7AE 1
|
00C7AF 1 write256:
|
||||||
00C7AE 1 SendByte:
|
00C7AF 1 B1 44 lda (BufferLo),y
|
||||||
00C7AE 1 48 pha
|
00C7B1 1 20 B8 C7 jsr SendByte
|
||||||
00C7AF 1 waitWrite:
|
00C7B4 1 C8 iny
|
||||||
00C7AF 1 AD FB C0 lda InputFlags
|
00C7B5 1 D0 F8 bne write256
|
||||||
00C7B2 1 2A rol
|
00C7B7 1 60 rts
|
||||||
00C7B3 1 2A rol
|
00C7B8 1
|
||||||
00C7B4 1 B0 F9 bcs waitWrite
|
00C7B8 1 SendByte:
|
||||||
00C7B6 1 68 pla
|
00C7B8 1 48 pha
|
||||||
00C7B7 1 8D FD C0 sta OutputByte
|
00C7B9 1 waitWrite:
|
||||||
00C7BA 1 A9 0E lda #$0e ; set bit 0 low to indicate write started
|
00C7B9 1 AD FB C0 lda InputFlags
|
||||||
00C7BC 1 8D F7 C0 sta OutputFlags
|
00C7BC 1 2A rol
|
||||||
00C7BF 1 finishWrite:
|
00C7BD 1 2A rol
|
||||||
00C7BF 1 AD FB C0 lda InputFlags
|
00C7BE 1 B0 F9 bcs waitWrite
|
||||||
00C7C2 1 2A rol
|
00C7C0 1 68 pla
|
||||||
00C7C3 1 2A rol
|
00C7C1 1 8D FD C0 sta OutputByte
|
||||||
00C7C4 1 90 F9 bcc finishWrite
|
00C7C4 1 A9 0E lda #$0e ; set bit 0 low to indicate write started
|
||||||
00C7C6 1 A9 0F lda #$0f
|
00C7C6 1 8D F7 C0 sta OutputFlags
|
||||||
00C7C8 1 8D F7 C0 sta OutputFlags
|
00C7C9 1 finishWrite:
|
||||||
00C7CB 1 60 rts
|
00C7C9 1 AD FB C0 lda InputFlags
|
||||||
00C7CC 1
|
00C7CC 1 2A rol
|
||||||
00C7CC 1 GetByte:
|
00C7CD 1 2A rol
|
||||||
00C7CC 1 A9 0D lda #$0d ;set read flag low
|
00C7CE 1 90 F9 bcc finishWrite
|
||||||
00C7CE 1 8D F7 C0 sta OutputFlags
|
00C7D0 1 A9 0F lda #$0f
|
||||||
00C7D1 1 waitRead:
|
00C7D2 1 8D F7 C0 sta OutputFlags
|
||||||
00C7D1 1 AD FB C0 lda InputFlags
|
00C7D5 1 60 rts
|
||||||
00C7D4 1 2A rol
|
00C7D6 1
|
||||||
00C7D5 1 B0 FA bcs waitRead
|
00C7D6 1 GetByte:
|
||||||
00C7D7 1 AD FE C0 lda InputByte
|
00C7D6 1 A9 0D lda #$0d ;set read flag low
|
||||||
00C7DA 1 48 pha
|
00C7D8 1 8D F7 C0 sta OutputFlags
|
||||||
00C7DB 1 A9 0F lda #$0f ;set all flags high
|
00C7DB 1 waitRead:
|
||||||
00C7DD 1 8D F7 C0 sta OutputFlags
|
00C7DB 1 AD FB C0 lda InputFlags
|
||||||
00C7E0 1 finishRead:
|
00C7DE 1 2A rol
|
||||||
00C7E0 1 AD FB C0 lda InputFlags
|
00C7DF 1 B0 FA bcs waitRead
|
||||||
00C7E3 1 2A rol
|
00C7E1 1 AD FE C0 lda InputByte
|
||||||
00C7E4 1 90 FA bcc finishRead
|
00C7E4 1 48 pha
|
||||||
00C7E6 1 68 pla
|
00C7E5 1 A9 0F lda #$0f ;set all flags high
|
||||||
00C7E7 1 end:
|
00C7E7 1 8D F7 C0 sta OutputFlags
|
||||||
00C7E7 1 60 rts
|
00C7EA 1 finishRead:
|
||||||
00C7E8 1
|
00C7EA 1 AD FB C0 lda InputFlags
|
||||||
00C7E8 1 00 00 00 00 .repeat 251-<end
|
00C7ED 1 2A rol
|
||||||
00C7EC 1 00 00 00 00
|
00C7EE 1 90 FA bcc finishRead
|
||||||
00C7F0 1 00 00 00 00
|
00C7F0 1 68 pla
|
||||||
00C7F4 1 00 00 00 00
|
00C7F1 1 end:
|
||||||
00C7F8 1 00 00 00 00
|
00C7F1 1 60 rts
|
||||||
|
00C7F2 1
|
||||||
|
00C7F2 1 00 00 00 00 .repeat 251-<end
|
||||||
|
00C7F6 1 00 00 00 00
|
||||||
|
00C7FA 1 00 00
|
||||||
00C7FC 1 .byte 0
|
00C7FC 1 .byte 0
|
||||||
00C7FC 1 .endrepeat
|
00C7FC 1 .endrepeat
|
||||||
00C7FC 1 00 00 .byte 0,0 ;0000 blocks = check status
|
00C7FC 1 00 00 .byte 0,0 ;0000 blocks = check status
|
||||||
|
|||||||
@ -46,12 +46,60 @@ DriverEntry:
|
|||||||
sta OutputFlags
|
sta OutputFlags
|
||||||
|
|
||||||
Start:
|
Start:
|
||||||
|
lda #$a4
|
||||||
|
sta $33
|
||||||
|
|
||||||
; Put command firmware here
|
GetFilename:
|
||||||
;
|
jsr $fd67
|
||||||
;
|
|
||||||
;
|
LoadFile:
|
||||||
rts
|
lda #$00
|
||||||
|
sta BufferLo
|
||||||
|
lda #$20
|
||||||
|
sta BufferHi
|
||||||
|
lda #$06 ; send command 6 = load
|
||||||
|
jsr SendByte
|
||||||
|
ldy #$00
|
||||||
|
sendFilename:
|
||||||
|
lda $0200,y
|
||||||
|
cmp #$8d
|
||||||
|
beq sendNullTerminator
|
||||||
|
and #$7f
|
||||||
|
jsr SendByte
|
||||||
|
iny
|
||||||
|
bne sendFilename
|
||||||
|
sendNullTerminator:
|
||||||
|
lda #$00
|
||||||
|
jsr SendByte
|
||||||
|
|
||||||
|
jsr GetByte
|
||||||
|
sta BlockLo ; not really a block, just using the memory space
|
||||||
|
jsr GetByte
|
||||||
|
sta BlockHi
|
||||||
|
NextPage:
|
||||||
|
lda BlockHi
|
||||||
|
beq ReadFinalPage
|
||||||
|
ldy #$00
|
||||||
|
NextByte:
|
||||||
|
jsr GetByte
|
||||||
|
sta (BufferLo),y
|
||||||
|
iny
|
||||||
|
bne NextByte
|
||||||
|
inc BufferHi
|
||||||
|
dec BlockHi
|
||||||
|
bne NextPage
|
||||||
|
ReadFinalPage:
|
||||||
|
lda BlockLo
|
||||||
|
beq ExitToMonitor
|
||||||
|
ldy #$00
|
||||||
|
NextByteFinal:
|
||||||
|
jsr GetByte
|
||||||
|
sta (BufferLo),y
|
||||||
|
iny
|
||||||
|
cpy BlockLo
|
||||||
|
bne NextByteFinal
|
||||||
|
ExitToMonitor:
|
||||||
|
jsr $ff59
|
||||||
|
|
||||||
SendByte:
|
SendByte:
|
||||||
pha
|
pha
|
||||||
@ -62,19 +110,19 @@ waitWrite:
|
|||||||
bcs waitWrite
|
bcs waitWrite
|
||||||
pla
|
pla
|
||||||
sta OutputByte
|
sta OutputByte
|
||||||
lda #$0e ; set bit 0 low to indicate write started
|
lda #$2e ; set bit 0 low to indicate write started
|
||||||
sta OutputFlags
|
sta OutputFlags
|
||||||
finishWrite:
|
finishWrite:
|
||||||
lda InputFlags
|
lda InputFlags
|
||||||
rol
|
rol
|
||||||
rol
|
rol
|
||||||
bcc finishWrite
|
bcc finishWrite
|
||||||
lda #$0f
|
lda #$2f
|
||||||
sta OutputFlags
|
sta OutputFlags
|
||||||
rts
|
rts
|
||||||
|
|
||||||
GetByte:
|
GetByte:
|
||||||
lda #$0d ;set read flag low
|
lda #$2d ;set read flag low
|
||||||
sta OutputFlags
|
sta OutputFlags
|
||||||
waitRead:
|
waitRead:
|
||||||
lda InputFlags
|
lda InputFlags
|
||||||
@ -82,7 +130,7 @@ waitRead:
|
|||||||
bcs waitRead
|
bcs waitRead
|
||||||
lda InputByte
|
lda InputByte
|
||||||
pha
|
pha
|
||||||
lda #$0f ;set all flags high
|
lda #$2f ;set all flags high
|
||||||
sta OutputFlags
|
sta OutputFlags
|
||||||
finishRead:
|
finishRead:
|
||||||
lda InputFlags
|
lda InputFlags
|
||||||
|
|||||||
@ -50,94 +50,120 @@ Current file: FileAccessFirmware.asm
|
|||||||
00C716 1 8D F7 C0 sta OutputFlags
|
00C716 1 8D F7 C0 sta OutputFlags
|
||||||
00C719 1
|
00C719 1
|
||||||
00C719 1 Start:
|
00C719 1 Start:
|
||||||
00C719 1
|
00C719 1 A9 A4 lda #$a4
|
||||||
00C719 1 ; Put command firmware here
|
00C71B 1 85 33 sta $33
|
||||||
00C719 1 ;
|
00C71D 1
|
||||||
00C719 1 ;
|
00C71D 1 GetFilename:
|
||||||
00C719 1 ;
|
00C71D 1 20 67 FD jsr $fd67
|
||||||
00C719 1 60 rts
|
00C720 1
|
||||||
00C71A 1
|
00C720 1 LoadFile:
|
||||||
00C71A 1 SendByte:
|
00C720 1 A9 00 lda #$00
|
||||||
00C71A 1 48 pha
|
00C722 1 85 44 sta BufferLo
|
||||||
00C71B 1 waitWrite:
|
00C724 1 A9 20 lda #$20
|
||||||
00C71B 1 AD FB C0 lda InputFlags
|
00C726 1 85 45 sta BufferHi
|
||||||
00C71E 1 2A rol
|
00C728 1 A9 06 lda #$06 ; send command 6 = load
|
||||||
00C71F 1 2A rol
|
00C72A 1 20 74 C7 jsr SendByte
|
||||||
00C720 1 B0 F9 bcs waitWrite
|
00C72D 1 A0 00 ldy #$00
|
||||||
00C722 1 68 pla
|
00C72F 1 sendFilename:
|
||||||
00C723 1 8D FD C0 sta OutputByte
|
00C72F 1 B9 00 02 lda $0200,y
|
||||||
00C726 1 A9 0E lda #$0e ; set bit 0 low to indicate write started
|
00C732 1 C9 8D cmp #$8d
|
||||||
00C728 1 8D F7 C0 sta OutputFlags
|
00C734 1 F0 08 beq sendNullTerminator
|
||||||
00C72B 1 finishWrite:
|
00C736 1 29 7F and #$7f
|
||||||
00C72B 1 AD FB C0 lda InputFlags
|
00C738 1 20 74 C7 jsr SendByte
|
||||||
00C72E 1 2A rol
|
00C73B 1 C8 iny
|
||||||
00C72F 1 2A rol
|
00C73C 1 D0 F1 bne sendFilename
|
||||||
00C730 1 90 F9 bcc finishWrite
|
00C73E 1 sendNullTerminator:
|
||||||
00C732 1 A9 0F lda #$0f
|
00C73E 1 A9 00 lda #$00
|
||||||
00C734 1 8D F7 C0 sta OutputFlags
|
00C740 1 20 74 C7 jsr SendByte
|
||||||
00C737 1 60 rts
|
00C743 1
|
||||||
00C738 1
|
00C743 1 20 92 C7 jsr GetByte
|
||||||
00C738 1 GetByte:
|
00C746 1 85 46 sta BlockLo ; not really a block, just using the memory space
|
||||||
00C738 1 A9 0D lda #$0d ;set read flag low
|
00C748 1 20 92 C7 jsr GetByte
|
||||||
00C73A 1 8D F7 C0 sta OutputFlags
|
00C74B 1 85 47 sta BlockHi
|
||||||
00C73D 1 waitRead:
|
00C74D 1 NextPage:
|
||||||
00C73D 1 AD FB C0 lda InputFlags
|
00C74D 1 A5 47 lda BlockHi
|
||||||
00C740 1 2A rol
|
00C74F 1 F0 10 beq ReadFinalPage
|
||||||
00C741 1 B0 FA bcs waitRead
|
00C751 1 A0 00 ldy #$00
|
||||||
00C743 1 AD FE C0 lda InputByte
|
00C753 1 NextByte:
|
||||||
00C746 1 48 pha
|
00C753 1 20 92 C7 jsr GetByte
|
||||||
00C747 1 A9 0F lda #$0f ;set all flags high
|
00C756 1 91 44 sta (BufferLo),y
|
||||||
00C749 1 8D F7 C0 sta OutputFlags
|
00C758 1 C8 iny
|
||||||
00C74C 1 finishRead:
|
00C759 1 D0 F8 bne NextByte
|
||||||
00C74C 1 AD FB C0 lda InputFlags
|
00C75B 1 E6 45 inc BufferHi
|
||||||
00C74F 1 2A rol
|
00C75D 1 C6 47 dec BlockHi
|
||||||
00C750 1 90 FA bcc finishRead
|
00C75F 1 D0 EC bne NextPage
|
||||||
00C752 1 68 pla
|
00C761 1 ReadFinalPage:
|
||||||
00C753 1 end:
|
00C761 1 A5 46 lda BlockLo
|
||||||
00C753 1 60 rts
|
00C763 1 F0 0C beq ExitToMonitor
|
||||||
00C754 1
|
00C765 1 A0 00 ldy #$00
|
||||||
00C754 1 00 00 00 00 .repeat 251-<end
|
00C767 1 NextByteFinal:
|
||||||
00C758 1 00 00 00 00
|
00C767 1 20 92 C7 jsr GetByte
|
||||||
00C75C 1 00 00 00 00
|
00C76A 1 91 44 sta (BufferLo),y
|
||||||
00C760 1 00 00 00 00
|
00C76C 1 C8 iny
|
||||||
00C764 1 00 00 00 00
|
00C76D 1 C4 46 cpy BlockLo
|
||||||
00C768 1 00 00 00 00
|
00C76F 1 D0 F6 bne NextByteFinal
|
||||||
00C76C 1 00 00 00 00
|
00C771 1 ExitToMonitor:
|
||||||
00C770 1 00 00 00 00
|
00C771 1 20 59 FF jsr $ff59
|
||||||
00C774 1 00 00 00 00
|
00C774 1
|
||||||
00C778 1 00 00 00 00
|
00C774 1 SendByte:
|
||||||
00C77C 1 00 00 00 00
|
00C774 1 48 pha
|
||||||
00C780 1 00 00 00 00
|
00C775 1 waitWrite:
|
||||||
00C784 1 00 00 00 00
|
00C775 1 AD FB C0 lda InputFlags
|
||||||
00C788 1 00 00 00 00
|
00C778 1 2A rol
|
||||||
00C78C 1 00 00 00 00
|
00C779 1 2A rol
|
||||||
00C790 1 00 00 00 00
|
00C77A 1 B0 F9 bcs waitWrite
|
||||||
00C794 1 00 00 00 00
|
00C77C 1 68 pla
|
||||||
00C798 1 00 00 00 00
|
00C77D 1 8D FD C0 sta OutputByte
|
||||||
00C79C 1 00 00 00 00
|
00C780 1 A9 2E lda #$2e ; set bit 0 low to indicate write started
|
||||||
00C7A0 1 00 00 00 00
|
00C782 1 8D F7 C0 sta OutputFlags
|
||||||
00C7A4 1 00 00 00 00
|
00C785 1 finishWrite:
|
||||||
00C7A8 1 00 00 00 00
|
00C785 1 AD FB C0 lda InputFlags
|
||||||
00C7AC 1 00 00 00 00
|
00C788 1 2A rol
|
||||||
00C7B0 1 00 00 00 00
|
00C789 1 2A rol
|
||||||
00C7B4 1 00 00 00 00
|
00C78A 1 90 F9 bcc finishWrite
|
||||||
00C7B8 1 00 00 00 00
|
00C78C 1 A9 2F lda #$2f
|
||||||
00C7BC 1 00 00 00 00
|
00C78E 1 8D F7 C0 sta OutputFlags
|
||||||
00C7C0 1 00 00 00 00
|
00C791 1 60 rts
|
||||||
00C7C4 1 00 00 00 00
|
00C792 1
|
||||||
00C7C8 1 00 00 00 00
|
00C792 1 GetByte:
|
||||||
00C7CC 1 00 00 00 00
|
00C792 1 A9 2D lda #$2d ;set read flag low
|
||||||
00C7D0 1 00 00 00 00
|
00C794 1 8D F7 C0 sta OutputFlags
|
||||||
00C7D4 1 00 00 00 00
|
00C797 1 waitRead:
|
||||||
00C7D8 1 00 00 00 00
|
00C797 1 AD FB C0 lda InputFlags
|
||||||
00C7DC 1 00 00 00 00
|
00C79A 1 2A rol
|
||||||
00C7E0 1 00 00 00 00
|
00C79B 1 B0 FA bcs waitRead
|
||||||
00C7E4 1 00 00 00 00
|
00C79D 1 AD FE C0 lda InputByte
|
||||||
00C7E8 1 00 00 00 00
|
00C7A0 1 48 pha
|
||||||
00C7EC 1 00 00 00 00
|
00C7A1 1 A9 2F lda #$2f ;set all flags high
|
||||||
00C7F0 1 00 00 00 00
|
00C7A3 1 8D F7 C0 sta OutputFlags
|
||||||
00C7F4 1 00 00 00 00
|
00C7A6 1 finishRead:
|
||||||
00C7F8 1 00 00 00 00
|
00C7A6 1 AD FB C0 lda InputFlags
|
||||||
|
00C7A9 1 2A rol
|
||||||
|
00C7AA 1 90 FA bcc finishRead
|
||||||
|
00C7AC 1 68 pla
|
||||||
|
00C7AD 1 end:
|
||||||
|
00C7AD 1 60 rts
|
||||||
|
00C7AE 1
|
||||||
|
00C7AE 1 00 00 00 00 .repeat 251-<end
|
||||||
|
00C7B2 1 00 00 00 00
|
||||||
|
00C7B6 1 00 00 00 00
|
||||||
|
00C7BA 1 00 00 00 00
|
||||||
|
00C7BE 1 00 00 00 00
|
||||||
|
00C7C2 1 00 00 00 00
|
||||||
|
00C7C6 1 00 00 00 00
|
||||||
|
00C7CA 1 00 00 00 00
|
||||||
|
00C7CE 1 00 00 00 00
|
||||||
|
00C7D2 1 00 00 00 00
|
||||||
|
00C7D6 1 00 00 00 00
|
||||||
|
00C7DA 1 00 00 00 00
|
||||||
|
00C7DE 1 00 00 00 00
|
||||||
|
00C7E2 1 00 00 00 00
|
||||||
|
00C7E6 1 00 00 00 00
|
||||||
|
00C7EA 1 00 00 00 00
|
||||||
|
00C7EE 1 00 00 00 00
|
||||||
|
00C7F2 1 00 00 00 00
|
||||||
|
00C7F6 1 00 00 00 00
|
||||||
|
00C7FA 1 00 00
|
||||||
00C7FC 1 .byte 0
|
00C7FC 1 .byte 0
|
||||||
00C7FC 1 .endrepeat
|
00C7FC 1 .endrepeat
|
||||||
00C7FC 1 00 00 .byte 0,0 ;0000 blocks = check status
|
00C7FC 1 00 00 .byte 0,0 ;0000 blocks = check status
|
||||||
|
|||||||
@ -79,7 +79,7 @@ Text:
|
|||||||
.byte $8d
|
.byte $8d
|
||||||
.byte "1. Boot",$8d
|
.byte "1. Boot",$8d
|
||||||
.byte "2. Command Line",$8d
|
.byte "2. Command Line",$8d
|
||||||
.byte "3. File Access [NOT IMPLEMENTED]",$8d
|
.byte "3. Load File",$8d
|
||||||
.byte $8d
|
.byte $8d
|
||||||
.byte "May take 45 seconds for RPi to start",$8d
|
.byte "May take 45 seconds for RPi to start",$8d
|
||||||
.byte "after intial power-on...",$00
|
.byte "after intial power-on...",$00
|
||||||
|
|||||||
@ -97,38 +97,38 @@ Current file: MenuFirmware.asm
|
|||||||
00C77B 1 6F 6D 6D 61
|
00C77B 1 6F 6D 6D 61
|
||||||
00C77F 1 6E 64 20 4C
|
00C77F 1 6E 64 20 4C
|
||||||
00C783 1 69 6E 65 8D
|
00C783 1 69 6E 65 8D
|
||||||
00C787 1 33 2E 20 46 .byte "3. File Access [NOT IMPLEMENTED]",$8d
|
00C787 1 33 2E 20 4C .byte "3. Load File",$8d
|
||||||
00C78B 1 69 6C 65 20
|
00C78B 1 6F 61 64 20
|
||||||
00C78F 1 41 63 63 65
|
00C78F 1 46 69 6C 65
|
||||||
00C793 1 73 73 20 5B
|
00C793 1 8D
|
||||||
00C797 1 4E 4F 54 20
|
00C794 1 8D .byte $8d
|
||||||
00C79B 1 49 4D 50 4C
|
00C795 1 4D 61 79 20 .byte "May take 45 seconds for RPi to start",$8d
|
||||||
00C79F 1 45 4D 45 4E
|
00C799 1 74 61 6B 65
|
||||||
00C7A3 1 54 45 44 5D
|
00C79D 1 20 34 35 20
|
||||||
00C7A7 1 8D
|
00C7A1 1 73 65 63 6F
|
||||||
00C7A8 1 8D .byte $8d
|
00C7A5 1 6E 64 73 20
|
||||||
00C7A9 1 4D 61 79 20 .byte "May take 45 seconds for RPi to start",$8d
|
00C7A9 1 66 6F 72 20
|
||||||
00C7AD 1 74 61 6B 65
|
00C7AD 1 52 50 69 20
|
||||||
00C7B1 1 20 34 35 20
|
00C7B1 1 74 6F 20 73
|
||||||
00C7B5 1 73 65 63 6F
|
00C7B5 1 74 61 72 74
|
||||||
00C7B9 1 6E 64 73 20
|
00C7B9 1 8D
|
||||||
00C7BD 1 66 6F 72 20
|
00C7BA 1 61 66 74 65 .byte "after intial power-on...",$00
|
||||||
00C7C1 1 52 50 69 20
|
00C7BE 1 72 20 69 6E
|
||||||
00C7C5 1 74 6F 20 73
|
00C7C2 1 74 69 61 6C
|
||||||
00C7C9 1 74 61 72 74
|
00C7C6 1 20 70 6F 77
|
||||||
00C7CD 1 8D
|
00C7CA 1 65 72 2D 6F
|
||||||
00C7CE 1 61 66 74 65 .byte "after intial power-on...",$00
|
00C7CE 1 6E 2E 2E 2E
|
||||||
00C7D2 1 72 20 69 6E
|
00C7D2 1 00
|
||||||
00C7D6 1 74 69 61 6C
|
00C7D3 1
|
||||||
00C7DA 1 20 70 6F 77
|
00C7D3 1 end:
|
||||||
00C7DE 1 65 72 2D 6F
|
00C7D3 1 60 rts
|
||||||
00C7E2 1 6E 2E 2E 2E
|
00C7D4 1
|
||||||
00C7E6 1 00
|
00C7D4 1 00 00 00 00 .repeat 251-<end
|
||||||
00C7E7 1
|
00C7D8 1 00 00 00 00
|
||||||
00C7E7 1 end:
|
00C7DC 1 00 00 00 00
|
||||||
00C7E7 1 60 rts
|
00C7E0 1 00 00 00 00
|
||||||
00C7E8 1
|
00C7E4 1 00 00 00 00
|
||||||
00C7E8 1 00 00 00 00 .repeat 251-<end
|
00C7E8 1 00 00 00 00
|
||||||
00C7EC 1 00 00 00 00
|
00C7EC 1 00 00 00 00
|
||||||
00C7F0 1 00 00 00 00
|
00C7F0 1 00 00 00 00
|
||||||
00C7F4 1 00 00 00 00
|
00C7F4 1 00 00 00 00
|
||||||
|
|||||||
Binary file not shown.
Loading…
x
Reference in New Issue
Block a user