// ============================================
// output - Disassembled Source
// ============================================
// KickAssembler syntax
// Generated by Restore 64 v0.2.1 alpha build 298, 2026-04-11 21:35:53
// https://restore64.dev by datucker / Rabenauge
//
// Load address: $0801  End: $20c0  (6336 bytes)
// Entry point:  $080d (via BASIC SYS 2061)
// IRQ handler:  $0973 (loc_0973)
// IRQ handler:  $0dc9 (loc_0dc9)
// IRQ handler:  $0a52 (loc_0a52)
//
// Code: 2503 bytes, Data: 3833 bytes
// Labels: 158, Subroutines: 6
//
// Cross-references: all OK
// ============================================


// --- Region $080d-$0820 ---
.pc = $080d "main_080d"

main_080d:
        lda $52,x
        .byte $4f,$20,$42                           // sre $4220 // ILLEGAL
        eor $4e20,y
        eor #$42
        jsr $464f
        jsr $4354
        eor $ab20
        brk

// --- Region $08f0-$0e57 ---
.pc = $08f0 "loc_08f0"

loc_08f0:
        ldx #$00
        txa

loc_08f3:
        sta $033c,x
        inx
        bne loc_08f3
        jsr $ff81
        ldx #$00
        txa

loc_08ff:
        sta $d8a0,x
        inx
        cpx #$c8
        bne loc_08ff
        lda #$97
        sta $dd00
        sei
        lda #$1b
        sta $d011
        lda #$73
        sta $0314
        lda #$09
        sta $0315
        lda #$81
        sta $d01a
        lda #$00
        sta $dc0e
        lda #$00
        sta $d012
        lda #$ff
        sta $d015
        lda #$00
        sta $d01d
        lda #$00
        sta $d020
        lda #$00
        sta $d021
        cli
        ldx #$00

loc_0942:
        lda txt_2000,x
        sta $04a0,x
        inx
        bne loc_0942
        ldx #$00

loc_094d:
        lda $3700,x
        sta $05a0,x
        inx
        bne loc_094d
        ldx #$00

loc_0958:
        lda $31c0,x
        sta $d850,x
        inx
        cpx #$14
        bne loc_0958
        sei
        lda #$35
        sta $01
        jsr sub_0f00
        lda #$37
        sta $01
        cli
        jmp loc_0e09

loc_0973:
        inc $d019
        nop
        dec $d016
        inc $d016
        ldx #$05

loc_097f:
        dex
        bpl loc_097f
        bit $ea
        ldx #$00
        nop

loc_0987:
        ldy $31a0,x
        lda $31b8
        sta $d001,y
        dec $d016
        inc $d016
        lda $d012
        and #$07
        eor #$1c
        sta $d011
        nop
        inx
        cpx #$14
        bne loc_0987
        lda #$e5
        sta $d018
        lda $ff
        ldx #$00
        beq loc_09ba

loc_09b1:
        ldy $31a0,x
        lda $31b9
        sta $d001,y

loc_09ba:
        dec $d016
        inc $d016
        lda $d012
        and #$07
        eor #$1c
        sta $d011
        nop
        inx
        cpx #$15
        bne loc_09b1
        lda #$00
        sta $d018
        lda $ff
        ldx #$00
        beq loc_09e4

loc_09db:
        ldy $31a0,x
        lda $31ba
        sta $d001,y

loc_09e4:
        dec $d016
        inc $d016
        lda $d012
        and #$07
        eor #$1c
        sta $d011
        nop
        inx
        cpx #$17
        bne loc_09db
        lda #$1e
        sta $d018
        lda #$32
        sta $d012
        ldy $0380
        lda #$00
        sta $d010
        lda $2100,y
        ldx #$00

loc_0a11:
        sta $d000,x
        clc
        adc #$18
        inx
        inx
        cpx #$10
        bne loc_0a11
        lda $2200,y
        sta $d010
        inc $0380
        cmp #$01
        bne loc_0a3a
        lda $2100,y
        cmp $f0
        bcc loc_0a3a
        lda $d000
        sec
        sbc #$08
        sta $d000

loc_0a3a:
        lda $0359
        sta $d016
        lda #$c9
        sta $0314
        lda #$0d
        sta $0315
        lda #$8b
        sta $d012
        jmp $ea81

loc_0a52:
        lda #$1a
        sta $d018
        lda #$00
        sta $070e
        ldx #$09

loc_0a5e:
        dex
        bne loc_0a5e
        lda $eaea
        ldx #$00

loc_0a66:
        lda $3200
        sei
        beq loc_0a9c

loc_0a6c:
        ldy $3000,x
        lda $d012
        and #$07
        eor #$18
        sta $d011
        sty $d020
        sty $d021
        lda $3050,x
        sta $d022
        sta $0760
        inc $070e
        lda $d012
        cmp #$f8
        bcs loc_0b01
        inx
        lda $3200
        cmp $070e
        bne loc_0a6c
        nop

