/MEMORY EXTENSION CONTROL       
CDF=6201
CIF=6202
/DISPLAY DEC 338 INSTRUCTION    
LPOF=0040       
LPON=0060       
SC1=0400
SC2=0500
SC4=0600
SC8=0700
INT=0010
EDS=1001
CCB=1002
CSB=1004
POINT=1100      
INCR=1110       
VEC=1120
VECON=1130      
SVEC=1140       
CHAR=1150       
CLDF=1200       
STOP=1400       
JUMP=2000       
PJMP=2010       
POP=3000
PEDS=3011       
SK1=4000
M=1000  
MM=2000 
SK2=5000
INV=0400
CLAT=0200       
COAT=0100       
SK3=6000
SK4=6100
SKIP=6240       
SNSZ=6220       
BKON=6302       
BKOF=6301       
RPDP=6051       
RXP=6052
RYP=6054
RDAC=6061       
RS1=6062
RS2=6064
RPB=6071
RCG=6304
SPDP=6135       
SIC=6145
LBF=6155
SCG=6303
INIT=6165       
RES1=6174       
RES2=6164       
CFD=6161
STPD=6154       
SPLP=6132       
SPSP=6142       
SPES=6151       
SPEF=6152       
SPSF=6171       
SPMI=6172       
PSL=2550
FIXTAB  
      /PAUSE     
         *20    
DSB,     4701   
DSC,     1404   
DSD,     7      
DSE,     4270   
DSR,     F0     
N1,      1      
M1,      -1     
N2,      2      
M2,      -2     
N4,      4      
M4,      -4     
M5,      -5     
M6,      -6     
M12,     -12    
M15,     -15    
N20,     20     
M20,     -20    
M21,     -21    
N42,     42     
M42,     -42    
N40,     40     
M40,     -40    
M60,     -60    
N76,     76     
N77,     77     
N100,    100    
N200,    200    
M200,    -200   
N300,    300    
M1101,   -1101  
M1600,   -1600  
N3636,   3636   
N3777,   3777   
N4702,   4702   
N7700,   7700   
AC0,     C0     
AD0,     D0     
AE0,     E0     
ABIAS,   BIAS   
AB1,     B1     
AB2,     B2     
AC6,     C6     
AY1,     Y1     
AY2,     Y2     
BIAS,    C6;D6;E6       
INDHA,   INDH   
MUVTA,   MUVT   
MUHRA,   MUHR   
PEDBLA,  PEDBL  
RESHA,   RESH   
DIRA,    DIR    
M2A,     -2     
M2B,     -2     
M2C,     -2     
M2D,     -2     
M4A,     -4     
LEVEL,   0      
AC,      0      
CDE,     0      
COMP,    0      
COMPA,   0      
COUNT1,  0      
COUNT2,  0      
COUNT3,  0      
COUNT4,  2      
COUNT5,  0      
COUNT6,  -6     
PB,      0      
PEA,     0      
PEAB,    0      
SHIFT,   0      
SLASHR,  0      
STORE,   0      
TEMP,    0      
TEMP1,   0      
TEMP2,   0      
TEMP3,   0      
TEMP4,   0      
TEMP5,   0      
VALUE,   0      
AAD20,   ADD20  
AAD40,   ADD40  
ACLEAR,  CLEAR  
ACOKE,   COKE   
ADR2,    DR2    
AFORCE,  FORCE  
AINRT,   INRT   
ALOOP,   LOOP   
AMIROR,  MIROR  
ANPUT,INPUT     
ARCOMP,  RCOMP  
ARCRT,   RCRT   
ARDVAL,  RVAL   
ARESUM,  RESUM  
AROTAT,  ROTAT  
ASEEK,   SEEK   
ASET,    SET    
ASETA,   SETA   
ASETE,   SETE   
ASHOW,   SHOW   
ASHIFR,  SHIFTR 
ASHIFL,  SHIFTL 
ASUBMI,  SUBMI  
ASUBRO,  SUBRO  
ATRRT,   TRRT   
AUNITS,UNITS    
AUTPUT,  OUTPUT 
         *200   
START,   CLA;TAD DSB;SPDP       
      CLA;TAD DSC;SIC   
         CLA;TAD DSE;LBF
      CLA;TAD N300;LBF  
         CLA;TAD DSD;SCG
         CLA;TAD DSR;INIT       
LOOP, CLA;RPB;DCA PB;TAD PB;AND N40;SZA CLA;JMS I ASUBRO
      CLA;TAD PB;AND N20;SZA CLA;JMS I ASUBMI   
         CLA;TAD PB;AND N100;SZA CLA;JMS I AUTPUT       
      CLA;TAD PB;AND N200;SZA CLA;JMS I ANPUT   
      CLA;TAD PB;AND N1;SZA CLA;JMS I ACLEAR;SPLP;JMP LOOP      
      CLA;RXP;TAD M1600;SMA CLA;JMP I ARCOMP;RYP;TAD M1600;SMA CLA      
      JMP I ARDVAL      
WRITE,JMS I ASEEK;CLA;TAD COMP;SNA;JMP I ARESUM;CLA;RPB;AND N2;SNA CLA  
      JMP .+6;TAD I COMPA;DCA COMP;JMS RESET;JMS I ASHOW;SKP    
      JMS I ASET;JMP I ARESUM   
RESET,HLT;CLA;TAD M2;DCA M2A;TAD M2;DCA M2B;TAD M2;DCA M2C;TAD M4       
      DCA M4A;TAD M3;DCA COUNT1;DCA LEVEL;JMS CLEARD;ISZ LEVEL  
      ISZ COUNT1;JMP .-3;DCA LEVEL      
      TAD N3040;DCA I AC0;TAD N3040;DCA I AD0;TAD N3040;DCA I AE0       
      JMS I ASETE;JMP I RESET   
