Operator`s manual

064E 85CC 0910
0650 0A 0920
0651 0A 0930
0652 65CC 0940
0950
0960
4970
0980
0654
65CD 0990
1000
1010
0656
A.8
7020
0657 A5D1 1030
0659 9158 1040
0658 CA
1050
065C DOA6 1060
1070
1080
1090
065E C6D0
1100
0660 A5D0 1110
0662 297F 1120
0664
D09E
1130
1740
1150
1160
0666
A5D0 7770
066A
4A
1180
0669
4A
1190
0664 4A 1200
0668
4,{ 1.210
066C
4,4. 1220
066D 2903 1230
066F AA 1240
1250
0670 /'DoADz 1260
0673 9DC402
1270
0676 4CO406 1280
0679
1290
Exampl€ 4.
10
20
30
40
50
60
65
70
80
90
0100
STA TEMP SAVE IT FOR A FXW MICROSECONDS
ASL A
ASL A YLOC*8
ADC TEMP ADD IN YI,OC*2
;
RESULT IN ACCUMULATOR IS YLOC*10
;
REMEMBER, THERE ARE TEN BYTES PER SCRXEN RO.\ry
ADC X],OC
;
;
RESULT IS MEMORY LOCATION OF DESIRED PIXEL
GROUP
TAY
LDA COLOR GET COLOR BYTE
STA
(SAVMSC),Y
PUT
IT ONTO
THE
SCREEN
DXX
\^/E
S}IALL PUT 254 MORE SQUARES
BNE BEGIN
ONTO
THE
SCREEN
;
END
OI
MAIN INNER LOOP
;
DEC PHASE STEP COLOR PHASE FOR EXPLOSION
LDA PHASE
AND
'$1F
EVERY 32 PHASE STEPS
BNE BEGIN WE
C}1ANGE COLOR
REGISTERS
;
THIS
SECTION USES
BITS
5
AND
6 OF
PHASE
;
TO
CHOOSE
WHICH
COLOR
REGISTXR TO MODIFY
LDA PHASE
LSR A
LSR
A
LSR A
I,SR
A
LSR A
AND
/$03
TAX
;
LDA RANDOM
CHOOSE
A RANDOM
COLOR
STA COLORO,X
PUT NEW
COLOR
INTO
COLOR
REG,
JMP
BEGIN START ALL OVER
.END
, "-A.t"U',
CO"O*
O-A""tt"
;
PUTS ALL 128
COLORS ONTO
THE
SCREXN
i
CALL
FROM BASIC WITH THE
FOLLOWING COMMANDS:
; G R . 5
;
FORI-0 TO 3: COLOR I: FORJ-20*I TO 20*I+19: PI-OT
J,
3:
;
DRA1ir'TO
J,
39: NiXT
J:
NEXT I
;
A
=USR(1536)
;
BASIC IS STILL USABLE
;
EXIT
WITH
SYSTEM RESET KEY
;