/***ROTATRON***/
FIELD 1
MQA=7501
SWP=7521
*0030
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
X1,0
Y1,0
A,310
B,327
C,333
D,7041
E,1374
YDIF,0
PCLEAR,3777
POINT1,0;0
POINT2,0;0
POINT3,0;0
POINT4,0;0
POINT5,0;0
POINT6,0;0
POINT7,0;0
POINT8,0;0
AA,24
XVAL,137
YVAL,144
PP1,P1
C1,0
PP2,P1
C2,0
PP3,P1+2
C3,0
PP4,P1+2
C4,0
PP5,P1+4
C5,0
PP6,P1+4
C6,0
PP7,P1+6
C7,0
PP8,P1+6
C8,0
ZER0,0
P1, 1; -1; -1; -1; -1; 1; 1; 1
P5,0
AA2,0
H,0
H1,0
H2,0
CNST,-10
RECNST,-10
MOMHLD,0
ONE,0
TWO,0
KNT,0
MAN,20
F,0
G,0
*446
INIT,0
 CLA CLL
 DCA YCHK
 TAD (7764)
 DCA WL
 TAD X2
 CIA
 TAD X1
 SMA
 JMP S3
 CLA
 JMS SWITCH
S3, CLA CLL
 TAD Y2
 CIA
 TAD Y1
 SMA
 JMP S4
 CLA CLL
 TAD (7000)
 DCA I A
 TAD (7000)
 DCA I B
 TAD (20)
 CLA
 TAD (1147)
 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
INI, JMP I INIT
*200
START, JMS PLOT
 JMS SWITCH
 JMS PLOT
 JMS XGREAT
 NOP
 JMP INI
HLT
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
 SWP
 CLA CLL
 TAD I WADDR
 MQA
 DCA I WADDR
 JMP I PLOT
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
 NOP
 CIA
 DCA YDIF
HERE, TAD YCHK
 TAD YDIFF
 DCA YCHK
 TAD YCHK
 CIA 
 TAD BOUND
 SPA
 JMP RESET
 CLA CLL
 TAD PPOINT
 SWP
 CLA CLL
 TAD I WADDR
 MQA
 DCA I WADDR
 JMS SPOT
 JMP HERE
RESET, CLA CLL
 TAD BOUND
 CIA 
 TAD YCHK
 DCA YCHK
 TAD WADDR
 TAD (-20)
 DCA WADDR
 TAD PPOINT
 SWP
 CLA CLL
 TAD I WADDR
 MQA
 DCA I WADDR
 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
*0400
SCOPE,0
 CLA CLL
 OSR
 CIA
 TAD (-1)
 DCA INDEXS
 6156
 JMP .-1
 ISZ INDEXS
 JMP .-3
 JMP I SCOPE
RESPOT,0
 ISZ WCHK
 JMP .+14
 TAD WL
 DCA WCHK
 CLA CLL
 TAD (3777)
 DCA PCLEAR
 TAD WADDR
 IAC
 DCA WADDR
 ISZ X1PLOT
 JMP I RESPOT
 JMP START+4
 STL CLA
 TAD PCLEAR
 RAR
 DCA PCLEAR
 ISZ X1PLOT
 JMP I RESPOT
 JMP START+4
