Apple-2-HW
/
Apple2-IO-RPi
mirror of https://github.com/tjboldt/Apple2-IO-RPi.git
2
0
Fork 1
Code Issues Projects Releases Wiki Activity

Add file read firmware

This commit is contained in:
Terence Boldt 2021-05-10 02:41:57 +00:00
parent 9a451727a6
commit 402373091d
9 changed files with 318 additions and 234 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

BIN
Apple2/27256.bin
View File

Binary file not shown.

BIN
Apple2/AT28C64B.bin
View File

Binary file not shown.

10
Apple2/DriveFirmware.asm
View File

@ -68,7 +68,7 @@ Driver:
lda Command; Check which command is being requested
beq GetStatus ;0 = Status command
cmp #ReadBlockCommand
beq ReadBlock
beq ReadBlockAndSetTime
cmp #WriteBlockCommand
beq WriteBlock
sec ;set carry as we don't support any other commands
@ -84,7 +84,12 @@ GetStatus:
rts
; 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
lda #GetTimeCommand
jsr SendByte
@ -94,6 +99,7 @@ getTimeByte:
iny
cpy #$04
bne getTimeByte
readBlock:
lda #ReadBlockCommand ;read the block after setting the clock
jsr SendByte
lda BlockLo

208
Apple2/DriveFirmware.lst
View File

