)� Assembler code for 16 colour mode 1
"� For machines with shadow RAM
(� Turn off screen refresh event trap
(*FX13,4
2� Type *FX14,4 to activate
<� DO NOT Hardware Scroll!
F	�code
P�("SAVE 16C1SRC 900 "+�~P%)
Z�
d
��code
n
code=&900
xpal_reg=&FE21
�osbyte=&FFF4
�eventv=&220
�byte=&70:byte2=&71
��pass%=0�2�2:P%=code
�
[OPTpass%
�	.init
�PHP:PHA:TXA:PHA:TYA:PHA
�	LDA#0
�STAbyte
�	LDA#1
�STAbyte2
�SEI
�
LDAeventv

STAoldeventv

LDA#entry �256


STAeventv

"LDAeventv+1

,STAoldeventv+1

6LDA#entry �256

@STAeventv+1

JCLI

TPLA:TAY:PLA:TAX:PLA:PLP

^RTS

h:

r
.entry

|PHP:PHA:TXA:PHA:TYA:PHA

�LDAbyte

��#16

�STAbyte

�TAX

�
LDY#16

�:

�	.loop

�LDAcols1,X

�STApal_reg

�INX

�DEY

�BNEloop

�LDAbyte2
�#1
STAbyte2
TAX
&LDA#113
0
JSRosbyte
:PLA:TAY:PLA:TAX:PLA:PLP
DJMP(oldeventv)
N:
X
.cols1
b#EQUB&07:EQUB&17:EQUB&47:EQUB&57
l#EQUB&26:EQUB&36:EQUB&66:EQUB&76
v#EQUB&85:EQUB&95:EQUB&C5:EQUB&D5
�#EQUB&A0:EQUB&B0:EQUB&E0:EQUB&F0
�:
�
.cols2
�#EQUB&07:EQUB&17:EQUB&47:EQUB&57
�#EQUB&21:EQUB&31:EQUB&61:EQUB&71
�#EQUB&82:EQUB&92:EQUB&C2:EQUB&D2
�#EQUB&A3:EQUB&B3:EQUB&E3:EQUB&F3
�:
�.mem
�EQUB&F6:EQUB&F5
�.oldeventv
�	EQUW0
�]:�
	�init
�
�

00000000  0d 00 0a 29 f4 20 41 73  73 65 6d 62 6c 65 72 20  |...). Assembler |
00000010  63 6f 64 65 20 66 6f 72  20 31 36 20 63 6f 6c 6f  |code for 16 colo|
00000020  75 72 20 6d 6f 64 65 20  31 0d 00 14 22 f4 20 46  |ur mode 1...". F|
00000030  6f 72 20 6d 61 63 68 69  6e 65 73 20 77 69 74 68  |or machines with|
00000040  20 73 68 61 64 6f 77 20  52 41 4d 0d 00 1e 28 f4  | shadow RAM...(.|
00000050  20 54 75 72 6e 20 6f 66  66 20 73 63 72 65 65 6e  | Turn off screen|
00000060  20 72 65 66 72 65 73 68  20 65 76 65 6e 74 20 74  | refresh event t|
00000070  72 61 70 0d 00 28 0b 2a  46 58 31 33 2c 34 0d 00  |rap..(.*FX13,4..|
00000080  32 1e f4 20 54 79 70 65  20 2a 46 58 31 34 2c 34  |2.. Type *FX14,4|
00000090  20 74 6f 20 61 63 74 69  76 61 74 65 0d 00 3c 1d  | to activate..<.|
000000a0  f4 20 44 4f 20 4e 4f 54  20 48 61 72 64 77 61 72  |. DO NOT Hardwar|
000000b0  65 20 53 63 72 6f 6c 6c  21 0d 00 46 09 f2 63 6f  |e Scroll!..F..co|
000000c0  64 65 0d 00 50 1f ff 28  22 53 41 56 45 20 31 36  |de..P..("SAVE 16|
000000d0  43 31 53 52 43 20 39 30  30 20 22 2b c3 7e 50 25  |C1SRC 900 "+.~P%|
000000e0  29 0d 00 5a 05 e0 0d 00  64 0a dd f2 63 6f 64 65  |)..Z....d...code|
000000f0  0d 00 6e 0d 63 6f 64 65  3d 26 39 30 30 0d 00 78  |..n.code=&900..x|
00000100  11 70 61 6c 5f 72 65 67  3d 26 46 45 32 31 0d 00  |.pal_reg=&FE21..|
00000110  82 10 6f 73 62 79 74 65  3d 26 46 46 46 34 0d 00  |..osbyte=&FFF4..|
00000120  8c 0f 65 76 65 6e 74 76  3d 26 32 32 30 0d 00 96  |..eventv=&220...|
00000130  16 62 79 74 65 3d 26 37  30 3a 62 79 74 65 32 3d  |.byte=&70:byte2=|
00000140  26 37 31 0d 00 a0 18 e3  70 61 73 73 25 3d 30 b8  |&71.....pass%=0.|
00000150  32 88 32 3a 50 25 3d 63  6f 64 65 0d 00 aa 0d 5b  |2.2:P%=code....[|
00000160  4f 50 54 70 61 73 73 25  0d 00 b4 09 2e 69 6e 69  |OPTpass%.....ini|
00000170  74 0d 00 be 1b 50 48 50  3a 50 48 41 3a 54 58 41  |t....PHP:PHA:TXA|
00000180  3a 50 48 41 3a 54 59 41  3a 50 48 41 0d 00 c8 09  |:PHA:TYA:PHA....|
00000190  4c 44 41 23 30 0d 00 d2  0b 53 54 41 62 79 74 65  |LDA#0....STAbyte|
000001a0  0d 00 dc 09 4c 44 41 23  31 0d 00 e6 0c 53 54 41  |....LDA#1....STA|
000001b0  62 79 74 65 32 0d 00 f0  07 53 45 49 0d 00 fa 0d  |byte2....SEI....|
000001c0  4c 44 41 65 76 65 6e 74  76 0d 01 04 10 53 54 41  |LDAeventv....STA|
000001d0  6f 6c 64 65 76 65 6e 74  76 0d 01 0e 12 4c 44 41  |oldeventv....LDA|
000001e0  23 65 6e 74 72 79 20 83  32 35 36 0d 01 18 0d 53  |#entry .256....S|
000001f0  54 41 65 76 65 6e 74 76  0d 01 22 0f 4c 44 41 65  |TAeventv..".LDAe|
00000200  76 65 6e 74 76 2b 31 0d  01 2c 12 53 54 41 6f 6c  |ventv+1..,.STAol|
00000210  64 65 76 65 6e 74 76 2b  31 0d 01 36 12 4c 44 41  |deventv+1..6.LDA|
00000220  23 65 6e 74 72 79 20 81  32 35 36 0d 01 40 0f 53  |#entry .256..@.S|
00000230  54 41 65 76 65 6e 74 76  2b 31 0d 01 4a 07 43 4c  |TAeventv+1..J.CL|
00000240  49 0d 01 54 1b 50 4c 41  3a 54 41 59 3a 50 4c 41  |I..T.PLA:TAY:PLA|
00000250  3a 54 41 58 3a 50 4c 41  3a 50 4c 50 0d 01 5e 07  |:TAX:PLA:PLP..^.|
00000260  52 54 53 0d 01 68 05 3a  0d 01 72 0a 2e 65 6e 74  |RTS..h.:..r..ent|
00000270  72 79 0d 01 7c 1b 50 48  50 3a 50 48 41 3a 54 58  |ry..|.PHP:PHA:TX|
00000280  41 3a 50 48 41 3a 54 59  41 3a 50 48 41 0d 01 86  |A:PHA:TYA:PHA...|
00000290  0b 4c 44 41 62 79 74 65  0d 01 90 08 82 23 31 36  |.LDAbyte.....#16|
000002a0  0d 01 9a 0b 53 54 41 62  79 74 65 0d 01 a4 07 54  |....STAbyte....T|
000002b0  41 58 0d 01 ae 0a 4c 44  59 23 31 36 0d 01 b8 05  |AX....LDY#16....|
000002c0  3a 0d 01 c2 09 2e 6c 6f  6f 70 0d 01 cc 0e 4c 44  |:.....loop....LD|
000002d0  41 63 6f 6c 73 31 2c 58  0d 01 d6 0e 53 54 41 70  |Acols1,X....STAp|
000002e0  61 6c 5f 72 65 67 0d 01  e0 07 49 4e 58 0d 01 ea  |al_reg....INX...|
000002f0  07 44 45 59 0d 01 f4 0b  42 4e 45 6c 6f 6f 70 0d  |.DEY....BNEloop.|
00000300  01 fe 0c 4c 44 41 62 79  74 65 32 0d 02 08 07 82  |...LDAbyte2.....|
00000310  23 31 0d 02 12 0c 53 54  41 62 79 74 65 32 0d 02  |#1....STAbyte2..|
00000320  1c 07 54 41 58 0d 02 26  0b 4c 44 41 23 31 31 33  |..TAX..&.LDA#113|
00000330  0d 02 30 0d 4a 53 52 6f  73 62 79 74 65 0d 02 3a  |..0.JSRosbyte..:|
00000340  1b 50 4c 41 3a 54 41 59  3a 50 4c 41 3a 54 41 58  |.PLA:TAY:PLA:TAX|
00000350  3a 50 4c 41 3a 50 4c 50  0d 02 44 12 4a 4d 50 28  |:PLA:PLP..D.JMP(|
00000360  6f 6c 64 65 76 65 6e 74  76 29 0d 02 4e 05 3a 0d  |oldeventv)..N.:.|
00000370  02 58 0a 2e 63 6f 6c 73  31 0d 02 62 23 45 51 55  |.X..cols1..b#EQU|
00000380  42 26 30 37 3a 45 51 55  42 26 31 37 3a 45 51 55  |B&07:EQUB&17:EQU|
00000390  42 26 34 37 3a 45 51 55  42 26 35 37 0d 02 6c 23  |B&47:EQUB&57..l#|
000003a0  45 51 55 42 26 32 36 3a  45 51 55 42 26 33 36 3a  |EQUB&26:EQUB&36:|
000003b0  45 51 55 42 26 36 36 3a  45 51 55 42 26 37 36 0d  |EQUB&66:EQUB&76.|
000003c0  02 76 23 45 51 55 42 26  38 35 3a 45 51 55 42 26  |.v#EQUB&85:EQUB&|
000003d0  39 35 3a 45 51 55 42 26  43 35 3a 45 51 55 42 26  |95:EQUB&C5:EQUB&|
000003e0  44 35 0d 02 80 23 45 51  55 42 26 41 30 3a 45 51  |D5...#EQUB&A0:EQ|
000003f0  55 42 26 42 30 3a 45 51  55 42 26 45 30 3a 45 51  |UB&B0:EQUB&E0:EQ|
00000400  55 42 26 46 30 0d 02 8a  05 3a 0d 02 94 0a 2e 63  |UB&F0....:.....c|
00000410  6f 6c 73 32 0d 02 9e 23  45 51 55 42 26 30 37 3a  |ols2...#EQUB&07:|
00000420  45 51 55 42 26 31 37 3a  45 51 55 42 26 34 37 3a  |EQUB&17:EQUB&47:|
00000430  45 51 55 42 26 35 37 0d  02 a8 23 45 51 55 42 26  |EQUB&57...#EQUB&|
00000440  32 31 3a 45 51 55 42 26  33 31 3a 45 51 55 42 26  |21:EQUB&31:EQUB&|
00000450  36 31 3a 45 51 55 42 26  37 31 0d 02 b2 23 45 51  |61:EQUB&71...#EQ|
00000460  55 42 26 38 32 3a 45 51  55 42 26 39 32 3a 45 51  |UB&82:EQUB&92:EQ|
00000470  55 42 26 43 32 3a 45 51  55 42 26 44 32 0d 02 bc  |UB&C2:EQUB&D2...|
00000480  23 45 51 55 42 26 41 33  3a 45 51 55 42 26 42 33  |#EQUB&A3:EQUB&B3|
00000490  3a 45 51 55 42 26 45 33  3a 45 51 55 42 26 46 33  |:EQUB&E3:EQUB&F3|
000004a0  0d 02 c6 05 3a 0d 02 d0  08 2e 6d 65 6d 0d 02 da  |....:.....mem...|
000004b0  13 45 51 55 42 26 46 36  3a 45 51 55 42 26 46 35  |.EQUB&F6:EQUB&F5|
000004c0  0d 02 e4 0e 2e 6f 6c 64  65 76 65 6e 74 76 0d 02  |.....oldeventv..|
000004d0  ee 09 45 51 55 57 30 0d  02 f8 07 5d 3a ed 0d 03  |..EQUW0....]:...|
000004e0  02 09 d6 69 6e 69 74 0d  03 0c 05 e1 0d ff        |...init.......|
000004ee