loc_0a9c:
        ldy #$05
        lda $3000,x

loc_0aa1:
        sty $05
        sta $d020
        sta $d021
        lda $3050,x
        sta $d022
        ldy $0a67
        lda $d012
        cmp #$f8
        bcs loc_0b01
        lda $3190,y
        sta $0ad7
        ldy $05
        lda $3051,x
        sta $0adc
        inx
        lda #$00
        lda $3000,x
        dey
        bpl loc_0aa1
        sta $d021
        sta $d020
        ldy #$15
        sty $d016
        ldy #$08
        sty $d022
        nop
        inx
        ldy $3050,x
        lda $3000,x
        sta $d020
        sta $d021
        sty $d022
        nop
        inc $0a67
        inc $0a94
        inx
        lda #$00
        sta $070e
        jmp loc_0a66

loc_0b01:
        inc $0700
        inc $0700
        inc $0700
        inc $0700
        bit $ea
        lda #$00
        sta $d021
        sta $d020
        lda #$32
        sta $d012
        lda #$73
        sta $0314
        lda #$09
        sta $0315
        lda #$00
        sta $0a67
        lda #$00
        sta $0a94
        inc $d019
        cli
        lda #$1b
        sta $d011
        ldx $0386
        lda $2700,x
        sta $3200
        lda #$15
        sec
        sbc $2700,x
        clc
        rol
        sta $3201
        inc $0386
        lda #$00
        sta $070e
        ldx $0387
        lda $2500,x
        sta $3190
        ldy $2600,x
        ldx #$00

loc_0b63:
        lda $30f0,y
        sta $0590,x
        inx
        iny
        cpx #$28
        bne loc_0b63
        ldx $0387
        lda #$16
        sec
        sbc $2500,x
        and #$07
        ora #$10
        sta $3191
        bcs loc_0b86
        lda #$29
        sta $0b87

loc_0b86:
        lda #$28
        sec
        sbc $2600,x
        tay
        ldx #$00

loc_0b8f:
        lda $3140,y
        sta $05b8,x
        inx
        iny
        cpx #$28
        bne loc_0b8f
        lda #$28
        sta $0b87
        inc $0387
        clc
        lda $0387
        lsr
        bcc loc_0bbd
        ldy $3050
        ldx #$00

loc_0baf:
        lda $3051,x
        sta $3050,x
        inx
        cpx #$50
        bne loc_0baf
        sty $309f

loc_0bbd:
        lda #$c8
        sta $d016
        lda $0387
        bne loc_0c38
        ldy #$00
        ldx #$00

loc_0bcb:
        lda #$20
        sta $30f0,y
        sta $3220,x
        sta $3140,y
        iny
        tya
        clc
        ror
        tax
        cpy #$50
        bne loc_0bcb
        ldx #$00

loc_0be1:
        lda $3250
        clc
        inc $0be2
        bne loc_0bed
        inc $0be3

loc_0bed:
        cmp #$41
        beq loc_0bfc
        cmp #$42
        beq loc_0c2b
        sta $3220,x
        inx
        jmp loc_0be1

loc_0bfc:
        stx $0716
        lda #$14
        sec
        sbc $0716
        tax
        ldy #$00

loc_0c08:
        lda $3220,y
        sta $30ef,x
        clc
        adc #$40
        sta $30f0,x
        clc
        adc #$40
        sta $3168,x
        clc
        adc #$40
        sta $3169,x
        inx
        inx
        iny
        cpy $0716
        bne loc_0c08
        jmp loc_0d0c

loc_0c2b:
        lda #$50
        sta $0be2
        lda #$32
        sta $0be3
        jmp loc_0d0c

loc_0c38:
        lda #$35
        sta $01
        jsr sub_0f40
        lda #$37
        sta $01
        jmp loc_0d0c

loc_0c46:
        lda $d012
        cmp #$6f
        bcc loc_0c46
        lda $0384
        beq loc_0c5a
        lda #$00
        sta $0384
        jmp loc_0c8a

loc_0c5a:
        lda #$00
        sta $0384
        ldy $2300
        ldx #$00

loc_0c64:
        lda $2301,x
        sta $2300,x
        inx
        bne loc_0c64
        sty $23ff
        ldx #$00
        ldy #$16

loc_0c74:
        lda $2300,x
        sta $d8d0,x
        lda $2380,y
        sta $d8f8,x
        lda $2340,x
        sta $d920,y
        inx
        dey
        bne loc_0c74

loc_0c8a:
        lda $0381
        beq loc_0cc1
        cmp #$30
        beq loc_0cd8
        cmp #$90
        beq loc_0cef

