// ============================================
// output - Disassembled Source
// ============================================
// KickAssembler syntax
// Generated by Restore 64 v0.2.1 alpha build 298, 2026-04-01 10:59:17
// https://restore64.dev by datucker / Rabenauge
//
// Load address: $0801  End: $10ff  (2303 bytes)
// Entry point:  $082a (via BASIC SYS 2090)
// IRQ handler:  $0a00 (irq_0a00)
//
// Code: 1038 bytes, Data: 1265 bytes
// Labels: 112, Subroutines: 27
//
// Cross-references: all OK
// ============================================


// --- Region $082a-$0857 ---
.pc = $082a "main_082a"

main_082a:
        lda #$37
        sta $01
        lda #$0f
        sta $0286
        jsr sub_0900
        jsr sub_097e
        jsr sub_0860
        jsr sub_09a5
        jsr sub_09bb
        jsr sub_089b
        jsr sub_08de
        jsr sub_09db
        nop
        nop
        nop
        jsr sub_0d00
        jsr sub_0d82
        jmp loc_0b64

dat_0857:
        .byte $ea                                   // .

// --- Region $0860-$09ee ---
.pc = $0860 "sub_0860"
// Referenced by: jsr from $0839

sub_0860:
        lda #$b3
        sta $cff8
        lda #$b4
        sta $cff9
        lda #$03
        sta $d015
        lda #$a0
        sta $d000
        lda #$60
        sta $d001
        lda #$ad
        sta $d002
        lda #$70
        sta $d003
        lda #$03
        sta $d017
        sta $d01d
        lda #$0b
        sta $d027
        lda #$02
        sta $d028
        rts

dat_0896:
        .byte $ea,$ea,$ea,$ea,$ea                   // .....

// Referenced by: jsr from $0842
sub_089b: {
        sei
        lda #$35
        sta $01
        ldx #$00
        ldy #$10
        lda #$20
loop1:
        sta $f000,x
        inx
        bne loop1
        inc $08a8
        dey
        bne loop1
        sei
        lda #$35
        sta $01
        ldx #$00
loop2:
        lda scr_0c00
        sta $f028,x
        clc
        adc #$80
        sta $f029,x
        inc $08ba
        inx
        inx
        bne loop2
        inc $08be
        inc $08c4
        lda $08c4
        cmp #$f2
        bne loop2
        lda #$37
        sta $01
        rts
}
// Referenced by: jsr from $0845

sub_08de:
        sei
        lda #$7f
        sta $dc0d
        lda #$00
        sta $0314
        lda #$0a
        sta $0315
        lda #$81
        sta $d01a
        lda $d011
        and #$7f
        sta $d011
        cli
        rts

dat_08fd:
        .byte $ea,$ea,$ea                           // ...

// Referenced by: jsr from $0833
sub_0900: {
        sei
        lda $01
        and #$fb
        sta $01
        lda #$00
        sta $4b
        sta $50
        sta $52
        lda #$d0
        sta $4c
        clc
        lda #$e0
        sta $51
        adc #$04
        sta $53
        ldx #$04
        ldy #$00
loop:
        lda ($4b),y
        jsr sub_0951
        iny
        bne loop
        inc $4c
        inc $51
        inc $53
        dex
        bne loop
        lda #$ff
        sta $e668
        sta $e669
        sta $e268
        sta $e269
        sta $e670
        sta $e671
        sta $e270
        sta $e271
        lda #$37
        sta $01
        cli
        rts
}
// Referenced by: jsr from $0922

sub_0951:
        sta $56
        txa
        pha
        jsr sub_0962
        sta ($50),y
        jsr sub_0962
        sta ($52),y
        pla
        tax
        rts

// Referenced by: jsr from $0955, $095a
sub_0962: {
        lda #$00
        sta $57
        ldx #$04
loop:
        asl $56
        bcc skip
        rol $57
        sec
        rol $57
        clc
        bcc done
skip:
        asl $57
        asl $57
done:
        dex
        bne loop
        lda $57
        rts
}
// Referenced by: jsr from $0836

sub_097e:
        lda #$3f
        sta $dd02
        lda #$94
        sta $dd00
        lda #$38
        sta $d018
        lda #$cc
        sta $0288
        lda #$93
        jsr $ffd2
        lda #$e1
        sta $0328
        lda #$00
        sta $d020
        sta $d021
        rts