M3,      -3     
N3040,   3040   
CLEARD,HLT;CLA  
       TAD LEVEL;TAD ABIAS;DCA TEMP1;TAD I TEMP1;TAD M5;DCA CDE;TAD M6  
      DCA COUNT6;TAD N3636;DCA I CDE;ISZ CDE;ISZ COUNT6;JMP .-4 
      JMP I CLEARD      
RCOMP,CLA;JMS RESET;CLA;TAD I N4702;TAD M1      
      DCA STORE;TAD I STORE;DCA COMP;TAD PB;AND N76;TAD N300;LBF
      JMS I ASHOW;JMP I ARESUM  
RESUM,RES1;JMP I ALOOP  
SET,  HLT;CLA;TAD COMP;DCA I COMPA;RPB;AND N4;SNA CLA;JMP .+4   
CIF 10;JMS I AAPLANT;JMP I ARESUM;CDF 10;JMS I ACLEAR;JMP I ARESUM      
AAPLANT, PLANT  
RVAL, CLA;RDAC;DCA AC;TAD AC;TAD M1;DCA TEMP;TAD I TEMP;JMS I ASHIFR    
      DCA TEMP4;TAD I TEMP;AND N77;DCA TEMP     
      ISZ M2D;JMP .+7;CLA;TAD M2;DCA M2D;TAD N42;DCA SHIFT;JMP .+4;CLA  
      TAD M42;DCA SHIFT 
      TAD SHIFT;TAD I AY1;DCA I AY1;TAD SHIFT;TAD I AY2;DCA I AY2       
      JMS I ADR2;TAD TEMP;TAD M21;SMA SZA;JMP I AUNITS;JMP I AFORCE     
SUBRO,HLT;CLA;TAD PB;AND N77;TAD M40;TAD N300;LBF       
      JMS I AROTAT;JMS I ASET;JMP I SUBRO       
W1A,     W1     
ROTAT, HLT;CLA;TAD W1A;CIA;TAD COMP;SMA;JMP I ATRRT     
      CLA;TAD RESHA;CIA;TAD COMP;SMA;JMP I ARCRT
      CLA;TAD INDHA;CIA;TAD COMP;SMA;JMP I AINRT
      JMP I ROTAT       
TRRT, ISZ M4A;JMP I AAD20       
      CLA;TAD M4;DCA M4A;TAD COMP;TAD M60;DCA COMP;JMP I ROTAT  
ADD20,CLA;TAD COMP;TAD N20;DCA COMP;JMP I ROTAT 
RCRT, ISZ M2A;JMP I AAD20       
      CLA;TAD M2;DCA M2A;TAD COMP;TAD M20;DCA COMP;JMP I ROTAT  
INRT, ISZ M2B;JMP I AAD40       
      CLA;TAD M2;DCA M2B;TAD COMP;TAD M40;DCA COMP;JMP I ROTAT  
ADD40,CLA;TAD COMP;TAD N40;DCA COMP;JMP I ROTAT 
         *600   
SUBMI,HLT;CLA;TAD PB;AND N77;TAD M20;TAD N300;LBF       
      JMS I AMIROR;JMS I ASET;JMP I SUBMI       
MIROR,HLT;CLA;TAD COMP;CIA;TAD PEDBLA;SMA SZA;JMP I MIROR       
      ISZ M2C;JMP .+10  
      CLA;TAD M2;DCA M2C;TAD COMP;TAD M200;DCA COMP;JMP I MIROR 
      CLA;TAD COMP;TAD N200;DCA COMP;JMP I MIROR
SETE, HLT;CLA;DCA COUNT1;DCA COUNT2;DCA COUNT3;DCA COUNT4;DCA COUNT4    
      DCA COUNT5;JMS I ACLERD;JMP I SETE
ACLERD,  CLEARD 
AERASE,ERASE    
CLEAR,HLT;CLA;TAD ACOKE;DCA I COMPA     
      CIF 10;JMS I AERASE;JMS I ASETE;JMP I CLEAR       
SEEK, HLT;CLA;RDAC;TAD M2;DCA TEMP;TAD M1;TAD TEMP;DCA TEMP     
      TAD I TEMP;TAD M1101;SZA CLA;JMP .-6      
      TAD TEMP;DCA PEA;ISZ TEMP;TAD I TEMP;AND N3777;DCA I AB1  
      ISZ TEMP;TAD I TEMP;DCA I AB2     
      ISZ TEMP;ISZ TEMP;TAD TEMP;DCA COMPA;JMP I SEEK   
SETA, JMS I ASETE;JMP I ARESUM  
APLANT,PLANT    
FORCE,CIF 10;JMS I APLANT;JMP I ARESUM  
         *1000  
DADD,    0      
DATA,    0      
N10,     10     
HOP,     JMP GATE+1     
IN3,     3      
NCDF,    CDF    
NN70,    70     
INPUT,HLT;CLA;TAD PB;JMS I ASHIFR;AND NN70;TAD N200;LBF;RRB     
      CLA;TAD NCDF;DCA DATAF;JMS RED;JMP I INPUT
RED,  HLT;RFC;RSF;JMP .-1;CLA;RRB;DCA TEMP2;TAD TEMP2;AND N77;DCA TEMP3 
      TAD TEMP2;JMS I ASHIFR;AND IN3;TAD HOP;DCA GATE   
GATE, JMP .+1;JMP I RED;JMP SADD;JMP LEAD;JMP SFIELD;HLT;HLT    
LEAD, ISZ COUNT1;JMP RED+1;JMP I INPUT  
SFIELD,TAD TEMP3;AND N10;TAD NCDF;DCA DATAF;JMP  RED+ 1 
SADD, TAD TEMP3;JMS I ASHIFL;DCA TEMP4;STA;DCA COUNT1;JMS RED   
      TAD TEMP3;TAD TEMP4;DCA DADD      
SADDL,JMS RED;TAD TEMP3;JMS I ASHIFL;DCA TEMP4;JMS RED  
      TAD TEMP3;TAD TEMP4;DCA DATA      
DATAF,CDF       
      TAD DATA;DCA I DADD;CDF;ISZ DADD;JMP SADDL;       
         *1200  
