1000 !
1010 *=49152
1020 !
1030 JSR INIT   ! SET UP DELAY TABLE
1040 JSR SETIRQ ! SET IRQ'S
1050 RTS        ! AND RETURN !
1060 !
1070 SETIRQ !
1080 SEI
1090 LDA #$7F
1100 STA $DC0D
1110 LDA $DC0D
1120 LDA #$1B
1130 STA $D011
1140 LDA #$32   ! <- SET THIS NUMBER
1150 STA $D012  !    TO THE FIRST LINE
1160 LDA #<IRQ  !    YOU WANT YOUR
1170 STA $314   !    COLOURS TO START.
1180 LDA #>IRQ
1190 STA $315
1200 LDA #1
1210 STA $D019
1220 STA $D01A
1230 CLI
1240 RTS
1250 !
1260 MAX=$88       ! MAX.COLOURED LINES
1270 DELTAB=$C300 !<DELAY TABLE ADDRESS
1280 COLTAB=$C600 !<COLOUR TABLE ADDRESS
1290 !
1300 IRQ !
1310 LDX #$D   !<GET IN EXACTLY THE
1320 I1 DEX    ! RIGHT PLACE TO START!
1330 BNE I1
1340 !
1350 I2 LDY DELTAB,X !<GET DELAY
1360 LDA COLTAB,X    !<GET COLOUR
1370 I3 DEY          !<TO THE DELAY TO
1380 BNE I3          ! WAIT FOR LINE.
1390 STA $D020       !<AND STORE COLOUR
1400 STA $D021       ! IN SCREEN+BORDER
1410 INX
1420 CPX #MAX        !<FINISHED?
1430 BNE I2          ! IF NOT,CONTINUE
1440 !
1450 LDA #1          !<RESET IRQ
1460 STA $D019
1470 JMP $EA31       !<AND RETURN...
1480 !
1490 INIT ! SET UP DELAY TABLE.
1500 LDX #0
1510 IN0 LDY #0
1520 IN1 LDA DTAB,Y
1530 STA DELTAB,X
1540 INX
1550 INY
1560 CPY #8
1570 BCC IN1
1580 CPX #MAX
1590 BCC IN0
1600 RTS
1610 !
1620 DTAB BYT 8,8,8,8,8,8,8,1
1630 ! THE DREADED 8TH LINE ^ ARGH!
1640 !
1650 !    SINGLE PIXEL COLOUR-BARS
1660 !    ------------------------
1670 !
1680 ! -TO USE THIS PROGRAM,YOU HAVE TO
1690 ! FIRST ASSEMBLE IT,START IT WITH
1700 ! SYS 49152,AND THEN EITHER POKE
1710 ! FROM BASIC,OR USE A MONITOR TO
1720 ! PUT THE COLOUR VALUES INTO THE
1730 ! TABLE FROM $C600-$C600+MAX.
1740 ! EG. 0 FOR BLACK,1 FOR WHITE ETC
1750 ! -WATCH THE TWO TABLES DON'T
1760 ! OVERWRITE EACH OTHER!!
1770 !
1780 ! -THANKS TO DAVE WEAVER!
1790 !
1800 *=$C600 ! EXAMPLE COLOURS...
1810 !
1820 BYT 6,0,6,2,0,6,2,4,0,6,2,4,$A,0
1830 BYT 6,2,4,$A,7,0,6,2,4,$A,7,1
1840 BYT 7,$A,4,2,6,0,7,$A,4,2,6,0
1850 BYT $A,4,2,6,0,4,2,6,0,2,6,0,6,0
1860 !
1870 BYT 0,6,14,14,14,3,0,14,3,3,3,1,0
1880 BYT 3,1,1,1,3,0,1,3,3,3,14,0
1890 BYT 3,14,14,14,6,0,0
1900 !
1910 BYT 9,0,9,2,0,9,2,8,0,9,2,8,$A,0
1920 BYT 9,2,8,$A,7,0,9,2,8,$A,7,1
1930 BYT 7,$A,8,2,9,0,7,$A,8,2,9,0
1940 BYT $A,8,2,9,0,8,2,9,0,2,9,0,9,0