4cade/src/hw.vbl.init.a

46 lines
1.1 KiB
Plaintext
Raw Normal View History

;license:MIT
;(c) 2020 by qkumba
;
; Identify platform and construct appropriate VBL routine
romid = $FBB3
; $38=][, $EA=][+, $06=//e compatible
ROMID_IIECOMPAT = 6
romid_ec = $FBC0
; $EA=//e original, $E0=//e enhanced, $E1=//e EDM, $00=//c
; IIGS
idroutine = $FE1F ; SEC, JSR $FE1F, BCS notgs
BuildVBLFunction
ldx romid
cpx #ROMID_IIECOMPAT
bne @build_none ; not a //e
lda romid_ec
beq @build_iic ; //c family
sec
jsr idroutine ; check for IIgs
bcs @NotGS
lda #$30
sta patch_VBL_iigs1
lda #$10
sta patch_VBL_iigs2
@NotGS
rts
@build_iic
lda #$70
2020-03-18 02:46:01 +00:00
sta patch_VBL_iic1+1
lda #$60
sta patch_VBL_iic2
2020-03-19 02:53:50 +00:00
lda #<iWaitForVBL
sta WaitForVBL+1
lda #>iWaitForVBL
sta WaitForVBL+2
lda #$4C
sta UnwaitForVBL
rts
2020-03-19 02:53:50 +00:00
@build_none
lda #$60
sta WaitForVBL
rts