//------------------------------------------------------------

	BasicUpstart2(start)

		///////////////////////////////

		*= $1000

	start:
		lda #$00
		sta $3fff // Clear border garbage

		sei
		lda #$35
		sta $01
		lda #<irq
		sta $fffe
		lda #>irq
		sta $ffff

		lda #$01
		sta $d019
		sta $d01a
		lda #$7f
		sta $dc0d

		lda #$00
		sta $d012

		cli
		jmp *

		///////////////////////////////

	irq:
		lda $d019
		and #$01
		sta $d019
		bne cycle
		jmp $ea81

	cycle:
		lda $d011
		ora #$08
		sta $d011

		.var loop=true

		// Simple loop, waiting until raster line $f9
		// This works!
	.if(loop) {
			ldx #$f9
		loop:
			cpx $d012
			bne loop
	}
		// Waste cycles until raster line $f9
		// Doesn't work!
	.if(!loop) {
		.var x=0
		.for (x=0;x<$f9;x++) {
			// Waste 63 cycles
		        .var y=0
		        .for (y=0;y<30;y++) {
		        	nop
		        }
		        bit $fe
		}
	}
		// Verify we're on line $f9
		lda $d012
		sta $0400

		inc $d020

		// Open bottom border, turn off screen
		lda $d011
		and #%11100111
		sta $d011

		// Give $d020 jiggle some time to show
		ldy #$10
		dey
		bne *-1

		dec $d020

		jmp $ea81

//------------------------------------------------------------