65 lines
764 B
NASM
65 lines
764 B
NASM
processor 6502
|
|
|
|
org $a000
|
|
|
|
WORD .coldstart
|
|
WORD .warmstart
|
|
BYTE #$41, #$30, #$c3, #$c2, #$cd
|
|
|
|
.coldstart:
|
|
cld
|
|
sei
|
|
;jmp .coldstart
|
|
jsr $fd8d
|
|
jsr $fd52
|
|
jsr $fdf9
|
|
jsr $e518
|
|
lda $0288
|
|
sta $0294
|
|
jsr $e45b
|
|
jsr $e3a4
|
|
jsr $e404
|
|
cli
|
|
|
|
.warmstart:
|
|
lda #$02
|
|
ldx #$00
|
|
clear_color_ram:
|
|
sta $9400,x
|
|
sta $9500,x
|
|
sta $9600,x
|
|
sta $9700,x
|
|
dex
|
|
bne clear_color_ram
|
|
|
|
ldx #$00
|
|
print:
|
|
lda message,x
|
|
beq .end
|
|
sec
|
|
sbc #$40
|
|
sta 7724,x
|
|
sta 7746,x
|
|
sta 7768,x
|
|
sta 7790,x
|
|
inx
|
|
jmp print
|
|
|
|
.end:
|
|
|
|
|
|
restart:
|
|
ldx #$00
|
|
loop:
|
|
stx 7680
|
|
dex
|
|
bne loop
|
|
jmp restart
|
|
|
|
|
|
message:
|
|
BYTE "CIAO DEVELER BY GIOMBA",#$0
|
|
|
|
. = $bfff
|
|
BYTE #$ff
|