added text before part 9

loader/samples/minexample/minexample.s

@@ -447,6 +447,19 @@ code_start:
     ldy #$01
     jsr txt_fade_out
 
+    jsr init_bmp
+
+    ldx #4
+:
+    lda #0
+    sta vbl
+    lda #60
+:
+    cmp vbl
+    bne :-
+    dex
+    bpl :--
+
 part_9:
     ; $0400-$07ff buffer 0 tilemap
     ; $2000-$3fff buffer 0 bitmap
@@ -457,6 +470,19 @@ part_9:
     ; $7800-$78ff tileset tile colors
     ; $7900-$79ff tileset CRAM colors
     ; $9000-      compressed tilemap
+
+
+    jsr clr_txt
+    ldx #<art_direct
+    ldy #>art_direct
+    jsr write_txt2
+    ldx #$c0
+    ldy #$01
+    jsr init_timer
+
+    lda #1
+    sta timer_mode
+
     ldx #<islandname
     ldy #>islandname
     lda #$70
@@ -468,6 +494,22 @@ part_9:
     ldy #$90
     jsr LZ_init_decomp
 
+:
+    lda timer_reached
+    beq :-
+
+    ldx #$90
+    ldy #$01
+    ;jsr txt_fade_out
+    jsr init_timer
+    lda #8
+    sta timer
+    lda #2
+    sta timer_mode
+:
+    lda timer_reached
+    beq :-
+
     lda #0
     sta $d011
     jsr clear_2bufs
@@ -1651,6 +1693,10 @@ scene_writ:
 .byte "               seigo oketani            "
 .byte "               yoshihiko kurata         "
 
+art_direct:
+.byte "           art directed by              "
+.byte "                seigo oketani           "
+
 clr_txt:
     lda #$80
     ldx #0