Apple-2-HW/Apple2-IO-RPi
2
0
Fork 1
mirror of https://github.com/tjboldt/Apple2-IO-RPi.git synced 2024-06-04 09:29:29 +00:00
Code Issues Projects Releases Wiki Activity

Update card detection

Browse Source
This commit is contained in:
Terence Boldt 2024-04-18 14:05:30 -04:00
parent ebc7484a12
commit 9247c81479
4 changed files with 16 additions and 14 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
Apple2/Clock.Driver.asm
View File

@ -122,7 +122,7 @@ TextCardNotFound:
.byte "Apple2-IO-RPi not found",$8D,$00 .byte "Apple2-IO-RPi not found",$8D,$00
TextDriverInstalled: TextDriverInstalled:
.byte "Clock driver installed",$8D,$00 .byte "Apple2-IO-RPi Clock driver version 0001",$8D,$00
Driver: Driver:
lda #GetTimeCommand lda #GetTimeCommand

19
Apple2/RPi.Command.asm
View File

@ -71,7 +71,6 @@ CardNotFound:
PrintCardNotFound: PrintCardNotFound:
lda TextCardNotFound,y lda TextCardNotFound,y
beq Failed beq Failed
ora #$80
jsr PrintChar jsr PrintChar
iny iny
bne PrintCardNotFound bne PrintCardNotFound
@ -82,7 +81,6 @@ FoundCard:
PrintCardFound: PrintCardFound:
lda TextCardFound,y lda TextCardFound,y
beq PrintCardNumber beq PrintCardNumber
ora #$80
jsr PrintChar jsr PrintChar
iny iny
bne PrintCardFound bne PrintCardFound
@ -108,7 +106,6 @@ Start:
PrintString: PrintString:
lda Text,y lda Text,y
beq copyDriver beq copyDriver
ora #$80
jsr PrintChar jsr PrintChar
iny iny
bne PrintString bne PrintString
@ -159,18 +156,24 @@ a2help:
.byte "a2help", $00 .byte "a2help", $00
Text: Text:
aschi "RPI command version: 000E" .if HW_TYPE = 0
.byte $8d aschi "RPI command version: 000F (classic)"
.byte $00 .else
aschi "RPI command version: 800F (pico)"
.endif
.byte $8d
.byte $00
IdBytes: IdBytes:
.byte $E0,$20,$E0,$00,$E0,$03,$E0,$3C,$A9,$3F .byte $E0,$20,$E0,$00,$E0,$03,$E0,$3C,$A9,$3F
TextCardFound: TextCardFound:
.byte "Found Apple2-IO-RPi in slot ",$00 aschi "Found Apple2-IO-RPi in slot "
.byte $00
TextCardNotFound: TextCardNotFound:
.byte "Apple2-IO-RPi not found",$8D aschi "Apple2-IO-RPi not found"
.byte $8D
end: end:
.byte $00 .byte $00

4
Apple2/Shell.asm
View File

@ -310,9 +310,9 @@ restoreChar:
Text: Text:
.if HW_TYPE = 0 .if HW_TYPE = 0
.byte "Apple2-IO-RPi Shell Version 000F",$8d .byte "Apple2-IO-RPi Shell Version 0010 (classic)",$8d
.else .else
.byte "Apple2-IO-RPi Shell Version 800F",$8d .byte "Apple2-IO-RPi Shell Version 8010 (pico)",$8d
.endif .endif
.byte "(c)2020-2024 Terence J. Boldt",$8d .byte "(c)2020-2024 Terence J. Boldt",$8d
.byte $8d .byte $8d

5
Apple2/Startup.bas
View File

@ -9,6 +9,5 @@
18 PRINT "To start a shell to the RPi, type:" 18 PRINT "To start a shell to the RPi, type:"
19 PRINT "-shell" 19 PRINT "-shell"
20 PRINT 20 PRINT
21 PRINT "To add RPI command to ProDOS, type:" 21 PRINT CHR$ (4)"-clock.driver"
22 PRINT "-rpi.command" 22 PRINT CHR$ (4)"-rpi.command"
23 PRINT