Apple-2-SW/a2d
1
0
Fork 0
mirror of https://github.com/mi57730/a2d.git synced 2025-08-09 16:25:02 +00:00
Code Issues Projects Releases Wiki Activity

SIF DA: Apply IIgs fixes

Browse Source
This commit is contained in:
Joshua Bell
2018-11-16 20:44:03 -08:00
parent ab1389d6df
commit 1aa7564e13
3 changed files with 18 additions and 10 deletions
Download Patch File Download Diff File Expand all files Collapse all files

22
desk.acc/show.image.file.s
View File

@@ -632,15 +632,19 @@ mode: .byte 0 ; 0 = B&W, $80 = color
lda AN3_ON
lda AN3_OFF
;; IIgs?
jsr test_iigs
bcc iigs
;; Le Chat Mauve - COL140 mode
;; (AN3 off, HR1 off, HR2 off, HR3 off)
;; Skip on IIgs since emulators (KEGS/GSport/GSplus) crash.
sta HR2_OFF
sta HR3_OFF
bcs done
;; Apple IIgs - DHR Color
jsr test_iigs
bcs done
lda NEWVIDEO
iigs: lda NEWVIDEO
and #<~(1<<5) ; Color
sta NEWVIDEO
@@ -662,15 +666,19 @@ done: rts
sta SET80VID
lda AN3_OFF
;; IIgs?
jsr test_iigs
bcc iigs
;; Le Chat Mauve - BW560 mode
;; (AN3 off, HR1 off, HR2 on, HR3 on)
;; Skip on IIgs since emulators (KEGS/GSport/GSplus) crash.
sta HR2_ON
sta HR3_ON
bcs done
;; Apple IIgs - DHR B&W
jsr test_iigs
bcs done
lda NEWVIDEO
iigs: lda NEWVIDEO
ora #(1<<5) ; B&W
sta NEWVIDEO
@@ -681,7 +689,7 @@ done: rts
.proc test_iigs
lda ROMIN2
sec
jsr $FE1F
jsr ID_BYTE_FE1F
lda LCBANK1
lda LCBANK1
rts

2
desk.acc/this.apple.s
View File

@@ -539,7 +539,7 @@ iie_or_later:
lda #model::laser128
bpl done
: sec
jsr $FE1F
jsr ID_BYTE_FE1F
bcs :+
lda #model::iigs
bpl done

2
inc/apple2.inc
View File

@@ -63,7 +63,7 @@ IRQ_VECTOR := $3FE
ID_BYTE_FBB3 := $FBB3 ; $06 = IIe or later
ID_BYTE_FBC0 := $FBC0 ; $EA = IIe, $E0 = IIe enh/IIgs, $00 = IIc/IIc+
ID_BYTE_FE1F := $FE1F ; RTS ($60) on pre-IIgs
ID_BYTE_FE1F := $FE1F ; RTS ($60) on pre-IIgs, clears carry on IIgs
;;; ============================================================