N5,      5      
F3A,     F3     
N310,    310    
M3000,   -3000  
M400,    -400   
M400B,   -400   
F2A,     F2     
M60A,    -60    
REDS,    RED    
FIELDA,  FIELD1+4       
N70,     70     
LIMIT,   FLIMIT 
OUTPUT,HLT;CLA;TAD PB;JMS I ASHIFR;AND N70;TAD N200;LBF;CLA;PLS 
      JMS LEADER;TAD M400;DCA M400B;TAD FIELDA;DCA PEAB 
ROUND,STA;DCA COUNT1;TAD PEAB;JMS PUNCH;TAD I PEAB;JMS PUNCH    
      TAD PEAB;TAD N5;DCA PEAB;ISZ M400B;JMP ROUND      
      TAD N310;JMS PUN;CLA CMA;DCA COUNT1;TAD F3A;JMS PUNCH;TAD F3A     
      DCA PEAB  
SQUARE,CDF 10;TAD I PEAB;DCA TEMP3;ISZ PEAB;TAD TEMP3;JMS PUNCH 
      TAD TEMP3;TAD M3000;SZA CLA;JMP SQUARE    
      STA;DCA COUNT1;TAD LIMIT;JMS PUNCH;CDF 10;TAD I LIMIT;JMS PUNCH   
      JMS PUNCH;JMS LEADER;CDF;JMP I OUTPUT     
LEADER,HLT;CLA;TAD N200;JMS PUN;ISZ M60A;JMP .-4;CLA;TAD M60;DCA M60A   
      JMP I LEADER      
PUNCH,HLT;DCA TEMP2;TAD TEMP2;JMS I ASHIFR;ISZ COUNT1;JMP .+2   
      TAD N100;JMS PUN;CLA;TAD TEMP2;AND N77;JMS PUN;CLA;JMP I PUNCH    
PUN,  HLT;PSF;JMP .-1;PLS;JMP I PUN;JMP I PUN;HLT       
         *1400  
DR2,  HLT;CLA;TAD LEVEL;TAD ABIAS;DCA TEMP1;TAD I TEMP1;DCA CDE 
      TAD TEMP;DCA TEMP2;TAD M5;DCA COUNT6      
DR21, TAD I CDE;DCA TEMP3;TAD TEMP3;JMS SHIFTL;TAD TEMP2;DCA I CDE      
      TAD TEMP3;JMS SHIFTR;DCA TEMP2;TAD CDE;TAD M1;DCA CDE     
      ISZ COUNT6;JMP DR21;JMP I DR2     
SHIFTL,HLT;RTL;RTL;RTL;AND N7700;JMP I SHIFTL   
SHIFTR,HLT;RTR;RTR;RTR;AND N77;JMP I SHIFTR     
         *1600  
SHOW, HLT;CLA;TAD NOLPOF;DCA I AE0      
      CLA;TAD COMP;CIA;TAD PEDBLA;SPA SNA;JMP S2N       
      CLA;TAD COMP;CIA;TAD DIRA;SPA SNA;JMP S1N 
         CLA;TAD COMP;CIA;TAD IHRA;SPA SNA;JMP SVANO    
      CLA;TAD COMP;CIA;TAD MUHRA;SPA SNA;JMP SSMNO      
      CLA;TAD COMP;CIA;TAD INDHA;SMA SZA;JMP LEVEL3     
      CLA;TAD COMP;CIA;TAD W1B;SPA SNA;JMP LEVEL3       
SV,   CLA;TAD VLPOF;DCA I AC0;JMP I SHOW
LEVEL3,CLA IAC;IAC;DCA LEVEL;JMP I SHOW 
SSMNO,CLA;TAD SLPOF;DCA I AC0;TAD MLPOF;DCA I AD0;JMP I SHOW    
SVANO,CLA;TAD VLPOF;DCA I AC0;TAD ALPOF;DCA I AD0;JMP I SHOW    
S1N,  CLA;TAD N1N;DCA I AC6;JMP I SHOW  
S2N,  CLA;TAD N2N;DCA I AC6;JMP I SHOW  
IHRA,    IHR    
SLPOF,   4240   
VLPOF,   2640   
MLPOF,   1340   
NOLPOF,  4340   
ALPOF,   2540   
N1N,     0137   
N2N,     0237   
M13,     -13    
M1330,   -1330  
M25,     -25    
M26,     -26    
M43,     -43    
W1B,     W1     
UNITS,CLA;RXP;TAD M1330;SPA CLA;JMP I AFORCE    
TRYV, CLA;TAD TEMP4;TAD M26;SZA;JMP TRYA;DCA LEVEL;JMP I ARESU4 
TRYA, CLA;TAD TEMP4;TAD M25;SZA;JMP TRYM;CLA;IAC;DCA LEVEL;JMP I ARESU4 
TRYM, CLA;TAD TEMP4;TAD M13;SZA;TRYS JMP;CLA IAC;DCA LEVEL;JMP I ARESU4 
TRYS, CLA;TAD TEMP4;TAD M42;SZA;JMP TRYNO;DCA LEVEL;JMP I ARESU4
TRYNO,CLA;TAD TEMP4;TAD M43;SZA;JMP I ARESU4;CLA IAC;IAC;DCA LEVEL      
      JMP I ARESU4      
ARESU4,SETA     
         *2000  
F0,      LPON SC2 INT 7 
         CCB CSB
         SK1 INV 40     
         JUMP 0;F1      
         POINT EDS;Y1,1754;4000 
         CHAR EDS;3033;3000;3001;3002;3003;3004;3036;3013;3014;3036;3044
                  3022;3023;3024;3500   
         POINT EDS;Y2,1646;4000 
         CHAR EDS;3034;3005;3006;3007;3010;3011;3012;3016;3017;3020;3021
                  3025;3026;3027;3030;3035      
      POINT EDS;1740;5330       
CHAR EDS;C0,4240;C1,3636;C2,3636;C3,3636;C4,3636;C5,3636;C6,3636;4135   
      POINT EDS;1700;5330       