*0600
ROTA, CLA CLL
 TAD (1400)
 6150
 NOP
 NOP
 CLA CLL IAC RAL
 RDF
 6151
 CLA CLL
 TAD (P1)
 DCA PP1
 TAD (P1)
 DCA PP2
 TAD (P1+2)
 DCA PP3
 TAD (P1+2)
 DCA PP4
 TAD (P1+4)
 DCA PP5
 TAD (P1+4)
 DCA PP6
 TAD (P1+6)
 DCA PP7
 TAD (P1+6)
 DCA PP8
 TAD AA
 RAR
 DCA AA2
 CLL
 TAD XVAL
 DCA POINT1
 TAD YVAL
 TAD AA
 DCA POINT1+1
 TAD XVAL
 TAD AA2
 DCA POINT2
 TAD YVAL
 TAD AA2
 DCA POINT2+1
 TAD XVAL
 TAD AA
 DCA POINT3
 TAD YVAL
 DCA POINT3+1
 TAD POINT2
 DCA POINT4
 TAD AA2
 CIA
 TAD YVAL
 DCA POINT4+1
 TAD XVAL
 DCA POINT5
 TAD AA
 CIA
 TAD YVAL
 DCA POINT5+1
 TAD AA2
 CIA
 TAD XVAL
 DCA POINT6
 TAD POINT4+1
 DCA POINT6+1
 TAD AA
 CIA
 TAD XVAL
 DCA POINT7
 TAD YVAL
 DCA POINT7+1
 TAD POINT6
 DCA POINT8
 TAD POINT2+1
 DCA POINT8+1
 TAD AA
 DCA C1
 TAD AA2
 DCA C2
 TAD AA
 DCA C3
 TAD AA2
 DCA C4
 TAD AA
 DCA C5
 TAD AA2
 DCA C6
 TAD AA
 DCA C7
 TAD AA2
 DCA C8
 JMS ERASE
ROTA1,JMS CLLSCOPE
 JMS ERASE
 JMS ROTA4
 KSF
 JMP ROTA1
 CDF CIF 00
 JMP 0200
*1000
ROTA4,0
 TAD (PP1)
 DCA H
 TAD (PP1)
 DCA F
 TAD I H
 DCA H1
 TAD (POINT1)
 DCA H2
ROTA2, TAD I H1
 TAD I H2
 DCA I H2
 ISZ H
 ISZ H1
 ISZ H2
 7240
 TAD I H
 SNA
 JMP FLIP
 DCA I H
ROTA3, TAD I H1
 TAD I H2
DCA I H2
 ISZ CNST
 JMP ROTA5
 TAD RECNST
 DCA CNST
 JMP I ROTA4
FLIP, TAD AA
 DCA I H
 TAD I H1
 TAD I H2
 DCA I H2
 ISZ H
 TAD I H
 SZA
 JMP ROTA6
ROTA7, TAD H
 TAD (-2)
 DCA H
 TAD I F
 DCA I H
 ISZ H
 JMP ROTA3+3
ROTA6, DCA G
 TAD H
 TAD (-2)
 DCA H
 TAD G
 DCA I H
 ISZ H
 JMP ROTA3+3
ROTA5, ISZ H2
 ISZ H
 CLA
 TAD I H
 DCA H1
 JMP ROTA2
ERASE,0
 TAD (1400)
 DCA BOUND
 TAD (-6200)
 DCA XDIFF
 DCA I BOUND
 ISZ BOUND
 ISZ XDIFF
 JMP .-3
 JMP I ERASE
CLLSCOPE,0
 CLA CLL
 TAD (-4)
 DCA KNT
 TAD (POINT1)
 DCA ONE
 TAD (POINT5) 
 DCA TWO
CL1, TAD I ONE
 DCA X2
 ISZ ONE
 TAD I ONE
 DCA Y2
 ISZ ONE
 TAD I TWO
 DCA X1
 ISZ TWO
 TAD I TWO
 DCA Y1
 ISZ TWO
 JMS CHECK
 JMS INIT
 ISZ KNT
 JMP CL1
 JMS SCOPE
 JMP I CLLSCOPE
CHECK,0
 TAD X2
 CIA
 TAD X1
 SZA
 JMP I CHECK
 TAD Y2
 CIA
 TAD Y1
 SMA
 JMP I CHECK
 CLA CLL
 TAD Y1
 DCA XH
 TAD Y2
 DCA Y1
 TAD XH
 DCA Y2
 JMP I CHECK
$
DCA Y1
TAD XH
DCA Y2
JMP I CHECK
$
 DCA Y1
 TAD XH
 DCA Y2
 JMP I CHECK
$