Assembler-Beispiel 78 - SEI.asm

; Dieses Programm erweitert die originale Interrupt-Service-Routine um den Befehl INC $d020.
; Dadurch flimmert der Rahmen, auch nach der Rückkehr ins BASIC, immer noch.
; Programmstart mit SYS 49152

*=$c000   ; Startadresse des Programms

	sei		; Interrupts sperren
	lda #<isr 
	sta $0314	; Vektor für neue Interrupt-Service-Routine ändern
	lda #>isr
	sta $0315 
	cli		; Interrupts zulassen
	rts
 
isr	inc $d020	; VIC-Register Rahmenfarbe um 1 erhöhen 
	jmp $ea31	; Sprung in die alte IRQ-Routine