loc_0c97:
        ldx $0381
        ldy #$00
        sty $0382

loc_0c9f:
        ldy $2400,x
        lda #$00
        sta $d8a0,y
        dex
        inc $0382
        ldy $0382
        cpy #$10
        beq loc_0cbb
        lda $30a0,y
        sta $0ca3
        jmp loc_0c9f

loc_0cbb:
        inc $0381
        jmp loc_0de3

loc_0cc1:
        lda #$47
        sta $04a7
        lda #$45
        sta $04bf
        lda #$44
        sta $0547
        lda #$41
        sta $055f
        jmp loc_0c97

loc_0cd8:
        lda #$43
        sta $04a7
        lda #$43
        sta $04bf
        lda #$43
        sta $0547
        lda #$43
        sta $055f
        jmp loc_0c97

loc_0cef:
        lda #$90
        sta $0381
        ldx $0383
        cpx #$03
        bne loc_0d00
        lda #$00
        sta $0383

loc_0d00:
        lda $30d0,x
        sta $0cb3
        inc $0383
        jmp loc_0c97

loc_0d0c:
        lda $d012
        lda $dc00
        tax
        and #$04
        bne loc_0d24
        lda $0369
        cmp #$08
        beq loc_0d33
        inc $0369
        jmp loc_0d33

loc_0d24:
        txa
        and #$08
        bne loc_0d33
        lda $0369
        cmp #$f8
        beq loc_0d33
        dec $0369

loc_0d33:
        lda $0369
        bmi loc_0d67
        clc
        adc $0368
        tax
        and #$07
        sta $0368
        txa
        and #$08
        beq loc_0d9c
        sec
        lda #$00
        adc $0367
        sta $0367
        bcc loc_0d9c
        lda $0dae
        cmp #$36
        beq loc_0d5f
        inc $0dae
        jmp loc_0d9c

loc_0d5f:
        lda #$35
        sta $0dae
        jmp loc_0d9c

loc_0d67:
        lda #$ff
        sec
        sbc $0369
        sta $036a
        lda $0368
        sec
        sbc $036a
        and #$07
        sta $0368
        bcs loc_0d9c
        lda $0367
        sbc #$00
        sta $0367
        cmp #$ff
        bne loc_0d9c
        lda $0dae
        cmp #$35
        bne loc_0d99
        lda #$36
        sta $0dae
        jmp loc_0d9c

loc_0d99:
        dec $0dae

loc_0d9c:
        lda $0367
        sta $0dad
        lda $0368
        and #$08
        ldy $0367
        ldx #$00

loc_0dac:
        lda $3500,x
        sta $0450,x
        inx
        cpx #$28
        bne loc_0dac
        jmp loc_0dba

loc_0dba:
        lda $0368
        eor #$0f
        ora #$c0
        and #$f7
        sta $0359
        jmp $ea81

loc_0dc9:
        lda #$c8
        sta $d016
        lda #$b8
        sta $d012
        lda #$52
        sta $0314
        lda #$0a
        sta $0315
        inc $d019
        jmp $ea81

loc_0de3:
        lda $d850
        pha
        ldx #$00
        ldy #$14

loc_0deb:
        lda $d851,x
        sta $d850,x
        sta $d862,y
        inx
        dey
        cpx #$14
        bne loc_0deb
        pla
        sta $d863
        lda $dc01
        and #$10
        beq loc_0e08
        jmp loc_0c46

loc_0e08:
        rts

loc_0e09:
        lda #$02
        sta $d025
        lda #$07
        sta $d026
        lda #$0a
        sta $d027
        sta $d028
        sta $d029
        sta $d02a
        sta $d02b
        sta $d02c
        sta $d02d
        sta $d02e
        ldx #$00

loc_0e2f:
        lda $3730,x
        sta $07f8,x
        lda $3738,x
        sta $3bf8,x
        lda $3740,x
        sta $03f8,x
        inx
        cpx #$08
        bne loc_0e2f
        lda #$ff
        sta $d01c
        lda #$02
        sta $0369
        lda #$0c
        sta $d023
        jmp loc_0c46

// --- Region $0f00-$0f05 ---
.pc = $0f00 "sub_0f00"
// Referenced by: jsr from $0968

sub_0f00:
        lda #$00
        jsr sub_1000
        rts

// --- Region $0f40-$0f43 ---
.pc = $0f40 "sub_0f40"
// Referenced by: jsr from $0c3c

sub_0f40:
        jsr sub_1006
        rts

// --- Region $1000-$1009 ---
.pc = $1000 "sub_1000"
// Referenced by: jsr from $0f02

sub_1000:
        jmp loc_107c

dat_1003:
        .byte $4c,$b4,$10                           // L..
// Referenced by: jsr from $0f40