CHAR EDS;D0,1340;D1,3636;D2,3636;D3,3636;D4,3636;D5,3636;D6,3636;4135   
      POINT EDS;1640;5330       
CHAR EDS;E0,4340;E1,3636;E2,3636;E3,3636;E4,3636;E5,3636;E6,3636;4135   
      F1,LPON;SK1 INV 20
         JUMP 0;F2      
      INT 7     
FIELD1,POINT EDS;5510;4000;PSL;COKE;POINT EDS;5510;4070;PSL;COKE
      POINT EDS;5510;4160;PSL;COKE;POINT EDS;5510;4250;PSL;COKE 
      POINT EDS;5510;4340;PSL;COKE;POINT EDS;5510;4430;PSL;COKE 
      POINT EDS;5510;4520;PSL;COKE;POINT EDS;5510;4610;PSL;COKE 
      POINT EDS;5510;4700;PSL;COKE;POINT EDS;5510;4770;PSL;COKE 
      POINT EDS;5510;5060;PSL;COKE;POINT EDS;5510;5150;PSL;COKE 
      POINT EDS;5510;5240;PSL;COKE;POINT EDS;5510;5330;PSL;COKE 
      POINT EDS;5510;5420;PSL;COKE;POINT EDS;5510;5510;PSL;COKE 
      POINT EDS;5420;4000;PSL;COKE;POINT EDS;5420;4070;PSL;COKE 
      POINT EDS;5420;4160;PSL;COKE;POINT EDS;5420;4250;PSL;COKE 
      POINT EDS;5420;4340;PSL;COKE;POINT EDS;5420;4430;PSL;COKE 
      POINT EDS;5420;4520;PSL;COKE;POINT EDS;5420;4610;PSL;COKE 
      POINT EDS;5420;4700;PSL;COKE;POINT EDS;5420;4770;PSL;COKE 
      POINT EDS;5420;5060;PSL;COKE;POINT EDS;5420;5150;PSL;COKE 
      POINT EDS;5420;5240;PSL;COKE;POINT EDS;5420;5330;PSL;COKE 
      POINT EDS;5420;5420;PSL;COKE;POINT EDS;5420;5510;PSL;COKE 
      POINT EDS;5330;4000;PSL;COKE;POINT EDS;5330;4070;PSL;COKE 
      POINT EDS;5330;4160;PSL;COKE;POINT EDS;5330;4250;PSL;COKE 
      POINT EDS;5330;4340;PSL;COKE;POINT EDS;5330;4430;PSL;COKE 
      POINT EDS;5330;4520;PSL;COKE;POINT EDS;5330;4610;PSL;COKE 
      POINT EDS;5330;4700;PSL;COKE;POINT EDS;5330;4770;PSL;COKE 
      POINT EDS;5330;5060;PSL;COKE;POINT EDS;5330;5150;PSL;COKE 
      POINT EDS;5330;5240;PSL;COKE;POINT EDS;5330;5330;PSL;COKE 
      POINT EDS;5330;5420;PSL;COKE;POINT EDS;5330;5510;PSL;COKE 
      POINT EDS;5240;4000;PSL;COKE;POINT EDS;5240;4070;PSL;COKE 
      POINT EDS;5240;4160;PSL;COKE;POINT EDS;5240;4250;PSL;COKE 
      POINT EDS;5240;4340;PSL;COKE;POINT EDS;5240;4430;PSL;COKE 
      POINT EDS;5240;4520;PSL;COKE;POINT EDS;5240;4610;PSL;COKE 
      POINT EDS;5240;4700;PSL;COKE;POINT EDS;5240;4770;PSL;COKE 
      POINT EDS;5240;5060;PSL;COKE;POINT EDS;5240;5150;PSL;COKE 
      POINT EDS;5240;5240;PSL;COKE;POINT EDS;5240;5330;PSL;COKE 
      POINT EDS;5240;5420;PSL;COKE;POINT EDS;5240;5510;PSL;COKE 
      POINT EDS;5150;4000;PSL;COKE;POINT EDS;5150;4070;PSL;COKE 
      POINT EDS;5150;4160;PSL;COKE;POINT EDS;5150;4250;PSL;COKE 
      POINT EDS;5150;4340;PSL;COKE;POINT EDS;5150;4430;PSL;COKE 
      POINT EDS;5150;4520;PSL;COKE;POINT EDS;5150;4610;PSL;COKE 
      POINT EDS;5150;4700;PSL;COKE;POINT EDS;5150;4770;PSL;COKE 
      POINT EDS;5150;5060;PSL;COKE;POINT EDS;5150;5150;PSL;COKE 
      POINT EDS;5150;5240;PSL;COKE;POINT EDS;5150;5330;PSL;COKE 
      POINT EDS;5150;5420;PSL;COKE;POINT EDS;5150;5510;PSL;COKE 
      POINT EDS;5060;4000;PSL;COKE;POINT EDS;5060;4070;PSL;COKE 
      POINT EDS;5060;4160;PSL;COKE;POINT EDS;5060;4250;PSL;COKE 
      POINT EDS;5060;4340;PSL;COKE;POINT EDS;5060;4430;PSL;COKE 
      POINT EDS;5060;4520;PSL;COKE;POINT EDS;5060;4610;PSL;COKE 
      POINT EDS;5060;4700;PSL;COKE;POINT EDS;5060;4770;PSL;COKE 
      POINT EDS;5060;5060;PSL;COKE;POINT EDS;5060;5150;PSL;COKE 
      POINT EDS;5060;5240;PSL;COKE;POINT EDS;5060;5330;PSL;COKE 
      POINT EDS;5060;5420;PSL;COKE;POINT EDS;5060;5510;PSL;COKE 
      POINT EDS;4770;4000;PSL;COKE;POINT EDS;4770;4070;PSL;COKE 
      POINT EDS;4770;4160;PSL;COKE;POINT EDS;4770;4250;PSL;COKE 
      POINT EDS;4770;4340;PSL;COKE;POINT EDS;4770;4430;PSL;COKE 
      POINT EDS;4770;4520;PSL;COKE;POINT EDS;4770;4610;PSL;COKE 
      POINT EDS;4770;4700;PSL;COKE;POINT EDS;4770;4770;PSL;COKE 
      POINT EDS;4770;5060;PSL;COKE;POINT EDS;4770;5150;PSL;COKE 
      POINT EDS;4770;5240;PSL;COKE;POINT EDS;4770;5330;PSL;COKE 
      POINT EDS;4770;5420;PSL;COKE;POINT EDS;4770;5510;PSL;COKE 
      POINT EDS;4700;4000;PSL;COKE;POINT EDS;4700;4070;PSL;COKE 
      POINT EDS;4700;4160;PSL;COKE;POINT EDS;4700;4250;PSL;COKE 
      POINT EDS;4700;4340;PSL;COKE;POINT EDS;4700;4430;PSL;COKE 
      POINT EDS;4700;4520;PSL;COKE;POINT EDS;4700;4610;PSL;COKE 
      POINT EDS;4700;4700;PSL;COKE;POINT EDS;4700;4770;PSL;COKE 
      POINT EDS;4700;5060;PSL;COKE;POINT EDS;4700;5150;PSL;COKE 
      POINT EDS;4700;5240;PSL;COKE;POINT EDS;4700;5330;PSL;COKE 
      POINT EDS;4700;5420;PSL;COKE;POINT EDS;4700;5510;PSL;COKE 
      POINT EDS;4610;4000;PSL;COKE;POINT EDS;4610;4070;PSL;COKE 
      POINT EDS;4610;4160;PSL;COKE;POINT EDS;4610;4250;PSL;COKE 
      POINT EDS;4610;4340;PSL;COKE;POINT EDS;4610;4430;PSL;COKE 
      POINT EDS;4610;4520;PSL;COKE;POINT EDS;4610;4610;PSL;COKE 
      POINT EDS;4610;4700;PSL;COKE;POINT EDS;4610;4770;PSL;COKE 
      POINT EDS;4610;5060;PSL;COKE;POINT EDS;4610;5150;PSL;COKE 
      POINT EDS;4610;5240;PSL;COKE;POINT EDS;4610;5330;PSL;COKE 
      POINT EDS;4610;5420;PSL;COKE;POINT EDS;4610;5510;PSL;COKE 
      POINT EDS;4520;4000;PSL;COKE;POINT EDS;4520;4070;PSL;COKE 
      POINT EDS;4520;4160;PSL;COKE;POINT EDS;4520;4250;PSL;COKE 
      POINT EDS;4520;4340;PSL;COKE;POINT EDS;4520;4430;PSL;COKE 
      POINT EDS;4520;4520;PSL;COKE;POINT EDS;4520;4610;PSL;COKE 
      POINT EDS;4520;4700;PSL;COKE;POINT EDS;4520;4770;PSL;COKE 
      POINT EDS;4520;5060;PSL;COKE;POINT EDS;4520;5150;PSL;COKE 
      POINT EDS;4520;5240;PSL;COKE;POINT EDS;4520;5330;PSL;COKE 
      POINT EDS;4520;5420;PSL;COKE;POINT EDS;4520;5510;PSL;COKE 
      POINT EDS;4430;4000;PSL;COKE;POINT EDS;4430;4070;PSL;COKE 
      POINT EDS;4430;4160;PSL;COKE;POINT EDS;4430;4250;PSL;COKE 
      POINT EDS;4430;4340;PSL;COKE;POINT EDS;4430;4430;PSL;COKE 
      POINT EDS;4430;4520;PSL;COKE;POINT EDS;4430;4610;PSL;COKE 
      POINT EDS;4430;4700;PSL;COKE;POINT EDS;4430;4770;PSL;COKE 
      POINT EDS;4430;5060;PSL;COKE;POINT EDS;4430;5150;PSL;COKE 
      POINT EDS;4430;5240;PSL;COKE;POINT EDS;4430;5330;PSL;COKE 
      POINT EDS;4430;5420;PSL;COKE;POINT EDS;4430;5510;PSL;COKE 
      POINT EDS;4340;4000;PSL;COKE;POINT EDS;4340;4070;PSL;COKE 
      POINT EDS;4340;4160;PSL;COKE;POINT EDS;4340;4250;PSL;COKE 
      POINT EDS;4340;4340;PSL;COKE;POINT EDS;4340;4430;PSL;COKE 
      POINT EDS;4340;4520;PSL;COKE;POINT EDS;4340;4610;PSL;COKE 
      POINT EDS;4340;4700;PSL;COKE;POINT EDS;4340;4770;PSL;COKE 
      POINT EDS;4340;5060;PSL;COKE;POINT EDS;4340;5150;PSL;COKE 
      POINT EDS;4340;5240;PSL;COKE;POINT EDS;4340;5330;PSL;COKE 
      POINT EDS;4340;5420;PSL;COKE;POINT EDS;4340;5510;PSL;COKE 
      POINT EDS;4250;4000;PSL;COKE;POINT EDS;4250;4070;PSL;COKE 
      POINT EDS;4250;4160;PSL;COKE;POINT EDS;4250;4250;PSL;COKE 
      POINT EDS;4250;4340;PSL;COKE;POINT EDS;4250;4430;PSL;COKE 
      POINT EDS;4250;4520;PSL;COKE;POINT EDS;4250;4610;PSL;COKE 
      POINT EDS;4250;4700;PSL;COKE;POINT EDS;4250;4770;PSL;COKE 
      POINT EDS;4250;5060;PSL;COKE;POINT EDS;4250;5150;PSL;COKE 
      POINT EDS;4250;5240;PSL;COKE;POINT EDS;4250;5330;PSL;COKE 
      POINT EDS;4250;5420;PSL;COKE;POINT EDS;4250;5510;PSL;COKE 
      POINT EDS;4160;4000;PSL;COKE;POINT EDS;4160;4070;PSL;COKE 
      POINT EDS;4160;4160;PSL;COKE;POINT EDS;4160;4250;PSL;COKE 
      POINT EDS;4160;4340;PSL;COKE;POINT EDS;4160;4430;PSL;COKE 
      POINT EDS;4160;4520;PSL;COKE;POINT EDS;4160;4610;PSL;COKE 
      POINT EDS;4160;4700;PSL;COKE;POINT EDS;4160;4770;PSL;COKE 
      POINT EDS;4160;5060;PSL;COKE;POINT EDS;4160;5150;PSL;COKE 
      POINT EDS;4160;5240;PSL;COKE;POINT EDS;4160;5330;PSL;COKE 
      POINT EDS;4160;5420;PSL;COKE;POINT EDS;4160;5510;PSL;COKE 
      POINT EDS;4070;4000;PSL;COKE;POINT EDS;4070;4070;PSL;COKE 
      POINT EDS;4070;4160;PSL;COKE;POINT EDS;4070;4250;PSL;COKE 
      POINT EDS;4070;4340;PSL;COKE;POINT EDS;4070;4430;PSL;COKE 
      POINT EDS;4070;4520;PSL;COKE;POINT EDS;4070;4610;PSL;COKE 
      POINT EDS;4070;4700;PSL;COKE;POINT EDS;4070;4770;PSL;COKE 
      POINT EDS;4070;5060;PSL;COKE;POINT EDS;4070;5150;PSL;COKE 
      POINT EDS;4070;5240;PSL;COKE;POINT EDS;4070;5330;PSL;COKE 
      POINT EDS;4070;5420;PSL;COKE;POINT EDS;4070;5510;PSL;COKE 
      POINT EDS;4000;4000;PSL;COKE;POINT EDS;4000;4070;PSL;COKE 
      POINT EDS;4000;4160;PSL;COKE;POINT EDS;4000;4250;PSL;COKE 
      POINT EDS;4000;4340;PSL;COKE;POINT EDS;4000;4430;PSL;COKE 
      POINT EDS;4000;4520;PSL;COKE;POINT EDS;4000;4610;PSL;COKE 
      POINT EDS;4000;4700;PSL;COKE;POINT EDS;4000;4770;PSL;COKE 
      POINT EDS;4000;5060;PSL;COKE;POINT EDS;4000;5150;PSL;COKE 
      POINT EDS;4000;5240;PSL;COKE;POINT EDS;4000;5330;PSL;COKE 
      POINT EDS;4000;5420;PSL;COKE;POINT EDS;4000;5510;PSL;COKE 
      F2,SK1 INV 10     
      JUMP 0;F3S
         POINT EDS;0000;5610;PJMP SC2;RESH      
         POINT EDS;0070;5610;PJMP SC2;CAPH      
         POINT EDS;0240;5610;PJMP SC2;DIR       
         POINT EDS;0160;5610;PJMP SC2;INDH      
         POINT EDS;0340;5610;PJMP SC2;MUHR      
         POINT EDS;0430;5610;PJMP SC2;IHR       
         POINT EDS;0520;5610;PJMP SC2;PEDBL     
         POINT EDS;0610;5630;PJMP SC2;NEDBL     
         POINT EDS;0700;5610;PJMP SC2;W1
         POINT EDS;0770;5610;PJMP SC2;W5
         POINT EDS;1060;5610;PJMP SC2;W11       
         POINT EDS;1240;5630;PJMP SC2;W9
         POINT EDS;1240;5560;PJMP SC2;T1
         POINT EDS;1150;5610;PJMP SC2;W10       
         POINT EDS;1330;5610;PJMP SC2;W13       
         POINT EDS;1440;5610;PJMP SC2;W12       
         POINT EDS;1510;5610;PJMP SC2;W0
      POINT EDS;B1,0000;B2,4000;BKON;LPOF SC8   
      SVEC EDS;4700;4007;6700;4067;BKOF 
      7001;7002;JUMP;.-2
