*KERNEL EXAMPLE - BY DAN PINAL * KERNEL CHANGES COLOR MIDSCREEN DURING EACH SCAN LINE PDATA EQU $6000 PMBASE EQU $D407 SDLSTL EQU $230 HPOSP0 EQU $D000 PCOLR0 EQU $2C0 COLPMO EQU $D012 COLBAK EQU $D01A WSYNC EQU $D40A VCOUNT EQU $D40B IRQEN EQU $D20E NMIEN EQU $D40E VDSLST EQU $200 VVBLKD EQU $224 SDMCTL EQU $22F DMACTL EQU $D400 GRACTL EQU $D01D SETVBV EQU $E45C XITVBV EQU $E462 MISSL0 EQU PDATA+$300 PLAYR0 EQU MISSL0+$100 PLAYR1 EQU PLAYR0+$100 PLAYR2 EQU PLAYR1+$100 PLAYR3 EQU PLAYR2+$100 STICK0 EQU $278 *ZERO PAGE EQUATES VTEMP0 EQU $F0 VTEMP1 EQU $F1 POTMP0 EQU $F8 POTMP1 EQU $F9 * ORG $4000 * INIT LDA #>DLIST STA SDLSTL LDA #KERNEL ; SET DISPLAY LIST INTERRUPT STA VDSLST LDA #VBLANK ; SET VERTICAL BLANK LDX #