sub_1006:
        jmp loc_10ba

dat_1009:
        .byte $ff                                   // .

// --- Region $1077-$1482 ---
.pc = $1077 "loc_1077"

loc_1077:
        clv
        cpx $15
        ora $15,x

loc_107c:
        ldx #$00
        txa

loc_107f:
        lda #$00
        sta $102c,x
        sta $1063,x
        sta $d415
        lda #$f1
        sta $d417
        lda #$01
        sta $1029,x
        lda #$09
        sta $102f,x
        lda #$10
        sta $1032,x
        inx
        cpx #$03
        bcc loc_107f
        lda $1011
        sta $1013
        lda #$1f
        sta $d418
        lda #$01
        sta $100a
        rts

loc_10b4:
        lda #$00
        sta $100a
        rts

loc_10ba:
        lda $100a
        bne loc_10c0
        rts

loc_10c0:
        ldx #$02

loc_10c2:
        stx $1075
        lda $100e,x
        sta $fb
        tay
        lda $1029,x
        beq loc_110a
        dec $105d,x
        bpl loc_10e1
        inc $105d,x
        lda $106c,x
        sta $d404,y
        jmp loc_123f

loc_10e1:
        lda tbl_hi_1045,x
        and #$10
        beq loc_1107
        lda #$81
        sta $d404,y
        lda $1012
        asl
        tay
        lda dat_1482,y
        pha
        lda $1483,y
        pha
        ldy $fb
        pla
        sta $d401,y
        pla
        sta $d400,y
        jmp loc_139e

loc_1107:
        jmp loc_123f

loc_110a:
        cpx #$00
        bne loc_1116
        lda #$70
        sta $103b
        sta $d416

loc_1116:
        txa
        tay
        lda $102f,y
        sta $fc
        lda $1032,y
        sta $fd
        lda #$00
        sta $100d
        ldy $102c,x
        lda #$00
        sta $1023,x
        lda ($fc),y
        cmp #$ff
        bne loc_1138
        jmp loc_143b

loc_1138:
        pha
        and #$20
        beq loc_1142
        lda #$01
        sta $100d

loc_1142:
        pla
        cmp #$80
        bcc loc_114a
        jmp loc_13c9

loc_114a:
        and #$1f
        clc
        adc #$01
        sta $1029,x

loc_1152:
        iny
        lda ($fc),y
        pha
        iny
        tya
        sta $102c,x
        pla
        bne loc_1169
        lda $1051,x
        and #$fe
        sta $106c,x
        jmp loc_1384

loc_1169:
        clc
        adc $1060,x
        sta $1020,x
        asl
        tay
        lda dat_1482,y
        clc
        adc $1075
        sta $1035,x
        lda $1483,y
        adc #$00
        sta $1038,x
        lda $100d
        cmp #$01
        bne loc_118e
        jmp loc_1384

loc_118e:
        lda $1054,x
        pha
        and #$0f
        sta $105d,x
        pla
        lsr
        lsr
        lsr
        lsr
        clc
        adc #$01
        sta $106f,x
        sta $100c
        lda #$01
        sta $1066,x
        lda #$00
        sec
        sbc $100c
        sta $1072,x
        lda $1051,x
        sta $106c,x
        lda #$00
        sta $100b
        lda tbl_hi_1045,x
        and #$10
        beq loc_11e6
        lda #$01
        sta $100b
        lda $1012
        asl
        tay
        lda dat_1482,y
        pha
        lda dat_1482,y
        pha
        ldy $fb
        pla
        sta $d401,y
        pla
        sta $d400,y
        lda #$81
        jmp loc_11e9

loc_11e6:
        lda $104e,x

loc_11e9:
        ldy $fb
        pha
        and #$fe
        sta $d404,y
        pla
        sta $d404,y
        lda $1048,x
        sta $d405,y
        lda $104b,x
        sta $d406,y
        lda tbl_hi_1045,x
        sta $103f,x
        sta $103c,x
        sta $1014,x
        lda #$00
        sta $101a,x
        lda $1054
        lsr
        lsr
        lsr
        lsr
        sec
        sbc #$03
        sta $1066,x
        lda $1057,x
        sta $1017,x
        pha
        and #$0f
        asl
        asl
        sta $1069,x
        pla
        and #$f0
        lsr
        sta $105a,x
        lda $100b
        beq loc_123c
        jmp loc_139e

loc_123c:
        jmp loc_1384

loc_123f:
        lda $103c,x
        clc
        adc $1042,x
        bcc loc_124b
        inc $103f,x

loc_124b:
        sta $103c,x
        lda tbl_hi_1045,x
        cmp #$c0
        bcc loc_1258
        jmp loc_1368

