; coded by Metallic 2015-10

        * = $8000

        !word init
        !word init
        !pet "CBM80"

init    sei
        ldx #$ff
        txs
        jsr $fda3
        lda #0          ; $fd50 replacement starts here
        tay
.0      sta $0002,y
        sta $0200,y
        sta $0300,y
        iny
        bne .0
        ldx #$3c
        ldy #3
        stx $b2
        sty $b3
        ldx #0
        ldy #$a0
        stx $0283       ; highest ram address for Basic
        sty $0284       ;
        stx $c1
        sty $c2
        lda #8
        sta $0282
        lda #4
        sta $0288       ; $fd50 replacement ends here
        jsr $fd15
        jsr $ff5b
        jsr $e453
        jsr $e3bf       ; init routine ends here

        ldx #0          ; transfer the wait routine to $0334
.1      lda wait,x
        sta $0334,x
        inx
        cpx #<waitend-wait
        bne .1

        inc $01         ; now all memory is ram
        lda #1
        sta $ff         ; set the wait flag
        jmp $0334

wait
        !pseudopc $0334 {

.2      lda $ff
        bne .2          ; wait until the wait flag is clear

        lda $fb         ; get the value for port $01
        sta $01

        lda $fc
        bne .3          ; jump if irq flag is set
        cli

.3      ldx $fd         ; get the low byte of the start address
        ldy $fe         ; get the high byte of the start address
        stx start+1
        sty start+2
start   jmp $ffff       ; start the game

        }
waitend