Consistently place constructors (and their exclusive subroutines) in "INIT".
This commit is contained in:
@@ -5,9 +5,11 @@
|
||||
.include "pce.inc"
|
||||
.include "extzp.inc"
|
||||
|
||||
.forceimport ticktock
|
||||
.export _clock
|
||||
.forceimport ticktock
|
||||
.importzp sreg
|
||||
.constructor initclock
|
||||
|
||||
|
||||
.proc _clock
|
||||
|
||||
@@ -21,8 +23,7 @@
|
||||
|
||||
.endproc
|
||||
|
||||
.constructor initclock
|
||||
|
||||
.segment "INIT"
|
||||
initclock:
|
||||
lda #0
|
||||
ldx #3
|
||||
|
||||
@@ -1,14 +1,16 @@
|
||||
.include "pce.inc"
|
||||
.include "extzp.inc"
|
||||
|
||||
.import vce_init
|
||||
.import psg_init
|
||||
.import vdc_init
|
||||
.import vce_init
|
||||
.import psg_init
|
||||
.import colors
|
||||
.importzp ptr1, tmp1
|
||||
|
||||
.constructor initconio
|
||||
|
||||
.macpack longbranch
|
||||
|
||||
.segment "INIT"
|
||||
initconio:
|
||||
jsr vce_init
|
||||
jsr psg_init
|
||||
@@ -20,7 +22,6 @@ initconio:
|
||||
st2 #>$0088
|
||||
rts
|
||||
|
||||
.import colors
|
||||
set_palette:
|
||||
stz VCE_ADDR_LO
|
||||
stz VCE_ADDR_HI
|
||||
@@ -48,11 +49,6 @@ set_palette:
|
||||
|
||||
rts
|
||||
|
||||
;----------------------------------------------------------------------------
|
||||
;
|
||||
;----------------------------------------------------------------------------
|
||||
|
||||
.importzp ptr1, tmp1
|
||||
conio_init:
|
||||
; Load font
|
||||
st0 #VDC_MAWR
|
||||
@@ -80,13 +76,11 @@ conio_init:
|
||||
sta tmp1
|
||||
jsr copy
|
||||
|
||||
|
||||
ldx #0
|
||||
stx BGCOLOR
|
||||
inx
|
||||
stx CHARCOLOR
|
||||
|
||||
|
||||
rts
|
||||
|
||||
copy:
|
||||
|
||||
@@ -1,8 +1,8 @@
|
||||
|
||||
.include "pce.inc"
|
||||
|
||||
.export psg_init
|
||||
|
||||
.segment "INIT"
|
||||
psg_init:
|
||||
clx
|
||||
stz PSG_GLOBAL_PAN ; Clear global balance
|
||||
|
||||
@@ -1,8 +1,8 @@
|
||||
|
||||
.include "pce.inc"
|
||||
|
||||
.export vce_init
|
||||
|
||||
.segment "INIT"
|
||||
vce_init:
|
||||
; Set CTA to zero
|
||||
stz VCE_ADDR_LO
|
||||
|
||||
Reference in New Issue
Block a user