loc_1258:
        cmp #$80
        bcs loc_12c3
        cmp #$40
        bcs loc_1263
        jmp loc_12f1

loc_1263:
        lda $101a,x
        clc
        adc $1057,x
        tay
        lda $1582,y
        cmp #$ff
        bne loc_1275
        jmp loc_139e

loc_1275:
        cmp #$41
        beq loc_1280
        cmp #$40
        beq loc_1280
        jmp loc_1289

loc_1280:
        pha
        iny
        lda $1582,y
        sta $101e
        pla

loc_1289:
        sta $101f
        iny
        lda $1582,y
        clc
        adc $1020,x
        asl
        iny
        sty $101d
        tay
        lda dat_1482,y
        pha
        lda $1483,y
        ldy $fb
        sta $d401,y
        pla
        sta $d400,y
        lda $101d
        sec
        sbc $1057,x
        sta $101a,x
        lda $101e
        sta $d403,y
        lda $101f
        sta $d404,y
        jmp loc_139e

loc_12c3:
        ldy $1017,x

loc_12c6:
        lda $1582,y
        cmp #$ff
        bne loc_12d3
        ldy $1057,x
        jmp loc_12c6

loc_12d3:
        sta $fe
        iny
        tya
        sta $1017,x
        lda $1020,x
        clc
        adc $fe
        asl
        tay
        lda dat_1482,y
        sta $1035,x
        lda $1483,y
        sta $1038,x
        jmp loc_1384

loc_12f1:
        lda $1023,x
        beq loc_131e
        cmp #$80
        bcs loc_130c
        lda $1035,x
        clc
        adc $1026,x
        bcc loc_1306
        inc $1038,x

loc_1306:
        sta $1035,x
        jmp loc_1384

loc_130c:
        lda $1035,x
        sec
        sbc $1026,x
        bcs loc_1318
        dec $1038,x

loc_1318:
        sta $1035,x
        jmp loc_1384

loc_131e:
        dec $1069,x
        bpl loc_1384
        inc $1069,x
        lda $1057,x
        beq loc_1384
        dec $1066,x
        lda $1066,x
        bpl loc_1353
        cmp $1072,x
        bne loc_133e
        lda $106f,x
        sta $1066,x

loc_133e:
        lda $1035,x
        clc
        adc $105a,x
        sta $1035,x
        lda $1038,x
        adc #$00
        sta $1038,x
        jmp loc_1384

loc_1353:
        lda $1035,x
        sec
        sbc $105a,x
        sta $1035,x
        lda $1038,x
        sbc #$00
        sta $1038,x
        jmp loc_1384

loc_1368:
        lda $1035,x
        sec
        sbc $1057,x
        bcs loc_1374
        dec $1038,x

loc_1374:
        sta $1035,x
        lda $1038,x
        bpl loc_1384
        lda #$01
        sta $1038,x
        sta $1035,x

loc_1384:
        ldy $fb
        lda $1035,x
        sta $d400,y
        lda $1038,x
        sta $d401,y
        lda $103c,x
        sta $d402,y
        lda $103f,x
        sta $d403,y

loc_139e:
        cpx #$00
        bne loc_13ae
        lda $103b
        sec
        sbc #$07
        sta $103b
        sta $d416

loc_13ae:
        dex
        bpl loc_13c6
        dec $1013
        bpl loc_13c5
        lda $1011
        sta $1013
        dec $1029
        dec $102a
        dec $102b

loc_13c5:
        rts

loc_13c6:
        jmp loc_10c2

loc_13c9:
        and #$1f
        clc
        adc #$01
        sta $1029,x
        iny
        lda ($fc),y
        cmp #$80
        bcs loc_1413
        asl
        asl
        asl
        sty $fe
        tay
        lda $1542,y
        sta $104e,x
        lda $1543,y
        sta $1051,x
        lda $1544,y
        sta $1048,x
        lda $1545,y
        sta $104b,x
        lda $1546,y
        sta $1054,x
        lda $1547,y
        sta tbl_hi_1045,x
        lda $1548,y
        sta $1042,x
        lda $1549,y
        sta $1057,x
        ldy $fe
        jmp loc_1152

loc_1413:
        and #$3f
        cmp #$20
        bcs loc_142a
        and #$1f
        pha
        lda #$01
        sta $1023,x
        pla
        asl
        asl
        sta $1026,x
        jmp loc_1152

loc_142a:
        and #$1f
        pha
        lda #$80
        sta $1023,x
        pla
        asl
        asl
        sta $1026,x
        jmp loc_1152

loc_143b:
        lda $1076,x
        sta $fc
        lda $1079,x
        sta $fd
        ldy $1063,x

loc_1448:
        lda ($fc),y
        cmp #$fe
        bne loc_1451
        jmp loc_10b4