F3S,  SK1 4     
      PJMP SC1 LPOF 1;F3
         JUMP 0;F0      
         *5100  
W11,     SVEC EDS;1600;4012;0010;4012;1636;7600;7640;POP
         *5120  
W10,     SVEC EDS;1600;4016;4056;POP    
      *5140     
W9,      SVEC EDS;0016;5600;5640;POP    
         *5160  
W13,     SVEC EDS;1600;5212;0404;7656;POP       
      *5200     
W12,     SVEC EDS;1600;7616;0404;5252;POP       
      *5220     
W0,      SVEC EDS;1600;4017;4022;4017;1636;7700;4200;7740;POP   
      *5240     
INDH,    INCR EDS;3232;3232;2270;6062;6160;5765;7666;6750;6172;6263     
         5170;5057;6576;6667;5061;7262;6351;6067;6670;5040;POP  
      *5300     
INDV,    INCR EDS;3030;3030;2072;6260;6162;5365;7464;6352;6170;6067     
         5172;5253;6574;6463;5261;7060;6751;6263;6472;5242;POP  
      *5340     
RESH,    SVEC EDS;1600;4004;4504;7204;5204;7204;5204;6502;4044;POP LPON 
         *5360  
RESV,    SVEC EDS;0016;4400;4225;4412;4432;4412;4432;4205;4440;POP LPON 
      *5400     
