deschw: display Apple IIc Plus hidden slot 6 SmartPort info

This commit is contained in:
mgcaret 2018-06-11 22:36:41 -07:00
parent 830cae1e88
commit 75fb9020ba
1 changed files with 27 additions and 2 deletions

View File

@ -894,13 +894,37 @@ desSp1: lda slot
ora #$c0 ora #$c0
sta rom+1 sta rom+1
jsr chk_smport jsr chk_smport
bcs desNotSP bcs chk_hiddenSP
jsr Descr1SP jsr Descr1SP
desNotSP: inc slot desNotSP: inc slot
lda slot lda slot
cmp #8 cmp #8
bcc desSp1 bcc desSp1
rts rts
; look for IIc Plus hidden smartport
chk_hiddenSP:
lda $fbbf
cmp #5
bne desNotSP
lda slot
cmp #6
bne desNotSP
lda $c64e
cmp #$38 ; sec
bne desNotSP
lda $c651
cmp #$18 ; clc
bne desNotSP
jsr xmess
asc "IIc Plus hidden SmartPort in slot 6."
.byte $8d,$00
lda #$c6
sta SpTrick+2
lda #$51
sta SpTrick+1
jsr SpDescr
jmp desNotSP
; ;
Descr1SP: Descr1SP:
jsr xmess jsr xmess
@ -923,6 +947,7 @@ Descr1SP:
lda rom+1 lda rom+1
sta SpTrick+2 sta SpTrick+2
; ;
SpDescr:
jsr SpStatus jsr SpStatus
jsr EachStatus jsr EachStatus
rts rts