Consistently place constructors (and their exclusive subroutines) in "INIT".

This commit is contained in:
Oliver Schmidt
2015-10-09 21:44:20 +02:00
parent 575f859a03
commit 326da85145
8 changed files with 17 additions and 22 deletions

View File

@@ -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

View File

@@ -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:

View File

@@ -1,8 +1,8 @@
.include "pce.inc"
.export psg_init
.segment "INIT"
psg_init:
clx
stz PSG_GLOBAL_PAN ; Clear global balance

View File

@@ -1,8 +1,8 @@
.include "pce.inc"
.export vce_init
.segment "INIT"
vce_init:
; Set CTA to zero
stz VCE_ADDR_LO