CAPH,    SVEC EDS;1600;4014;4700;7600;4700;0004;4700;7600;4700;4054     
         POP LPON       
         *5420  
CAPV,    SVEC EDS;0016;5400;4027;4016;4027;0400;4027;4016;4027;5440     
         POP LPON       
      *5440     
W1,      SVEC EDS;1600;4017;4022;4017;0036;7640;POP     
      *5460     
W2,      SVEC EDS;1600;4016;1600;7700;4200;7740;POP     
      *5500     
W3,      SVEC EDS;1600;4017;4022;4017;1636;7640;POP     
      *5520     
W4,      SVEC EDS;1616;4016;1636;7700;4200;7740;POP     
      *5540     
T1,      PJMP;TAG;2600;7040;POP 
      *5560     
T2,      PJMP;TAG;0026;4070;POP 
      *5600     
T3,      PJMP;TAG;0600;5040;POP 
      *5620     
T4,      PJMP;TAG;0006;4050;POP 
      *5640     
W5,      SVEC EDS;1600;4016;7640;POP    
      *5660     
W6,      SVEC EDS;1600;4016;5640;POP    
      *5700     
W7,      SVEC EDS;1616;4016;1636;7640;POP       
      *5720     
W8,      SVEC EDS;1616;4016;0036;7640;POP       
      *5740     