loc_1451:
        cmp #$ff
        bne loc_145a
        ldy #$00
        jmp loc_1448

loc_145a:
        iny
        cmp #$80
        bcs loc_147a
        pha
        tya
        sta $1063,x
        pla
        tay
        lda $15a2,y
        sta $102f,x
        lda $15ad,y
        sta $1032,x
        lda #$00
        sta $102c,x
        jmp loc_110a

loc_147a:
        and #$1f
        sta $1060,x
        jmp loc_1448

dat_1482:
        .byte $16                                   // .

// --- Region $1526-$152a ---
.pc = $1526 "loc_1526"

loc_1526:
        bpl loc_15a4
        bvs loc_14ad
        rti

// --- Region $15a4-$15cf ---
.pc = $15a4 "loc_15a4"

loc_15a4:
        .byte $0b,$16                               // anc #$16 // ILLEGAL
        sec
        lsr
        .byte $5c,$76,$8c                           // nop $8c76,x // ILLEGAL
        tax
        lda ($15),y
        ora $16,x
        asl $16,x
        asl $16,x
        asl $16,x
        asl $16,x
        sty $0101
        ora ($01,x)
        ora ($01,x)
        ora ($01,x)
        ora ($01,x)
        ora ($01,x)
        ora ($01,x)
        ora ($02,x)
        .byte $ff,$1f,$00                           // isc $001f,x // ILLEGAL
        .byte $ff,$88,$03                           // isc $0388,x // ILLEGAL

dat_15cf:
        .byte $03                                   // .

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

// --- Region $0801-$080c ---
.pc = $0801 "dat_0801"

dat_0801:
        // === BASIC loader stub ===
        .byte $21,$08                               // next line pointer ($0821)
        .byte $d1,$07                               // line number 2001
        .byte $9e                                   // SYS token
        .byte $32,$31,$31,$32,$3a,$ab,$20           // SYS 2061 → main_080d

// --- Region $0821-$0823 ---
.pc = $0821 "dat_0821"

dat_0821:
        .byte $00,$00,$ab                           // ...

// --- Region $0840-$08ef ---
.pc = $0840 "dat_0840"

dat_0840:
        .byte $20,$81,$ff,$20,$80,$0f,$20,$f0,$08,$a9,$00,$8d,$00,$08,$78,$20 //  .. .. .......x 
        .byte $a3,$fd,$20,$15,$fd,$20,$5b,$ff,$78,$20,$80,$0f,$78,$a9,$00,$8d // .. .. [.x ..x...
        .byte $20,$d0,$8d,$21,$d0,$ea,$ea,$ea,$ea,$ea,$ea,$ea,$ea,$ea,$a9,$34 //  ..!...........4
        .byte $85,$01,$a2,$80,$bd,$7f,$08,$9d,$7f,$03,$ca,$d0,$f7,$4c,$80,$03 // .............L..
        .byte $a9,$00,$85,$fa,$a9,$40,$85,$fb,$a9,$01,$85,$fc,$a9,$08,$85,$fd // .....@..........
        .byte $a0,$00,$b1,$fa,$91,$fc,$c8,$d0,$f9,$e6,$fd,$e6,$fb,$d0,$f3,$a9 // ................
        .byte $37,$85,$01,$58,$a9,$00,$85,$c6,$8d,$00,$dc,$8d,$01,$dc,$ea,$ea // 7..X............
        .byte $20,$e2,$fc,$4c,$ae,$a7,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00 //  ..L............
        .byte $00,$ad,$8c,$81,$9a,$85,$92,$ad,$a0   // .........

txt_08c9:
        .encoding "screencode_mixed"
        .text "  intro by tcm"
        .encoding "petscii_upper"

txt_08d7:
        .text "         "
        .byte $a0                                   // ' ' | $80 (end-of-string marker)
        .byte $ad,$8c,$81,$9a,$85,$92,$ad,$a0,$20,$20,$09,$0e,$14,$12,$0f // ........  .....

// --- Region $0e70-$0e78 ---
.pc = $0e70 "dat_0e70"

dat_0e70:
        .byte $a9,$15,$8d,$18,$d0,$4c,$81,$ea       // .....L..

dat_0e78:
        // === Fill data (1 bytes, $0e78-$0e78) ===
        .byte $00                                   // .

// --- Region $0ea7-$0ebf ---
.pc = $0ea7 "dat_0ea7"

dat_0ea7:
        .byte $03,$f0,$00,$0f,$fc,$00,$1f,$ff,$00,$16,$6f,$00,$15,$af,$01,$59 // ..........o....Y
        .byte $af,$c1,$56,$bb,$c1,$56,$bb,$c5       // ..V..V..

dat_0ebf:
        // === Fill data (1 bytes, $0ebf-$0ebf) ===
        .byte $00                                   // .

