;A and X are 0 on entry
    dex; ldx #$ff
    txs
    ldx #35
l2
    lda code,x
    pha;  sta $100,x
    stz $fda0,x ;NEW does not fully fit
    dex
    bpl l2
    rts
    ;jmp code_start
    ;bmi code_start does not work, no idea why
code
*=$1dc
    .byte <(code_start-1) ;to launch with RTS ;-)
    .byte >(code_start-1)
code_start

    lda  cart0 // get number of full blocks to load
    sta blocks2load
    stz block
load_a_full_block:
   inc block
   lda block
   jsr $fe00
   tay // a == 0 after fe00, x == 2
pageloop
    lda cart0
target
    sta $200,y
    iny
    bne pageloop
    inc target+2
    dex
    bne pageloop
    dec blocks2load
    bne load_a_full_block
ready
;this is at *=$200 now