@ -72,9 +72,9 @@ Current file: DriveFirmware.asm
00C734 1 A5 42 lda Command; Check which command is being requested
00C736 1 F0 0C beq GetStatus ;0 = Status command
00C738 1 C9 01 cmp #ReadBlockCommand
00C73A 1 F0 10 beq ReadBlock
00C73A 1 F0 10 beq ReadBlockAndSetTime
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
00C741 1 A9 53 lda #$53 ;Invalid parameter error
00C743 1 60 rts
@ -88,106 +88,110 @@ Current file: DriveFirmware.asm
00C74B 1 60 rts
00C74C 1
00C74C 1 ; ProDOS Read Block Command
00C74C 1 ReadBlock:
00C74C 1 A0 00 ldy #$00 ;Get the current time on each block read for now
00C74E 1 A9 03 lda #GetTimeCommand
00C750 1 20 AE C7 jsr SendByte
00C753 1 getTimeByte:
00C753 1 20 CC C7 jsr GetByte
00C756 1 99 90 BF sta $bf90,y
00C759 1 C8 iny
00C75A 1 C0 04 cpy #$04
00C75C 1 D0 F5 bne getTimeByte
00C75E 1 A9 01 lda #ReadBlockCommand ;read the block after setting the clock
00C760 1 20 AE C7 jsr SendByte
00C763 1 A5 46 lda BlockLo
00C765 1 20 AE C7 jsr SendByte
00C768 1 A5 47 lda BlockHi
00C76A 1 20 AE C7 jsr SendByte
00C76D 1 A0 00 ldy #$0
00C76F 1 20 7D C7 jsr read256
00C772 1 E6 45 inc BufferHi
00C774 1 20 7D C7 jsr read256
00C777 1 C6 45 dec BufferHi
00C779 1 A9 00 lda #$0 ;zero accumulator and clear carry for success
00C77B 1 18 clc
00C77C 1 60 rts
00C77D 1
00C77D 1 read256:
00C77D 1 20 CC C7 jsr GetByte
00C780 1 91 44 sta (BufferLo),y
00C782 1 C8 iny
00C783 1 D0 F8 bne read256
00C785 1 60 rts
00C786 1
00C786 1 ; ProDOS Write Block Command
00C786 1 WriteBlock:
00C786 1 A9 02 lda #WriteBlockCommand
00C788 1 20 AE C7 jsr SendByte
00C78B 1 A5 46 lda BlockLo
00C78D 1 20 AE C7 jsr SendByte
00C790 1 A5 47 lda BlockHi
00C792 1 20 AE C7 jsr SendByte
00C795 1 A0 00 ldy #$0
00C797 1 20 A5 C7 jsr write256
00C79A 1 E6 45 inc BufferHi
00C79C 1 20 A5 C7 jsr write256
00C79F 1 C6 45 dec BufferHi
00C7A1 1 A9 00 lda #$0 ;zero accumulator and clear carry for success
00C7A3 1 18 clc
00C7A4 1 60 rts
00C7A5 1
00C7A5 1 write256:
00C7A5 1 B1 44 lda (BufferLo),y
00C7A7 1 20 AE C7 jsr SendByte
00C7AA 1 C8 iny
00C7AB 1 D0 F8 bne write256
00C7AD 1 60 rts
00C7AE 1
00C7AE 1 SendByte:
00C7AE 1 48 pha
00C7AF 1 waitWrite:
00C7AF 1 AD FB C0 lda InputFlags
00C7B2 1 2A rol
00C7B3 1 2A rol
00C7B4 1 B0 F9 bcs waitWrite
00C7B6 1 68 pla
00C7B7 1 8D FD C0 sta OutputByte
00C7BA 1 A9 0E lda #$0e ; set bit 0 low to indicate write started
00C7BC 1 8D F7 C0 sta OutputFlags
00C7BF 1 finishWrite:
00C7BF 1 AD FB C0 lda InputFlags
00C7C2 1 2A rol
00C7C3 1 2A rol
00C7C4 1 90 F9 bcc finishWrite
00C7C6 1 A9 0F lda #$0f
00C7C8 1 8D F7 C0 sta OutputFlags
00C7CB 1 60 rts
00C7CC 1
00C7CC 1 GetByte:
00C7CC 1 A9 0D lda #$0d ;set read flag low
00C7CE 1 8D F7 C0 sta OutputFlags
00C7D1 1 waitRead:
00C7D1 1 AD FB C0 lda InputFlags
00C7D4 1 2A rol
00C7D5 1 B0 FA bcs waitRead
00C7D7 1 AD FE C0 lda InputByte
00C7DA 1 48 pha
00C7DB 1 A9 0F lda #$0f ;set all flags high
00C7DD 1 8D F7 C0 sta OutputFlags
00C7E0 1 finishRead:
00C7E0 1 AD FB C0 lda InputFlags
00C7E3 1 2A rol
00C7E4 1 90 FA bcc finishRead
00C7E6 1 68 pla
00C7E7 1 end:
00C7E7 1 60 rts
00C7E8 1
00C7E8 1 00 00 00 00 .repeat 251-<end
00C7EC 1 00 00 00 00
00C7F0 1 00 00 00 00
00C7F4 1 00 00 00 00
00C7F8 1 00 00 00 00
00C74C 1 ReadBlockAndSetTime:
00C74C 1 A5 47 lda BlockHi ; only get the time if block 0002
00C74E 1 D0 18 bne readBlock
00C750 1 A5 46 lda BlockLo
00C752 1 C9 02 cmp #$02
00C754 1 D0 12 bne readBlock
00C756 1 A0 00 ldy #$00 ;Get the current time on each block read for now
00C758 1 A9 03 lda #GetTimeCommand
00C75A 1 20 B8 C7 jsr SendByte
00C75D 1 getTimeByte:
00C75D 1 20 D6 C7 jsr GetByte
00C760 1 99 90 BF sta $bf90,y
00C763 1 C8 iny
00C764 1 C0 04 cpy #$04
00C766 1 D0 F5 bne getTimeByte
00C768 1 readBlock:
00C768 1 A9 01 lda #ReadBlockCommand ;read the block after setting the clock
00C76A 1 20 B8 C7 jsr SendByte
00C76D 1 A5 46 lda BlockLo
00C76F 1 20 B8 C7 jsr SendByte
00C772 1 A5 47 lda BlockHi
00C774 1 20 B8 C7 jsr SendByte
00C777 1 A0 00 ldy #$0
00C779 1 20 87 C7 jsr read256
00C77C 1 E6 45 inc BufferHi
00C77E 1 20 87 C7 jsr read256
00C781 1 C6 45 dec BufferHi
00C783 1 A9 00 lda #$0 ;zero accumulator and clear carry for success
00C785 1 18 clc
00C786 1 60 rts
00C787 1
00C787 1 read256:
00C787 1 20 D6 C7 jsr GetByte
00C78A 1 91 44 sta (BufferLo),y
00C78C 1 C8 iny
00C78D 1 D0 F8 bne read256
00C78F 1 60 rts
00C790 1
00C790 1 ; ProDOS Write Block Command
00C790 1 WriteBlock:
00C790 1 A9 02 lda #WriteBlockCommand
00C792 1 20 B8 C7 jsr SendByte
00C795 1 A5 46 lda BlockLo
00C797 1 20 B8 C7 jsr SendByte
00C79A 1 A5 47 lda BlockHi
00C79C 1 20 B8 C7 jsr SendByte
00C79F 1 A0 00 ldy #$0
00C7A1 1 20 AF C7 jsr write256
00C7A4 1 E6 45 inc BufferHi
00C7A6 1 20 AF C7 jsr write256
00C7A9 1 C6 45 dec BufferHi
00C7AB 1 A9 00 lda #$0 ;zero accumulator and clear carry for success
00C7AD 1 18 clc
00C7AE 1 60 rts
00C7AF 1
00C7AF 1 write256:
00C7AF 1 B1 44 lda (BufferLo),y
00C7B1 1 20 B8 C7 jsr SendByte
00C7B4 1 C8 iny
00C7B5 1 D0 F8 bne write256
00C7B7 1 60 rts
00C7B8 1
00C7B8 1 SendByte:
00C7B8 1 48 pha
00C7B9 1 waitWrite:
00C7B9 1 AD FB C0 lda InputFlags
00C7BC 1 2A rol
00C7BD 1 2A rol
00C7BE 1 B0 F9 bcs waitWrite
00C7C0 1 68 pla
00C7C1 1 8D FD C0 sta OutputByte
00C7C4 1 A9 0E lda #$0e ; set bit 0 low to indicate write started
00C7C6 1 8D F7 C0 sta OutputFlags
00C7C9 1 finishWrite:
00C7C9 1 AD FB C0 lda InputFlags
00C7CC 1 2A rol
00C7CD 1 2A rol
00C7CE 1 90 F9 bcc finishWrite
00C7D0 1 A9 0F lda #$0f
00C7D2 1 8D F7 C0 sta OutputFlags
00C7D5 1 60 rts
00C7D6 1
00C7D6 1 GetByte:
00C7D6 1 A9 0D lda #$0d ;set read flag low
00C7D8 1 8D F7 C0 sta OutputFlags
00C7DB 1 waitRead:
00C7DB 1 AD FB C0 lda InputFlags
00C7DE 1 2A rol
00C7DF 1 B0 FA bcs waitRead
00C7E1 1 AD FE C0 lda InputByte
00C7E4 1 48 pha
00C7E5 1 A9 0F lda #$0f ;set all flags high
00C7E7 1 8D F7 C0 sta OutputFlags
00C7EA 1 finishRead:
00C7EA 1 AD FB C0 lda InputFlags
00C7ED 1 2A rol
00C7EE 1 90 FA bcc finishRead
00C7F0 1 68 pla
00C7F1 1 end:
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 .endrepeat
00C7FC 1 00 00 .byte 0,0 ;0000 blocks = check status

