Directory of image this file is from
This file as a plain text file
/FULL CIRCLE/
FIELD 1
CHN=0200
MQL=7421
MQA=7501
SWP=7521
*0020
X1,0
XPCHK,-131
XDIR,400
XPL,7777
XS2,7041
XPOINT,ST+1
Y1,0
YPCHK,-131
YDIR,7600
YPL,7776
YS2,7041
YPOINT,END
D1,0
DPCHK,0
DDIR,0
DPL,0
DS2,0
DPOINT,0
SX1,7000
SX2,7041
S2,0
SY1,7000
SY2,7041
BOUND,0
XDIFF,0
YDIFF,0
XH,0
WADDR,0
YCHK,0
WCHK,-14
WL,-14
PPOINT,0
X1PLOT,0
Y1PLOT,0
INDEXS,0
XPLOT,0
X2,7402
Y2,0
A,314
B,327
C,333
D,7041
E,1374
YDIF,0
PCLEAR,3777
MAN,20
MOMH, 0
FPOINT, 0
GPOINT, 0
KNT, 0
*0412
INIT,0
DCA YCHK
TAD (7764)
DCA WL
TAD X2
CIA
TAD X1
SMA
JMP S5
CLA
JMS SWITCH
JMP S3
S5, SZA
JMP S3
TAD Y2
CIA
TAD Y1
SMA
JMP S3
CLA CLL
TAD Y2
DCA XH
TAD Y1
DCA Y2
TAD XH
DCA Y1
JMP S3
S3, CLA CLL
TAD Y2
CIA
TAD Y1
SMA
JMP S4
CLA CLL
TAD (7000)
DCA I A
TAD (7000)
DCA I B
TAD (1075)
DCA I C
JMP START
S4, CLA CLL
TAD D
DCA I A
TAD D
DCA I B
TAD E
DCA I C
JMP START
SCOPE,0
CLA CLL
TAD (1360)
6150
NOP
NOP
CLA CLL IAC RAL
RDF
6151
JMP I SCOPE
ERASE,0
TAD (1360)
DCA INDEXS
TAD (-6200)
DCA XH
DCA I INDEXS
ISZ INDEXS
ISZ XH
JMP .-3
JMP I ERASE
INI, JMP I INIT
FIXT,0
FIX1, TAD DDIR
SMA
JMP FIX11
CLA CLL
TAD DPOINT
TAD (-1)
DCA DPOINT
JMP SET
FIX11, ISZ DPOINT
SET, CLA CLL
ISZ DPCHK
JMP S1-1
JMS FIXS1
TAD DDIR
CIA
DCA DDIR
TAD (-131)
DCA DPCHK
TAD I DPOINT
S1, NOP
TAD (150)
DCA D1
JMP I FIXT
FIXS1, 0
ISZ DPL
JMP I FIXS1
CLA CLL
TAD (7776)
DCA DPL
TAD S1
DCA MOMH
TAD S2
DCA S1
TAD MOMH
DCA S2
JMP I FIXS1
*200
START, JMS PLOT
JMS SWITCH
JMS PLOT
JMS XGREAT
NOP
JMS SWITCH
JMP INI
SWITCH,0
TAD X1
DCA XH
TAD X2
DCA X1
TAD XH
DCA X2
TAD Y1
DCA XH
TAD Y2
DCA Y1
TAD XH
DCA Y2
JMP I SWITCH
PLOT,0
TAD WL
DCA WCHK
TAD (7460)
DCA WADDR
TAD (4000)
DCA PPOINT
TAD X1
CIA
DCA XPLOT
TAD Y1
CIA
DCA Y1PLOT
PLOT1, JMS SPOT
ISZ XPLOT
JMP PLOT1
CLL CLA
YPLOT, TAD WADDR
TAD (-20)
DCA WADDR
ISZ Y1PLOT
JMP YPLOT
TAD PPOINT
JMS FIX
NOP
JMP I PLOT
FIX,0
SWP
CLA CLL
TAD I WADDR
MQA
DCA I WADDR
JMP I FIX
XGREAT,0
TAD X1
CIA
TAD X2
DCA XDIFF
TAD Y1
CIA
TAD Y2
DCA YDIFF
TAD XDIFF
DCA BOUND
TAD XDIFF
CIA
DCA X1PLOT
TAD YDIFF
IAC
CIA
DCA YDIF
HERE, TAD YCHK
TAD YDIFF
DCA YCHK
TAD YCHK
CIA
TAD BOUND
SPA
JMP RESET
CLA CLL
TAD PPOINT
JMS FIX
JMS SPOT
JMP HERE
RESET, CLA CLL
TAD BOUND
CIA
TAD YCHK
DCA YCHK
TAD WADDR
TAD (-20)
DCA WADDR
TAD PPOINT
JMS FIX
ISZ YDIF
JMP HERE+3
JMP I XGREAT
SPOT,0
ISZ WCHK
JMP .+14
TAD WL
DCA WCHK
CLL CLA
TAD (4000)
DCA PPOINT
TAD WADDR
IAC
DCA WADDR
ISZ X1PLOT
JMP I SPOT
JMP I XGREAT
CLL CLA
TAD PPOINT
RAR
DCA PPOINT
ISZ X1PLOT
JMP I SPOT
JMP I XGREAT
*0720
TIMER,0
DCA INDEXS
TLOOP, LAS
STL CIA
TAD INDEXS
SNL CLA
JMP I TIMER
ISZ INDEXS
6156
JMP .-1
JMP TLOOP
*0600
ROTAMN, CLA CLL
JMS ERASE
JMS SCOPE
JMS GO
JMS INIT
JMS TIMER
KSF
JMP .-5
CLA CLL
6152
KRS
TAD (-203)
SZA CLA
JMP CHAIN
CDF CIF 00
JMP I (7600)
CHAIN, KCC
CLA CLL
CDF CIF 00
JMP I (CHN)
GO, 0
CLA CLL
TAD (150)
DCA X2
TAD (150)
DCA Y2
TAD (X1)
DCA FPOINT
TAD (-6)
DCA KNT
TAD SX1
DCA S1
TAD SX2
DCA S2
JMS FIXDR
TAD S1
DCA SX1
TAD S2
DCA SX2
TAD (Y1)
DCA FPOINT
TAD (-6)
DCA KNT
TAD SY1
DCA S1
TAD SY2
DCA S2
JMS FIXDR
TAD S1
DCA SY1
TAD S2
DCA SY2
JMP I GO
FIXDR,0
CLA CLL
TAD (D1)
DCA GPOINT
TAD I FPOINT
DCA I GPOINT
ISZ FPOINT
ISZ GPOINT
ISZ KNT
JMP .-5
TAD (-6)
DCA KNT
JMS FIXT
TAD FPOINT
TAD (-6)
DCA FPOINT
TAD GPOINT
TAD (-6)
DCA GPOINT
TAD I GPOINT
DCA I FPOINT
ISZ GPOINT
ISZ FPOINT
ISZ KNT
JMP .-5
JMP I FIXDR
*1000
ST, 117
117
117
117
117
117
117
117
116
116
116
116
115
115
115
115
114
114
113
113
112
112
111
111
110
110
107
107
106
105
105
104
103
102
102
101
100
77
76
76
75
74
73
72
71
70
67
66
65
64
63
62
61
60
57
55
54
53
52
51
50
46
45
44
43
41
40
37
36
34
33
32
30
27
26
24
23
22
20
17
16
14
13
12
10
7
6
4
3
1
END,0
00
$