commodore.gen.tr

IRQVECTOR	= $0314
IRQ6502		= $FFFE

CURRENTFRAME	= $08

;VIC Border color
BORDER		= $D020
SCREEN		= $D021

	*=$080E						  	  	  	  	
	CLD

	LDY #$7f    ; $7f = %01111111 
    STY $dc0d   ; Turn off CIAs Timer interrupts 
    STY $dd0d   ; Turn off CIAs Timer interrupts 
    LDA $dc0d   ; cancel all CIA-IRQs in queue/unprocessed 
    LDA $dd0d   ; cancel all CIA-IRQs in queue/unprocessed 

	LDA #$00
	STA $D01A
	
	LDA #$35 
	STA $01
	
	LDX #$00
	STX CURRENTFRAME
-	
	LDA $D012
	BNE -
	LDA $d011                     ; clear high bit of raster line
	AND #$7f
	STA $d011		
	
	LDA RP, X
	STA $D012

	LDA #<MRH
	STA IRQ6502
	LDA #>MRH
	STA IRQ6502+1
	
	LDA #$01
	STA $D01A
	
	CLI
		
LOOP
	JMP LOOP
	

MRH
	SEI
	ASL $D019		
	INC BORDER
	LDX CURRENTFRAME
	INX
	CPX #25
	BNE +
	LDX #$00
+	
	LDA RP, X
	STA $D012
	STX CURRENTFRAME
	INC $07C0,X
	DEC BORDER
	RTI


		   
RP		= range($31, $F1, 8)
			

MRH
	PHA        			; Store A,X,Y to Stack 
	TXA
	PHA        
	TYA
	PHA        
	
;	SEI
;	ASL $D019		
	INC BORDER
	LDX CURRENTFRAME
	INX
	CPX #25
	BNE +
	LDX #$00
+	
	LDA RP, X
	STA $D012
	STX CURRENTFRAME
	INC $07C0,X
	DEC BORDER

	LDA #$FF   			; Ack Interrupt
	STA $D019 
	PLA					; Restore X,Y,A & Return
	TAY        
	PLA
	TAX       
	PLA  
	RTI

RP
.byte 49,57,65,73,81,89,97,105,113,121,129,137,145,153,161,169,177,185,193,201,209,217,225,33,241,249	

MRH
	INC BORDER
	LDX CURRENTFRAME
	INX
	INX
	CPX #$F0
	BNE +
	LDX #$30
+	
	STX $D012
	STX CURRENTFRAME
;	DEC BORDER

	LDA #$FF   			; Ack Interrupt
	STA $D019 
	RTI

$0892  B5 31     LDA $31,X 
$0894  B5 39     LDA $39,X 
$0896  B5 41     LDA $41,X 
$0898  B5 49     LDA $49,X 
$089A  B5 51     LDA $51,X 
$089C  B5 59     LDA $59,X 
$089E  B5 61     LDA $61,X 
$08A0  B5 69     LDA $69,X 
$08A2  B5 71     LDA $71,X 
$08A4  B5 79     LDA $79,X 
$08A6  B5 81     LDA $81,X 
$08A8  B5 89     LDA $89,X 
$08AA  B5 91     LDA $91,X 
$08AC  B5 99     LDA $99,X 
$08AE  B5 A1     LDA $A1,X 
$08B0  B5 A9     LDA $A9,X 
$08B2  B5 B1     LDA $B1,X 
$08B4  B5 B9     LDA $B9,X 
$08B6  B5 C1     LDA $C1,X 
$08B8  B5 C9     LDA $C9,X 
$08BA  B5 D1     LDA $D1,X 
$08BC  B5 D9     LDA $D9,X 
$08BE  B5 E1     LDA $E1,X 
$08C0  B5 E9     LDA $E9,X 

RP		= range($31, $F1, 8)

RPP   .byte (RP)