diff --git a/assets/tileset_c64.png b/assets/tileset_c64.png new file mode 100644 index 0000000..1a3137e Binary files /dev/null and b/assets/tileset_c64.png differ diff --git a/loader/samples/minexample/minexample.s b/loader/samples/minexample/minexample.s index 65c1e5e..f0369ad 100644 --- a/loader/samples/minexample/minexample.s +++ b/loader/samples/minexample/minexample.s @@ -593,6 +593,9 @@ intro: ldx #darmtower_txt jsr upload_text + ldx #<(darmtower_txt+40) + ldy #>(darmtower_txt+40) + jsr upload_text_bottom lda #50*5 sta frame_delay @@ -601,6 +604,9 @@ intro: ldx #empty_txt jsr upload_text + ldx #empty_txt + jsr upload_text_bottom lda #$0d sta frame_until @@ -609,6 +615,9 @@ intro: ldx #adol_win jsr upload_text + ldx #<(adol_win+40) + ldy #>(adol_win+40) + jsr upload_text_bottom lda #50*5 sta frame_delay @@ -617,6 +626,9 @@ intro: ldx #too_bad_txt jsr upload_text + ldx #empty_txt + jsr upload_text_bottom lda #50*5 sta frame_delay @@ -1107,19 +1119,29 @@ liliaheroname: .byte "lilhero", 0 darmtower_txt: - .res (40-26)/2, ' ' - .byte "who silenced darm's tower?" - .res (40-26)/2, ' ' + .res (40-32)/2, ' ' + .byte "darm's tower has fallen silent. " + .res (40-32)/2, ' ' + .res (40-32)/2, ' ' + .byte "what should we do? " + .res (40-32)/2, ' ' + empty_txt: .res 40, ' ' + .res 40, ' ' + adol_win: - .res (40-20)/2, ' ' - .byte "adol must have won.." - .res (40-20)/2, ' ' + .res (40-28)/2, ' ' + .byte 34, "it must be adol, let's see " + .res (40-28)/2, ' ' + .res (40-28)/2, ' ' + .byte "how far he'll get!", 34, " " + .res (40-28)/2, ' ' + too_bad_txt: - .res (40-10)/2, ' ' - .byte "too bad..." - .res (40-10)/2, ' ' + .res (40-16)/2, ' ' + .byte "as you command. " + .res (40-16)/2, ' ' upload_text: lda #$34 @@ -1133,7 +1155,7 @@ upload_text: lda (text_ptr), y sec sbc #$20 - sta $d348+40, y + sta $d348, y dey bne :- @@ -1143,7 +1165,34 @@ upload_text: lda #1 ldy #39 : - sta $db48+40, y + sta $db48, y + dey + bne :- + rts + +upload_text_bottom: + lda #$34 + sta $01 + + stx text_ptr + sty text_ptr+1 + + ldy #39 +: + lda (text_ptr), y + sec + sbc #$20 + sta $d348+40+40, y + dey + bne :- + + lda #$35 + sta $01 + + lda #1 + ldy #39 +: + sta $db48+40+40, y dey bne :- rts