mirror of
https://github.com/mgcaret/davex-mg-utils.git
synced 2024-12-22 00:29:15 +00:00
deschw: display Apple IIc Plus hidden slot 6 SmartPort info
This commit is contained in:
parent
830cae1e88
commit
75fb9020ba
27
deschw.s
27
deschw.s
@ -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
|
||||||
|
Loading…
Reference in New Issue
Block a user