// Referenced by: jsr from $083c
sub_09a5: {
        sei
        lda #$35
        sta $01
        ldy #$80
loop:
        lda $0a80,y
        sta $ecc0,y
        dey
        bpl loop
        lda #$37
        sta $01
        cli
        rts
}

// Referenced by: jsr from $083f
sub_09bb: {
        ldx #$00
loop:
        lda txt_0b00,x
        cmp #$ff
        beq done
        jsr $ffd2
        lda #$12
        jsr $ffd2
        lda txt_0b00,x
        jsr $ffd2
        lda #$92
        jsr $ffd2
        inx
        bne loop
done:
        rts
}
// Referenced by: jsr from $0848

sub_09db:
        ldx #$7f
        lda #$00

loc_09df:
        adc $0a80,x
        dex
        bpl loc_09df
        cmp #$e3

loc_09e7:
        bne loc_09e7
        lda #$4c
        sta smc_0b8c                                // SMC: modifies $0b8c
        rts

// --- Region $0a00-$0a79 ---
.pc = $0a00 "irq_0a00"

irq_0a00:
        lda #$01
        sta $d019
        lda $d012
        cmp #$d2
        bcs loc_0a25
        lda #$08
        sta $d016
        lda #$d2
        sta $d012

loc_0a16:
        lda $dc0d
        and #$01
        beq loc_0a20
        jmp $ea31

loc_0a20:
        jmp $febc

dat_0a23:
        .byte $07,$00                               // ..

loc_0a25:
        lda dat_0a23
        cmp #$00
        bne loc_0a50
        lda #$07
        sta dat_0a23
        sta $d016
        inc smc_0a73
        bne loc_0a3c
        inc smc_0a74

loc_0a3c:
        ldy #$00

loc_0a3e:
        jsr sub_0a6e
        cmp #$ff
        beq loc_0a61
        sta $cfc0,y
        iny
        cpy #$28
        bne loc_0a3e
        jmp loc_0a59

loc_0a50:
        dec dat_0a23
        lda dat_0a23
        sta $d016

loc_0a59:
        lda #$00
        sta $d012
        jmp loc_0a16

loc_0a61:
        lda #$00
        sta smc_0a73                                // SMC: modifies $0a73
        lda #$f0
        sta smc_0a74                                // SMC: modifies $0a74
        jmp loc_0a59
// Referenced by: jsr from $0a3e

sub_0a6e:
        lda #$35
        sta $01
.label smc_0a73 = * + 1
.label smc_0a74 = * + 2
        lda $f000,y                                 // !SMC: modified by $0a63, $0a68
        ldx #$37
        stx $01
        rts

// --- Region $0b64-$0b80 ---
.pc = $0b64 "loc_0b64"

loc_0b64:
        sei
        jsr $fda3
        jsr $fd15
        jsr $ff5b
        cli
        sec
        lda $ae
        sbc #$ff
        sta $ae
        lda $af
        sbc #$08
        sta $af
        lda #$36
        sta $01

spr_0b80:
        // === Sprite data (1 bytes, $0b80-$0b80) ===
        .byte $a2

// --- Region $0d00-$0d8c ---
.pc = $0d00 "sub_0d00"
// Referenced by: jsr from $084e, $0d85

sub_0d00:
        ldx #$4e
        ldy #$07
        stx $03eb
        sty $03ec
        ldx #$00

loc_0d0c:
        lda $074e,x
        sta $03c2,x
        inx
        cpx #$20
        bne loc_0d0c
        stx $0383
        stx $0384
        sei
        jsr sub_0d32
        lda #$0f
        sta $d418
        lda #$00
        sta $03e0
        sta $03e1
        jmp loc_0d5b

scr_0d31:
        // === Screen RAM (1 bytes, $0d31-$0d31) ===
        .byte $ea                                   // scrcode: .
// Referenced by: jsr from $0d1e

sub_0d32:
        jsr sub_0d3b
        jsr sub_0d51
        jmp loc_0d46
// Referenced by: jsr from $0d32, $0e4e

sub_0d3b:
        lda $03da
        sta $1c
        lda $03db
        sta $1d
        rts

loc_0d46:
        lda $03de
        sta $20
        lda $03df
        sta $21
        rts
// Referenced by: jsr from $0d35, $0e5a

sub_0d51:
        lda $03dc
        sta $1e
        lda $03dd
        sta $1f

loc_0d5b:
        cli
        rts

