/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
$