MUHR,    PJMP;INDH;INCR EDS;3536;6654;5200;POP  
      *5760     
MUVB,    PJMP;INDV;INCR EDS;3535;3636;3636;3636;6456;5000;POP   
      *6000     
MUHL,    PJMP;INDH;INCR EDS;3535;3434;3434;3434;6654;5200;POP   
      *6020     
MUVT,    PJMP;INDV;INCR EDS;3534;6456;5000;POP  
      *6040     
IHR,     SVEC EDS;1240;PJMP 0;CRCL;0052;PJMP 0;CRCL;0417;4024;0202;6440 
         POP LPON       
      *6060     
IHB,     SVEC EDS;0545;PJMP 0;CRCL;1240;PJMP 0;CRCL;3213;4024;0202;6440 
         POP LPON       
      *6100     
IHL,     SVEC EDS;1240;PJMP 0;CRCL;0052;PJMP 0;CRCL;0423;4024;0202;6440 
         POP LPON       
      *6120     
IHT,     SVEC EDS;0545;PJMP 0;CRCL;1240;PJMP 0;CRCL;1013;4024;0202;6440 
         POP LPON       
      *6140     
DIR,     SVEC EDS;1600;4010;4700;6714;6734;4700;0014;4700;7600;4700     
         4050;POP LPON  
      *6160     
DIB,     SVEC EDS;0016;5000;4027;4016;4027;5427;4016;7427;1400;5040     
         POP LPON       
      *6200     
DIL,     SVEC EDS;1600;4010;4700;7600;4700;4714;7600;4734;0014;4050     
         POP LPON       
      *6220     
DIT,     SVEC EDS;0016;5000;4007;5427;7427;4007;1400;4007;4036;4007     
         5040;POP LPON  
      *6240     
PEDBL,   PJMP 0;BL;2311;4321;6143;POP LPON      
      *6260     
PELBU,   PJMP 0;BU;3123;4103;6361;POP LPON      
      *6300     
PEUBR,   PJMP 0;BR;0331;6301;4163;POP LPON      
      *6320     
PERBD,   PJMP 0;BD;1103;6123;4341;POP LPON      
      *6340     
NEDBL,   PJMP 0;BL;2513;6103;4361;POP LPON      
      *6360     
NELBU,   PJMP 0;BU;3325;6321;4143;POP LPON      
      *6400     
NEUBR,   PJMP 0;BR;0533;4123;6341;POP LPON      
      *6420     
NERBD,   PJMP 0;BD;1305;4301;6163;POP LPON      
      *6440     
PEDBR,   PJMP 0;BR;2331;4301;6163;POP LPON      
      *6460     
PELBD,   PJMP 0;BD;1123;6103;4361;POP LPON      
      *6500     
PEUBL,   PJMP 0;BL;0311;6321;4143;POP LPON      
      *6520     
PERBU,   PJMP 0;BU;3103;4123;6341;POP LPON      
      *6540     
NEDBR,   PJMP 0;BR;2335;6321;4143;POP LPON      
      *6560     
NELBD,   PJMP 0;BD;1325;4321;6143;POP LPON      
      *6600     
NEUBL,   PJMP 0;BL;0513;4103;6361;POP LPON      
      *6620     
NERBU,   PJMP 0;BU;3305;6301;4163;POP LPON      
      *6640     
COKE,    POP    
CRCL,    SVEC EDS;5000;4505;4010;6505;7000;6525;4030;4565;PEDS  
BL,      SVEC EDS;0016;5000;4626;4606;5000;3226;7000;4022;5000;4002     
         2422;4066;PEDS 
BU,      SVEC EDS;1600;4010;4606;6606;4010;0632;4030;4200;4010;6200     
         0224;4640;PEDS 
BR,      SVEC EDS;0016;5000;4606;4626;5000;3206;7000;4002;5000;4022     
         2402;4046;PEDS 
BD,      SVEC EDS;1600;4010;6606;4606;4010;2632;4030;6200;4010;4200     
         2224;6640;PEDS 
TAG,     SVEC EDS;1014;4004;4404;4400;4424;4024;6424;6400;6404;0642;PEDS
         *7000  
      ZERO+M;ONE+M;TWO+M;THREE+M;FOUR+M;FIVE+M;SIX+M;SEVEN+M;EIGHT+M    
      NINE+M;DPOINT+M;MEGA+M;KILO+M;UNIT+M;MILLI+M;MICRO+M;NANO+M;PICO+M
      OHMS+M;FARAD+M;HENRY+M;AMPS+M;VOLTS+M;SLASH+M+MM;SKIP1+M+MM       
      SKIP2+M+MM;SKIP3+M+MM;PLUS+M;MINUS+M;6040;BLANK+M+MM;NANCY+M      
      4040;4060;SELF+M;LABEL+M;DEGREE+M 