// Referenced by: jsr from $0d82
sub_0d5d: {
        ldx #$00
loop:
        lda scr_0f00,x
        sta $04d8,x
        lda $1000,x
        sta $0680,x
        inx
        bne loop
        rts
}
// Referenced by: jsr from $0d88; branch from $0d7f

sub_0d6f:
        ldy #$07

loc_0d71:
        ldx #$00

loc_0d73:
        inx
        bne loc_0d73
        dey
        bne loc_0d71
        jsr sub_0dc2
        jsr $ffe4
        beq sub_0d6f
        rts
// Referenced by: jsr from $0851

sub_0d82:
        jsr sub_0d5d
        jsr sub_0d00
        jsr sub_0d6f
        rts

scr_0d8c:
        // === Screen RAM (1 bytes, $0d8c-$0d8c) ===
        .byte $ea                                   // scrcode: .

// --- Region $0dbf-$0f01 ---
.pc = $0dbf "loc_0dbf"

loc_0dbf:
        rts

scr_0dc0:
        // === Screen RAM (2 bytes, $0dc0-$0dc1) ===
        .byte $ea,$ea                               // scrcode: ..
// Referenced by: jsr from $0d79

sub_0dc2:
        lda $0383
        bmi loc_0dbf
        lda $03d0
        bmi loc_0ddc
        inc $03e0
        cmp $03e0
        bne loc_0ddc
        ldx #$0e
        jsr sub_0ebe
        sta $03e0

loc_0ddc:
        lda $03c2
        bmi loc_0df1
        inc $03e1
        cmp $03e1
        bne loc_0df1
        ldx #$00
        jsr sub_0ebe
        sta $03e1

loc_0df1:
        inc $03d9
        lda $03d9
        cmp $03d7
        bne loc_0dff
        jmp loc_0e8f

loc_0dff:
        cmp $03d8
        bne loc_0dbf
        lda #$00
        sta $03d9
        jsr sub_0ed3
        jsr sub_0ee2
        jsr sub_0ef1
        rts

scr_0e13:
        // === Screen RAM (2 bytes, $0e13-$0e14) ===
        .byte $ea,$ea                               // scrcode: ..

loc_0e15:
        sta $03c3,x
        tay
        bpl loc_0e21
        and #$7f
        tay
        jmp loc_0e42

loc_0e21:
        lda $0384
        bpl loc_0e2a
        cpx #$00
        beq loc_0e41

loc_0e2a:
        lda $04d8,y
        sta $d401,x
        lda $0558,y
        sta $d400,x
        jsr sub_0ea1
        ldy $03c6,x
        iny
        tya
        sta $d404,x

loc_0e41:
        rts

loc_0e42:
        cpy #$0e
        bne loc_0e60
        cpx #$07
        beq loc_0e5a
        cpx #$0e
        beq loc_0e54
        jsr sub_0d3b
        jmp sub_0ed3

loc_0e54:
        jsr loc_0d46
        jmp sub_0ef1

loc_0e5a:
        jsr sub_0d51
        jmp sub_0ee2

loc_0e60:
        cpy #$0c
        bne loc_0e74

loc_0e64:
        lda $0384
        bpl loc_0e6d
        cpx #$00
        beq loc_0e73

loc_0e6d:
        lda $03c6,x
        sta $d404,x

loc_0e73:
        rts

loc_0e74:
        cpy #$0d
        bne loc_0e21
        jsr loc_0e64
        cpx #$0e
        beq loc_0e80
        rts

loc_0e80:
        lda #$ff
        sta $0383
        rts
// Referenced by: jsr from $0e91, $0e96, $0e9b

sub_0e86:
        lda $03c3,x
        bmi loc_0e8c
        rts

loc_0e8c:
        jmp loc_0e64

loc_0e8f:
        ldx #$00
        jsr sub_0e86
        ldx #$07
        jsr sub_0e86
        ldx #$0e
        jsr sub_0e86
        rts

scr_0e9f:
        // === Screen RAM (2 bytes, $0e9f-$0ea0) ===
        .byte $ea,$ea                               // scrcode: ..

// Referenced by: jsr from $0e36
sub_0ea1: {
        cpx #$07
        bne skip
        lda $03c4,x
        sta $d402,x
        lda $03c5,x
        sta $d403,x
skip:
        lda $03c7,x
        sta $d405,x
        lda $03c8,x
        sta $d406,x
        rts
}

