C64: Border removal

// use the kickassembler to assemble this code
:BasicUpstart2(Main)	
.pc = * "Code Segment"
Main:
	sei
	lda #<Interrupt
	sta $0314
	lda #>Interrupt
	sta $0315
	lda #$f9
	sta $d012
	sta $dc0e
	lda #$01
	sta $d019
	sta $d01a
	lda $d011
	and #%01111111
	sta $d011
	cli
	rts
Interrupt:
	lda #$01
	sta $d019
	lda $d011
	and #$f7
	sta $d011
Loop:
	lda $d012
	bne Loop
	lda $d011
	and #$7f
	ora #$08
	sta $d011
	jmp $ea31