ZERO,    1272;7252;5170;5776;7655;7417;3020;0   
ONE,     1170;5372;7252;5537;3716;0600  
TWO,     3232;1252;5170;5766;5574;5576;7060;2007
THREE,   1252;5770;5162;5354;1051;6253;7455;3737;1707   
FOUR,    1120;5072;7262;7555;7070;2726;1600     
FIVE,    1252;5770;5172;5374;5572;5270;6037;3626;0600   
SIX,     1272;7252;5170;5735;5470;5766;5574;3030;0700   
SEVEN,   2072;5152;5152;5152;7464;5637;3717;0700
EIGHT,   1272;1272;5170;5766;5574;3057;6655;7430;3007   
NINE,    1252;5770;5172;7253;7455;6657;7037;1707
DPOINT,  3062;5056;3030;0700    
MEGA,    7272;7277;5771;5176;7666;3006  
KILO,    2072;7272;3751;7577;3020;0600  
UNIT,    1250;6053;7272;5537;3716;0600  
MILLI,   2072;5253;1060;5776;3251;5057;7630;0600
MICRO,   3657;6172;7252;3657;6051;7236;5730;0600
NANO,    2072;5253;5070;5776;3006       
PICO,    3627;7272;7253;5070;5766;5564;3030;2006
OHMS,    5270;6362;6160;6766;6570;3006  
FARAD,   1170;5372;7253;7060;5615;6550;5637;3006
HENRY,   5170;5372;7251;7457;7676;2152;7072;5164;3617;7655;6030;0600    
AMPS,    5160;5372;7251;7057;7674;5430;5776;5410;5030;0600      
VOLTS,   3051;5352;5362;5362;5410;5030;7055;5655;6655;5630;3016;0600    
SLASH,   2201;5507;3543 
SKIP1,   0057   
SKIP2,   2737;0037;0037;0072    
SKIP3,   0040   
PLUS,    3212;5270;5013;5376;5637;2000  
MINUS,   3212;5270;5037;1706    
ESCAPE,  6040   
BLANK,   0051   
NANCY,   7272;7277;7767;7272;6236;3636;0700     
SELF,    1251;5770;5162;5354;5354;5352;5170;5737;3617;0700      
LABEL,   7272;7267;5657;6667;7272;6220;7076;7472;3736;2607;     
DEGREE,  3132;7270;7674;3737;1000       
         FIELD 1
         *20    
F4A,     F3     
FT1,     0      
FT2,     0      
FSY,     0      
FSX,     0      
GSEEK,   FSEEK  
FB1,     B1     
FB2,     B2     
FN60,    60     
FM3K,    -3000  
FN31,     31    
FN1,     0      
GPLANT,  FPLANT 
FN2,     0      
FM31,    -31    
FN3K,    3000   
FPOINT,  POINT EDS      
FCHAR,   CHAR EDS       
FC1,     C1     
FD1,     D1     
FE1,     E1     
FN3131,  3131   
FM6,     -6     
FM6C,    -6     
FN73,    73     
FN77,    77     
FN200,   200    
FE2,  0 
FN3535,  3535   
FSPB,    0      
FT3,     0      
FEA,     0      
FLIMIT,  F3     
         *200   
FSEEK,HLT;CLA;TAD F4A;DCA FT1;CDF;TAD I FB1;TAD FN60;RTL;CLL RAR;CLL RAR
      DCA FSY;TAD FN60;CIA;TAD I FB2;RTL;CLL;RAR;STL;RAR;DCA FSX;CDF 10 
FLOOK,TAD FT1;DCA FT2   
      TAD I FT1;TAD FM3K;SNA CLA;JMP I FSEEK;CLA
FINDY,ISZ FT2;TAD I FT2;CIA;TAD FSY;SZA CLA;JMP FRSET   
FINDX,ISZ FT2;TAD I FT2;CIA;TAD FSX;SZA CLA;JMP FRSET;JMP I FSEEK       
FRSET,CLA;TAD FT1;TAD FN31;DCA FT1;JMP FLOOK    
FERASE,HLT;JMS   FSEEK;TAD FT1;CIA;TAD FLIMIT;SNA CLA;JMP I FERASE      
      TAD FT1;DCA FEA;TAD FT1;TAD FN31;DCA FE2  
FSHIFT,CLA;TAD I FE2;DCA I FEA;ISZ FEA;ISZ FE2;TAD FE2;CIA;TAD FLIMIT   
      SMA CLA;JMP FSHIFT;TAD FLIMIT;TAD FM31;DCA FLIMIT;JMP I FERASE    
FPBC, HLT;CLA;RPB;RTR;RTR;RTR;DCA FSPB;TAD FSPB;AND FN73;TAD FN200      
      LBF;CLA;DCA FT1;ISZ FT1;JMP .-1;JMP I FPBC
FPBS, HLT;CLA;TAD FSPB;AND FN77;TAD FN200;LBF;CLA;JMP I FPBS    
ERASE,HLT;CDF 10;JMS FPBC;JMS FERASE;JMS FPBS;CDF CIF;JMP I ERASE       
PLANT,HLT;CDF 10;JMS FPBC;JMS I GPLANT;JMS FPBS;CDF;CIF;JMP I PLANT     
         *400   
FPLANT,HLT;JMS I GSEEK;TAD FT1;CIA;TAD FLIMIT;SZA CLA;JMP FHERE 
      JMS FMOVE;ISZ FT2;TAD FT2;DCA FLIMIT;TAD FN3K;DCA I FT2   
      JMP I FPLANT      
FHERE,JMS FMOVE;JMP I FPLANT    
FMOVE,HLT;TAD FT1;DCA FT2;TAD FPOINT;DCA I FT2;ISZ FT2  
      TAD FSY;DCA I FT2;ISZ FT2;TAD FSX;DCA I FT2;ISZ FT2       
      TAD FCHAR;DCA I FT2;ISZ FT2       
      TAD FC1;DCA FT3;JMS FTAKE;TAD FN3131;DCA I FT2;ISZ FT2    
      TAD FD1;DCA FT3;JMS FTAKE;TAD FN3131;DCA I FT2;ISZ FT2    
      TAD FE1;DCA FT3;JMS FTAKE;TAD FN3535;DCA I FT2;JMP I FMOVE
FTAKE,HLT;CLA;TAD FM6;DCA FM6C  
FLOOP,CDF;TAD I FT3;CDF 10;DCA I FT2;ISZ FT3;ISZ FT2;ISZ FM6C;JMP FLOOP 
      JMP I FTAKE       
         *600   
F3,      3000   
           $