// Referenced by: jsr from $0dd6, $0deb
sub_0ebe: {
        inc $03c5,x
        lda $03c5,x
        cmp #$0e
        bne done
        lda #$02
        sta $03c5,x
done:
        sta $d403,x
        lda #$00
        rts
}
// Referenced by: jsr from $0e09; jmp from $0e51

sub_0ed3:
        ldy #$00
        lda ($1c),y
        inc $1c
        bne loc_0edd
        inc $1d

loc_0edd:
        ldx #$00
        jmp loc_0e15
// Referenced by: jsr from $0e0c; jmp from $0e5d

sub_0ee2:
        ldy #$00
        lda ($1e),y
        inc $1e
        bne loc_0eec
        inc $1f

loc_0eec:
        ldx #$07
        jmp loc_0e15
// Referenced by: jsr from $0e0f; jmp from $0e57

sub_0ef1:
        ldy #$00
        lda ($20),y
        inc $20
        bne loc_0efb
        inc $21

loc_0efb:
        ldx #$0e
        jmp loc_0e15

scr_0f00:
        // === Screen RAM (2 bytes, $0f00-$0f01) ===
        .encoding "screencode_mixed"
        .text "@a"
        .encoding "petscii_upper"

// ============================================
// Data blocks
// ============================================

// --- Region $0801-$0829 ---
.pc = $0801 "dat_0801"

dat_0801:
        // === BASIC loader stub ===
        .byte $0c,$08                               // next line pointer ($080c)
        .byte $c2,$07                               // line number 1986
        .byte $9e                                   // SYS token
        .text " 2090"                               // SYS 2090 → main_082a
        .byte $00                                   // end of line
        .byte $00,$00                               // end of BASIC program
        .byte $a9,$36,$85,$01,$a0,$c7,$a2,$00,$bd,$20,$cf,$49,$a7,$9d,$20,$cf // .6....... .I.. .
        .byte $e8,$d0,$f5,$ee,$18,$08,$ee,$1d,$08,$88,$d0,$ec // ............

// --- Region $0858-$085f ---
.pc = $0858 "Program $0858"
        .fill 8, $ea

// --- Region $09ef-$09ff ---
.pc = $09ef "dat_09ef"

dat_09ef:
        .fill 17, $ea

// --- Region $0a7a-$0b63 ---
.pc = $0a7a "dat_0a7a"

dat_0a7a:
        .byte $00,$00,$00,$00,$00,$00,$ff,$f8,$00,$ff,$fe,$00,$ff,$ff,$00,$ff // ................
        .byte $ff,$80,$f8,$1f,$80,$f0,$0f,$c0,$f0,$0f,$c0,$f0,$07,$e0,$f0,$03 // ................
        .byte $e0,$f0,$03,$e0,$f0,$03,$e0,$f0,$03,$e0,$f0,$03,$e0,$f0,$07,$e0 // ................
        .byte $f0,$0f,$c0,$f0,$0f,$c0,$f8,$1f,$80,$fc,$1f,$80,$fc,$1f,$00,$fc // ................
        .byte $1e,$00,$fc,$18,$00,$f8,$ff,$f8,$00,$ff,$fe,$00,$ff,$ff,$00,$ff // ................
        .byte $ff,$80,$f8,$1f,$80,$f0,$0f,$c0,$f0,$0f,$c0,$f0,$07,$e0,$f0,$03 // ................
        .byte $e0,$f0,$03,$e0,$f0,$03,$e0,$f0,$03,$e0,$f0,$03,$e0,$f0,$07,$e0 // ................
        .byte $f0,$0f,$c0,$f0,$0f,$c0,$f8,$1f,$80,$ff,$ff,$80,$ff,$ff,$00,$ff // ................
        .byte $fe,$00,$ff,$f8,$00,$7c               // .....|

txt_0b00:
        .text "        THE"
        .byte $0d                                   // string terminator

txt_0b0c:
        .text "    DYNAMIC-DUO"
        .byte $0d                                   // string terminator

txt_0b1c:
        .text "   INTERNATIONAL  "
        .byte $0d                                   // string terminator
        .byte $0d,$0d,$0d,$0d                       // ....

txt_0b33:
        .text "        1986"
        .byte $0d                                   // string terminator

txt_0b40:
        .text "      PRESENTS"
        .byte $0d                                   // string terminator
        .byte $08,$05                               // ..