66
Apple2/FileAccessFirmware.asm
View File

@ -46,12 +46,60 @@ DriverEntry:
sta OutputFlags
Start:
lda #$a4
sta $33
; Put command firmware here
;
;
;
rts
GetFilename:
jsr $fd67
LoadFile:
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:
pha
@ -62,19 +110,19 @@ waitWrite:
bcs waitWrite
pla
sta OutputByte
lda #$0e ; set bit 0 low to indicate write started
lda #$2e ; set bit 0 low to indicate write started
sta OutputFlags
finishWrite:
lda InputFlags
rol
rol
bcc finishWrite
lda #$0f
lda #$2f
sta OutputFlags
rts
GetByte:
lda #$0d ;set read flag low
lda #$2d ;set read flag low
sta OutputFlags
waitRead:
lda InputFlags
@ -82,7 +130,7 @@ waitRead:
bcs waitRead
lda InputByte
pha
lda #$0f ;set all flags high
lda #$2f ;set all flags high
sta OutputFlags
finishRead:
lda InputFlags

202
Apple2/FileAccessFirmware.lst
View File

@ -50,94 +50,120 @@ Current file: FileAccessFirmware.asm
00C716 1 8D F7 C0 sta OutputFlags
00C719 1
00C719 1 Start:
00C719 1
00C719 1 ; Put command firmware here
00C719 1 ;
00C719 1 ;
00C719 1 ;
00C719 1 60 rts
00C71A 1
00C71A 1 SendByte:
00C71A 1 48 pha
00C71B 1 waitWrite:
00C71B 1 AD FB C0 lda InputFlags
00C71E 1 2A rol
00C71F 1 2A rol
00C720 1 B0 F9 bcs waitWrite
00C722 1 68 pla
00C723 1 8D FD C0 sta OutputByte
00C726 1 A9 0E lda #$0e ; set bit 0 low to indicate write started
00C728 1 8D F7 C0 sta OutputFlags
00C72B 1 finishWrite:
00C72B 1 AD FB C0 lda InputFlags
00C72E 1 2A rol
00C72F 1 2A rol
00C730 1 90 F9 bcc finishWrite
00C732 1 A9 0F lda #$0f
00C734 1 8D F7 C0 sta OutputFlags
00C737 1 60 rts
00C738 1
00C738 1 GetByte:
00C738 1 A9 0D lda #$0d ;set read flag low
00C73A 1 8D F7 C0 sta OutputFlags
00C73D 1 waitRead:
00C73D 1 AD FB C0 lda InputFlags
00C740 1 2A rol
00C741 1 B0 FA bcs waitRead
00C743 1 AD FE C0 lda InputByte
00C746 1 48 pha
00C747 1 A9 0F lda #$0f ;set all flags high
00C749 1 8D F7 C0 sta OutputFlags
00C74C 1 finishRead:
00C74C 1 AD FB C0 lda InputFlags
00C74F 1 2A rol
00C750 1 90 FA bcc finishRead
00C752 1 68 pla
00C753 1 end:
00C753 1 60 rts
00C754 1
00C754 1 00 00 00 00 .repeat 251-<end
00C758 1 00 00 00 00
00C75C 1 00 00 00 00
00C760 1 00 00 00 00
00C764 1 00 00 00 00
00C768 1 00 00 00 00
00C76C 1 00 00 00 00
00C770 1 00 00 00 00
00C774 1 00 00 00 00
00C778 1 00 00 00 00
00C77C 1 00 00 00 00
00C780 1 00 00 00 00
00C784 1 00 00 00 00
00C788 1 00 00 00 00
00C78C 1 00 00 00 00
00C790 1 00 00 00 00
00C794 1 00 00 00 00
00C798 1 00 00 00 00
00C79C 1 00 00 00 00
00C7A0 1 00 00 00 00
00C7A4 1 00 00 00 00
00C7A8 1 00 00 00 00
00C7AC 1 00 00 00 00
00C7B0 1 00 00 00 00
00C7B4 1 00 00 00 00
00C7B8 1 00 00 00 00
00C7BC 1 00 00 00 00
00C7C0 1 00 00 00 00
00C7C4 1 00 00 00 00
00C7C8 1 00 00 00 00
00C7CC 1 00 00 00 00
00C7D0 1 00 00 00 00
00C7D4 1 00 00 00 00
00C7D8 1 00 00 00 00
00C7DC 1 00 00 00 00
00C7E0 1 00 00 00 00
00C7E4 1 00 00 00 00
00C7E8 1 00 00 00 00
00C7EC 1 00 00 00 00
00C7F0 1 00 00 00 00
00C7F4 1 00 00 00 00
00C7F8 1 00 00 00 00
00C719 1 A9 A4 lda #$a4
00C71B 1 85 33 sta $33
00C71D 1
00C71D 1 GetFilename:
00C71D 1 20 67 FD jsr $fd67
00C720 1
00C720 1 LoadFile:
00C720 1 A9 00 lda #$00
00C722 1 85 44 sta BufferLo
00C724 1 A9 20 lda #$20
00C726 1 85 45 sta BufferHi
00C728 1 A9 06 lda #$06 ; send command 6 = load
00C72A 1 20 74 C7 jsr SendByte
00C72D 1 A0 00 ldy #$00
00C72F 1 sendFilename:
00C72F 1 B9 00 02 lda $0200,y
00C732 1 C9 8D cmp #$8d
00C734 1 F0 08 beq sendNullTerminator
00C736 1 29 7F and #$7f
00C738 1 20 74 C7 jsr SendByte
00C73B 1 C8 iny
00C73C 1 D0 F1 bne sendFilename
00C73E 1 sendNullTerminator:
00C73E 1 A9 00 lda #$00
00C740 1 20 74 C7 jsr SendByte
00C743 1
00C743 1 20 92 C7 jsr GetByte
00C746 1 85 46 sta BlockLo ; not really a block, just using the memory space
00C748 1 20 92 C7 jsr GetByte
00C74B 1 85 47 sta BlockHi
00C74D 1 NextPage:
00C74D 1 A5 47 lda BlockHi
00C74F 1 F0 10 beq ReadFinalPage
00C751 1 A0 00 ldy #$00
00C753 1 NextByte:
00C753 1 20 92 C7 jsr GetByte
00C756 1 91 44 sta (BufferLo),y
00C758 1 C8 iny
00C759 1 D0 F8 bne NextByte
00C75B 1 E6 45 inc BufferHi
00C75D 1 C6 47 dec BlockHi
00C75F 1 D0 EC bne NextPage
00C761 1 ReadFinalPage:
00C761 1 A5 46 lda BlockLo
00C763 1 F0 0C beq ExitToMonitor
00C765 1 A0 00 ldy #$00
00C767 1 NextByteFinal:
00C767 1 20 92 C7 jsr GetByte
00C76A 1 91 44 sta (BufferLo),y
00C76C 1 C8 iny
00C76D 1 C4 46 cpy BlockLo
00C76F 1 D0 F6 bne NextByteFinal
00C771 1 ExitToMonitor:
00C771 1 20 59 FF jsr $ff59
00C774 1
00C774 1 SendByte:
00C774 1 48 pha
00C775 1 waitWrite:
00C775 1 AD FB C0 lda InputFlags
00C778 1 2A rol
00C779 1 2A rol
00C77A 1 B0 F9 bcs waitWrite
00C77C 1 68 pla
00C77D 1 8D FD C0 sta OutputByte
00C780 1 A9 2E lda #$2e ; set bit 0 low to indicate write started
00C782 1 8D F7 C0 sta OutputFlags
00C785 1 finishWrite:
00C785 1 AD FB C0 lda InputFlags
00C788 1 2A rol
00C789 1 2A rol
00C78A 1 90 F9 bcc finishWrite
00C78C 1 A9 2F lda #$2f
00C78E 1 8D F7 C0 sta OutputFlags
00C791 1 60 rts
00C792 1
00C792 1 GetByte:
00C792 1 A9 2D lda #$2d ;set read flag low
00C794 1 8D F7 C0 sta OutputFlags
00C797 1 waitRead:
00C797 1 AD FB C0 lda InputFlags
00C79A 1 2A rol
00C79B 1 B0 FA bcs waitRead
00C79D 1 AD FE C0 lda InputByte
00C7A0 1 48 pha
00C7A1 1 A9 2F lda #$2f ;set all flags high
00C7A3 1 8D F7 C0 sta OutputFlags
00C7A6 1 finishRead:
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 .endrepeat
00C7FC 1 00 00 .byte 0,0 ;0000 blocks = check status

