Added waitvsync() for the Enhanced Apple //e.
The implementation is a bit tricky as it requires to take different code paths for the //e, the //c and the IIgs. Additionally the //c only provides a VBL IRQ flag supposed to be used by an IRQ handler to determine what triggered the IRQ. However, masking IRQs on the CPU, activating the VBL IRQ, clearing any pending VBL IRQs and then polling for the IRQ flag does the trick.
This commit is contained in:
@@ -1,6 +1,6 @@
|
||||
|
||||
;-----------------------------------------------------------------------------
|
||||
; Zero page stuff
|
||||
; Zero page
|
||||
|
||||
WNDLFT := $20 ; Text window left
|
||||
WNDWDTH := $21 ; Text window width
|
||||
@@ -31,35 +31,41 @@ PWREDUP := $03F4 ; This must be = EOR #$A5 of SOFTEV+1
|
||||
KBD := $C000 ; Read keyboard
|
||||
KBDSTRB := $C010 ; Clear keyboard strobe
|
||||
|
||||
; 80 column video switches
|
||||
; 80 column video
|
||||
CLR80COL:= $C000 ; Disable 80 column store
|
||||
SET80COL:= $C001 ; Enable 80 column store
|
||||
RD80COL := $C018 ; >127 if 80 column store enabled
|
||||
RD80VID := $C01F ; >127 if 80 column video enabled
|
||||
|
||||
; Character set switches
|
||||
; Character set
|
||||
CLRALTCHAR := $C00E ; Normal Apple II char set
|
||||
SETALTCHAR := $C00F ; Norm/inv LC, no flash
|
||||
ALTCHARSET := $C01E ; >127 if alt charset switched in
|
||||
|
||||
; Language card switches
|
||||
; Language card
|
||||
RDLCBNK2:= $C011 ; >127 if LC bank 2 in use
|
||||
RDLCRAM := $C012 ; >127 if LC is read enabled
|
||||
ROMIN := $C081 ; Swap in D000-FFFF ROM
|
||||
LCBANK2 := $C083 ; Swap in LC bank 2
|
||||
LCBANK1 := $C08B ; Swap in LC bank 1
|
||||
|
||||
; Video mode switches
|
||||
TXTCLR := $C050 ; Display graphics
|
||||
TXTSET := $C051 ; Display text
|
||||
MIXCLR := $C052 ; Disable 4 lines of text
|
||||
MIXSET := $C053 ; Enable 4 lines of text
|
||||
LOWSCR := $C054 ; Page 1
|
||||
HISCR := $C055 ; Page 2
|
||||
LORES := $C056 ; Lores graphics
|
||||
HIRES := $C057 ; Hires graphics
|
||||
DHIRESON := $C05E ; Enable double-width graphics
|
||||
DHIRESOFF := $C05F ; Disable double-width graphics
|
||||
; Vertical blanking
|
||||
RDVBLBAR := $C019 ; >127 if not vertical blanking
|
||||
RDVBLMSK := $C041 ; >127 if VBL interrupts enabled
|
||||
DISVBL := $C05A ; Disable VBL interrupts
|
||||
ENVBL := $C05B ; Enable VBL interrupts
|
||||
|
||||
; Video mode
|
||||
TXTCLR := $C050 ; Display graphics
|
||||
TXTSET := $C051 ; Display text
|
||||
MIXCLR := $C052 ; Disable 4 lines of text
|
||||
MIXSET := $C053 ; Enable 4 lines of text
|
||||
LOWSCR := $C054 ; Page 1
|
||||
HISCR := $C055 ; Page 2
|
||||
LORES := $C056 ; Lores graphics
|
||||
HIRES := $C057 ; Hires graphics
|
||||
DHIRESON := $C05E ; Enable double-width graphics
|
||||
DHIRESOFF := $C05F ; Disable double-width graphics
|
||||
|
||||
; Game controller
|
||||
TAPEIN := $C060 ; Read casette input / Switch input 3
|
||||
@@ -73,8 +79,8 @@ PADDL3 := $C067 ; Analog input 3
|
||||
PTRIG := $C070 ; Analog input reset
|
||||
|
||||
; Input/Output Unit
|
||||
IOUDISON := $C07E ; Disable IOU
|
||||
IOUDISOFF := $C07F ; Enable IOU
|
||||
IOUDISON := $C07E ; Disable IOU
|
||||
IOUDISOFF := $C07F ; Enable IOU
|
||||
|
||||
; Control Your Apple
|
||||
CYAREG := $C036 ; Bits 0-3=disk detect 4=shadow all banks 7=fast
|
||||
|
||||
Reference in New Issue
Block a user