// --- Region $0ee8-$0eff ---
.pc = $0ee8 "dat_0ee8"

dat_0ee8:
        .byte $3f,$ff,$0f,$ff,$ff,$3f,$ff,$ff,$fe,$bb,$ee,$5a,$ef,$ba,$5a,$ef // ?....?.....Z..Z.
        .byte $ba,$6b,$be,$e9,$6b,$be,$e9,$00       // .k..k...

// --- Region $0f06-$0f06 ---
.pc = $0f06 "dat_0f06"

dat_0f06:
        // === Fill data (1 bytes, $0f06-$0f06) ===
        .byte $00                                   // .

// --- Region $0f44-$0f45 ---
.pc = $0f44 "dat_0f44"

dat_0f44:
        .byte $c8                                   // .

dat_0f45:
        // === Fill data (1 bytes, $0f45-$0f45) ===
        .byte $00                                   // .

// --- Region $0f80-$0f81 ---
.pc = $0f80 "dat_0f80"

dat_0f80:
        .byte $60                                   // `

dat_0f81:
        // === Fill data (1 bytes, $0f81-$0f81) ===
        .byte $00                                   // .

// --- Region $100a-$1076 ---
.pc = $100a "Segment $100a"
        .byte $01,$01,$01,$00,$00,$07,$0e,$02,$50,$01,$14,$d8,$00,$00,$ff,$80 // ........P.......
        .byte $00,$00,$00,$17,$08,$80,$17,$26,$3a,$00,$00,$01,$00,$00,$7c,$03 // .......&:.....|.
        .byte $03,$01,$03,$03,$06,$38,$ff,$aa,$16,$15,$16,$1b,$c7,$12,$04,$07 // .....8..........

txt_103a:
        .text "LT"
        .byte $d4                                   // 'T' | $80 (end-of-string marker)
        .byte $d8,$80,$14,$d8,$2e,$40,$00,$80       // .....@..

tbl_hi_1045:
        .byte $14,$d8,$00,$0a,$0a,$0a,$c9,$a8,$a9   // address table high bytes
        .byte $41,$41,$15,$41,$40,$15,$00,$01,$50,$00,$ff,$80,$00,$78,$40,$00 // AA.A@...P....x@.
        .byte $00,$00,$09,$0c,$08,$08,$02,$07,$fd,$fd,$fd,$00,$3c,$00,$41,$40 // ............<.A@
        .byte $15,$01,$01,$06,$ff,$ff,$fa,$00,$cd   // .........

// --- Region $1483-$1525 ---
.pc = $1483 "Segment $1483"
        .byte $01,$27,$01,$38,$01,$4b,$01,$5f,$01,$73,$01,$8a,$01,$a1,$01,$ba // .'.8.K._.s......
        .byte $01,$d4,$01,$f0,$01,$0e,$02,$2d,$02,$4e,$02,$71,$02,$96,$02,$bd // .......-.N.q....
        .byte $02,$e7,$02,$13,$03,$42,$03,$74,$03,$a9 // .....B.t..

loc_14ad:
        .byte $03,$e0,$03,$1b,$04,$5a,$04,$9b,$04,$e2,$04,$2c,$05,$7b,$05,$ce // .....Z.....,.{..
        .byte $05,$27,$06,$85,$06,$e8,$06,$51,$07,$c1,$07,$37,$08,$b4,$08,$37 // .'.....Q...7...7
        .byte $09,$c4,$09,$57,$0a,$f5,$0a,$9c,$0b,$4e,$0c,$09,$0d,$d0,$0d,$a3 // ...W.....N......
        .byte $0e,$82,$0f,$6e,$10,$68,$11,$6e,$12,$88,$13,$af,$14,$eb,$15,$39 // ...n.h.n.......9
        .byte $17,$9c,$18,$13,$1a,$a1,$1b,$46,$1d,$04,$1f,$dc,$20,$d0,$22,$dc // .......F.... .".
        .byte $24,$10,$27,$5e,$29,$d6,$2b,$72       // $.'^).+r

txt_1505:
        .text ".81&4B7"
        .byte $8c,$3a,$08,$3e,$b8,$41,$a0,$45,$b8   // .:.>.A.E.

txt_1515:
        .text "I N"
        .byte $bc                                   // '<' | $80 (end-of-string marker)
        .byte $52,$ac,$57,$e4,$5c,$70,$62,$4c,$68,$84,$6e,$18,$75 // R.W.\pbLh.n.u

// --- Region $152b-$15a3 ---
.pc = $152b "dat_152b"