2
Apple2/MenuFirmware.asm
View File

@ -79,7 +79,7 @@ Text:
.byte $8d
.byte "1. Boot",$8d
.byte "2. Command Line",$8d
.byte "3. File Access [NOT IMPLEMENTED]",$8d
.byte "3. Load File",$8d
.byte $8d
.byte "May take 45 seconds for RPi to start",$8d
.byte "after intial power-on...",$00

64
Apple2/MenuFirmware.lst
View File

@ -97,38 +97,38 @@ Current file: MenuFirmware.asm
00C77B 1 6F 6D 6D 61
00C77F 1 6E 64 20 4C
00C783 1 69 6E 65 8D
00C787 1 33 2E 20 46 .byte "3. File Access [NOT IMPLEMENTED]",$8d
00C78B 1 69 6C 65 20
00C78F 1 41 63 63 65
00C793 1 73 73 20 5B
00C797 1 4E 4F 54 20
00C79B 1 49 4D 50 4C
00C79F 1 45 4D 45 4E
00C7A3 1 54 45 44 5D
00C7A7 1 8D
00C7A8 1 8D .byte $8d
00C7A9 1 4D 61 79 20 .byte "May take 45 seconds for RPi to start",$8d
00C7AD 1 74 61 6B 65
00C7B1 1 20 34 35 20
00C7B5 1 73 65 63 6F
00C7B9 1 6E 64 73 20
00C7BD 1 66 6F 72 20
00C7C1 1 52 50 69 20
00C7C5 1 74 6F 20 73
00C7C9 1 74 61 72 74
00C7CD 1 8D
00C7CE 1 61 66 74 65 .byte "after intial power-on...",$00
00C7D2 1 72 20 69 6E
00C7D6 1 74 69 61 6C
00C7DA 1 20 70 6F 77
00C7DE 1 65 72 2D 6F
00C7E2 1 6E 2E 2E 2E
00C7E6 1 00
00C7E7 1
00C7E7 1 end:
00C7E7 1 60 rts
00C7E8 1
00C7E8 1 00 00 00 00 .repeat 251-<end
00C787 1 33 2E 20 4C .byte "3. Load File",$8d
00C78B 1 6F 61 64 20
00C78F 1 46 69 6C 65
00C793 1 8D
00C794 1 8D .byte $8d
00C795 1 4D 61 79 20 .byte "May take 45 seconds for RPi to start",$8d
00C799 1 74 61 6B 65
00C79D 1 20 34 35 20
00C7A1 1 73 65 63 6F
00C7A5 1 6E 64 73 20
00C7A9 1 66 6F 72 20
00C7AD 1 52 50 69 20
00C7B1 1 74 6F 20 73
00C7B5 1 74 61 72 74
00C7B9 1 8D
00C7BA 1 61 66 74 65 .byte "after intial power-on...",$00
00C7BE 1 72 20 69 6E
00C7C2 1 74 69 61 6C
00C7C6 1 20 70 6F 77
00C7CA 1 65 72 2D 6F
00C7CE 1 6E 2E 2E 2E
00C7D2 1 00
00C7D3 1
00C7D3 1 end:
00C7D3 1 60 rts
00C7D4 1
00C7D4 1 00 00 00 00 .repeat 251-<end
00C7D8 1 00 00 00 00
00C7DC 1 00 00 00 00
00C7E0 1 00 00 00 00
00C7E4 1 00 00 00 00
00C7E8 1 00 00 00 00
00C7EC 1 00 00 00 00
00C7F0 1 00 00 00 00
00C7F4 1 00 00 00 00

BIN
RaspberryPi/Apple2-IO-RPi.hdv
View File

Binary file not shown.