.include "cydheader.a64"


open     = $ffc0
listen   = $ffb1
seclst   = $ff93
iecout   = $ffa8
unlist   = $ffa3
close    = $ffc3
filnam   = $ffbd
filpar   = $ffba
load     = $ffd5
save     = $ffd8

lpic     = blok


bootr    = $0800
         ;*= $c801
         ;.offs $4000
	*= $0801

         .byte $0b,$08,$c6,7,$9e,$32
         .byte $30,$36,$34,0,0,0,0,0,0

         ldx #0
nbc      lda bootr,x
         sta $c800,x
         lda bootr+$0100,x
         sta $c900,x
         lda bootr+$0200,x
         sta $ca00,x
         inx
         bne nbc
         jmp strbot

strbot
zerocop  = dos+6


         ldx #<dos2
         ldy #>dos2
         lda #3
         jsr loadr

         jsr zerocop

         ldx #<grafix2
         ldy #>grafix2
         lda #6
         jsr loadr2
         jsr copgraf

         ldx #<gam1
         ldy #>gam1
         lda #5
         jsr loadr2

         ldx #<gam2
         ldy #>gam2
         lda #5
         jsr loadr2

         ldx #<gam3
         ldy #>gam3
         lda #5
         jsr loadr2

    ;     ldx #<gam4		;--- modified ---
    ;     ldy #>gam4
    ;     lda #5
    ;     jsr loadr2

        ;ldx #<lpic2
        ;ldy #>lpic2
        ;lda #4
        ;jsr loadr

      ;   ldx #<blo2
      ;   ldy #>blo2
      ;   lda #4
      ;   jsr loadr2

	  
	  .ifeq load_subjects_every_world		;--- modified ---
	  
	     ldx #<subj
         ldy #>subj
         lda #7
         jsr loadr2

	  .endif
		 
		 ldx #<subspr
         ldy #>subspr
         lda #7
         jsr loadr2
	  
	  
         jmp game1



loadr    stx zp
         sty zp+1
         sta zp+2
         jsr init
         ldy #1
         jsr filpar2
         lda #0
         jmp load
loadr2
         stx zp
         sty zp+1
         sta zp+2
         jmp dos

init
         sei
         lda #$36
         sta $01

getfnam
         ldy zp+2
         lda #"*"
         sta fname,y
         dey
n1       lda (zp),y
         sta fname,y
         dey
         bpl n1
         lda #<fname
         sta zp
         lda #>fname
         sta zp+1
         inc zp+2
setfnam
         ldx zp
         ldy zp+1
         lda zp+2
         jmp filnam


filpar2  ldx #8
         jmp filpar


fname    .text "                "

dos2     .text "dos"
gam1     .text "game1"
gam2     .text "game2"
gam3     .text "game3"
gam4     .text "game4"
grafix2  .text "grafix"
lpic2    .text "lpic"
blo2     .text "blok"

subj     .text "00subje"
subspr   .text "01subje"


copgraf
         php
         sei
         lda $01
         pha
         lda #$34
         sta $01
         ldx #0
eco2
         lda $1000,x
         sta $d000,x
         lda $1100,x
         sta $d100,x
         lda $1200,x
         sta $d200,x
         lda $1300,x
         sta $d300,x
         lda $1400,x
         sta $d400,x
         lda $1500,x
         sta $d500,x
         lda $1600,x
         sta $d600,x
         lda $1700,x
         sta $d700,x
         lda $1800,x
         sta $d800,x
         lda $1900,x
         sta $d900,x
         lda $1a00,x
         sta $da00,x
         lda $1b00,x
         sta $db00,x
         lda $1c00,x
         sta $dc00,x
         lda $1d00,x
         sta $dd00,x
         lda $1e00,x
         sta $de00,x
         lda $1f00,x
         sta $df00,x
         lda $2000,x
         sta $e000,x
         lda $2100,x
         sta $e100,x
         lda $2200,x
         sta $e200,x
         lda $2300,x
         sta $e300,x
         lda $2400,x
         sta $e400,x
         lda $2500,x
         sta $e500,x
         lda $2600,x
         sta $e600,x
         lda $2700,x
         sta $e700,x
         lda $2800,x
         sta $e800,x
         lda $2900,x
         sta $e900,x
         lda $2a00,x
         sta $ea00,x
         lda $2b00,x
         sta $eb00,x
         lda $2c00,x
         sta $ec00,x
         lda $2d00,x
         sta $ed00,x
         lda $2e00,x
         sta $ee00,x
         lda $2f00,x
         sta $ef00,x
         lda $3000,x
         sta $f000,x
         lda $3100,x
         sta $f100,x
         lda $3200,x
         sta $f200,x
         lda $3300,x
         sta $f300,x
         lda $3400,x
         sta $f400,x
         lda $3500,x
         sta $f500,x
         lda $3600,x
         sta $f600,x
         lda $3700,x
         sta $f700,x
         lda $3800,x
         sta $f800,x
         lda $3900,x
         sta $f900,x
         lda $3a00,x
         sta $fa00,x
         lda $3b00,x
         sta $fb00,x
         lda $3c00,x
         sta $fc00,x
         lda $3d00,x
         sta $fd00,x
         lda $3e00,x
         sta $fe00,x
         lda $3ef0,x
         sta $fef0,x
         inx
         beq eco
         jmp eco2
eco      pla
         sta $01
         plp
         rts