Apple-2-SW
/
a2d
mirror of https://github.com/mi57730/a2d.git
1
0
Fork 0
Code Issues Projects Releases Wiki Activity

Key Caps DA: Fix IIc+ test

This commit is contained in:
Joshua Bell 2019-07-11 15:08:14 -07:00
parent 393bd12491
commit 9e7fcdf9ea
1 changed files with 14 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

21
desk.acc/key.caps.s
View File

@ -803,14 +803,21 @@ char: .byte 0
rts
:
;; Is IIgs?
;; Bank in ROM and do check
lda ROMIN2
sec
jsr check
lda LCBANK1
lda LCBANK1
rts
;; --------------------------------------------------
;; Do the check (with ROM banked in)
;; Is IIgs?
check: sec
jsr ID_BYTE_FE1F ; Clears carry if IIgs
lda LCBANK1
lda LCBANK1
bcs :+ ; No, carry still set
sec
sec ; Yes, is a IIgs
rts
;; Is IIc+?
@ -819,10 +826,10 @@ char: .byte 0
lda ID_BYTE_FBBF ; $05 = IIc Plus
cmp #$05
bne done
sec
sec ; Yes, is a IIc+
rts
done: clc
done: clc ; No - older layout
rts
.endproc