LOŁDER

                    org  $1000

                    ins  'loading.fnt',0,67*8

                    org  $0600
preload
                    lda  #0
                    sta  pre_scr+33+2*40
                    sta  pre_scr+34+2*40
                    sta  pre_scr+35+2*40
                    sta  pre_scr+36+2*40
                    sta  pre_scr+34+3*40
                    sta  pre_scr+35+3*40
                    sta  pre_scr+36+3*40

                    lda  #0
                    sta  lives2

                    lda  20
                    cmp  20
                    beq  *-2

                    lda  #00
                    sta  COLBK
                    lda  #$C8
                    sta  COLOR0
                    lda  #$B2
                    sta  COLOR1
                    lda  #$1C
                    sta  COLOR2
                    lda  #$0E
                    sta  COLOR3

                    lda  #$10
                    sta  CHBAS

                    lda  <pre_dl
                    sta  SDLSTL
                    lda  >pre_dl
                    sta  SDLSTL+1

                    ldy  <pre_vbi
                    ldx  >pre_vbi
                    lda  #$06
                    jsr  SETVBV

                    jmp  pre_exit

pre_dl              .byte  $70, $70, $70
                    .byte  $44
                    .word  pre_scr
                    .byte  $4, $4, $4
                    .byte  $41
                    .word  pre_dl

pre_vbi             sta  reg_a

                    lda  20
                    and  #7
                    bne  @+

                    lda  lives2
                    beq  even

                    lda  #$6
                    sta  pre_scr+33
                    lda  #$7
                    sta  pre_scr+34
                    lda  #$8
                    sta  pre_scr+35
                    lda  #$9
                    sta  pre_scr+36
                    lda  #$9c
                    sta  pre_scr+34+40
                    lda  #$9d
                    sta  pre_scr+35+40
                    lda  #$0
                    sta  pre_scr+36+40
                    lda  #0
                    sta  lives2
                    jmp  @+

even                lda  #$29
                    sta  pre_scr+33
                    lda  #$2a
                    sta  pre_scr+34
                    lda  #$2b
                    sta  pre_scr+35
                    lda  #$2c
                    sta  pre_scr+36
                    lda  #$c0
                    sta  pre_scr+34+40
                    lda  #$c1
                    sta  pre_scr+35+40
                    lda  #$42
                    sta  pre_scr+36+40

                    lda  #1
                    sta  lives2
@
                    lda  reg_a
                    jmp  $e45f

pre_scr             ins  'loading.scr',0,4*40

pre_exit
                    rts

                    ini  preload
                    run  start