1 W = 6
2 I = 7
3 J = 8
4 K = 9
5 A1L = $3C
6 A1H = $3D
7 K40 = $FC
8 I40 = $FD
9 IWL = $FE
10 IWH = $FF
11 KBD = $C000
12 KBDSTRB = $C010
13 LORES = $C056
14 AN3OFF = $C05F
15 PLOT = $F800
16 SETCOL = $F864
17 SETGR = $FB40
18 HOME = $FC58
19 ORG $2000
2000: 20 40 FB 20 JSR SETGR ;GR
2003: AD 56 C0 21 LDA LORES
2006: AD 5F C0 22 LDA AN3OFF
2009: 20 58 FC 23 JSR HOME ;HOME
200C: A9 03 24 LDA #3 ;FOR W=3 TO 50
200E: 85 06 25 STA W
2010: A9 00 26 WLP LDA #0 ;IW=0
2012: 85 FE 27 STA IWL
2014: 85 FF 28 STA IWH
2016: A9 28 29 LDA #40 ;I40=40
2018: 85 FD 30 STA I40
201A: A9 01 31 LDA #1 ;FOR I=1 TO 19
201C: 85 07 32 STA I
201E: A5 06 33 ILP LDA W ;IW=IW+W
2020: 18 34 CLC
2021: 65 FE 35 ADC IWL
2023: 85 FE 36 STA IWL
2025: 90 02 37 BCC ILP1
2027: E6 FF 38 INC IWH
2029: 85 3C 39 ILP1 STA A1L ;X=IW/12
202B: A5 FF 40 LDA IWH
202D: 85 3D 41 STA A1H
202F: A0 10 42 LDY #16 ;(inline 16/8 division)
2031: A9 00 43 LDA #0
2033: 06 3C 44 DIV1LP ASL A1L
2035: 26 3D 45 ROL A1H
2037: 2A 46 ROL
2038: C9 0C 47 CMP #12
203A: 90 04 48 BCC DIV1A
203C: E9 0C 49 SBC #12
203E: E6 3C 50 INC A1L
2040: 88 51 DIV1A DEY
2041: D0 F0 52 BNE DIV1LP
2043: A6 3C 53 LDX A1L
2045: C6 FD 54 DEC I40 ;I40=I40-1
2047: A5 FD 55 LDA I40 ;K40=I40
2049: 85 FC 56 STA K40
204B: A9 00 57 LDA #0 ;FOR J=0 TO 19
204D: 85 08 58 STA J
204F: 18 59 JLP CLC ;K=I+J
2050: 65 07 60 ADC I
2052: 85 09 61 STA K
2054: AD 00 C0 62 LDA KBD ;IF PEEK(KBD)>127 THEN DONE
2057: 10 06 63 BPL NOKEY
2059: 8D 10 C0 64 STA KBDSTRB
205C: 4C DD 20 65 JMP DONE
205F: A5 08 66 NOKEY LDA J ;COLOR=J*3/(I+3)+X
2061: 0A 67 ASL
2062: 65 08 68 ADC J
2064: 85 3C 69 STA A1L
2066: A5 07 70 LDA I
2068: 69 03 71 ADC #3
206A: 85 3D 72 STA A1H
206C: A9 00 73 LDA #0 ;(inline 8/8 division)
206E: A0 08 74 LDY #8
2070: 06 3C 75 DIV2LP ASL A1L
2072: 2A 76 ROL
2073: C5 3D 77 CMP A1H
2075: 90 04 78 BCC DIV2A
2077: E5 3D 79 SBC A1H
2079: E6 3C 80 INC A1L
207B: 88 81 DIV2A DEY
207C: D0 F2 82 BNE DIV2LP
207E: 8A 83 TXA
207F: 18 84 CLC
2080: 65 3C 85 ADC A1L
2082: 20 64 F8 86 JSR SETCOL
2085: A4 07 87 LDY I ;PLOT I,K: etc...
2087: A5 09 88 LDA K
2089: 20 00 F8 89 JSR PLOT
208C: A4 09 90 LDY K
208E: A5 07 91 LDA I
2090: 20 00 F8 92 JSR PLOT
2093: A4 FD 93 LDY I40
2095: A5 FC 94 LDA K40
2097: 20 00 F8 95 JSR PLOT
209A: A4 FC 96 LDY K40
209C: A5 FD 97 LDA I40
209E: 20 00 F8 98 JSR PLOT
20A1: A4 09 99 LDY K
20A3: A5 FD 100 LDA I40
20A5: 20 00 F8 101 JSR PLOT
20A8: A4 FD 102 LDY I40
20AA: A5 09 103 LDA K
20AC: 20 00 F8 104 JSR PLOT
20AF: A4 07 105 LDY I
20B1: A5 FC 106 LDA K40
20B3: 20 00 F8 107 JSR PLOT
20B6: A4 FC 108 LDY K40
20B8: A5 07 109 LDA I
20BA: 20 00 F8 110 JSR PLOT
20BD: C6 FC 111 DEC K40 ;K40=K40-1
20BF: E6 08 112 INC J ;NEXT J
20C1: A5 08 113 LDA J
20C3: C9 14 114 CMP #20
20C5: D0 88 115 BNE JLP
20C7: E6 07 116 INC I ;NEXT I
20C9: A5 07 117 LDA I
20CB: C9 14 118 CMP #20
20CD: F0 03 119 BEQ NOILP
20CF: 4C 1E 20 120 JMP ILP
20D2: E6 06 121 NOILP INC W ;NEXT W
20D4: A5 06 122 LDA W
20D6: C9 33 123 CMP #51
20D8: F0 03 124 BEQ DONE
20DA: 4C 10 20 125 JMP WLP
20DD: 60 126 DONE RTS
--End assembly, 222 bytes, Errors: 0
Symbol table - alphabetical order:
A1H =$3D A1L =$3C AN3OFF =$C05F DIV1A =$2040
DIV1LP =$2033 DIV2A =$207B DIV2LP =$2070 DONE =$20DD
HOME =$FC58 I =$07 I40 =$FD ILP =$201E
ILP1 =$2029 IWH =$FF IWL =$FE J =$08
JLP =$204F K =$09 K40 =$FC KBD =$C000
KBDSTRB =$C010 LORES =$C056 NOILP =$20D2 NOKEY =$205F
PLOT =$F800 SETCOL =$F864 SETGR =$FB40 W =$06
WLP =$2010
Symbol table - numerical order:
W =$06 I =$07 J =$08 K =$09
A1L =$3C A1H =$3D K40 =$FC I40 =$FD
IWL =$FE IWH =$FF WLP =$2010 ILP =$201E
ILP1 =$2029 DIV1LP =$2033 DIV1A =$2040 JLP =$204F
NOKEY =$205F DIV2LP =$2070 DIV2A =$207B NOILP =$20D2
DONE =$20DD KBD =$C000 KBDSTRB =$C010 LORES =$C056
AN3OFF =$C05F PLOT =$F800 SETCOL =$F864 SETGR =$FB40
HOME =$FC58