zjkuki/Apple2-IO-RPi
1
0
Fork 0
forked from Apple-2-HW/Apple2-IO-RPi
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Assembler clean-up

Browse Source
This commit is contained in:
Terence Boldt 2021-07-01 22:34:09 -04:00
parent 24b9f62d88
commit 34af9d54c7
10 changed files with 50 additions and 28 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.

7
Apple2/CommandFirmware.asm
View File

@ -24,6 +24,9 @@ ExecCommand = $05
LoadFileCommand = $06
SaveFileCommand = $07
InputString = $fd67
PrintChar = $fded
.org SLOT*$100 + $C000
;ID bytes for booting and drive detection
cpx #$20 ;ID bytes for ProDOS and the
@ -66,7 +69,7 @@ endSendHelp:
lda #$a4
sta $33
GetCommand:
jsr $fd67
jsr InputString
lda $0200
cmp #$8d ;skip when return found
beq GetCommand
@ -93,7 +96,7 @@ DumpOutput:
jsr GetByte
cmp #$00
beq endOutput
jsr $fded
jsr PrintChar
clc
bcc DumpOutput
endOutput:

9
Apple2/CommandFirmware.lst
View File

@ -1,4 +1,4 @@
ca65 V2.17 - Raspbian 2.17-1
ca65 V2.18 - N/A
Main file : CommandFirmware.asm
Current file: CommandFirmware.asm
@ -28,6 +28,9 @@ Current file: CommandFirmware.asm
000000r 1 LoadFileCommand = $06
000000r 1 SaveFileCommand = $07
000000r 1
000000r 1 InputString = $fd67
000000r 1 PrintChar = $fded
000000r 1
000000r 1 .org SLOT*$100 + $C000
00C700 1 ;ID bytes for booting and drive detection
00C700 1 E0 20 cpx #$20 ;ID bytes for ProDOS and the
@ -70,7 +73,7 @@ Current file: CommandFirmware.asm
00C739 1 A9 A4 lda #$a4
00C73B 1 85 33 sta $33
00C73D 1 GetCommand:
00C73D 1 20 67 FD jsr $fd67
00C73D 1 20 67 FD jsr InputString
00C740 1 AD 00 02 lda $0200
00C743 1 C9 8D cmp #$8d ;skip when return found
00C745 1 F0 F6 beq GetCommand
@ -97,7 +100,7 @@ Current file: CommandFirmware.asm
00C768 1 20 9B C7 jsr GetByte
00C76B 1 C9 00 cmp #$00
00C76D 1 F0 06 beq endOutput
00C76F 1 20 ED FD jsr $fded
00C76F 1 20 ED FD jsr PrintChar
00C772 1 18 clc
00C773 1 90 F3 bcc DumpOutput
00C775 1 endOutput:

2
Apple2/DriveFirmware.lst
View File

@ -1,4 +1,4 @@
ca65 V2.17 - Raspbian 2.17-1
ca65 V2.18 - N/A
Main file : DriveFirmware.asm
Current file: DriveFirmware.asm

7
Apple2/FileAccessFirmware.asm
View File

@ -24,6 +24,9 @@ ExecCommand = $05
LoadFileCommand = $06
SaveFileCommand = $07
InputString = $fd67
Monitor = $ff59
.org SLOT*$100 + $C000
;ID bytes for booting and drive detection
cpx #$20 ;ID bytes for ProDOS and the
@ -50,7 +53,7 @@ Start:
sta $33
GetFilename:
jsr $fd67
jsr InputString
LoadFile:
lda #$00
@ -99,7 +102,7 @@ NextByteFinal:
cpy BlockLo
bne NextByteFinal
ExitToMonitor:
jsr $ff59
jsr Monitor
SendByte:
pha

9
Apple2/FileAccessFirmware.lst
View File

@ -1,4 +1,4 @@
ca65 V2.17 - Raspbian 2.17-1
ca65 V2.18 - N/A
Main file : FileAccessFirmware.asm
Current file: FileAccessFirmware.asm
@ -28,6 +28,9 @@ Current file: FileAccessFirmware.asm
000000r 1 LoadFileCommand = $06
000000r 1 SaveFileCommand = $07
000000r 1
000000r 1 InputString = $fd67
000000r 1 Monitor = $ff59
000000r 1
000000r 1 .org SLOT*$100 + $C000
00C700 1 ;ID bytes for booting and drive detection
00C700 1 E0 20 cpx #$20 ;ID bytes for ProDOS and the
@ -54,7 +57,7 @@ Current file: FileAccessFirmware.asm
00C71B 1 85 33 sta $33
00C71D 1
00C71D 1 GetFilename:
00C71D 1 20 67 FD jsr $fd67
00C71D 1 20 67 FD jsr InputString
00C720 1
00C720 1 LoadFile:
00C720 1 A9 00 lda #$00
@ -103,7 +106,7 @@ Current file: FileAccessFirmware.asm
00C76D 1 C4 46 cpy BlockLo
00C76F 1 D0 F6 bne NextByteFinal
00C771 1 ExitToMonitor:
00C771 1 20 59 FF jsr $ff59
00C771 1 20 59 FF jsr Monitor
00C774 1
00C774 1 SendByte:
00C774 1 48 pha

