Add beginning info text

This commit is contained in:
Natt Akuma 2025-11-30 18:39:21 +07:00
parent d6c9aaab04
commit 31286bcad5
3 changed files with 74 additions and 5 deletions

View file

@ -27,8 +27,8 @@ dialog_tick: .res 1
.include "lz_zp.asm"
zx02 = $082f
check_return = $08b5
zx02 = $0832
check_return = $08b8
CODE_START_ADDR = $e000
aart_lz_buffer = $fd00
@ -54,7 +54,6 @@ code_start:
lda #0
sta enable_music
jsr init_2x
jsr part_11
jsr clr_txt
ldx #<copyright
ldy #>copyright

View file

@ -14,6 +14,7 @@ pntr = ZP+7
.org $080d
jsr print_info
copy_start:
sei
@ -53,8 +54,8 @@ check_return:
dec $01
jmp CODE_START_ADDR
.assert zx02 = $082f, error, .sprintf("change zx02 address to $%04x", zx02)
.assert check_return = $08b5, error, .sprintf("change check_return address to $%04x", check_return)
.assert zx02 = $0832, error, .sprintf("change zx02 address to $%04x", zx02)
.assert check_return = $08b8, error, .sprintf("change check_return address to $%04x", check_return)
.res loadraw - *
.incbin "../../build/loader-c64.prg", 2
@ -63,3 +64,72 @@ check_return:
.incbin "../../build/install-c64.prg", 2
code: .incbin "main.zx0"
print_info:
lda #$20
ldx #0
:
sta $400,x
sta $500,x
sta $600,x
sta $700,x
inx
bne :-
lda #41
sta ZX0_dst
lda #4
sta ZX0_dst+1
lda #$17
sta $d018
ldy #0
@print_loop:
lda info,x
bne :++
lda ZX0_dst
clc
adc #40
sta ZX0_dst
bcc :+
inc ZX0_dst+1
:
ldy #0
beq :++
:
sta (ZX0_dst),y
iny
:
inx
cpx #info_end-info
bne @print_loop
rts
.macpack cbm
info:
scrcode "Code:"
.byte 0
scrcode " Aart1256 - engine, music driver"
.byte 0
scrcode " Natt - engine, tooling"
.byte 0, 0
scrcode "C64 Graphics:"
.byte 0
scrcode " Grongy"
.byte 0
scrcode " Natt"
.byte 0, 0
scrcode "Music arranges & ported graphics:"
.byte 0
scrcode " Aleksa Odzakovic (spaztron64)"
.byte 0, 0
scrcode "Greetz to:"
.byte 0
scrcode " Gyabo"
.byte 0
scrcode " Yosshin"
.byte 0
scrcode " Hadohado"
.byte 0
scrcode " Kazpulse"
.byte 0
scrcode " Gam"
info_end: