-
Notifications
You must be signed in to change notification settings - Fork 1
/
Copy pathCOLORMAX.TXT
149 lines (127 loc) · 2.44 KB
/
COLORMAX.TXT
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
NAM COLORMAX
INCL LOWDEFS.TXT
EOF EQU 21
ORG $200
LDX #0
STX $420
LDX #$94C
LDU #NNN
LDB #11
A@ LDA ,U+
STA ,X+
DECB
BNE A@
LDA #52
STA $FF03
CLRA
TFR A,DP
LDA #76
STA $FF90
STA $FFDE
LDD #$3C3D
STD $FFA4
LDD #$3E3F
STD $FFA6
STA 65496
JSR OPENI
MNB JSR READ1
CMPA #255
BEQ MNV
JSR READ1
PSHS A
JSR READ1
PULS B
EXG A,B
TFR D,Y
JSR READ1
PSHS A
JSR READ1
PULS B
EXG A,B
TFR D,X
A@ JSR READ1
STA ,X+
LEAY -1,Y
BNE A@
BRA MNB
MNV JSR READ1
JSR READ1
JSR READ1
PSHS A
JSR READ1
PULS B
EXG A,B
TFR D,Y
LDA #$0C
FCB $1F,$8B
STA $FFDF
LDA #68
STA $FF90
JMP ,Y
READ1
PSHS X
LDX $420
INX
STX $420
PULS X
JMP $A176
NNN FCC /DELUXE BIN/
RGBFLG EQU $E00 0=RGB
ORG $E01
INCL DISKIO2.TXT
INCL GREGSTF2.TXT
INCL WINDOW2.TXT
INCL CHRST.TXT
INCL PATS.TXT
INCL PATTERN.TXT
INCL CHROUT2.TXT
INCL TABLES.TXT
INCL PCOPY.TXT
INCL TITLEPGE.TXT
SETPCL CMPB #16
BHS A@
STB <COLOR
PSHS B
TST TYPIN2
BEQ T@
JSR UPDMDE
T@ PULS B
A@ STB <PATTRN
TFR B,A
JSR SHOPAT
JMP MENU
BGBOX LDA #126
STA <BV1
LDA #131
STA <BV2
LDX #10
STX <BH1
LDX #22
STX <BH2
LDB ERCOL2
JSR FILLED
CLRB
JMP BOX
FGBOX LDA #127
STA <BV1
LDA #130
STA <BV2
LDX #25
STX <BH1
LDX #35
STX <BH2
LDB <COLOR
JSR FILLED
DEC <BV1
INC <BV2
LDX #24
STX <BH1
LDX #36
STX <BH2
CLRB
JMP BOX
INCL MAIN2.TXT
ICONS INCL ICONS.TXT
ORG $182
JMP CWRKS
END CWRKS