initial commit
This commit is contained in:
commit
ab4ac6e89c
|
@ -0,0 +1,41 @@
|
|||
KERNAL_CLEAR_SCREEN = $e544 ; KERNAL ROM routine.
|
||||
VICSCN = $0400 ; VIC-II Screen Video Matrix, 1024 (int).
|
||||
* = $8000
|
||||
|
||||
.word coldstart ; coldstart vector
|
||||
.word warmstart ; warmstart vector
|
||||
.byte $C3,$C2,$CD,$38,$30 ; "CBM8O". Autostart string
|
||||
|
||||
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
|
||||
|
||||
warmstart
|
||||
; Insert your code here
|
||||
jsr KERNAL_CLEAR_SCREEN
|
||||
|
||||
; read string by byte into vram until null byte
|
||||
ldx #0
|
||||
loop
|
||||
lda my_string,x
|
||||
cmp #$00
|
||||
beq bail
|
||||
sta VICSCN,x
|
||||
inx
|
||||
jmp loop
|
||||
bail
|
||||
; pretty colors
|
||||
inc $d020
|
||||
jmp *-3
|
||||
|
||||
.enc "screen"
|
||||
my_string .null "HELLO WORLD!"
|
||||
.enc "none"
|
||||
|
||||
* = $9fff ; fill up to 8k or cartconv will fail
|
||||
.byte 0
|
Loading…
Reference in New Issue