basic_loader

    NAME    basic_loader
    RSEG    BASIC
basic_loader
str10:  defb    0x00,10,LOW(str10len),HIGH(str10len),0xea
    di
    ld sp,0x6000
    ld hl,filestruct
mloop: ld a,(hl)
    or a
    jp m,0x6000
    inc hl
    ld bc,0x7ffd
    out (c),a
    push hl
    ld c,0x13
    call 0x3d13
    pop hl
    ld bc,9
    add hl,bc
    ld e,(hl)
    inc hl
    ld d,(hl)
    inc hl
    push hl
    ex de,hl
    ld a,0xff
    ld c,0x0e
    call 0x3d13
    pop hl
    jr mloop
    defs 32
filestruct:
    defb 0x10,'0       C',0x00,0xc0
    defb 0x10,'code    C',0x00,0x60
    defb    0xff,'\r'
str10len=$-str10-4
str1    defb 0x00,20,LOW(str1len),HIGH(str1len),0xfd,0xb0,'\"24575\"\r'
str1len=$-str1-4
str30   defb    0x00,30,LOW(str30len),HIGH(str30len),0xf9,0xc0,0xb0,'\"23872\"\r'
str30len=$-str30-4
    defb    0x80
    END