[Page number  1
ST 7008;        [ original is ST 7008;  added in 2048 to 9056 then 16384 also tried ST 30720;
TL 999;
V423;
YA340;
YB650;
     YC1;
YD 7;
RESTART;J979;J979;
PROGRAM;
V0=B7575757575757575;  V1=B0;
V2=B1620507313026413;  V3=Q3/1/12;
V4=B2600001536;        V5=B3000153621;
V6=B5400003117;        V7=B300243736;
V8=B5000240364434;     V9=Q2/1/18;
V10=B6600001415;       V11=B5000323137;
V12=0;   V13=Q3/1/22;
V14=B6600000003234;    V15=B6700000243234;
V16=B6640000303234;    V17=Q3/1/26;
V18=B4200004033;       V19=B4300403317;

V20=B1740303044;       V21=B2431243623;
V22=Q3/1/31;     V23=B4500002443;
V24=B2427321437;       V25=B6700003515;
V26=B252732143717;     V27=B7540000243126;
V28=B5400000003334;    V29=B5440000332034;

V30=B5600200313734;    V31=Q9/1/303;
V32=0;  V33=B5657006360414345; (no space);
[Page number  2
V34=0;  V35=Q2/1/44;
V36=B6500000373234;     V37=B6540030373234;
V38=Q15/1/47;   V39=B5340015352034;
V40=B5300000153534;     V41=B5700015362634;
V42=B5001000153734;     V43=B5100000203734;
V44=B5240021352034;     V45=B5200000213534;
v46=B5600021362634;     V47=B5401422143334;
V48=B5000400271534;     V49=B5441027422034;
V50=B5401000274234;     V51=B5701035421734;
V52=B5440000422034;     V53=B5400000004234;
V54=B143140142734;      V55=B4224332034;
V56=Q2/1/65;    V57=B3200001443;
V58=B7200144321;        V59=B373234;
V60=Q8/1/69;    V61=B4000000000000;
V62=B4100000000034;     V63=B4200000000023;

V64=B4300000003423;     V65=B4400000000031;
V66=B4500000003431;     V67=B4600000002331;
V68=B4700000342331;     V69=Q6/1/78;
V70=B2700002022;        V71=B1000202217;
V72=B3100202221;        V73=B7120221721;
V74=B1500002041;        V75=B3300003237;
V76=Q10/1/85;   V77=B5040000143534;
V78=B5401422143334;     V79=B5241035162034;

V80=B5201000351634;     V81=B5240000352034;
V82=B5200000003534;     V83=B5440000422034;
V84=B5400000004234;     V85=B5441042162034;
V86=B5401000421634;     V87=B6740000373234;

[Page number  3
V88=B1200203530;       V89=Q6/1/98;
V90=B65000000002041;   V91=B51000000204117;
V92=B16000032403117;   V93=B20003240311721;
V94=B14003240311723;   V95=B21324031172321;
V96=B243126;    V97=Q5/1/106;
V98=B5200400273234;    V99=B5240000352034;
V100=B5200000003534;   V101=B5440000422034;
V102=B5400000004234;   V103=Q4/1/112;
V104=B56003600000000;  V105=B57005300000017;
V106=B74007500000021;  V107=B23002200001721;
V108=Q6/1/117;  V109=B6000000000;
V110=B6200000021;      V111=B6100000017;
V112=B6300001721;      V113=B4400000024;
V114=B6400000035;      V115=Q10/1/124;
V116=B7501600005434;   V117=B7501000005416;
v118=B7500400005424;   V119=B7500200005430;
V120=B7401100003516;   V121=B7400500003524;
V122=B7400300003530;   V123=B7401600000034;
V124=B7401000000016;   V125=B7400400000024;
V126=0;         V127=Q10/1/136;
V128=B7040000231416;   V129=B7100023141716;
V130=B7200000232716;   V131=B7300023271716;
V132=B7340000231616;   V133=B7040100002314;
V134=B7100100231417;   V135=B7200100002327;
V136=B7300100232717;   V137=B7340100002316;
V138=Q4/1/147;  V139=B3700242231;
V140=B7724223121;      V141=B7037143117;
V142=B4700003735;      V143=Q2/1/152;
V144=B5200200273234;   V145=B5000000003734;
[Page number  4
V146=0;        V147=0;
V148=0;
V149=0;
        V150=Q0/192/223; V151=Q0/224/255; (input buffers);
        V152=B60625747624155; V153=B3637143537; (start inernal);
        V154=B0207464151546562; (FAILUR);
        V155=B4500624560576264; (REPORT);
        V156=0; V157=0; (program number);
        V158=0; (kind of failure);
        V159=B6364416264; (START external);
        V160=0; V161=0; V162=0; V163=0; V164=0; V165=0;
        V166=0; V167=0; V168=0; V169=0; V170=0; V171=0;
        V172=0; V173=0; V174=0;
        V175=B4015000440150004; (JSE4 JSE4);
        V176=B4013000000000000; (JE8...);
        V177=B07026002; (standard opening);
        V178=B35203637143537; (Restart internal)
        V179=B55414350515645; (MACHINE);
        
        V180=0;         V181=B4100203532;
        V182=B0000465156516302;
        V183=0; (failure peripheral device);
        V248=B6364576245005464; (store lt);
        V249=B6451554500546437; (time lt);
        V250=B6600636045435637; (V SPECN.);
V251=B0271006360454356;
        V252=B6700636045435637; (W SPECN.);
        V253=B56570060176437; (NO P/T.);
        V254=B6451645445; (TITLE);
       
[Page number  5
       V255=B7141006360454356; (YA SPECN);
       V256=B62456364416264; (RESTART);
       V257=B71510065634544; (YI USED);
       V258=B71570065634544; (YO USED);
       V259=B604162516471; (PARITY);
V260=B4555004657655644;

V261=0;
 (M8 value initial);
        V262=0; (current P number);
        V263=0; (ALGOL compiler only);
        V264=0; (marker for fetch and store instructiohs);
        V265=B60000000;
        V266=-500; (address 1st entry S/R test);
        V267=0; (address of last syllable);
        V268=0; (address of last syllable of routine p402);
        V269=Q16/1/278;
        V270=B4401000000000064; (=);
        V271=B4001000000000074; (*NE);
        V272=B4004000000716245; (*LZ);
        V273=B4404000000006345; (*GT);
        V274=B4002000000716345; (*GE);
        V275=B4402000000006245; (*LT);
        V276=B4406000000006445; (=Z);
        V277=B4006000000007445; (*NEZ);
        V278=B4410000000000041; (V);
        V279=B4010000000003141; (NV);
        
        V280=B4412000000002031; (EN);
       
[Page number  6
       V281=B4012000000312031; (NEN);
       V282=B4414000000002025; (EJ);
       V283=B4014000000312025; (NEJ);
       V284=B4416000000003735; (TR);
       V285=B4016000000313735; (NTR);
       V286=B40130000;         V287=B0007740000314536; (NZS);
       V288=0; (set marker);
       V289=B61000000; (set instruction);      V290=b56576400515600;
       V291=0;
       
       V292=0; (P.number);
       V293=0; (last label);
       V294=0; (instruction counter);
       (V295 to V303 is input record buffer);
       V304=B020775;
       V305=B2020202020;
       V306=B0101011212121212;
       V307=B3146314631463146;
       V308=B1463146314631463;
       
V309=B45705164004162;

       V310=B40110000;
       
V311=Q3/1/320;
V312=B4057000000432437;
V313=B4457000043243717;
V314=B5235143620;
V315=B4324371435;
[Page number  7
V316=B40570000;
V317=B4324371433;
V318=B4324371427;
V319=B432437;
V320=B0101011010101010;
V321=B57656400427136;
V322=B656044416445;
       V323=B353222;
       V324=B353222351430;
       V325=B3532223514303020;
       V326=0; (last label number);
       
       V327=B70004665565671; (XFUNNY);
       V328=B0631463146314632;
       V364=B4251640054516364;
       V365=B5451420054516364;
       
V366=B207631762005451;
V367=B6364006350514664;
V368=B4544004457675600;
V369=B4544006560000000;
       V370=B4324370000;
       
       V372=Q0/338/349;
       V373=Q20/1/382;
       V374=B5200000241434; (PIAQQ);
       V375=B5240000241534; (PIBQQ);
       V376=B5201000241634; (PICQQ);
       V377=B5241000241734; (PIDQQ);
      
[Page number  8
       V378=B5300000242034; (PIEQQ);
       V379=B5340000242134; (PIFQQ);
       V380=B5301000242234; (PIGQQ);
       V381=B5341000242334; (PIHQQ);
       V382=B5400000321434; (POAQQ);
       V383=B5440000321534; (POBQQ);
       V384=B5401000321634; (POCQQ);
       V385=B5441000321734; (PODQQ);
       V386=B5401400322034; (POEQQ);
       V387=B5400400322134; (POFQQ);
       V388=B5600000301434; (PMAQQ);
       V389=B5001000301534; (PMBQQ);
       V390=B5000400301634; (PMCQQ);
       V391=B5701000301734; (PMDQQ);
       V392=B5700000302034; (PMEQQ);
       V393=B5100000302134; (PMFQQ);
       
       V394=B6245464562455643;
       V395=B4500644142544563;
V397=B 7100 5746 4600 6464; (Y off st);
V398=B30373335;
V399=B55646062;
       V401=Q8/1/410;
       V402=B5100400302234; (PMGQQ);
       V403=B5400200302334; (PMHQQ);
       V404=B5600400302634; (PMKQQ);
       V405=B5700400302734; (PMLQQ);
       V406=B5500000322234; (POGQQ);
       V407=B5540000322334; (POHQQ);
       


[Page number  9
       V408=B5541000322634; (POKQQ);
       V409=B5501000322734; (POLQQ);
       V420=0; (EM MARKER)
       V421=0; (REF. MARKER);
       V422=B702416400; (AT);
       V423=B77777777/23;
(start);

       JS1P2;
       SETAZ0; SETAYA0; -; =RC1;
$760;  ZERO; =YA0M1Q; $J760C1NZS;
453; SET8; =V161; Q0TOQ1; V161; =M1; Q1; =YA0; JS44;
ZERO;
844;   ERASE; JS26;
       DUP; JS860; J844*NEZ;
       SETB60; J517=; SETB64; J487*NE;
517;   ERASE;
       SET12; =C1; V177; ZERO; ZERO;
959;   ERASE;
846;   JS26; DUP; JS860; J959*NEZ;
       DUP; SETB17; -; J480*LTZ;
       DUP; SETB72; -; J480*GTZ;
       SETB40; J480=;
PERM; SHLD6; PERM; OR; REV; DC1; J846C1NZ;
        =YD0; =YD1; SET6; =RC1; ZERO; =RC5;
849;   JS26; SETB75; J848=;
       JS839; J849;
848;   ZERO; JS839; J848C5NZ;
       YD7; SHL-6; SHL6; +; =YD7;
       
[Page number  10
495;   V176; =Y0; ZERO; =Y1; YD0; DUP; =V156; =Y2;
       YD1; DUP; =V157; =Y3;
       (set up skeleton B-block);
SETAZ500; SETAY-1; -; =C8; SET-500; =M8; I8=-1;
       JS493; (skip CRLF symbols);
       JS12; (next group-no existing group);
       J485; (no store limit); J492; (no integer);
       DUP; SHL-15; J485*NEZ; (absurd store limit);
       =Y1; (insert into B-block);
       SET59; -; J485*NEZ; (terminator not a semi-colon);
492;   SETB3637; J484*NE; (test for ST);
       ERASE; JS493; JS12; (next group-existing character);
       J483; (NO TIME); J483; (no specified time limit);
       SHA+24; Y1; +; =Y1; (insert into B-block); SET59; -; J483*NEZ;
       SETB3727; -; J483*NEZ; (test for TL);
JS493; SET24; J496*NE; JS12; J512; J513; J512;
512; V399; J491;
513; V398; -; J512*NEZ;
       ZERO; NOT; =V420; JS493;
496; SET30; J489*NE;
       JS12; J481; J488; (no start);
       DUP; SHL-13; J481*NEZ; (absurd start value);
       DUP; =V371; SET8; +; =V161;
       SET59; -; J481*NEZ;
488;   V153; -; J481*NEZ; (check START);
       JS493; (skip CRLF);
489;   SET36; J451*NE; (test Y);
       ERASE; Q0TOQ1; JS25; DUP; J479=Z;
       SET36; SET1; =V180; J455;
       

      
[Page number  11
451;    SET19; J456*NE; (test H); ERASE;
        SET24; =C1; JS25;
479;    SHL+6; JS25; +; SHL+6; JS25; +;
        SETB6420; -; J478*NEZ; (test 0=E);
        JS3; (integer read first not read);
        DUP; SHL-5; SHL+5; REV; J477=;
        SET32; +; (failure of not module 32 is not in);
477;    DUP; SHL-15; J478*NEZ; (test size);
        SHLC1; =V160; SET59; J478*NE; ERASE;
        JS493;
456;    SET33; J455*NE; (test V);
        ERASE; JS25; SET59; J465=; (null V);
        JS6; NOT; NEG; (v+1);
460;    DUP; SHL-13; J482*NEZ; (test size);
        DUP; =I1; ZERO; =C1; V161; +; =M1; Q1; =YA0;
        (initialise first word of P0 test);
        SET59; -; J282*NEZ; JS493;
454;    M1; Y0; SHL-24; REV; ZERO; REV; JS446; SHL+24;
        =Y0; V180; J470*NEZ; JS25; REV;
        SETB42; J470*NE; (TEST W);
        ERASE; SET59; J461=;
        JS6;
459;    DUP; SHL-13; J486*NEZ;
        NOT; NEG; SHL+24; V161; +; =V161; SET59; J486*NE; (FAIL);
        ERASE; JS493;
        JS25; REV;
470;    SET164; =M5;
        ZERO; =V180;
445;    SETB44; J462*NE; (test Y);
[Page number  12
ERASE; DUP; SETB14; -; J473*LTZ;
DUP; SETB46; -; J473*GEZ;
=M1; JS25; SET59; J444=;
JS6; NOT; NEG; DUP;
        SHL-15; J473*NEZ;
        SHL+24; =M5M1H; SET59; J472*NE; (test terminator);
        ERASE; JS493; JS25; REV; J445;
444;    ERASE; JS493; JS25; REV; J445;
465;    (Blank start); ZERO; J460;
461;    (blank W); ZERO; J459;
493;    (skip CRLF); SET59;
463;    JS25; REV; J463=; JS46; EXIT1;

455;    (no V specification); ZERO; DUP; =C1; =I1;
        V161; =M1; Q1; =YA0; J454;
462;    SET500; =RC7; I7=-1; SETAYD-1; SETAYC0; -; =RC6;
ZERO; =Z0M7Q;
        SET29; J843*NE;
        (R); SHL+6; +; JS12; J467; J458; J467;
458;    V178; J469*NE; (not restart);
        ERASE; SET48; =RC2; SET4; =RM3; SET6; =C3; ZERO; =YB0;
        J511;
        
468;    V420; =Y5; ZERO; =V420;
        M3; SET4; -; J464=Z;
        M3; SET5; -; J467*NEZ;
        C3; SET6; -; J467*NEZ; (too many syllables);
        
464;    ZERO; =RC4; (overall instruction count);
[Page number  13
        SET6; =RC3; (storage moifier);
        Q2TOQ1; I0TOQ1; Q1; =YA1; (initialise V-store pointer);
        YA0; =Q1; I1; DUP; SET8; +; =M3; JS641;
         (leave space for v*bits);
        ZERO; =RM1; SET174; =M5; M5M1H;
        J471*NEZ; (YI);
        SET177; =M5; M5M1H; J472*NEZ; (YO);
        SET170; =M5; SET25; =M1; I1=-1; V160; SHL+24; J449*NEZ;
         VR; SETB77777; SHL+24; J448;
449;    (Y not blank);
        V160; SHL+24;
448;    M5M1H; -; DUP; =M5M1QH; M1; NOT; NEG; J448*NEZ;
        SET169; =M5; ZERO; =M1; M5M1H; -; =M5M1H;
        C8; M3; -; =C8;
927;    C8; J926*LEZ; VR; J511;
926;    JS874; J927;
843;    SET27; -; J466*NEZ; JS12; J466; J469; J466;
469;    (test for PROGRAM etc);
        V323; J457=;
        V324; J457=;
        V325; J457=;
        J466; (failure);
457;    SET1; =V180;
        V175; =Y4; SET46; =RC2;  ERASE; JS46; J464;
839;    J842C5NZ;
        J845C1Z;
        =YD2M1Q; SET7; =C5; EXIT1;
842;    YD1M1; SHL6; +; =YD1M1; DC5; EXIT1;
845;    ERASE; EXIT1;

        
       
[Page number  14
860;    ZERO; J861=;
        SET2; J861=;
        SET4; J861=;
        SET6; J861=;
        SET7; J861=;
        SETB76; J861=;
        SETB77; J861=;
        ERASE; ZERO; EXIT1;
861;    ERASE; SET-1; EXIT1;
511;    JS46; (clear input record buffer);
        JS25; (fetch first character of next instruction);
        DUP; SET9; -; J138*LEZ; (labels);
        DUP; SET11; -; J508*LEZ; (failure if = or.);
        DUP; SET37; -; J507*GTZ; (letters);
201;      SHC-1; DUP; J510*GTZ; (EVEN);
            SHL1; SHL-1; SETB60000; + ;$510;  JS509;
$509;   LINK; +; SET3; -; =LINK; EXIT;
        J112; J113; J114; J115; J272; J117; J118; J273;
        J120; J274; J122; J123; J124; J125; J126; J127;
        J128; J129; J130; J131; J132; J133; J134; J135;
        J136; J137;
        
507;    SET44; J142=; (+);
        SET45; J143=; (-); (here provide for left square bracket if required - see notes);
        SET52; J140=; (=);
        SET53; J144=; (*);
        SET54; J145=; (/);
        SET55; J141=; (comment);
        SET61; J139=; (*);
        
        
[Page number  15
        SET59; J508*NE; (ISS);
        ERASE; J511;
502;
508;    SET59;
506;    JS25; J506*NE;
503;
501;
500;    J54EN;
        ERASE; J500;
504;    REV; SET59; REV;
505;    J506*NE; J503;
        (syllable by syllable storage);
        
55;     Y0M3; SHC8; NEV; DC3; =Y0M3; J57C3NZ;
        M+I3; SET6; =C3; DC8; J874C8Z; ZERO; =Y0M3;
57;     EXIT1;


50;     JS696; (store one-syllable instruction);
        JS55;
        J59;
51;     JS696; (store two-syllable instruction);
        ZERO; REV; SHLD-8; J58;
52;     JS696; (store three-syllable instruction);
        ZERO; REV; SHLD-16; JS55;
        ZERO; SHLD8;
58;     JS55;
        ZERO; SHLD8; JS55;
        ERASE;
59;     (step on instruction counters);

[Page number  16
        DC4; M+I4; J511; (treat next instruction);
        
269;    (no space left); V33; J491; (catastrophic space failure);
        (Fetch Simple Instruction);
22;     =Q1; JS13; (fetch next group);
        J23;
        J21;
        EXIT3; (N1 integer, N2 teriminator, N3 group);
23;     LINK; ERASE; J508; (report failure - too many characters);
21;     DUP; SHL-24; J983*NEZ;
976;    DUP; M0M1Q; NEV; DUP; SHL24; J20=Z;
        ERASE; J976C1NZ;
983;    EXIT1; (unrecognised group in N1);
20;     REV; ERASE; SHL-24; EXIT2; (machine code instruction in N1);
        (end of Fetch Simple Instruction);
53;     (check o<q<15, q in N1);
        DUP; J56*LTZ;
        DUP; SET15; -; J60*LEZ;
56;     EXIT1; (failure);
60;     EXIT2; (q in range);

54;     SET1; =V147;
        VR; C10; SHL1; DUP; SHL1; +; =C1;
        M0M11; SHCC1; =M0M11; V183; J267*NEZ;
        SET1; SET5; OUT; DUP; =V183; =C1;
        SET162; =I1; SET165; =M1; PWEQ1;
994;    BUSYQ1; J994TR;
267;    V183; =C1; SET311; =M1; SET300; =I1;
        ZERO; =V32; ZERO; =V291;
       
[Page number  17
V306; DUP; V262; DUP; SET8192; -; J953*LTZ;
SET8192; -; FRB; V305; +; SETB20754; J954;
953; FRB; V305; +; SETB20760;
954; SHL30;
        +; =V292; (P. number);
        DUP; V326; FRB; V305; +; SETB6200; SHL30; +;
        =V293; (L. number);M4; FRB; V305; +; SHL6;
        SETB35; SHL36; +; SETB02; +; =V294;
        PWEQ1;
992;    ZERO; DUP; =V288; =V291;
        V420; J268=Z; EXIT1;
268;    J511EJ; LINK; ERASE; J268;
446;    (Construct a Jump);
        (parameters word, 0, instruction);
        SHLD-13; SHL+16; REV; ZERO; SHLD+1;
        SHL+19; REV; SHL-36; +; +; +; EXIT1;
486;    V252; J491; (W SPECN.);
484;485;        V248; J491; (STORE LT);
487;    V253; J491; (NO P/M);
483;    V249; J491; (TIME LT);
490;    V259; J491; (PARITY);
482;    V250; J491; (V SPEC.);
481;    V159; J491; (START);
480;    V254; J491; (TITLE);
478;    V251; J491; (Y SPECN.);
473;    V255; J491; (YA SPECN);
467;    V256; J491; (RESTART);
466;    V152; J491; (PROGRAM);
494;    SET1; =V420; JS54; V260; J491;
       
[Page number  18
471;    V257; J491; (YI USED);
472;    V258; J491; (Y0 USED);
491;    (failure routine); =V158;
        ZERO; NOT; =V147;
476;    J475EN; ERASE; J476;
475;    V183; J474*NEZ;
        SET1; SET5; OUT; DUP; =V183;
        =C1; SET162; =I1; SET165; =M1;
        PWQ1;
474;    V183; =C1; SET165; =I1; V157; SETB702;
        =V157; SET166; =M1; PWQ1; =V157;
        SET240; =M1; PGAPQ1;
868;    JSP2;
        ZERO; =V160; SET13; =RC1;
        
        ZERO; DUP; =V326; =V262;
        ZERO; =V371;
        Q0TOQ4;
        ZERO; =V147;
        
        ZERO; DUP; =V420; =V421;
$121;   ZERO; =V162M1Q; $J121C1NZS;
        ZERO; =V261; VR; ZERO; =V156; ZERO; =V157;
        ZERO; =V32;
        ZERO; =V264; ZERO; =V180;
        SET-500; =V266;
        SET4; =RC1;
$879;   ZERO; =V291M1Q; $J879C1NZS;
        ZERO; =V146;
       
[Page number  19
880;    J881EN; ERASE; J880;

881;    J963EJ; LINK; ERASE; J881;
979;    (even or odd restart);
        V183; DUP; J972*NEZ;
        ERASE; SET1; SET5; OUT;
        DUP; =V183;
972;    =C1; V396; =C12; J868;
963;    M0M0HN; SET60; SHL+24; +; =M0M0HN; JE0;

        (Initialise - for Fetch Next Character);
44;     SET2; SET5; OUT;
        DUP; =V396;
        V150; =Q12; V151; =Q13;
        =C12; C12TOQ13; 65; V0; =M0M13;
        PREQ13;
        ZERO; DUP; =V1; =RM15; Q15TOQ14;
        
46;     (clear input record buffer);
        V31; =Q11; Q11TOQ10;
        I15; J690*LTZ;
        SETB07; J691;
690;    SETB06;
691;    SHC-6; V0; SHLD6; =M0M11Q; ERASE;
$45;    V0; =M0M11Q; $J45C11NZS;
        Q10TOQ11; SET7; =C10; EXIT1;
        (Integer Convert);
8;      (signed. first not yet read);
        JS25;
       
[Page number  20
9;     (signed, first already read);
       SET44; J4=;
       SET45; J5=;
       ZERO; DUP; CAB; J10;
6;     (unsigned, first already read);
       DUP; ZERO; REV; SET9; -; J7*GTZ;
       REV; J2;
1;     REV; DUP; SHA2; +; SHA1; +; J2;
4;     ERASE;
3;     (unsigned, first not yet read);
       ZERO;
5;     ZERO;
2;     (from next group);
       JS25;
10;    DUP; SET10; -; J1*LTZ;
       PERM; REV; J7=Z;
       NEG;
7;     EXIT1; (end of Integer Convert);
       (Fetch Next Character);
26;    (special entry); M+I15;
25;    (normal entry); J30C15NZ;
       M+I14; J29C14NZ;
       Q12; Q13TOQ12; =Q13; V1; J27=Z;
       ZERO; =V1; V0; =M0M12; PREQ12;
       
27;    PARQ12; J490TR;
       V0; NOT; DUP; SHL4; DUP; CAB; +; M0M12; NEV; DUP; NOT; CAB; AND;
       DUP; SHL-5; CAB; +; AND; VR; J28*NEZ; (test for EM character);
       V0; =M0M13; PREQ13;
      
[Page number  21
28;     I12; =RM14; SET32; =C14;
29;     SET8; =C15; DC14;

30;     M0M14; ZERO; SHLD6; REV; =M0M14; DC15;
42;     DUP; J978C11Z; (failure - input record buffer full);
104;    DUP; =V2P11; SHC-6; M0M11; SHLD6;
        =M0M11; ERASE; DC10; J43C10NZ;
        SET8; =C10; M+I11; DC11;
43;     M15; J41*NEZ;
        DUP; SHC-6; SHA-44; J37=Z;
        SET32; -; DUP; J39*GEZ;
        SET17; +; DUP; J34*LTZ;
        I15; J33*LTZ;
        DUP; J32=Z; SET10; -; DUP; J31*GTZ;
        SET9; +; EXIT1;
31;     SHA3; =C9; V2; SHCC9; SETB377; AND; EXIT1;
32;     ERASE; SET43; EXIT1;
33;     SET46; +; EXIT1;
34;     SET-9; J38=;
        SET-8; J36=;
        SET-11; J37=;
        SET-13; J102*NE;
116;    ERASE; SET59; EXIT1;
36;     I15=1;
37;     ERASE; J25;
38;     I15=-1; J37;
39;     DUP; J363=Z;
        SET26; -; DUP; J40*GTZ;
        SET37; +; EXIT1;
       
[Page number  22
40;     SET3; J363*NE;
119;    SET37; +;
35; LINK; SETAR849; J494*NE; =LINK;
DUP; =V1; C0TOQ15; C0TOQ14; EXIT1;
41;     M-I15; SET6; J442=;
        SET61; J35=;
        SET7; J443*NE;
        I15=1;
443;    EXIT1;
442;    I15=-1; EXIT1;

978;    M-I11; SET1; =C11; V0; =M0M11; J104;
101;    V179; J491;
363;102;        J54EN; ERASE; J102;(There are invalid characters for notifications);
        (to e programmer);
        (Next Group);
13;     (normal entry);
        ZERO;
12;     (existing group in N1);
        JS25; (fetch next character);
14;     DUP; SET10; -; J11*LTZ;
        SET44; J16=;
        SET45; J17=;
15;     (special entry);
        SET59; J18=;
        REV; SHA6; +; J12NV;
        EXIT1; (failure - more then eight in group);
11;     ZERO; REV; JS2; (integer convert);
        EXIT3; (N1 integer, N2 terminator, N3 group);
        
[Page number  23
16;     ERASE; ZERO;
17;     ZERO; JS2; (integer convert);
        EXIT3; (see above);
18;     ERASE; EXIT2; (N1 group, ending was semicolon);
        (end of Next Group);    (insert marker in Y and R correction table);
61;     (instruction to have address amended);
        SET1; J63;
62;     (instruction already comlete);
        ZERO;
63;     YB0M2; SHL+1; +; DC2; =YB0M2; J64C2NZ;
        M+I2; SET48; =C2; M2; SETAYC-1; SETAYB0;
        -; -; J903=Z; (testor too many bits);
        ZERO; =YB0M2;
64;     EXIT1;
903;    V364; J491;

571;    JS696; ZERO; REV; SHLD-16; JS55;
        ZERO; SHLD8; JS55; ZERO; SHLD8; JS55;
        ERASE; DC4; M+I4; EXIT1;
        
185;    V265; +; V264; SHL16; +; ZERO; =V264;
        REV; SHL+33; ZERO; SHLD3; SHL19; REV;
        SHL-36; +; +; (inst,y:r); EXIT1;
        (entered with integer, terminator, base address, Y/R marker);
049;    CAB; +; (Y,W,H,Z); J178;
146;    CAB; REV; -; (Z);
178;    REV; (terminater, address);
        SET59; J158=;
        SET24; J436=; (M);
       
[Page number  24
        ZERO; DUP; CAB; EXIT1;
158;    ERASE; ZERO; DUP; DUP; EXIT1;
436;    ERASE; JS3; (q, terminator, address);
        JS53; J215; REV;
        SET59; J235=;
        SET28; J196=;
        J504;
235;    ERASE; ZERO; DUP; EXIT1;
196;    ERASE; JS25; SET59; -; J502*NEZ;
        SET1; ZERO; EXIT1;
        (This routine has an exit);
        (N1; 0 if terminator; or M after address integer, else the);
        ( actual terminator which could be P,U.L,/,);
        (N2: Q marker 1 or 0);
        (N3: value of the modifier);
        (N4; address
        N5;  Y/R marker);
215;    ERASE; SET59; J500=; J502;
236;    (dwa S/R); (first character in N1);
        SET36; J234=; (Y);
        SET34; J216=; (W);
        SET19; J190=; (H);
        SET16; J189=; (E);
        SET37; J188=; (Z);
        SET59; J503=; J508; (FAILURE);
234;    ERASE; JS366;
219;    JS049;
220;    DUP; J193*NEZ;
        ERASE; SHL+17; REV; SHL+12; +; (Qq, address, Y/R marker);
       
[Page number  25
        V288; J194*NEZ; V291; J48*NEZ; (test for SET AND Vv=);
        JS185; (instruction, Y/R);
        JS571; JS63; EXIT2;
194;    J503*NEZ; (test for Qq);
        SETB77777; AND;
        (SET); V289; +; JS571; JS63; EXIT2;
193;    EXIT1; (terminater, Q, q, address, Y/R);
48;     J500*NEZ; EXIT3; (address, Y/R);

366;    JS25; DUP; SET9; -; J180*LEZ;
        SET44; J180=;
        SET45; J180=;
        DUP; SET12; -; J508*LTZ;
        DUP; SET37; -; J181*GTZ;
        =M1; SET164; =M5; M5M1H; SHA-24; (bare addess);
        V160; SHL24; J399*NEZ;
        SET1; J401;
399;    ZERO;
401;    REV;
195;    JS25; DUP; SET9; -; J187*LEZ; (at 195 is address, Y/R);
        SET44; J187=;
        SET45; J187=;
        JS12; J502; J859; ERASE; SET59; -; J501=Z; J504;
181;    SET59; J508*NE; J503;
180;    V160; SHL+24; SHL-24; DUP; J182*NEZ;
        ERASE; SETB77777;SET1; (Y/R, address, bit); rev; cab;
187;    JS9; EXIT1; (integer, terminator, bare address, Y/R);
182;    ZERO; REV; CAB; J187;
[Page number  26
859;    PERM; ERASE; ERASE; V181; DUP; CAB; NEV; SHL24; J503*NEZ;
        SHL-24; LINK; ERASE; LINK; ERASE; J50;

179; REV; ERASE; REV; ERASE; REV; ERASE; SET59; J501=; J504;

216;    (W); ERASE; V161; SHL-24;
        V160; SHL+24; J217=Z;
        ZERO; REV; JS195; J219;
        
217;    SET1;; REV; JS195; J219;
190;    (H); ERASE; V160; SHL-24; DUP; J508=Z;
        ZERO; REV; JS195; J219;
189;    (E); ERASE; ZERO; DUP; JS195; J219;
188;    (Z); ERASE; Y1;
192;    SHL+24; SHL-24; DUP; J191=Z;
        NEG; NOT; ZERO; REV; JS195; JS146; J220;
        
191;    ERASE; E1; J192;

400;    (Reference address calculater);
        JS12;
        J508;
        J503;
        (inst, terminator, group);
        CAB; SETB35; J394=; (R);
        SETB3520; J238=; (RE);
        SETB3633; J439=; (SP);
        SETB3627; J440=; (SL);
        SETB33; J441=; (P);
       
[Page number  27
        SETB27; J379=; (L);
        SETB36; J237=; (S);
        SETB3635; J237=; (SP);
        SETB20; J238=; (E);
        ZERO; J394=;
        SETB3620;
        J419=; (SE); ERASE; SET59; J503=; J508;
419;    ERASE; SET1; PERM; ZERO; EXIT1;
238;    (JE); ERASE; ZERO; PERM; ZERO; EXIT1;
237;    (JS); SET1; J240;
394;    (J); ZERO;
240;    REV; ERASE; PERM; (ref, term, S mark);
551;    REV; SET59; J245=;
        SETB27; J413=;
        SETB33; J413=;
REV; DUP; J502=Z; SET1; EXIT1;
413;    JS12; J504; J501;
        DUP; SHL-13; J425*NEZ; (test number);
        CAB; SET27; (P); J242*NE;
        ERASE; J243;
242;    SET23; J244*NE;
        ERASE; SET8192; +; DUP; SET8192; -; JS397; (insert L-number
        into library list);
        
243;    (P, term, ref, S mark);
        V262; J389=; (current level);
        JS223; (search far level); J390; (no level);
        CAB; JS391; (search for reference); J582; J392; (no reference);
582;    (add, P, term, S mark);
[Page number  28
        REV; ERASE; ZERO; EXIT1;
392;    (no reference); PERM;
390;    V291; J596*NEZ; JS393; SETB10; ZERO; EXIT1;
389;    ERASE; (term, ref, S mark);
245;    REV; DUP; J500=Z; SET1; EXIT1;
244;   (not P or L); ERASE; ERASE; SET59; J501=; J504;
       (on exit this routine has in N1 0 OR 1 Y/R entry);
       (N2 address or a representation);
       (N3 terminator N4 S mark);
439;   (JSP); ERASE; JS223; J384;
382;   ERASE; (terminater); SET1; (S mark);
377;   REV; (term, S mark);
       Z0M1; SHL+32; SHL-32; (address of Pp); ZERO;
       EXIT1;
440;   (JSL); ERASE; SET8192; +; JS223; J383;
       J382;
383;   DUP; SET8192; -; JS397; (insert into L-list);
384;   (P. number terminate); ZERO; PERM; JS393;
       (costruct a funny); SET1;
376;   REV; SETB20; ZERO; EXIT1;
441;   (JP); ERASE; JS223;J381;
378;   ERASE; ZERO; J377;
379;   (JL); ERASE; SET8192; +; JS223; J380;
       J378;
380;   DUP; SET8192; -; JS397;
381;   ZERO; PERM; JS393; ZERO; J376;
596;   =Q1; REVd; REV; REVD; PERM;
       Q1; JS344; PERM;
        SET8; ZERO;EXIT1;
       
[Page number  29
391;    (extract reference from S/R description specified in M1);
        Z1M1; =M5; M5; J437=Z;
        M1; =+M5; J398;
437;    M8TOQ5;
398;    M1; REV; I1=-1;M+I1; M+I1;
757;    M1; M5; -; J395=Z;
        Z0M1Q; DUP; SETB377; AND; CAB; REV; J396=; REV;
        SHL-24; DUP; SETB377; AND; CAB; REV; J396=; REV;
        ERASE; J757;
396;    ERASE; SHL+24; SHL-32; REV; =M1; EXIT1;
395;    REV; =M1; EXIT2;
393;    (construct and store a funny);
SHL16; CAB; SHL32; SHL-32; +; SHL16; C3; NEG; NOT; SHL13;
        M3; +; +; =Z0M7Q; J450C7Z;
        EXIT1;
        
450;    (funny space exhausted); J565; (shift S/R);
223;    V266; =M1; (current bare for funnies);
225;    Z0M1; SHL-32; J224=;
        Z1M1; SHL+32; SHL-32; DUP; J226=Z;
        =+M1; J225;
226;    ERASE; EXIT1; (not present);
224;    EXIT2; (present);

641;    (no of V-stores in N1); (leave space for bits);
        SHA2; (bits);
        DUP ; C2; -; DUP; J645*LEZ;
        REV; ERASE; YB0M2; SHLC2; =YB0M2; M+I2;
[Page number  30
        SET48; ÷I; (bits, words); REV;
        DUP; J642=Z; =RC1; M2TOQ1;
$644;   ZERO; =YB0M1Q; $J644C1NZS;
        M1TOQ2; M2; SETAYC-1; SETAYB0;
        -; -; J903*GEZ; J643;
642;    ERASE;
643;    (bits); ZERO; =YB0M2; SET48; REV;
        -; =C2; EXIT1;
645;    (enough bits in current word);
        ERASE; DUP; NEG; =+C2; =C1; YB0M2;
        SHLC1; =YB0M2; J646C2NZ;
        SET48; =C2; M+I2; ZERO; =YB0M2;
646;    EXIT1;

369;    (is the last funny=current address);
        M-I7; Z0M7; M+I7; SHL+32; SHL-32;
        C3; NEG; NOT; SHL+13; M3; +; -; J368=Z;
        EXIT2; (NO);
368;    EXIT1; (YES);

397; ERASE; EXIT1;
409;    (fetch next bit);
        YB0M10; SHCC10; SET1; AND; J410C10NZ;
        SET-47; =C10; M+I10; EXIT1;
410;    SET1; =+C10; EXIT1;
411;    (Change last bit to 0);
         C10; SET47; +; J412=Z;
        DC10; YB0M10; SHCC10; SHL-1; SHL+1; NC10;
        SHCC10;=YB0M10;DC10; NC10; EXIT1;
       
[Page number  31
412;    M-I10; YB0M10; SHL-1; SHL+1; =YB0M10; M+I10; EXIT1;

402;    (fetch next syllable); V267; V268; -; J421=Z;
        Y0M11; SHLC11; SETB377; AND; Q11; =V329; J403C11NZ;
        SET-40; =C11; M+I11; Q11; =V267; EXIT2;
403;    SET8; =+C11; Q11; =V267; EXIT2;
421;    EXIT1;
404;    (fetch rest of a 3 syllable instruction);
        V329; =Q9; SHL+8; JS402; J634; +; SHL+8; JS402;
        J634; +; EXIT1;
405;    (fetch rest of a 2 syllable instruction);
        ERASE; JS402; J634; ERASE; EXIT1;
406;    (store top syllable of N1);
        Y0M9; SHCC9; SHL-8; SHLD+8; NC9; SHCC9; NC9;
        =Y0M9; J407C9NZ;
        SET-40; =C9; M+I9; EXIT1;
407;    SET8; =+C9; EXIT1;

408;    (store three syllables from N1);
        SHL+24; JS406; JS406; JS406; ERASE; EXIT1;
        
634;    V322; J491;
603;    (reference from P0 desciption);
        (N1=reference number);
        DUP; SETAYB0; SETAYA1; -; DUP;
        SHL1; +; -; J604*LEZ; EXIT1;
604;
        DUP; SET3; ÷I; (rem, +(3), reference);
        
       
[Page number  32
        SHA+4; =C5; =M5; YA2M5; SHCC5; SHL+32; SHL-32; DUP;
        J606=Z; REV; ERASE;
        EXIT2; (label,);
606;    ERASE; EXIT1; (reference);

687;    (failure S/R. N1 = letter string, N2 = P
        N3 = LABEL);
        SET1; =V421;
        V423; C9; DUP; J688*GTZ;
        SET40; +; SHL-3; J689;
688;    ERASE; ZERO;
689;    SHLD45; V320; M9; V371; +;
        FRB; V305; OR; SHL18; V422;
        SHLD18; =V295; ERASE; ERASE;
        Q1; V183; J692*NEZ; SET1; SET5;
        OUT; DUP; =V183; =C1; SET162;
        =I1; SET165; =M1; PWQ1;
692;    V183;=C1;SET303; =I1; SET304; =M1; PWQ1;
        =Q1;
        SET1; =V147;
        Q1; REV; REVD; CAB;
        =V297; REV; V306; DUP; CAB; FRB; V305; +;
SETB62; SHL30; +; =V296; REV; DUP; SET8192; -; J955*LTZ;
        SET8192; -; FRB; V305; +; SETB54;
        J956;
955;    FRB; V305; +; SETB60;
956; SHL30; +; =V295;

       
[Page number  33
        J749;
748;    Q1;
749;    V183; J684*NEZ;
        SET1; SET5; OUT; DUP; =V183; =C1;
        SET165; =M1; SET162; =I1; PWQ1;
684;    V183; =C1;
        SET303; =I1; SET305; =M1; PWQ1; =Q1; EXIT1;
        
138;    (labels);
        JS6; (label, terminater);
        REV; SET59; J502*NE; ERASE;
        SET6; C3; -; SHL+13; M3; +;
        V371; +;
        REV; (label, address);
        V262; J543*NEZ;
        DUP; SETAYB-1; SETAYA3; -; SET3; xD; CONT;  -; J500*GTZ;
        JS603; J544; J500;
544;    =V326; M0TOQ4;
        NC5; SHCC5;
        YA2M5; +; =YA2M5; J511;
        
543;    DUP; SHL-8; J500*NEZ;
        V262; JS223; J101;
        ERASE; JS391; J500;
        DUP; =V326; M0TOQ4;
        
545;    REV; SHL+8; +;
        V146; J546*NEZ; SET1; =V146;
        SHL24; =Z0M8Q; J882C8Z; J511;
        
       
[Page number  34
546;    M-I8; Z0M8; +; =Z0M8; M+I8;
        ZERO; =V146; J511;
882;    JS874; J511;
112;    (instruction beginning with A);
        V3; JS22;
        J503; (report failure - invalid form);
        J50; (store ABS ABSF AND);
        J504; (report failure - digits in instruction);
        (end of A);
113;    (instructions beginning with B);
        JS13;
        J508; (report failure _ too many characters);
        J100;
        JS53; (check q);
        J504; (report failure - q out of range);
        PERM; SET59; -; J502*NEZ; (report failure - no semicolon);
        V8; DUP; CAB; NEV; SHL 24; J500*NEZ; (report failure - invalid
        form);
        SHL-24; REV; SHL4; NEV; J51; (store BUSYQQ);
100;    DUP; V7; DUP; CAB; NEV; SHL24; J503*NEZ; (report failure -
        invalid form);
        REV; ERASE; SHL-24; J50; (store BITS);
        (end of B);
114;    (instructions beginning with C);
        V9; JS22;
        J503;
        J50; (store CAB CONT);
        JS53; (check q);
        J504;
       
[Page number  35
        REV; SET59; J106*NE;
        ERASE; SHA4; REV; DUP; J858=Z;
        V143; =Q1; JS21;
        J500;
        +; J51; (store CLOQq CTQq CRAQq CRBQq);
        
858;    (null group Cq ); ERASE; SETB74410; +; J51;
106;    SET31; -; J502*NEZ;
        SHA4; REV; JS12;
        J502;
        J500;
        PERM; SET59; -; J504*NEZ;
        REV; JS53;
        J501;
        REV; V13; =Q1; JS21;
        J501;
        +; +; J51; (store CqTOQQ VIqTOQq CMqTOQq);
        (end of C);
115;    (instruction beginning with D);
        V17; JS22;
        JS503; (report failure - invalid form);
        J50; (store DUMMY DUP DUPD);
        JS53; (check q);
        J504; (report failure - q out of range);
        SHA4; PERM; SET59; -; J502*NEZ; (report failure - no semicolon);
        SET14; -; J503*NEZ; (report failure - invalid form);
        SETB61400; +; J51; (store DCq);
        (end of D);
       
[Page number  36
272;    (instructions beginning with E);
        JS13;
        J508;
        J161;
        CAB; V319; J162*NE; ERASE;
        (n, terminater); REV;
        SET 59; J163*NE; ERASE;
552;    ZERO;
168;    REV;
        (n, address);
169;    ZERO; REV; SHLD-1;
        PERM; SHL-30;
        V316; NEV;
        PERM; +; DUP; SHL-13; J500*NEZ;
        ZERO; SHLD+36; SHL+7; SHLD-36; ERASE;
        +;
166;    JS62; J52; (store EXIT instructions);
161;    V311; =Q1; JS21; J503;
        J50C1Z; (store ERASE);
        J166;
162;    DUP; J164*NEZ;
        ZERO; REVD;
        ZERO; =V264;
        JS219; J165; J511; J500;
165;    SET59; -; J300=; J299;

163;    JS12; J502; J500;
557;    CAB; SETB1435; J167*NE;
        ERASE;
       
[Page number  37
563;    (r, terminator, n);
        JS551; (Y/R, address, terminator, n);
        CAB; SET 59; -; J504*NEZ;
        (Y/R, address, n);
        JS369; J589;
588;    J168=Z;
        REV; V262; (p, n, r);
558;    JS393; (store a funny);
        JS52;
167;    CAB; SET59; -; J504*NEZ;
        REV; DUP; SHL-13; J501*NEZ;
        REV; SETB1433; J553*NE; ERASE;
        DUP; J554*NEZ; ERASE;
        YA0;
556;    SHL+32; SHL-32; (address, n);
        J168;
553;    SETB1427; -; J500*NEZ; DUP; JS397;
        SET8192; +;
554;    JS223; J555; ERASE; Z0M1; J556;
164;    V370; -;
        ZERO; REV; REVD; J557;
555;    (p, n);
        ZERO; PERM; J558;
589;    REV ; ERASE; ZERO; REV; J588;
117;    (instructions beginning with F);
        V22; JS22;
        J147;
        J50; (store FIX FLOAT FRB);
        J504;
[Page number  38
147;    V21; J148=;
        V26; SHL18; SHC30; J503*NE;
        ERASE; V26; SHL-30; J50; (store FLOATD);
148;    ERASE; (begin routine for FINISH);
        V180; J466=Z;
        
        
        V262; J805=Z;
        ZERO; DUP; JS807; (update last S/R);
        (INITIALISE UPDATE, THIS SHOULD BE PRECEDED BY THE)
        (MECHANISM FOR DEALING WITH THE LIBRARY FROM)
        (MAGNETIC TAPE);
805;    C3; SET6; -; J806=Z;
        ZERO; JS55; J805;
806;    JSP24; Q3TOQ5;
        M3; V160; SHL+24; SHL-24; DUP; J924*NEZ; ERASE;
        SETB77777;
924;    V161; SHL-24; -; +; V371; +;
        DUP; SHL-5; SHL+5; REV; J602=;
        SET32; +;
602;    =M3; (Y0 ADRESS MODULO 32);
        V160; SHL+24; DUP; J608=Z;
ERASE; V161;
        SHL-24; M5; SHL32; SHL-32;
        V371; +; -; DUP; J608*GEZ;
        V251; =V295; V321; =V296; NEG; V306; REV; FRB;
SET1; =V147;
        V305; +; =V297; JS748; (Y0 SPECIFICATION WRONG);
        J973;
[Page number  39
608;    ERASE;
973;    YB0M2; SHLC2; =YB0M2;
        V161; SHL+24; SHL-24; SHL+16;
        M5; SET1; -; +;
        V371; +; =Y7; (SET UP FILLER WORD);
        (UPDATE RESTART);
        SET-40; =RC11; SET4; =M11;
        SET-47; =RC10; SET-40; =RC5; SET5; =M5;
        Q5; =V268;
        JS800; (INSTRUCTION UPDATE);
        V266; =M15; (INITIALISE NEXT S/R);
        (P0 V-STORES);
        YA1; =Q5; YA0; SHL+16; ZERO; SHLD+16; DUP; CAB;
        SHL-32; (ADDRESS, V, V); REV; -;
        V371; -;
        (ADDRESS 1ST V-STORE, NUMBER OF V-STORES);
        C5; I5; JS706;
        (P0 UPDATING PROPER);
        YA0; =Q5; SET-40; =RC11; M5TOQ11; V371; NEG; =+M11;
        (INITIALISE);
        M15; M8; -; J745=Z; (CHECK ON S/R);
        
744;    Z0M15; =Q5; M5; I5; -; SET-40; =RC5;
        =M5; V371; NEG; =+M5; Q5; =V268; JS800; (INSTRUCTIONS UPDATE);
        (VVPP UPDATE);
        Z1M15; =Q5; Z0M15; SHL+16; ZERO; SHLD+16;
        DUP; =+M11; (JUMP V WORDS FOR INST FETCH);
        DUP; CAB; SHL-32; REV; -;
        
       
[Page number  40
        V371; -;C5; I5; JS706;
        JS746; (NEXT S/R); J745; J744;
        
745;    (NO MORE S/RS); SET-40; =RC5;
        Y7; SHL+32; SHL-32; V371; -; NOT; NEG;
        =M5; Q5; =V268;
        JS800; (INSTRUCTION UPDATE);
        (END OF UPDATE); J611; (PUNCH);
746;    (NEXT S/R);
        Z1M15; SHL+32; SHL-32; DUP; J747=Z;
        =+M15; EXIT2;
747;    ERASE; EXIT1;
723;    (OBTAINED REQUIRED ADDRESS IF BIT IN Y/R=0);
        (N1=INSTRUCTION);
        M9; C9; NEG; SET8; ÷I; ERASE; JS733;
        J724; J725;
        
724;    (FUNNY, INSTRUCTION); REV; DUP; SETB77; AND; DUP;
        CAB; NEV; PERM; JS727; J726;
        EXIT1;
725;    (NO FUNNY); EXIT2;
726;    (XFUNNY); EXIT3;
        (EXIT1 ADDRESS, INSTRUCTION (LESS CODE));
        (EXIT2 (NO FUNNY) INSTRUCTION IN N1);
        (EXIT3 XFUNNY EMPTY NEST);
        
706;    (V-STORE UPDATING);
        (N1=WORD CONATINING FIRST BIT);
        (N2=NUMBER 2 FIRST BIT);
       
[Page number  41
      (N3=ADDRESS FIRST V-STORE);
      (N4=NUMBER OF V-STORES);
      =RM10; NEG; NOT; NEG; =C10; (BIT ADDRESS);
      =RM14; =C14; (V-WORD ADDRESS); J707;
708;  ERASE;
709;  ERASE;

707;  J780C14Z; (END OF ROUTINE);
      Q14TOQ9;
      Y0M14Q; JS409; SHL+1; JS409; +; SHL+1;
      JS409; +; SHL+1; JS409; +; (4-BITS, V-STORE);
      DUP; J708=Z;
      (BITS, V-STORE);
      SHL+44; DUP; J710*LTZ; (3 PART V-STORE);
      SHL+1; DUP; J711*LTZ;
      SHL+1; J712*LTZ;
      (WHOLE PART);
      ZERO; JS704; JS802; J707;
711;  (U); REV; SHC-24; SET 2; JS704; SHC+24;
      REV; SHL+1; J712*LTZ;
      JS802; J707;
712;  (L); SET1; JS704; JS802; J707;
710;  SHL+1; DUP; J714*LTZ;
781;  SHL+1; DUP; J715*LTZ;
804;          SHL+1; J716*LTZ;
713;  JS802; J707;

714;  (C); REV; SHC+16; SET5; JS704; SHC-16;
      REV; J781;
     
[Page number  42
715;    (I); REV; SHC-16; SET4; JS704; SHC+16;
        REV; J804;
716;    (M); SET3; JS704; J713;
780;    EXIT1;
802;    M-I14; =Y0M14; M+I14; EXIT1;

704;    (DO A V UPDATE);
        (N1=PART CODE FOR FUNNY SEARCH);
        (N2=V STORE PART IN LEAST SIGNIFICANT POSITION);
        (N3=REMAIN OF THE 4-BIT CODE);
        M14; NEG; NOT; REV; JS733; J850; J705;
850;    (FUNNY, N-STORE, R4);
        REV; DUP; SETB37; AND; DUP; CAB; NEV; REV;
        (V-CODE, V-STORE, FUNNY, R4);
        CAB; REV;
        (V-STORE, FUNNY, V-STORE, R4);
        JS727; SET4;
        +; (UPDATED V, R4);
705;    (V-STORE, R4); EXIT1;
727;    (INTERPRET A FUNNY);
        (N1=CODE P/R/V/U/L);
        (N2=FUNNY);
        DUP; SHL-4; J730*NEZ;
        DUP; SHL-3; J731*NEZ;
        DUP; SHL-2; J732*NEZ;
        (AYY WITH U OR L);
        REV; SHL+16; SHL-32; (INTEGER PART OF THE FUNNY);
        SETB77777; -; M3; -; (ADDRESS. CODE); SHL+33; SHL-33;
703;    REV; SETB3; AND; DUP; SHL-1; J728*NEZ;
[Page number  43
        J729=Z;
        (L); SHA+1; NOT; NEG; EXIT2;
728;    (U); ERASE; SHA+1; EXIT2;
729;    (NEITHER); EXIT2;
730;    (APP); SET3; AND; J700*NEZ; (P AND U OR L);
        ZERO; SHLD+16; (P NUMBER, WORD UP 16 PLACES); DUP; J811=Z;
        JS223; (SEARCH FOR P); J919; (NO P); (P NO, WORD UP 16);
819;    ERASE; Z0M1;
812;     SHL+32; SHL-32; (ADDRESS, WORD UP 16);
        REV; ERASE; EXIT2;
        
731;    (ARRPP); SET3; AND; J700*NEZ;
        ZERO; SHLD+16; DUP; J809=Z; (TST FORP0);
        JS223; J919; (P NUMBER, WORD UP 16);
810;    REV; SHL-32; DUP; J819=Z;
        JS391; J782; J702; (REFERENCE, P NUMBER);
782;    REV; ERASE; EXIT2;
919;    REV; J920;
809;    (P0); REV; SHL-32;DUP;  J811=Z;
        JS603; J702; J782;
811;    (AP0); ERASE; YA0; JS12;
732;    (AVVPP);
        REV; ZERO; SHLD+16; (P NUMBER, WORD UP 16); DUP; J813=Z;
        JS223; J701;
        ERASE; SHL-32; (V-NUMBER);
        Z0M1; SHL+16; SHL-32; -; (V-V);
        Z0M1;
814;    +; SHL32; SHL-32;
        J703; (ADDRESS, CODE);
       
[Page number  44
813;    (AVVP0); ERASE; SHL-32; YA0; SHL16; SHL-32; -; YA0; J814;
700;    ZERO; SHLD+16; REV; ZERO; SHLD+16; REV;
        ERASE; REV; (P NUMBER, INTEGER);
        V327; JS687;
        EXIT1; (FAILURE EXIT, EMPTY NEST);
701;    PERM;  ERASE;
920;    ERASE; ZERO; REV; V290; JS687; EXIT1;
702;    REV; V290; JS687; EXIT1;
        (ON EXIT1; EMPTY NEST, EXIT2; THE REQUIRED ADDRESS);
733;    J734C7NZ; ERASE; ERASE; EXIT2;
734;    SET5; -; NEG; DUP; J634*LTZ; REV;
        SHL+3; +; Z1M7; DUP; SHL+32; SHL-32;
        CAB; -; J735=Z; ERASE; EXIT2; (NO FUNNY);
735;    DC7; M+I7; EXIT 1; (FUNNY FOUND);
800;    (instruction update);
        Q11; =V267; J614;
613;    ERASE;
617;    ERASE;
614;    JS402; (next syllable); EXIT1; (end of update);
        DUP; SETB300; AND; SHL-6; (q-bits);
        DUP; J613=Z;
        NEG; NOT; DUP; J615*NEZ;
        (2); ERASE; JS405; J614;
615;    NEG; NOT; J616=Z;
        (Fetch/store/set);
        JS404; DUP; SHL+29; JS409; REV; J618*GEZ;
        (SET); J737=Z; (Y bit);
        DUP; SHL+30; J612*GEZ;
        (SET AR); SHC+30; SHL+1; SHL-1; (erase R); JS411;
       
[Page number  45
        SHC-30; DUP; SETB7777; AND; DUP; CAB; NEV;
        REV; JS603; (reference from P0);
        J610;
        +; JS408; J614;
612;    (SET AY); DUP; SETB77777; AND; DUP; CAB; NEV;
        REV; M3; +; SETB77777; -; SHL+33; SHL-33; +;
        JS408; JS411; J614;
618;    (Fetch/store); J739=Z; (Y-bit);
        SHL+24; SHC+2; ZERO; SHLD+3; REV; SHL-3;
        SHC+10; REV; SHLD+12;
        M3; +; SETB77777; -; SHL+33; SHL-33;
741; SHLD-12;
        REV; SHC-10; SHL+3; REV; SHLD-3; ERASE;
        SHC-2; SHL-24; JS408; JS411; J614;
616;    (Jump/exit);
        JS404; JS409; J742=Z;
        JS411;
        DUP; SETB7777; AND; DUP; CAB; NEV; REV;
        JS603; J610;
        
803;    ZERO; REV; JS446; JS408; J614;
610;    (reference in N1);
        ZERO; V290; JS687; SET4; +;
        JS408; J614;
607;    (EXITAR);
ZERO; V309; JS687;
        SET4; +; JS408; J614;
737;    (SET); SHC+30; SHL+1; SHL-1; SHC-30; (ERASE R);
        JS723; J738; J617;
[Page number  46
        SET4;
738;    (ADDRESS, INST); +; JS408; J614;
739;    (FETCH/STORE);
        JS723; J740; J617;
        SET4;
740;    (ADDRESS, INST); REV; SHC+36; SHL+12; REV; J741;
742;    (Jump/Exit);
        DUP; SHL+32; SHL-44; SET15; -; J743=Z;
901;    JS723; J803; J617;
        SET4; J803;
743;    (EXIT);
        DUP; SHL26; SHL-45; SET2; -; J901*GTZ;
        M9; C9; NEG; SET8; ÷I; ERASE; JS733; J799;
        J617;
799;    (funny, instn); DUP; SETB10; JS727;
        SET4;
        (address, funny, instn); CAB; REV;
        SHL+32; ZERO; SHLD+3; (syllable, word, instn, funny);
        REV; SHL-35; REV; CAB; SHL24; SHC5;
        ZERO; SHLD3; (h, instn, syll, word);
        SET2; NEV; DUP; SHL-1; +; CAB;
        +; DUP; J666=Z;
        DUP; SET3; -; J667=Z;
        ERASE; ZERO; SHLD-3; ERASE;
        SHC-5; SHL-24;
672;    REV; ERASE; REV; (funny, instruction);
        ZERO; SHLD+16; REV; SHL-32; REV; V309;
        JS687; SET4; +; J798;
666;    ERASE; SET2; J669;
[Page number  47
667;    ERASE; ZERO; J669;
669;    (L, instn, word);
        SHLD-3; ERASE; SHC-5; SHL-24;
        (instn, word); DUP; SETB7777; AND; DUP;
CAB; NEV; REV; CAB; +; DUP;
SHL-13; J797*NEZ;
SHC-13; ZERO; SHLD1;
SHL19; REV; SHC12; +; +;
REV; ERASE;
798;     JS408; J614;
797;     ERASE; J672;

611;     V0P24; M7; NEG; -; J634*NEZ;
         V306; M3; FRB; V305; +;
         SETB45; SHL+30; +; DUP; =V331; =V1P3;
         V147; J609*NEZ; E0; SHL42; SHL-45; SET3;
         -; J605=Z;
609;     V183; DUP; J869*NEZ; ERASE;
         SET1 ; SET5; OUT; DUP; =V183;
869;     =C1; SET338; =I1; SET339; =M1;
         V251; =V330; PWQ1; SET240; =M1; I1=+1; PGAPQ1;
605;     Y1; SHL24; SHL-24; DUP; J995=Z;
         V397; M3; CAB; -; J491*GTZ;
995;     ERASE; V147; J838*NEZ;
         E0; SHL39; SHL-45; J838*NEZ;
         V183; DUP; =C1; J597*NEZ; SET1; SET5; OUT; DUP;
         =V183; =RC11;
597;     SET240; =M1; PGAPQ1;
         Y7; =Q5; M5; I5; -; SET16; +; =C5;
[Page number  48
        SETAYD0; =I1;
872;    C5; SET31; -; J870*LEZ;
        I1; SET31; +; =M1;
        PWQ1;
        SET32; =+I1;
        SET-32; =+C5; J872;
870;    C5; I1; +; =M1; PWQ1;
        SET240; =M1; I1=+1; PGAPQ1;
        J838;
118;    (instructions beginning with G);
        SET59; J506; (report failure);
        (end of G);
273;    ZERO; DUP; =V264; JS190; (H entry);
        J179; J511; J500;
120;    (instructions beginning with I);
        JS13;
        J508;
        J503;
        JS53; (check q);
        J504;
        SHA4; PERM; SET59; J149*NE;
        ERASE;V30; NEV; DUP; SHL24; J150*NEZ;
        SHL-24; +; J51; (store INQQ);
150;    V30; NEV; SHL24; J503*NEZ;
        SETB74404; +; J51; (store Iq);
149;    REV; SHL6; +; JS12;
        J502;
        J500;
        PERM; SET59; -; J504*NEZ;
       
[Page number  49
        V35; =Q1; JS21;
        J151;
        +; +; J51; (store IqTOQq IMqTOQq);
151;    SET52; -; J500*NEZ;
        DUP; SET1; -; J152*NEZ;
        ERASE; SETB62000; +; J51; (store Iq=1);
152;    DUP; SET1; +; J153*NEZ;
        ERASE; SETB62400; +; J51; (store Iq=-1);
153;    DUP; SET2; -; J154*NEZ;
        ERASE; SETB63000; +; J51; (store Iq=2);
154;    DUP; SET2; +; J500*NEZ;
        ERASE; SETB63400; +; J51; (store Iq=-2);
        (end of I);
274;    ZERO;
        JS400; =Q1; (buffer Y/R bit);
        (address, terminater, S/R marker);
        REV; SET59; J423=;
        JS12; J501; (unfinished gp., add, S mark);
        J424; (gp ended in a reminder, add S mark);
        ((q number), terminater, group, address, S/R marker);
        JS53; (test q); J425; (failure);
        REV; SET59; J426=;
        JS12;
        J427; J428; J429;
428;    (group, q, c, address, S marker);
        SETB3145; J430=;
        SETB45; J431=;
        V287; DUP; CAB; NEV; SHL+24; J426*NEZ;
        (two syllable short loop jump);
       
[Page number  50
        SHL-24; REV; SHL+4; +; (insert q);
        REV; SET14; -; J501*NEZ; (inst, add, S/R mark);
        REV; ERASE; REV; J503*NEZ; (test S mark);
        J51; (store 2 syllable instruction);
430;    (NZ); SET1; J433;
431;    (Z); ZERO;
433;    SET10; +; SHL20;
        REV; ERASE; (inst, q, c, add, S mark);
        REV; SHL+12; +; REV; SET14; -; J50*NEZ;
        (inst, add, S mark);
        REV; ZERO; REV; JS446;
        REV; J503*NEZ;
434;    Q1; JS63; J52; (store 3 syllable inst);
423;    (Jr or JSr);
        ERASE; (add, S marker);
        V286; REV; ZERO; REV; JS446;
        REV; SHL+13; +; J434;
424;    (V, NV, EN, NEN, EJ, NEJ);
        (TR, NTR, =, *NE, *LEZ, *LTZ, *GTZ, *GEZ, =Z, *NEZ);
        (group, add, S/R marker);
        Q1;
        REV; REVD; CAB;
        V269; =Q1; JS21; J818;
        REV; ZERO; REV; JS446; REV; J500*NEZ;
        REV; JS63;
        J52;
425;    ERASE;
435;    REV; ERASE; SET59; J501=; J504;
427;    ERASE; ERASE; J504;
[Page number  51
429;    ERASE; REV; ERASE; J435;
432;    ERASE;
426;    ERASE;
818;     ERASE; J501;
122;    (instructions beginning with K);
        JS13;
        J508;
        J503;
        PERM; SET59; -; J502*NEZ;
        J503*NEZ;
        DUP; SET4; -; J159*NEZ;
        ERASE; SETB77010; J51; (store K4);
159;    DUP; SET5; -; J160*NEZ;
        ERASE; SETB77004; J51; (store K5);
160;    DUP; SET7; -; J503*NEZ;
        ERASE; SETB77001; J51; (store K7);
        (end of K);
        
123;    (instructions beginning with L);
        JS13;
        J508;
        J197;
        CAB; ZERO; J198=; (label of library subroutine);
        CAB; SET 59; -; J502*NEZ;
        REV; JS53;
        J503;
        SHA 4; REV; DUP; V28; DUP; PERM; NEV; SHL 24; J921*NEZ;
921;    ERASE; V29; DUP; PERM; NEV; SHL24; J500*NEZ;
[Page number  52
        SHL-24; +; J51; (store LPEQQ);
197;    V27; DUP; CAB; NEV; SHL 24; J503*NEZ;
        SHL-24; J51; (store LINK);
198;    ERASE; REV; SET 59; J199*NE;
        ERASE; ZERO; J200;
199;    SET 33; -; J508*NEZ;
        JS3;
        REV; SET 59; -; J502*NEZ;
        SET 1; +;
        
200;    (N1  number of V-stores, N2 number of library subroutine);
        REV; DUP; J500=Z; SET8191; +; REV; JS807; J511;
        
124;    (instructions beginning with M);
        JS25;
        SET44; J203=;
        SET45; J204=;
        DUP; SET9; -; J205*LEZ;
        JS12;
        J508;
        J206;
        PERM; SET59; -; J502*NEZ;
        REV; JS53;
        J500;
        SHL4; REV; V38; =Q1; JS21;
        J207;
        +; J51; (store MBREQq MBRQq MBSKQq MBTQq);
        (METQq MFREQq MFRQq MFSKQq MGAPQq MLBQq);
        (MLEWQq MLWQq MRWDQq MWEQq MWQq);
        
        
       
[Page number  53
207;     V54; J208*NE;
         ERASE; SETB50001; +; J51; (store MANUALQQ);
208;        V55; -; J503*NEZ;
          SETB54004; +; J51; (STOREMWIPEQQ);
206;     V56; =Q1; JS21;
         J503;
         J50; (store MAX MAXF);
203;     ERASE; ZERO; J210;
204;     ERASE; SET256;
210;     JS13;
         J502;
         J500;
         PERM; SET59; -; J504*NEZ;
         SET20; -; J500*NEZ;
         JS53;
         J500;
         SHL4; +; SETB60000; +; J51; (store M+Iq M-Iq);
         (M continued on next sheet);
         (M continued);
205;     JS6;
         REV; SET59; J209*NE;
         ERASE; JS53;
         J503;
         SHL4; SETB74402; +; J51; (store Mq);
209;     REV; JS53;
         J502;
         REV; SET24; J211=;
         JS12;
         J502;
        
[Page number  54
        J500;
        PERM; SET59; -; J504*NEZ;
        V59; -; J500*NEZ;
        JS53;
        J500;
        REV; SHA4; +; SETB64400; +; J51; (store MqTOQq);
211;    ERASE;
212;    (entry from = for =MqMq etc.);
        JS8;
        REV; SET59; J213*NE;
        ERASE; ZERO; J214;
213;    JS12;
        J504;
        J214;
        ERASE; PERM; ERASE; J504;
214;    PERM; JS53;
        J501;
        SHL4; +; REV; V60; =Q1; JS21;
        J503;
        +; J51; (store MqMq MqMqQ MqMqH MqMqQH);
        (MqMqN MqMqQN MqMqHN MqMqQHN);
        (end of m);
125;    (instructions beginning with N);
        V69; JS22;
        J503;
        J50; (store NEG NEGD NEGF NEGDF NEV NOT);
        JS53;
        J504;
        SHA4; PERM; SET59; -; J502*NEZ;
       
[Page number  55
        SET14; -; J503*NEZ;
        SETB61000; +; J51; (store NCq);
        (end of N);
126;    (instructions beginning with O);
        JS13;
        J508;
        J228;
        J504;
228;    SET29; J229=;
        SETB4037; -; J54*NEZ;
        JS62;
        V310; J52; (store OUT);
229;    ERASE; SET9; J50; (store OR);
        (end of O);
127;    (instruction beginning with P);
        JS13;
        J508;
        J230;
        CAB; DUP; J231=Z; (null group);
        CAB; SET59; -; J502*NEZ;
        REV; JS53; (test q);
        J500;
        SHA4; REV; V76; =Q1; JS21;
        J934;
        +; J51; (store PARQQ PGAPQQ PRCEQQ PRCQQ PREQQ);
        (PRQQ PWEQQ PWQQ);
230;    DUP; V88; DUP; CAB; NEV; SHL24; J682*NEZ;
        REV; ERASE; SHL-24; J50; (store PERM);
231;    ERASE; REV; SET59; J232*NE;

       
[Page number  56
        ERASE; ZERO; J233;
        
232;    SET33; -; J508*NEZ;
        JS3;
        REV; SET59; -; J502*NEZ;
        SET1; +; J233;
682;    ERASE;
        V180; J503*NEZ;
        V323; J681=;
        V324; J681=;
        V325; J681=;
        J466; (failure);
681;    C3; SET6; -; J683=Z;
        ZERO; JS55; J681;

683;    SET47; C2; -; J685*NEZ; JS62;
685;    SET46; =RC2; JS46; ZERO; NOT;
        =V180; ERASE; J468;
934;    V373; =Q1; JS21;
J996; +; J51;
996;  V401; =Q1; JS21;
        J500; +; J51; (STORE PIAQQ ETC);
        
233;    (N1 number of V-stores, N2 number of private subroutine);
        JS807; J511;
807;    ZERO; =V146;
        REV; DUP; J817=Z; JS223; J817; J500;
817;    REV;
        M0TOQ4; ZERO; =V326;
        
        
       
[Page number  57
        DUP; SHL-13; J500*NEZ;
        REV; DUP; PERM; J650=Z;
        V261; DUP; J761=Z; (NO PREVIOUS S/R);
        M8; DUP; (new,new,old); CAB; DUP; (old,old,new,new);
        =M8; -; SHL32; SHL-32; Z1M8; +; =Z1M8;
        DUP; =M8; V261; REV; =V261;
654;    PERM;
        =I1; (v); DUP; =C1; (p); (in N2 is old S/R pointer);
        (in N1 is new P number);
653;    C3; SET6; -; J652=Z;
        ZERO; JS55; J653;
        
652;    M3TOQ1; Q1; I1; +; V371; +; =Z0M8Q; J883C8Z;
885;    C2; SHL16; M2; +; SHL16; =Z0M8Q; J884C8Z;
        (new entry completed);
886;    Q3TOQ5; I1; =+M3; I1;
        DUP; NEG; =+C8;
975;    C8; J974*GTZ; JS874; J975;
974;    JS641;
676;             V262; J655=Z; (current level =0);
V262; JS223; J101; ERASE; =V262; ERASE; M1;
        C5; NEG;  NOT; SHA3; NEG; =C5; Q5;
        =V268; (address to stop updating);
=M1; (old s/r pointer);
        Z1M1; =Q5; Z0M1; SHL+16; SHL-32; SHA2;
        SET48; ÷I; SET48; C5; -; +; SET48;
        ÷I; PERM; +; I5; +; =RM10; SET47; -; =C10;
        Z0M1; SHL32; ZERO; SHLD3; SHA3;
        SET40; -; =RC11; SHL-35; V371; -; =M11;
        
   
[Page number  58
        Q11; =V267;
        (set up bit and syllable fetch instructions);
        YB0M2; SHLC2; =YB0M2; (justify bits);
        J659;
883;    JS874; J885;
884;    JS874; J886;
657;    ERASE;
658;    ERASE;
659;    JS402; (syllable); J671; (end of update);
        DUP; SETB300; AND; SHL-6; (Q bits);
        DUP; J657=Z; (single syllable);
        NEG; NOT; DUP; J660*NEZ;
        (two syllable); ERASE; JS405; J659;
        
660;    NEG; NOT; J661=Z;
        (fetch/store/set/);
        JS404; JS409; J658=Z;
        DUP; SHL29; J658*GEZ;
        DUP; SHL30; J658*GEZ; (R bit);
        (SETAR); SHC30; SHL1; SHL-1; SHC-30;
        JS411; (erase bit);
        DUP; SETB7777; AND; DUP; CAB; NEV; REV;
        JS391; J762;
        J670;
762;    +; JS408; J659;
661;    (JUMP / EXIT);
        JS404; JS409; J658=Z;  (JUMPS);
        JS411; DUP; SETB7777; AND; DUP; CAB;
        NEV; REV; JS391; J763; J670;
       
[Page number  59
763;    ZERO; REV;
        JS446; JS408; JS411; J659;

670;    (no reference);
        Z0M1; SHL-32; V290; JS687; SET4; +;
        JS408; J659;
650;    (new p=0); J503*NEZ;
        ZERO; =I1; =C1; V261;
675;    C3; SET6; -; J674=Z;
        ZERO; JS55; J675;
674;    Q3TOQ5; ZERO; J676; (0.V261 -- [ could be lowercase o);

671;    (end of update);
        NC2; YB0M2; SHLC2; =YB0M2; NC2; EXIT1;
655;    =V262; ERASE; EXIT1;

761; ERASE; V266; DUP; =V261; J654;
128;    (instructions beginning with Q);
        JS13;
        J508;
        J503;
        PERM; SET59; J239*NE;
        ERASE; J503*NEZ; JS53; J503;
        SHA4; SETB74416; +; J51; (store Qq);
239;    REV; J502*NEZ;
        REV; JS53;
        J502;
        SHA4; REV; JS12;
        J502;
        
[Page number  60
        J500;
        REV; SET59; -; J504*NEZ;
        REV; V87; DUP; CAB; NEV; SHL24; J501*NEZ;
        SHL-24; REV; JS53;
        J501;
        +; +; J51; (store QqTOQq);
        (end of Q);
129;    (instructions beginning with R);
        JS13;
        J508;
        J680;
        CAB; SET16; J911*NE; ERASE;
        REV; SET59; -; J508*NEZ;
        DUP; M3; -; V371; DUP; J500*LTZ; J271=Z;
        
47;     C3; SET6; -; J270=Z; ZERO; JS55; J47;

270;    V371; -; DUP; M3; -; NOT; NEG;
        DUP; NEG; =+C8;
923;    C8; J922*LEZ;
        =C5; IM3TOQ5;
$888;   ZERO; =Y0M5Q; $J888C5NZS;
        =M3; J511;
922;    JS874; J923;
680;    V89; =Q1;
249;    DUP; M0M1Q; NEV; DUP; SHL12; J248=Z;
        ERASE; J249C1NZ;
        J503;
       
[Page number  61
248;    REV; ERASE; SHL-36; J50; (store REV etc.);
271;    C3; SET6; -; J270=Z; J503;
911;    J912=Z; ERASE; SET59; J503=; J508;
912;    ZERO; =V264;
916;    ZERO; REV; JS551;
        J913=Z; REV; V262; JS393; SET8;
913;    DUP; SHL-13; J914*NEZ;
        JS178; JS220; J179; J511; J500;
914;    ERASE; SET59; J500=; J502;
130;    (instructions beginning with S);
        JS25;
        SET16; J251=;
        JS12;
        J508;
        J250;
        CAB; V127; =Q1; JS21;
        J985;
        CAB; SET59; -; J502*NEZ;
        DUP; PERM; SHC-1; J252*LTZ;
        JS53;
        J500;
        SHA4; +; J51; (store SHACQ SHADCQ SHLCQ SHLDCQ SHCCQ);
252;    SHA41; J502V;
        SHL-40; +; J51; (store SHAN SHADN SHLN SHLDN SHCN);
250;    V138; =Q1; JS21;
        J503;
        J50; (store SIGN SIGNF STAND STR);
251;    ERASE; JS25;
SET31; J502*NE;
[Page number  62
        ERASE; JS8;
        REV; SET59; J253*NE;
        ERASE; SHA32; J550V;
257;    SHL-32; SETB304; SHL16; +; JS62; J52; (store SETn SETBt);
253;    REV; J508*NEZ;
        SET13; J254*NE; (for SETA... see 254 next sheet);
        ERASE; ZERO;
255;    JS25;
        DUP; SET8; -; J256*GEZ;
        REV; SHA3; +; J255;
256;    SET59; -; J508*NEZ;
        SHA31; SHL1; J500V;
        J257;
985;    ERASE; J504;
        (S continued on next sheet);
254;    (SETA); SET12; J508*NE;
        ERASE;
        JS25; SET29; J569*NE;
        J370; (SETAR);
569;    SET33; J375=;
        SET27; J572=;
        SET23; J572=;
        SET1; =V288; JS236; J374; J910; J500;
374;    PERM; +; J504*NEZ;
        CAB; J367=Z;
        ZERO; JS393;
        SET32; J373=;
        SET23; J508*NE;
        ERASE; SET1; J371;
       
[Page number  63
373;    ERASE; SET2; J371;
367;    SET32; J372=;
        SET23; J502*NE;
        ERASE; SHA+1; NOT; NEG; J371;
372;    ERASE; SHA+1;
371;    ZERO; REV;
        SET59; JS25; J504*NE; ERASE;
        
568;    V289; +; JS571; JS63;
910;    ZERO; =V288; J511;
370;    (SETARr); JS400; (Y/R, address, term, S mark);
        DUP; JS63; SHL+17; V289; +; (R marker in SET);
        +; (add in address); REV; SET59; -; J502*NEZ;
        REV; J503*NEZ;
        ZERO; =V288; J52;
572;    JS400; (Y/R, address, t, s);
        CAB; SET59; -; J504*NEZ;
        CAB; J500*NEZ; REV;J568;
375;    JS347; J503; J508;
        SET59; J504*NE;
        ERASE; ERASE;
        ZERO; REV; J568;
        
581;    ERASE;
867;    JS25;
        SET33; J338=;
        SET29; J334=;
        SET27; J335=;
        SET23; J336*NE;
       
[Page number  64
        ERASE; JS3; (l, terminater, add i);
        DUP; SHL-13; J577*NEZ; DUP; JS397;
        SET8192; +;
351;    JS223; J342;
        ERASE;
        Z0M1;
598;    SHL+32; SHL-32; (add 2, terminater,add 1);
349;    PERM; EXIT3;
342;    V291; J343*NEZ; ZERO; PERM; JS393; J348;
343;    CAB; ZERO; CAB; JS344; REV;
348;    SET16; J349;
335;    ERASE; JS3; (p, terminater, add i);
        DUP; SHL-13; J577*NEZ; DUP; J351*NEZ;
        ERASE; YA0; J598;
336;    JS236; J520; J521;
        SET59; J522;
520;    PERM; +; J337*NEZ;
522;    (terminater, add 2, Y/R, add 1);
        REVd; J523=Z;
        CAB; ZERO; JS344; ZERO; CAB; J580;
523;    PERM; J524;
334;    JS400; J534=Z; (add 2, terminater, S, add 1);
        REVD; PERM; REV; (r, add 1, S, terminater);
        V262; JS344; SET8; (add 2, add 1, s, terminater);
        REVD; PERM; REV;
534;    CAB; J535*NEZ; PERM; EXIT3;
535;    ERASE; REV; J294;
521;    ZERO; EXIT1;
577;    ERASE; REV; J294;
[Page number  65
338;    ERASE; (add 1);
347; JS8; REV; (terminator, v, add1) ;
        SET27; J314*NE;
        ERASE; JS3; (p, terminater, v, add 1);
        DUP; SHL-13; J317*NEZ;
324;    CAB; REV; JS350; J318; J321;
        REV;
        (terminater, add 2, add 1);
524;    SET32; J330*NE;
        ERASE; SHA+1;
332;    REV;
        JS25;
331;    EXIT3; (terminater, add 1, add 2);
330;    SET23; J599*NE;
        ERASE; SHA+1; NOT; NEG; J332;
321;    REV; SHL+32; SHL-32; REV; -; REV; J524;
318;    (, v, terminater, add 1);
        V291; J328*NEZ; CAB; REV; JS393; J329;
328;    REVD; REV; REVD; (p, v, add 1, term);
        JS344; REV;
329;    SET4; REV; (terminater, add 2, add 1);
580;    SET32; J333*NE;
        ERASE; SET2; +; J332;
333;    SET23; J599*NE;
        ERASE; NOT; NEG; J332;
599;    CAB; REV; EXIT 3;
314;    SET23; J323=;
        V262; J324;
323;    ERASE; JS25; DUP; SET9; -; J325*GTZ;
[Page number  66
        JS6; (l, terminater, v, add 1);
        DUP; SHL-13; J317*NEZ; DUP; JS397; SET8192; +; J324;
325;    REV; JS354; J101;J575;
576;    (address, terminater, add 1);
        SHA+1; NOT; NEG;
        PERM; EXIT3;
317;    ERASE;
337;    PERM; ERASE;
294;    ERASE;
        SET59; J332*NE; EXIT1;
322;    EXIT2;
575;    REV; SHL+32; SHL-32; REV; -; J576;

131;    (instructions beginning with T);
        JS13;
        J508;
        J246;
        PERM; SET 59; -; J502*NEZ;
         DUP; J247=Z;
        REV; JS53;
        J500;
        SHA 4; REV; V97; =Q1; JS21;
        J500;
        +; J51; (store TLOQq TREQq TRQq TWEQq TWQq);
246;    SETB3215; -; J54*NEZ;
        SET 11; J50; (store TOB);
247;    ERASE; (n);
        DUP; SHL-15; J503*NEZ;
        V289; +; (SETn);
       
[Page number  67
        JS62; JS571; (store SET n);
        SET1; JS397; (put L1 in library list);
        SET8193; JS223; J579;
        ERASE; Z0M1; SHL+32; SHL-32;
578;    (Address);
        ZERO; SHLD+35;
        REV; ZERO; SHLD+1;
        SHL+3; CAB; +; SHL+4;
        SET2061; +; SHLD-36; ERASE;
        JS62; J52;
579;    ZERO; SET16; CAB; JS393; J578;
132;    (instructions beginning with U);
        SET59; J506; (report failure);
        (end of U);
133;    (instructions beginning with V);
        JS25;
        SET29; J356*NE; ERASE;
        JS25; SET59; J508*NE; ERASE; SET1; J50; (store VR);
356;    DUP; SET9; -; J962*LEZ;
        SET44; J962=; SET45; J357*NE;
962;    JS9; REV; (terminater, v);
        SET43; J623*NE; ERASE; DUP; JS8;
        CAB; -; DUP; JP17*LTZ; PERM;
        -; JP17*NEZ; JP18;
623;    SET52; J358*NE; ERASE; JS25;
        SETB33; J624*NE; ERASE; ZERO; REV; JP18;
624;    SETB16; J359*NE; ERASE;
        ZERO;
       
[Page number  68
320;    JS26; SET28; J360=;
        REV; ZERO; SHLD+6; J299*NEZ;
        +; J320;
360;    ERASE;
        REV;
        JS354; J101; J501; V371; -;
364;    JS696;
        =M1;
        Y0M1; J503*NEZ; =Y0M1; J511;
357;    SET59; J503=; J508;

359;    SET 28; J279*NE;
        ERASE; (v); DUP; SET 1; =V291;
        JS354; J101; J504; V371; -;
        (add1, v); JS531; J500; J501;
        (terminator ; add1, add2, v);
        SET 43; J526*NE; ERASE;
        ZERO; JS527; J504;
        (add1,v);
        JS531; J500; J501;
        SET 43; J526*NE; ERASE;
        SET 16; JS527; J504;
        (add1, v);
        JS531; J500; J501;
        SET 59; J299*NE; ERASE;
        SET 32; JS527; J501;
        ERASE; ERASE; ZERO; =V291; J511;
        
527;    (N1=0, 16, or32(c, i, m));
[Page number  69
        (N2=add1, N3=add2, N4=v);
        =C1; =M5; (add2, v);
        Y0M5; DUP; SHLC1; SHL-32;
        J530*NEZ; REV; ZERO; SHLD+32; J530*NEZ; NC1; SHLC1;
        +; =Y0M5; (v);
        V32; J529=Z;
        C1; NEG; SHL-4; DUP; SET5; REV;
        -; DUP; J634*LTZ; JS516; (STORE FUNNY);
        SET 2; REV; -; =C1;
        SET 1; SHLC1; SET 8; +;
        REV; DUP; PERM; JS361; (store bits);
529;    M5; EXIT 2; (add1, v);
530;    EXIT1;
293;    ERASE;
        ERASE;
300;    ERASE; J501;
279;    SET13; J355*NE;
        JS99; J299;
        SET43; J353*NE; ERASE;
        JS8; SET47; REV; -; =C1;
        REV; DUP; J297=Z;
        C1; DUP; ABS; SET 48; -; J697*GTZ; J698*LTZ;
        ZERO; SHLDC1; J352*NEZ;
297;    REV;
353;    SET59; J504*NE; J360;
355;    SET17; J280*NE;
        ERASE; JS66; J500; J502;
        ROUNDF;
        J297;
[Page number  70
280;    SET12; J281=;
        JS67; J500; J502;
        REV; SET43; J282*NE;
        ERASE; JS8; SET47; +; (s, terminater, integral places, z, v);
        J283;
282;    SET94;
283;    CAB; REV; -; =C1; JS183; CONT; REV;
        SET59; J504*NE; J501V; J360;
697;    ERASE;
352;    ERASE;
285;    SET59; J500=; J502;
698;    ZERO; REV; SHLDC1; REV; J352*NEZ; J297;
358;    SET15; J284*NE;
        ERASE;
        JS25; SET52; J285*NE;
        ERASE;
        JS25; SET52; J285*NE;
        ERASE;
        JS25; SET17; J286*NE;
        ERASE; JS66; J500; J502;
        
290;    CAB; SET59; J287=;
299;    ERASE; J504;
286;    JS67; J500; J502;
        REV; SET43; J288*NE;
        ERASE; JS8; J289;
288;    SET94;
289;    CAB; REV; -; =C1; JS183; J290;
287;    J300V; ERASE; CAB;
        JS354; J101; J300; V371; -;
        JS696;
       
[Page number  71
        =M1;
        Y0M1; J500*NEZ; =Y0M1;
        Y1M1; J503*NEZ; =Y1M1; J511;
295;    SET12; J301=;
        SET17; J302*NE; ERASE;
        JS66; J501; J504;
        REV; ERASE; ROUNDHF; J559;
302;    JS67; J501; J504;
        REV; SET43; J304*NE;
        ERASE; JS8; SET71; +; J305;
304;    SET94;
305;    CAB; REV; -; =C1; JS183;
        CONT; REV;
        SET59; -; J504*NEZ; SHA+24; J501V; J306;
        
284;    SET32; J291*NE;
        ERASE; ZERO; REV; (v, U/L marker);
        JS25; SET52; J292*NE;
309;    ERASE;
327;    JS25; SET13; J295*NE;
        JS99; J299;
        SET43; J296*NE; ERASE; (integer, v, U/L);
        JS8; SET23; REV; -; =C1;
        (terminator, integer,v, U/L);(shift in C1);
        REV; DUP; J303=Z;
        C1; DUP; ABS; SET24; -;
        J594*GTZ; J595*LTZ;
        ZERO; SHLDC1; J298*NEZ;
303;    ZERO; SHLD+24; J298*NEZ;
[Page number  72
559;    REV; SET59; J299*NE;
        ERASE; J501V;
306;    PERM; JS354; J101; J300;
        V371; -;
365;    JS696;
        =M1; Y0M1; DUP; CAB; J590=Z;
        SHL+24; J500*NEZ; REV; SHL-24;
591;    +; =Y0M1; J511;
590;    SHL-24; J500*NEZ; REV; SHL-24; SHL+24; J591;
528;    PERM; ERASE; ERASE;
526;    REV; ERASE;
292;    SET59; J501=; J504;
298;    ERASE; J292;
595;    ZERO; REV; SHLDC1; REV; J298*NEZ;
        J303;
594;    ERASE; ERASE; J292;

296;    REV; J303;
291;    SET23; J307*NE;
        ERASE;
        JS25; SET52; J308*NE;
        ERASE; SET1; REV; J327;
        
307;    ZERO; =V264;
533;    SET27; J310*NE; ERASE;
        JS3; (p, terminater, v);
        DUP; SHL-13; J352*NEZ;
316;    CAB; REV; JS350; J311; J312;
315;    ZERO; PERM; JS178; (O, or terminater, Q, q, address, Y/R);

[Page number  73
        JS220; J313; J319; J500;
319;    ZERO; =V264; J511;
312;    REV; SHL+32; SHL-32; REV; -; J315;
311;    CAB; REV; JS393;
        SET4; J315;
310;    V262; J316;
313;    ERASE; J299;
308;    (1st digit of l in N1, v in N2);
        JS6; (l, terminater, v);
        DUP; SHL-13; J352*NEZ; DUP; JS397; SET8192; +; J316;
281;    ERASE; DUP; (V,V); JS354; J101; J504; SET1;
        =V291; V371; -;
        JS867; J500; J502;
        (terminater, add 1, add 2, v);
        SET59; J299*NE;
        ERASE; V32; J514=Z;
        =M1; Y0M1; J500*NEZ; =Y0M1;
        ZERO; JS516;
        SET1; REV; JS361; ZERO; =V291; J511;
514;    CAB; ERASE;

540;    ZERO; =V291; J364;

301;    ERASE; DUP; JS354; J101; J299; V371; -;
        SET 1; =V291;
        JS867; J501; J504;
        (terminator, add 1, add 2, v, U/L);
        SET 59; J299*NE;
        ERASE; (add 1, add 2, v, U/L);
       
[Page number  74
        V32; J215=Z;
        =M1; CAB; J345=Z;
        Y0M1; DUP; SHL+24; J501*NEZ;
        +;
        =Y0M1;
        SET 2; REV; JS361;
        SET1;
573;    JS516; ZERO; =V291; J511;
345;    Y0M1; DUP; SHL-24; J501*NEZ;
        REV; SHL+24; +; =Y0M1;
        SET 4; REV; JS361;
        SET2; J573;
515;    REV; SHL+24; CAB; ERASE;

585;    PERM; ZERO; =V291; J365;

361;    YB0M2; SHLC2; =YB0M2; SHA2;
        V262; (Current p number);
        J362*NEZ;
        YA1;
        
570;    DUP; SHL+16; SHL-32;
        REV; SHL-32; SET 48; REV; -;
        (bit no, word no, 4 v, bits);
        CAB; +; SET48; ÷I; PERM; +; =M1; NEG; =C1;
        SHL44; ZERO; REV;
        SHLDC1; YB0M1; OR; =YB0M1;
        YB1M1; OR; =YB1M1; NC2; YB0M2; SHLC2; =YB0M2; NC2;  EXIT1;
362;    V262; JS223; J101; ERASE; Z1M1; J570;
[Page number  75
99;     (Read octal integer);
        ERASE; ZERO;
97;     JS25; DUP; SET7; -; J98*GTZ;
        REV; ZERO; SHLD+3; J96*NEZ; +; J97;
98;     EXIT2; (terminater, integer);
96;     EXIT1; (failure - too many digits. 3 cells - no ISS);

66;     (floating point entry);
        JS25; I1=+1; J71;
67;     (fixed point entry);
        I0TOQ1;
71;     C0TOQ1;
        SET44; J68*NE;
        ERASE; ZERO; J69;
68;     SET45; J69=; ZERO; J70;
69;     JS25; REV;
70;     =M1;
        DUP; SET9; -; J72*GTZ;
        ZERO; ZERO;
75;     JS945; JS25; DUP; SET9; -; J76*GTZ;
        J73C1Z;
90;     DC1;
73;     ZERO; ZERO; JS947; JS946; J948;
        JS942; J74; JS947; ERASE; ERASE;
        ERASE; J75;
76;     SET11; J77*NE;
        ERASE; J78C1NZ;
80;     DC1; JS25; DUP; SET9;
        -; J90*LEZ;
        
       
[Page number  76
82;     SET59; J78*NE; EXIT1;
78;     EXIT2;
72;     SET11; J79*NE; ERASE; ZERO; DUP; DUPD; DUPD; J80;
77;     =Q5; ERASE; ERASE; ERASE; Q5;
83;     J87C1Z; SET1; =+C1;
87;     SET10; J81*NE; ERASE;
        JS8;
        JS9;
79;     SET10; J82*NE;ERASE;
        SET1; ZERO; ZERO; JS8; J89;
948;    ERASE; ERASE; ERASE;
74;     ERASE; ERASE; ERASE; SET1;
84;     JS25; DUP; SET9; -; J88*GTZ;
        ERASE; J84C1NZ; NOT; NEG; J84;
88;     SET11; J85*NE; ERASE; J78C1NZ; DC1; J84;
85;     REV; J86C1Z; NOT; NEG;
86;     =+C1; J87;
81;     ZERO;
89;     =+C1; REV; REVD; CAB; C1;
        J949*GTZ;
277;    SET141; =C9;
        DUP; J950*NEZ; PERM; SET-47; =+C9;
950;    DUPD; ZERO; FLOATD; FIX; DUP; =+C9;
        NEG; =C5; ERASE; ERASE;
        JS940; J101; J94C1NZ;
278;    CAB; ERASE;
        M1; J593=Z; NEGD;
593;    CAB; C9; I1; J592=Z;
        REVD; CAB; FLOATD; J91V;
[Page number  77
592;    EXIT3;
951;    ERASE;
91;     ERASE; ERASE; J82;
949;
92;     JS946; J951; DC1; J92C1NZ; J277;
94;     NC1; C9;
95;     SET-3; +; REV; REVD;
        REV; DUP; =Q5;
        V328; xD; =Q9; ERASE;
        Q5; V308; xD;
        Q9; ZERO; +D; JS583;
        CAB; DUP; REVD; CAB;
        V328; xD; +D; JS866;
        REV; ERASE; Q9;
        Q5; V307; xD; +D; JS583;
        CAB; DUP; =Q5;
        V308; xD; +D; JS866;
        CAB; DUP; REVD; CAB;
        V328; xD; +D; JS866;
        REV; ERASE; Q9;
        Q5; V307; xD; +D; JS583;
        CAB; DUP; =Q5;
        V308; xD; +D; JS866; Q9;
        Q5; V307; xD; +D;
        DUP; SHA+1; ERASE; Q0TOQ9; J93V; SET1; =C5; JS940; J101;
        ZERO; NOT; =Q9;
93;     DC1; REVD; REV; REVD; CAB;
        Q9; +; J95C1NZ; =C9; J278;
583;    ZERO; =Q9;
[Page number  78
866;    J518NV; SET1; =+Q9; SHL+1; SHL-1;
518;    EXIT1;

940;    (triple length arithmetic shift n places);
        (n*GE0 in C5);
        REV; DUP; CAB; SHADC5; REV;
        ERASE; J941V; PERM; SHADC5; SHL+1; SHL-1;
        CAB; VR; EXIT2;
941;    EXIT1;

942;    (add two triple length numbers);
        =Q5; CAB; =Q9; +D; SHL+1; SHL-1;
        ZERO; J943NV; NOT; NEG;
943;    Q5; +; Q9; +; J944V;
        EXIT2;
944;    EXIT1;

945;    (duplicate triple length number);
        =Q5; DUPD; Q5; PERM; Q5;
        EXIT1;
946;    (multiply triple length number by 10);
        SET1; =C5; JS940; EXIT1;
        JS945; SET2; =C5; JS940; J960;
        J942;
960;    ERASE; ERASE; ERASE; EXIT1;

947;    (reverse two triple length numbers);
        =Q5; CAB; =Q9; REVD; Q5;
       
[Page number  79
        PERM; Q9; EXIT1;
354;    V262; (fetch current P number);
350;    (p, v);
        DUP; J339*NEZ;
        ERASE; YA0;
340;    DUP; SHL+16; SHL-32;
        CAB; -; DUP; J341*LEZ;
        REV; SHL+32; SHL-32; REV; -; EXIT3; (Address);
339;    JS223; EXIT1; (P not present. N1=p, N2=v);
        ERASE; Z0M1; J340;
341;    EXIT2; (v too big, N1=v-length of V stores);
        (N2=first word of S/R description);
        
531;    (Read c, i or m);
        JS25; SET 12; J581=;
        SET 13; J532*NE;
        JS99; J525; CAB; REV; EXIT 3;
525;    ERASE; ERASE; ERASE; EXIT 2;
532;    JS9; SHA32; J294V; SHL-32; PERM; EXIT 3;
344;    SHL+16; +; SHL+16;
        REV; DUP; PERM; +; =V32; EXIT1;
516;    SHA13; V32; +;
        =Z0M7Q; ZERO; =V32;
        J565C7Z; EXIT1;
        
183;    PERM; J567C1Z; C1; J566*LTZ; SHADC1;
567;    EXIT1;
566;    NC1; DC1; NC1; SHADC1;
        SET1; ZERO; +D; SHAD-1; EXIT1;
       
[Page number  80
134;    ZERO; DUP; =V264; (set fetch);
        JS216; (W entry); J179; J511; J500;
135;    (instructions beginning with X);
        SET59; J506; (report failure);
        (end of X);
136;    (Y); (main tree);
        ZERO; DUP; =V264; JS234; (Y entry);
        J179; J511; J500;
137;    (main tree);
        (2); ZERO; =V264; ZERO; JS188;
        J179; J511; J500;
142;    (instructions beginning with +);
        ERASE; SET-12;
258;    =C5; V103; JS22;
        J503;
        J259;
        J504;
259;    SHLC5; J50C5NZ; (store + +D +F +DF);
        SHL36; SHL-36; J50; (store - -D -F -DF);
        (end of +);
143;    ERASE; ZERO; J258;
        (end of -);
140;    (instructions beginning with =);
        ERASE; JS25;
        SET24; J170*NE; (M);
        ERASE; JS8;
        REV; SET59; J171*NE;
        ERASE; JS53;
       
[Page number  81
        J503;
        SHL4; SETB74002; +; J51; (store =MQ);
171;    SET24; -; J508*NEZ;
        JS53;
        J508;
        SET256; +; J212; (store =MqMq +MqMqQ =MqMqH =MqMqQH);
        (=MqMqN =MqMqQN =MqMqHN =MqMqHN);
170;    SET22; J172*NE; (K);
        ERASE; JS3;
        REV; SET59; -; J508*NEZ;
        DUP; SET4; -; J503*GEZ;
        =C1; SETB76400; SET128; NC1; SHLC1; +; J51; (store =Kk);
172;    SET23; J173*NE; (L);
        ERASE; JS13;
        J508;
        J174;
        J504;
174;    V96; -; J54*NEZ;
        SETB76000; J51; (store =LINK);
173;    SET44; J175=; (+);
        SET29; J175=; (R);
        SET28; J175=; (Q);
        SET14; J175=; (C);
        SET33; J548=; (V);
        SET20; J176*NE; (I);
175;    JS12;
        J508;
        J503; CAB; SET29; J915=; CAB;
        SET59; -; J502*NEZ;
       
[Page number  82
        REV; JS53;
        J500;
        SHL4; REV; V115; =Q1; JS21;
        J500;
        +; J51; (storE =+Qq =+Cq =+Iq =+Mq =RCq =RIq);
        (=RMq =Qq =Cq =Iq);
176;    SET31; J177*NE; (T);
        ERASE; JS25;
        JS25;
        SET59; -; J508*NEZ;
        SET29; -; J54*NEZ;
        SET2; J50; (store =TR);
177;    SET1; =V264; JS236; J179; J511; J500;
548;    ERASE;
JS8; (v, terimator);
        SET1; =V264;
        REV; SET23; J533*NE;
        ERASE; JS25; J308;
915;    ERASE; SET1; =V264; J916;
144;    (instructions beginning with *);
        ERASE; JS25;
        SET59; j260*NE;
        ERASE; SET29; J50; (store *);
260;    SET17; J261*NE;
        ERASE; JS25;
        SET59; J508*NE;
        ERASE; SET4; J50; (store *F);
261;    SET15; J262*NE;
        ERASE; JS25;
       
[Page number  83
        SET59; J263*NE;
        ERASE; SET28; J50; (store *D);
263;    SET17; J508*NE;
        ERASE; JS25;
        SET59; J508*NE;
        ERASE; SET5; J50; (store *DF);
262;    SET44; J508*NE;
        ERASE; JS8;
        REV; SET59; J264*NE;
        ERASE; SHA40; J503V;
        SHL1; SHL-40; SETB71401; +; J51; (store *+n);
264;    REV; J508*NEZ;
        SET17; J265*NE;
        ERASE; JS25;
        SET59; J508*NE;
        ERASE; SET7; J50; (store *+F);
265;    SET14; J503*NE;
        ERASE; JS8;
        REV; SET59; J502*NE;
        ERASE; JS53;
        J503;
        SHL4; SETB71400; +; J51; (store *+Cq);
        (end of *);
145;    (instructions beginning with *DIV);
        ERASE; V108; JS22;
        J503;
        J50; (store / /F /D /I /R);
        J504;
        (end of /);
       
[Page number  84
141;    (comment);
        SET1; =RC1;
498;    ERASE; JS25;
        SET40; J508=;
        SET55; J499*NE;
        NC1; DC1; NC1; J498;
499;    SET56; J498*NE;
        DC1; J498C1NZ;
        ERASE; SET59;
497;    JS25; J651*NE;
        ERASE; J511;
651;    J508;
        (end of comment);
        
139;    (asterisk);
        C3; SET6; -; J758=Z;
        SET15; JS55; J139;
758;    ERASE; J511;
       (end of asterisk);
       
       
565;   (MOVE S/R DESCRIPTION DOWN);
       Q10; C8; SET32; -;
       DUP; J550*LEZ; =C8;
       SET32;
561;   DUP; =C7; NEG; DUP;
       V266; +; =V266; V261; DUPD; J930=Z; +; =V261;
       M7; M8; -; =C9;
       M8TOQ10; =+M8; M8TOQ9; I9=+1; I10=+1;
       
[Page number  85
        M+I9; M+I10;
$547;   Z0M10Q; =Z0M9Q; $J547C9NZS;
931;    V368; J873;
550;    ERASE; DC8; J269C8Z;
        SET1; J561;
930;    ERASE; ERASE; =+M8; J931;

873;    =V332; V366; =V330; V367; =V331;
        SET338; =I9; SET340; =M9;
        V183; DUP; J871*NEZ;
        ERASE;
        SET1; SET5; OUT; DUP; =V183;
871;    =C9; PWQ9;
        =Q10; EXIT1;
        
874;    (MOVE S/R DECSRIPTION UP);
        Q10; C7; SET32; -; DUP; J875*LEZ; =C7;
        SET32;
876;    DUP; =+C8; DUP;
        V266; DUPD; +;
        DUPD; =V266; =M9; =M10;
        M8; -; =C9; DUP; =+M8;
        V261; DUP; J932=Z; +; =V261;
        I9=-1; I10=-1;
$877;   Z0M9Q; =Z0M10Q; $J877C9NZS;
        I9=+1; M+I9; =C9;
$961;   ZERO; =Z0M9Q; $J961C9NZS;
933;    V369; J873;
875;    ERASE; DC7; J269C7Z;

[Page number  86
         SET1; J876;
932;     ERASE; ERASE; ERASE; J933;
696;     EXIT1;
851; ERASE;
952;     BUSYQ1; J952TR;
J852;


937;    ERASE; J868;
838;    V147; J847=Z; V421; J868=Z;
847;    E0; SHL42; SHL-45;
936;    SET1; J938=;
        SET3; J851*NE;
        V183; DUP; J928=Z;
        SET6;OUT; ZERO;
928;    ERASE; SET5; OUT; DUP;
        =V2P2; =C1; ZERO; =V183;
        V372; =Q10; C1TOQ10;
        SET6; =RC9; I10; =M9;
        JSP1; ZERO; =M0M9Q;
        ZERO; =M0M9Q; E7; =M0M9Q;
$971;   ZERO; =M0M9Q; $J971C9NZS;
        V157; V156; SHLD+24; =M0M9Q; =M0M9Q;
        ZERO; =M0M9Q;
        V394; =M0M9Q; V395; =M0M9Q;
        SET2; =M0M9Q; PWQ10;
        JS1P1; JS1P1;
        ZERO; SET15; J935;
938;    SET16;
935;    =C3; =C2;
[Page number  87
        SET338; DUP; =I10; =M9;
        SET354; =I11;
        C3; NEG; NOT; =M10; M10TOQ11;
        M+I10; M+I11; C1TOQ10; C1TOQ11;
        JSP3;
        Q11; C3TOQ9;
        SETAYB-1; SETAYA3; -; SET3; xD;
        CONT; NOT; NEG; =M3;
        SET1;
        YA0; SHL+32; SHL-32;
        JS820;
        SETB60; SHL24; SETB20; +;
        J967C2Z; SET7; SHL36; +;
967;    JS821;
828;    DUP; JS603; J823;
        JS820;
        REV; DUP; PERM;
        JS824; JS821; J827;
823;    ERASE;
827;    NOT; NEG; DUP;
        M3; -; J828*NEZ; JS968; ERASE;
        V266; =M1; M1TOQ11;
        Z0M1; DUP; J829=Z;
835;    DUP; SHL+32; SHL-32; JS820;
        REV; SHL-32;
        DUP; SET8192; -; DUP; J831*GEZ;
        ERASE; JS824; SETB60;
832;    SHL+24; +; SET1;
        PERM; JS964;
[Page number  88
833;    DUP; M11TOQ1; JS391; J830;
        ERASE;
834;    NOT; NEG; DUP; SHL-8; J833=Z; JS968; ERASE;
        Z1M11; SHL+32; SHL-32; DUP; J829=Z;
        =+M11; Z0M11; J835;
831;    REV; ERASE; JS824; SETB54; J832;
830;    JS820; REV; DUP; PERM;
        JS824; JS821; J834;
829;    ERASE; ERASE;
837;    SET240; =M10; J939C2Z;
        PGAPQ10; J970;
939;    SET2; =M0M9; M9TOQ10; PWQ10;
970;    C10TOQ1;
977; BUSY Q10; J977TR;
852; E0; SHL45; SHL-45; J868=Z;
V147; J868*NEZ;
        JSP2;
        Y1; ZERO; SHLD24; SHL24;
        E1; SHL-24; CAB; REV; SHLD-24; ERASE;
        =Y1;
        SET8;=RC1;
$980;   Y0M1; =M0M1Q; $J980C1NZS;
        E7; =Q1; I1; =RM2; M1; I1; -; NOT; NEG; =C2;
        ZERO; =RM3;
        R981; =E6; R982; =E7; E6; =E6;
         SET2; JE6;
$981;   Y8M3Q; =M0M2Q;
$982;   J981C2NZS; OUT;
820;    (convert address to octal);
[Page number  89
        ZERO; SHLD+35; SET16; +;
        V320; CAB; SHL-35; FRB;
        V305; +;
        SHL+12; +; EXIT1;
        
821;    (punch or print);
        (normal entry);
        SHL+6; J841C2NZ; SET63;
965;    SHL42; =M0M9Q; SHLD+6; =M0M9Q;
        C9; NEG; NOT; J840=Z;
        =M0M9Q; EXIT1;
840;    SET2; +; =M0M9Q;
836;    PWQ10; Q10;
966;    CAB; =Q10; REV;
        I10; =M9; C3TOQ9;
822;    EXIT1;
841;    SET2; SHL+36; +; =M0M9Q; =M0M9Q;
        J822C9NZ; J836;
        
964;    (new subroutine entry);
        SHL+6; SET 2; J984C2NZ; ERASE; SET63;
        JS1P1; J965;
984;
        SHL+42; +; J841;
        
968;    (punch last buffer);
        C9; C3; -; J822=Z; Q10;
        M9; NEG; NOT; =M10;
        J969C2NZ; M-I9; M0M9; SET2; +; =M0M9;
       
[Page number  90
969;    PWQ10; J966;

824;    (convert to decimal);
        V306; REv; FRB;
        SET8; =C1; ZERO;
825;    SHLD+6; DUP; J826=Z; SET16; +;
826;    DC1; J825C1NZ;
        REV; ERASE; EXIT1;

P1V1;
        V1=Q0/AV0/AV0;
        SET3; J2;
1;      SET2;
2;      =V0; Q10; C10; V1; =Q10;
        =C10; PWQ10; =Q10; EXIT 1;
P2V12;  (V0=RUN TIME RECORD
        V1=ELAPSED
        V2=DEV NO PF LP);
        V3=B1720202055202063;
        V8=B62415617455477;
        V11=Q0/AV4/AV10;
        V12=B77464151546300;
        V183P0; DUP; J7=Z; DUP; =C1; MANUALQ1;
        SET6; OUT; ZERO;
7;      ERASE; V2; DUP; J8=Z; SET6; OUT; ZERO;
8;      ERASE; C13; SET6; OUT;
9;      ZERO; DUP; =V2; =V183P0;
        V156P0; SHL24; SHA-24; =V5;
        ZERO; =V4; V157P0; =V6; V147P0; J5=Z; V12; J6;
5;      SETB175753; SHL12; SHC-6;

[Page number  91
6;      =V7; JS2; V0; JS3; =V9; V1; JS3; =V10;
        V11; SET8; OUT; EXIT1;
1;      (INITIAL ENTRY);
        ZERO; DUP; =V0; =V1;
2;      SET3; OUT; V0; -; =V0;
        SET9; OUT; V1; -; =V1;
        EXIT1;
3;      SHA-24; SET60; ÷I; JS4; SHL6; REV;
        JS4; SHL24; OR; V3; OR; EXIT1;
4;      V306P0; REV; FRB; EXIT1;

P3V2;   (Y SPEC);
        V0=B7100636045437777;
        V2=Q0/AV0/AV1;
        Q10; C10; V2; =Q10; =C10;
        PWQ10; =Q10; JS1P1; J1P1;
P11V2;  V0=B1213535455750000;
        V1=B3337173536000000;
        V2=0; (LAST CHAR OFF PT);
        JS7; EXIT1; (S.COLON); SET38; J2*NE;
        ERASE; EXIT2; (STR QTE);
2;      DUP; SET9; -; J3*GTZ; SETB20;
        OR; EXIT3; (P/CODE CHAR);
3;      DUP; SET12; -; J4*LTZ; DUP;
        SET37; -; J4*LTZ; SET21; +; EXIT3;
4;      V1; REV; V0; JS5; EXIT3;
5;      ZERO; SHLD6; CAB; REV; J6=;
        REV; CAB; SHL6; PERM; DUP;
        JP17=Z; J5;
       
[Page number  92
6;      ERASE; ERASE; SHL-42; EXIT1;
7;      JS10; EXIT1; SET57; J11*NE;
13;     ERASE; JS10; J501P0; SET57;
        J13=; SETB60; J12=;
        SETB61; JP17*NE;
12;     SET12; -;
11;     EXIT2;
10;     JS25P0; SET59; J8*NE; ERASE;V2;
        NEG; NOT; NEG; NOT; J10=Z;
        EXIT1;
8;      EXIT2;
P17;
1;      J3EN; ERASE; J1;
2;      J3EJ; LINK; ERASE; J2;
3;      JS7P11; J501P0; ERASE; J3;
P18V1;
        V0=8;
        V1=0;
        DUP; ZERO; SET8; =V0;
1;      JSP11; J12; JP19; JS10; J1;
10;     REV; SHL6; OR; V0; NEG;
        NOT; DUP; =V0; J11*NEZ; SET8;
        =V0; REV; JS354P0; J101P0; J14;
        V371P0; -; =M1; Y0M1; J14*NEZ;
        PERM; NOT; NEG; REV; DUP;
        J14*LTZ; NEG; NOT; REV; CAB;
        =Y0M1; DUP; ZERO; DUP; =V1;
11;     EXIT1;
14;     V1; JP17=Z; ZERO; =V1; J501P0;
[Page number  93
12;      SET1; =V1;
13;      V0; SET8; -; J15=Z; ZERO;
         JS10; J13;
15;      J265P0EN; ERASE; J15;
P19V2;   (V0=U CHAR/L NUMBER);
         V1=B1636333731303417;
         V2=B0200030407753477;
2;       JSP20; SHA+39; JP17V; SHL-39; REV;
         SET39; J1=; SETB20; J5*NE; ERASE;
         JS7P11; J501P0; SETB30; JP17*NE;
5;       V2; REV; V1; JS5P11; SHL24;
         OR; J6;
4;       V0;
6;       DUP; DUP; SHL24; J3=Z; NEG;
         NOT; =V0; SHL-24; JS10P18; J4;
3;       ERASE; ERASE; J2;
1;       ERASE; NEG; NOT; JP17*NEZ; J1P18;
P20;     ZERO;
3;       JS7P11; J501P0;
2;       DUP; SET9; -; J1*GTZ; REV;
         DUP; SHA+2; +; SHA+1; +; J3;
1;       REV; DUP; J4*NEZ; NOT; NEG;
4;       EXIT1;
P24V0;   (V0=NO OF FUNNIES);
         M7; NOT; DUP; =RC1; DUP; NEG; =M1; DUP;
         =V0; =RC7; SETAZ1; =M7;
         J7C7NZ; ZERO; NOT; =RI7; EXIT1;
7;       Z0M1; SHC-16; ZERO; SHLD+3; SET5; REV; -; DUP;
         J634P0*LTZ; REV; ZERO; SHLD13; SHL+3; OR; OR;
        
[Page number  94
        =Z0M1Q; J7C1NZ;
        (NOW SHELL SORT);
        I4=-1; C7;
1;      SHL-1; DUP; SHL-3; J2=Z; SHL-1;
2;      DUP; J6*NEZ; ERASE; V0; =RC7; I7=-1; EXIT1;
6;      SET1; OR; DUP; DUPD;
        M7TOQ5; NEG; =+M5; =I1;
        C7; -; M0TOQ4;
3;      M4TOQ1; M5M1;
4;      M7M1; DUPD; ZERO; NOT; SHL-32; DUP;
        PERM; AND; PERM; AND; SIGN; J5*LEZ;
        =M5M1Q; M1; J4*LEZ; ZERO;
5;      ERASE; =M5M1; M+I4; M4; J3*NE;
        ERASE; J1;
        FINISH;
   
|
|