dat_152b:
        .byte $8b,$70,$93,$40,$9c,$78,$a5,$58,$af,$c8,$b9,$e0,$c4,$98,$d0,$08 // .p.@.x.X........
        .byte $dd,$30,$ea,$20,$f8,$2e,$fd,$41,$40,$0a,$a8,$01,$d8,$00,$ff,$81 // .0. ...A@.......
        .byte $80,$09,$e8,$00,$40,$00,$00,$41,$11,$0a,$a9,$51,$00,$90,$80,$41 // ....@..A...Q...A
        .byte $41,$0a,$c9,$00,$14,$40,$00,$15,$15,$0a,$a9,$50,$00,$80,$80,$41 // A....@.....P...A
        .byte $40,$0a,$c9,$01,$d7,$00,$e0,$41,$41,$09,$09,$01,$80,$60,$18,$41 // @......AA....`.A
        .byte $41,$09,$09,$01,$80,$60,$1c,$81,$1e,$41,$08,$08,$41,$08,$06,$41 // A....`...A..A..A
        .byte $08,$04,$80,$1c,$80,$17,$80,$1c,$80,$17,$80,$1c,$80,$17,$ff,$00 // ................
        .byte $03,$07,$ff,$00,$03,$05,$ff,$fc,$ff   // .........

// --- Region $15d0-$20c0 ---
.pc = $15d0 "Segment $15d0"
        .byte $86,$03,$03,$89,$04,$88,$04,$8b,$04,$86,$05,$89,$04,$88,$04,$8b // ................
        .byte $04,$86,$05,$ff,$88,$06,$07,$07,$08,$09,$09,$89,$04,$88,$04,$8b // ................
        .byte $04,$86,$05,$89,$04,$88,$04,$8b,$04,$86,$0a,$ff,$1f,$00,$ff,$83 // ................
        .byte $00,$1a,$03,$1a,$83,$01,$16,$83,$00,$1a,$ff,$83,$00,$1a,$83,$01 // ................
        .byte $16,$03,$16,$03,$16,$ff,$83,$03,$0e,$03,$0e,$03,$1a,$03,$0e,$03 // ................
        .byte $0e,$03,$1a,$03,$0e,$03,$0e,$03,$1a,$03,$0e,$03,$0e,$03,$1a,$03 // ................
        .byte $0e,$03,$1a,$03,$0e,$03,$1a,$ff,$83,$03,$0e,$03,$0e,$03,$1a,$03 // ................
        .byte $0e,$03,$0e,$03,$1a,$03,$0e,$03,$1a,$ff,$83,$03,$0e,$03,$0e,$03 // ................
        .byte $1a,$03,$0e,$03,$0e,$03,$1c,$03,$10,$03,$1c,$ff,$87,$02,$3e,$07 // ..............>.
        .byte $3e,$03,$3c,$07,$3e,$83,$9c,$40,$23,$42,$03,$43,$07,$42,$03,$3e // >.<.>..@#B.C.B.>
        .byte $83,$bb,$3e,$27,$3c,$ff,$83,$06,$32,$03,$32,$01,$32,$83,$07,$32 // ..>'<...2.2.2..2
        .byte $03,$32,$03,$32,$01,$32,$83,$06,$37,$03,$37,$ff,$87,$02,$40,$81 // .2.2.2..7.7...@.
        .byte $9c,$40,$21,$41,$07,$43,$03,$41,$07,$40,$03,$3c,$03,$48,$03,$46 // .@!A.C.A.@.<.H.F
        .byte $07,$48,$83,$05,$28,$03,$28,$03,$28,$ff,$80,$04,$32,$9f,$9f,$32 // .H..(.(.(...2..2
        .byte $ff,$03,$0e,$03,$0e,$03,$1a,$03,$0e,$03,$0e,$03,$1c,$03,$10,$01 // ................
        .byte $1c,$ff
        .text "IKARI"

dat_16c7:
        // === Fill data (2361 bytes, $16c7-$1fff) ===
        .fill 2361, $60

txt_2000:
        .text "      ONCCCCCCCCCCCCCCCCCCCCCCCNI            OKB  - "
        .byte $14,$19,$10,$08,$0f,$0f,$0e,$20,$14,$12,$01,$09,$0e,$05,$12 // ....... .......

txt_2043:
        .text " -  BJI     "
        .byte $10                                   // .

txt_2050:
        .text "     "
        .byte $40                                   // @ character
        .text " B "
        .byte $12,$05,$0c,$05,$01,$13,$05,$04,$20,$0f,$0e // ........ ..

txt_2064:
        .text " 20/10/88  B "
        .byte $40                                   // @ character
        .text "           JIB   "

txt_2083:
        .encoding "screencode_mixed"
        .text "by tcm of -lazer"
        .encoding "petscii_upper"

txt_2093:
        .text "-   BOK            J"
        .byte $71                                   // q

txt_20a8:
        .text "CCCCCCCCCCCCCCCCCCCCCCC"
        .byte $71,$4b                               // qK