txt_0b51:
        .text "    IRIDIS-ALPHA  "
        .byte $ff                                   // .

// --- Region $0b81-$0cff ---
.pc = $0b81 "Program $0b81"
        .byte $34

loc_0b82:
        .byte $bd
        .byte $90,$0b,$ea                           // #..#........#.#####.#.#.
        .byte $9d,$3c,$03                           // #..###.#..####........##
        .byte $ca,$10,$f6                           // ##..#.#....#....####.##.

smc_0b8c:
        .byte $00,$3c,$03                           // ..........####........##
        .byte $ea,$a0,$c7                           // ###.#.#.#.#.....##...###
        .byte $a2,$00,$bd                           // #.#...#.........#.####.#
        .byte $00,$11,$9d                           // ...........#...##..###.#
        .byte $01,$08,$e8                           // .......#....#...###.#...
        .byte $d0,$f7,$ee                           // ##.#....####.######.###.
        .byte $42,$03,$ee                           // .#....#.......#####.###.
        .byte $45,$03,$88                           // .#...#.#......###...#...
        .byte $d0,$ee,$58                           // ##.#....###.###..#.##...
        .byte $a9,$37,$85                           // #.#.#..#..##.####....#.#
        .byte $01,$a9,$e1                           // .......##.#.#..####....#
        .byte $8d,$28,$03                           // #...##.#..#.#.........##
        .byte $a9,$04,$8d                           // #.#.#..#.....#..#...##.#
        .byte $88,$02,$a9                           // #...#.........#.#.#.#..#
        .byte $00,$4c,$e2                           // .........#..##..###...#.
        .byte $fc,$4c,$ae                           // ######...#..##..#.#.###.
        .byte $a7

dat_0bbd:
        // === Fill data (67 bytes, $0bbd-$0bff) ===
        .fill 67, $ea

scr_0c00:
        // === Screen RAM (256 bytes, $0c00-$0cff) ===
        .encoding "screencode_mixed"
        .text "this is an uncompleted preview copy supp"
        .text "lied by the beach-boys"
        .encoding "petscii_upper"

txt_0c3e:
        .text ".   "
        .encoding "screencode_mixed"
        .text "greetings to: headbanger, syntax"
        .encoding "petscii_upper"

txt_0c62:
        .text " 2001, "
        .encoding "screencode_mixed"
        .text "eaglesoft inc., starforce, master, radwa"
        .text "r &"
        .byte $60                                   // scrcode: .
        .text "ratt"
        .encoding "petscii_upper"

txt_0c99:
        .text ".                     "
        .byte $ff                                   // scrcode: .

dat_0cb0:
        .text "                                                                                "

// --- Region $0d8d-$0dbe ---
.pc = $0d8d "Program $0d8d"
        .fill 50, $ea

// --- Region $0f02-$10eb ---
.pc = $0f02 "Program $0f02"
        .encoding "screencode_mixed"
        .fill 10, $01                               // scrcode: AAAAAAAAAA
        .text "@@@@bbbbbbbccccc@@@@ddddeeeffggg@@@@hhii"
        .text "jkklmnno@@@@pqrsuvwyz"
        .byte $1c,$1d,$1f                           // scrcode: ...
        .text "@@@@"
        .encoding "petscii_upper"

txt_0f50:
        .text "!#%'*,/258;?"
        .byte $00                                   // string terminator
        .encoding "screencode_mixed"
        .text "@@@"
        .encoding "petscii_upper"

