mirror of https://github.com/stid/woz64.git
75 lines
1.5 KiB
NASM
75 lines
1.5 KiB
NASM
//BasicUpstart2(start)
|
|
|
|
* = $8000 "Main"
|
|
|
|
// Constants
|
|
.namespace constants {
|
|
.label MainColor = $05
|
|
.label BorderColor = $03
|
|
.label ScreenMem = $0400
|
|
}
|
|
|
|
.word coldstart // coldstart vector
|
|
.word start // coldstart vector
|
|
|
|
.byte $C3
|
|
.byte $C2
|
|
.byte $CD
|
|
.byte $38
|
|
.byte $30
|
|
|
|
|
|
coldstart:
|
|
sei
|
|
stx $d016
|
|
jsr $fda3 // Prepare IRQ
|
|
jsr $fd50 // Init memory. Rewrite this routine to speed up boot process.
|
|
jsr $fd15 // Init I/O
|
|
jsr $ff5b // Init video
|
|
cli
|
|
/*
|
|
jsr $E453
|
|
jsr $E3BF
|
|
jsr $E422
|
|
ldx #$FB
|
|
*/
|
|
//tsx
|
|
|
|
start:
|
|
jsr initApp;
|
|
print(testString)
|
|
.for(var i=0; i<23; i++) {
|
|
print(testString2)
|
|
}
|
|
deadLoop: jmp deadLoop
|
|
|
|
|
|
initApp: {
|
|
ClearColorRam($00)
|
|
ClearScreen(constants.ScreenMem, ' ')
|
|
SetBorderColor(constants.MainColor)
|
|
SetBackgroundColor(constants.BorderColor)
|
|
jsr Screen.init
|
|
rts
|
|
}
|
|
|
|
#import "screen.asm"
|
|
|
|
|
|
.encoding "screencode_mixed"
|
|
testString:
|
|
.text "fantastic job 1.0 by =stid="
|
|
.byte 13
|
|
.byte 13
|
|
.byte 0
|
|
|
|
testString2:
|
|
.text ".======================================."
|
|
.byte 13
|
|
.byte 0
|
|
|
|
* = $9FFF "EpromFiller"
|
|
.byte 0
|
|
|
|
|