21
Apple2/MenuFirmware.asm
View File

@ -25,6 +25,11 @@ LoadFileCommand = $06
SaveFileCommand = $07
MenuCommand = $08
Wait = $fca8
PrintChar = $fded
Home = $fc58
ReadChar = $fd0c
.org SLOT*$100 + $C000
;ID bytes for booting and drive detection
cpx #$20 ;ID bytes for ProDOS and the
@ -52,13 +57,13 @@ Start:
sta $36
lda #$fd
sta $37
jsr $fc58 ;clear screen and show menu options
jsr Home ;clear screen and show menu options
ldy #$00
PrintString:
lda Text,y
beq WaitForRPi
ora #$80
jsr $fded
jsr PrintChar
iny
bne PrintString
@ -67,13 +72,13 @@ WaitForRPi:
rol
bcs OK
lda #$ff
jsr $fca8
lda #$ae
jsr $fded
jsr Wait
lda #'.'
jsr PrintChar
jmp WaitForRPi
OK:
jsr $fc58 ;clear screen
jsr Home ;clear screen
lda #MenuCommand ;request menu text from RPi
jsr SendByte
@ -82,12 +87,12 @@ DumpOutput:
jsr GetByte
cmp #$00
beq GetChar
jsr $fded
jsr PrintChar
clc
bcc DumpOutput
GetChar:
jsr $fd0c
jsr ReadChar
sec ;subtract ascii "1" to get 0 - 3 from "1" to "4"
sbc #$b1
asl ;put in top nibble as EPROM page

23
Apple2/MenuFirmware.lst
View File

@ -1,4 +1,4 @@
ca65 V2.17 - Raspbian 2.17-1
ca65 V2.18 - N/A
Main file : MenuFirmware.asm
Current file: MenuFirmware.asm
@ -29,6 +29,11 @@ Current file: MenuFirmware.asm
000000r 1 SaveFileCommand = $07
000000r 1 MenuCommand = $08
000000r 1
000000r 1 Wait = $fca8
000000r 1 PrintChar = $fded
000000r 1 Home = $fc58
000000r 1 ReadChar = $fd0c
000000r 1
000000r 1 .org SLOT*$100 + $C000
00C700 1 ;ID bytes for booting and drive detection
00C700 1 E0 20 cpx #$20 ;ID bytes for ProDOS and the
@ -56,13 +61,13 @@ Current file: MenuFirmware.asm
00C71B 1 85 36 sta $36
00C71D 1 A9 FD lda #$fd
00C71F 1 85 37 sta $37
00C721 1 20 58 FC jsr $fc58 ;clear screen and show menu options
00C721 1 20 58 FC jsr Home ;clear screen and show menu options
00C724 1 A0 00 ldy #$00
00C726 1 PrintString:
00C726 1 B9 B8 C7 lda Text,y
00C729 1 F0 08 beq WaitForRPi
00C72B 1 09 80 ora #$80
00C72D 1 20 ED FD jsr $fded
00C72D 1 20 ED FD jsr PrintChar
00C730 1 C8 iny
00C731 1 D0 F3 bne PrintString
00C733 1
@ -71,13 +76,13 @@ Current file: MenuFirmware.asm
00C736 1 2A rol
00C737 1 B0 0D bcs OK
00C739 1 A9 FF lda #$ff
00C73B 1 20 A8 FC jsr $fca8
00C73E 1 A9 AE lda #$ae
00C740 1 20 ED FD jsr $fded
00C73B 1 20 A8 FC jsr Wait
00C73E 1 A9 2E lda #'.'
00C740 1 20 ED FD jsr PrintChar
00C743 1 4C 33 C7 jmp WaitForRPi
00C746 1
00C746 1 OK:
00C746 1 20 58 FC jsr $fc58 ;clear screen
00C746 1 20 58 FC jsr Home ;clear screen
00C749 1
00C749 1 A9 08 lda #MenuCommand ;request menu text from RPi
00C74B 1 20 6A C7 jsr SendByte
@ -86,12 +91,12 @@ Current file: MenuFirmware.asm
00C74E 1 20 88 C7 jsr GetByte
00C751 1 C9 00 cmp #$00
00C753 1 F0 06 beq GetChar
00C755 1 20 ED FD jsr $fded
00C755 1 20 ED FD jsr PrintChar
00C758 1 18 clc
00C759 1 90 F3 bcc DumpOutput
00C75B 1
00C75B 1 GetChar:
00C75B 1 20 0C FD jsr $fd0c
00C75B 1 20 0C FD jsr ReadChar
00C75E 1 38 sec ;subtract ascii "1" to get 0 - 3 from "1" to "4"
00C75F 1 E9 B1 sbc #$b1
00C761 1 0A asl ;put in top nibble as EPROM page

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

Binary file not shown.