txt_0f60:
        .text "CGKOTY"
        .encoding "screencode_mixed"
        .byte $5e,$64,$6a,$70,$77,$7e               // scrcode: ......
        .text "@@@@"
        .byte $86,$8e,$96,$9f,$a8,$b3,$bd,$c8,$d4,$e1,$ee,$fd // scrcode: ............
        .text "@@@@l"
        .byte $1c                                   // scrcode: .
        .text "-"
        .byte $40,$51,$66,$7b,$91,$a9,$c3,$dd,$fa   // scrcode: .........
        .text "@@"
        .text "@@x8"
        .byte $5a,$7d,$a3,$cc,$f6                   // scrcode: .....
        .text "#"
        .byte $53,$86,$bb,$f4                       // scrcode: ....
        .text "@@@@0"
        .byte $70,$b4,$fb,$47,$98,$ed,$47,$a7       // scrcode: ........
        .text "l"
        .byte $77,$e9                               // scrcode: ..
        .text "@@@@"
        .byte $61,$e1,$68,$f7,$8f                   // scrcode: .....
        .text "0"
        .byte $da,$8f,$4e                           // scrcode: ...
        .text "x"
        .byte $ef,$d2                               // scrcode: ..
        .text "@@@@"
        .byte $c3,$c3,$d1,$ef,$1f,$60,$b5,$1e,$9c   // scrcode: .........
        .text "1"
        .byte $df,$a5                               // scrcode: ..
        .text "@@@@"
        .byte $87,$86,$a2,$df                       // scrcode: ....
        .text ">"
        .byte $c1,$6b                               // scrcode: ..
        .text "<9"
        .byte $63,$be,$4b                           // scrcode: ...
        .text "@@"
        .text "@@ol"
        .byte $45,$bf,$7d,$83,$d6,$79,$73,$c7,$7c,$97 // scrcode: ..........
        .text "@@@@"
        .byte $1e                                   // scrcode: .
        .text "x"
        .byte $8b,$7e,$fa                           // scrcode: ...
        .text "f"
        .byte $ac,$f3,$e6,$8f,$f8                   // scrcode: .....
        .text ".@@@@@"
        .byte $c5,$c3,$c5,$8c,$c5                   // scrcode: .....
        .byte $c3,$c5,$c8,$c5,$8c,$c8,$ca,$ca,$8c,$ca,$8c,$ca,$c8,$ca,$8c,$ca // scrcode: ................
        .byte $c8,$ca,$d1,$ca,$8c,$c3,$c5,$c5,$8c,$c5,$8c,$c5,$c3,$c5,$8c,$c5 // scrcode: ................
        .byte $c3,$c5,$c8,$c5,$8c,$c3,$c5,$c5       // scrcode: ........
        .byte $8c,$c5,$8c,$c3,$c5,$8c,$8c,$8c,$8c,$8c,$8c,$8c,$8c,$c3,$c5,$c5 // scrcode: ................
        .byte $8c,$c5,$8c,$c5,$c3,$c5,$8c,$c5,$c3,$c5,$c8,$c5,$8c,$c8,$ca,$ca // scrcode: ................
        .byte $8c,$ca,$8c,$ca,$c8,$ca,$8c,$ca       // scrcode: ........
        .byte $c8,$ca,$d1,$ca,$8c,$ca,$d0,$d0,$8c,$d0,$8c,$d0,$ca,$d0,$8c,$d0 // scrcode: ................
        .byte $ca,$d0,$d3,$d0,$8c,$ca,$d0,$d0,$8c,$d0,$8c,$d0,$ca,$d3,$8c,$d3 // scrcode: ................
        .byte $d0,$d3,$d3,$d0,$d3,$8e,$a8,$8c       // scrcode: ........
        .byte $8c,$8c,$d0,$8c,$8c,$8c,$a8,$8c,$8c,$8c,$d0,$d0,$d0,$d0,$8e,$a5 // scrcode: ................
        .byte $a5,$b3,$b5,$c5,$c5,$c3,$b5,$a5,$a5,$b3,$b5,$c5,$c5,$c3,$b5,$a3 // scrcode: ................
        .byte $a3,$b1,$b3,$c3,$c3,$c1,$b3,$a3       // scrcode: ........
        .byte $a3,$b1,$b3,$c3,$c3,$c1,$b3,$a5,$a5,$b3,$b5,$c5,$c5,$c3,$b5,$a5 // scrcode: ................
        .byte $a5,$b3,$b5,$c5,$c5,$c3,$b5,$a5,$a5,$b3,$b5,$c5,$c5,$c3,$b5,$a5 // scrcode: ................
        .byte $a5,$b3,$b5,$c5,$c5,$c3,$b5,$8e       // scrcode: ........
        .text "a@hf"
        .byte $40                                   // scrcode: .
        .text "h"
        .byte $89                                   // scrcode: .
        .text "@@@@"
        .byte $80                                   // scrcode: .
        .text "g"
        .byte $89                                   // scrcode: .
        .text "d@"
        .byte $88                                   // scrcode: .
        .text "l"
        .byte $40                                   // scrcode: .
        .text "g"
        .byte $f6                                   // scrcode: .
        .text "elk"
        .byte $7b                                   // scrcode: .
        .text "f"
        .byte $fc                                   // scrcode: .
        .text "fmg"
        .encoding "petscii_upper"