Kidsgrove Algol Compiler - Brick 22

This assembler listing has hot links for all references to P-routines.

You can click on the routine number in code such as JS16P295; or V0P299; and jump to the routine. When you have seen enough of it, you can use the back button to carry on where you left off.
The original source was in the form of a single PDF file for each brick. Here is the PDF file for brick 22.
Hot links to images of individual pages are embedded in the text.

Loaded 33839 bytes for KAB22.txt
Relocated 15
Finished
Reached end of file


=============== Second pass
===========================


   5221  W0 = E2705
   7240  Y0 = E3744
   5221 YC0 = E2705
   5227 YD0 = E2711
   5240 YY0 = E2720
   6240 YZ0 = E3232
  10624  H0 = E4500


    0/0: 200 266 125                                                   [ original source of the next page

                                                                       ST11104; TL 3600;
                                                                       START 1600;
                                                                       H0 = E 4500;
                                                                       V   20;
                                                                       YC   5;
                                                                       YD   8;
                                                                       YY  511;
                                                                       YZ  511;
    4/0: 205 266 135|205 266 135                                       RESTART; J   3; J   3;
                                                                       PROGRAM;

 3125/0: 200 327 066                                                   9;      JSP260;         [ flow chart page no info on V-stores and Z-stores on entry and exit of P260
 3125/3: 200 331 051                                                   1;      JSP270;
 3126/0: 304 010 004|200 320 106|200 266 130|200 266 131                     SETB4004; JSE70; J5; J2;
 3130/0: 304 041 112|200 326 264                                       5;      SET8522; JSP7;
 3131/0: 320 013 071|164 013|222 046 133                               2;      Z38; SHL+5; J6<Z;
 3132/2: 304 005 026|205 266 133                                             SETB2426; J7;
 3133/2: 304 005 020                                                   6;      SETB2420;
 3133/5: 170 364|304 336 010                                           7;      =I15; SETB157010;
 3134/4: 170 362|171 376|200 260 106                                         =M15; Q15; JE70;
 3135/5: 320 013 070|225 046 137|304 013 006|200 326 264               3;      Z39; J4<Z; SET2822; JSP7;
 3137/5: 304 336 010|170 362|304 006 125                               4;      SETB157010; =M15; SETB3125;
 3141/1: 170 364|171 376|200 260 106                                         =I15; Q15; JE70;

=== Start P2V8; at address 1644/3154
V-store at 03143 = 014 240 015 237 000 000                             P2V8;      V0=QAYZ0/AYZ255/0; (BUFFER 1);
V-store at 03144 = 015 240 016 237 000 000                                   V1=QAYZ256/AYZ511/0; (BUFFER 2);
V-store at 03147 = 242 104 243 304 140 004                                   V4=B5044224361060004; (F/B/C);
V-store at 03150 = 000 000 000 000 340 004                                   V5=B160004; (TRANSFER);
V-store at 03151 = 000 000 000 000 110 004                                   V6=B44004; (CBN);
V-store at 03153 = 000 000 000 000 152 004                                   V8=B65004; (SKIP TO BLOCK N);
 3154/0: 300 006 145                                                         V2; (FETCH NEXT WORD NORMAL ENTRY);
 3154/3: 170 376|240 366 167                                           10;      =Q15; J7C15Z;
 3155/2: 102 360|171 376                                                     M0M15Q; Q15; [ when this is used by P260 the first word read from d-list is end prog I15 is +1 - hux
                                                                                [ David Ho, if you do the trace you will see that C15 is 0376 - I question this - see page 11 of
                                                                                [ the documentation - which I interpret as being the number of words given in word 0 of the block
                                                                                [ so it gives the user a ready made Q-store to read the data without having to know about panacea
                                                                                [ added words - see also Page 8 for the return from ‘initiate’
                                                                                [ I think the tape system does allow variable length (binary) blocks to be written, but
                                                                                [ that is  another issue which I agree we can hopefully ignore
 3156/0: 301 006 145|041|301 006 146                                   14;       =V2; ZERO; =V3;
 3157/1: 200 360 000                                                         EXIT1; (NORMAL EXIT);
                                                                             (INITIAL ENTRY FORWARDS READ);
 3157/4: 300 006 144|300 006 147|170 376|171 370                       1;      V1; V4; =Q15; C15;
 3161/2: 300 006 143|170 376|170 362|171 376|200 320 106               6;      V0; =Q15; =M15; Q15; JSE70;
 3163/2: 201 266 171                                                         J13;
 3163/5: 300 006 151|200 320 106                                             V6; JSE70;
 3164/5: 201 266 171                                                         J13;
 3165/2: 301 006 152|042|200 146 156|201 266 171                             =V7; DUP; J14≠Z; J13;
 3167/0: 300 006 150|200 320 106                                       7;      V5; JSE70;
 3170/0: 201 266 171                                                         J13;
                                                                          [JSP300; [hux diagnostic

 3170/3: 042|203 146 154                                               8;      DUP; J10≠Z;
 3171/1: 304 037 272|200 326 264                                       13;      SET8122; JSP7; (FAILURE);
                                                                             (INITIAL ENTRY BACKWARDS READ);
 3172/1: 300 006 144|300 006 147|170 376|171 364|202 266 161           2;      V1; V4; =Q15; I15; J6;

                                                                       [ HUX this is inserted to open ch4
                                                                       22;
 3174/2: 300 006 144                                                   	V1;	[open ch4 BACKWARDS from current
 3174/5: 300 006 147                                                   	V4;
 3175/2: 170 376                                                       	=Q15;
 3175/4: 171 364                                                       	I15;	[F/B/C

 3176/0: 300 006 143                                                   	V0;
 3176/3: 170 376                                                       	=Q15;
 3176/5: 170 362                                                       	=M15;
 3177/1: 171 376                                                       	Q15;
 3177/3: 200 320 106                                                   	JSE70;
 3200/0: 201 266 171                                                   	J13; [NOW SKIP TO BLOCK 1 (IN Z10)
 3200/3: 052                                                           	ERASE;	[we dont want the result Hux
 3200/4: 320 013 125|164 301|300 006 153|170 376|170 364|171 376|200 320 106|201 266 171
                                                                       	(SET2; )Z10; SHL-32; V8; = Q15; =I15; Q15; JSE70; J13; [get block number from Z10 HUX
 3204/0: 200 360 000                                                   	EXIT1;
                                                                       	[hux removed to fix NS and 99/60 failure	V6; (GET CBN); JSE70; J13; J10;
                                                                       	[ end of addition





                                                                             (CLOSE);
 3204/3: 204 326 157|320 013 125|164 301|164 041|304 152 004|011|200 320 106|201 266 171
                                                                       16;      JS1; Z10; SHL-32; SHL+16; SETB65004; OR; JSE70; J13;
 3207/5: 200 266 167                                                         J7;
 3210/2: 300 006 147|200 320 106                                       3;      V4; JSE70;
 3211/2: 201 266 171                                                         J13;
 3211/5: 200 360 000                                                         EXIT1;
 3212/2: 300 006 144|304 242 204|202 266 161                           15;      V1; SETB121204; J6;
                                                                             (INITIAL ENTRY  FOR PETCH PREVIOUS WORD);
 3213/5: 300 006 145|170 376|171 364|027|170 364|140 360|140 360       4;      V2; =Q15; I15;NEG; =I15; M+I15; M+I15;
 3216/1: 203 266 217                                                         J9;
                                                                             (NORMAL ENTRY FOR FETCH PREVIOUS WORD);
 3216/4: 300 006 146|170 376                                           5;      V3; =Q15;
                                                                       [ original source of the next page
 3217/3: 102 360|171 376|301 006 146|200 360 000                       9;      M0M15Q; Q15; =V3; EXIT1;
                                                                             (WHAT IS CURRENT POSITION);
 3221/1: 300 006 151|200 320 106                                       11;      V6; JSE70;
 3222/1: 201 266 171                                                         J13;
 3222/4: 300 006 152|036|304 000 377|042|300 006 145                         V7; -; SETB377; DUP; V2;
 3224/3: 054|012|054|164 021|011                                             AND; PERM; AND; SHL+8; OR;
 3225/3: 200 360 000                                                         EXIT1;
                                                                             (SKIP TO GIVEN BLOCK);
 3226/0: 042|164 361|300 006 152|056|300 006 153                       12;      DUP; SHL-8; V7; +; V8;
 3227/4: 170 376|170 364|171 376|200 320 106                                 =Q15; =I15; Q15; JSE70;
 3231/1: 201 266 171                                                         J13;
 3231/4: 167 361|164 361|167 021|300 006 150|200 320 106                     SHC-8; SHL-8; SHC+8; V5; JSE70;
 3233/4: 201 266 171                                                         J13;
 3234/1: 170 376|042|171 362|036|027                                         =Q15; DUP; M15; -; NEG;
 3235/2: 172 370|170 362|171 376|301 006 145|200 360 000                     =+C15; =M15; Q15; =V2; EXIT1;

=== Start P6V6; at address 1703/3247
V-store at 03240 = 012 240 013 237 242 105                             P6V6;      V0=QAYY0/AYY255/B121105;
V-store at 03241 = 013 240 014 237 000 000                                   V1=QAYY256/AYY511/0;
V-store at 03242 = 000 000 000 000 000 000                                   V2=0;
V-store at 03243 = 000 000 000 000 340 005                                   V3=B160005;
V-store at 03244 = 000 000 000 000 140 105                                   V4=B60105;
V-store at 03245 = 000 000 175 004 072 321                                   V5=B17501035321;
 3247/0: 300 006 242                                                         V2;
 3247/3: 170 376|103 360|243 366 254                                   2;      =Q15;=M0M15Q; J4C15Z;
 3250/4: 171 376                                                             Q15;
 3251/0: 301 006 242|200 360 000                                       7;      =V2; EXIT1;
 3252/0: 300 006 241|300 006 240                                       1;      V1; V0;
 3253/0: 200 320 106|200 266 257|200 266 251                                 JSE70; J6; J7;
 3254/3: 300 006 243|200 320 106|200 266 257|301 006 242               4;      V3; JSE70; J6; =V2;
 3256/3: 200 360 000                                                         EXIT1;
 3257/0: 304 040 036|200 326 264                                       6;       SET8222; JSP7;
 3260/0: 300 006 242|170 365|300 006 244|170 362                       3;      V2; =RI15; V4; =M15;
 3261/4: 171 376|200 320 106|200 266 257|200 360 000                         Q15; JSE70; J6; EXIT1;

=== Start P7V-1; at address 1716/3264
 3264/0: 170 365                                                       P7;      =RI15;
 3264/2: 304 000 200|170 362                                                 SETB200; =M15;
 3265/1: 320 013 070|041|033|047|015|011|321 013 070                         Z39; ZERO; NOT; STR; NEV; OR; =Z39;
 3267/0: 171 376|200 260 106                                                 Q15; JE70;
=== Start P3V-1; at address 1720/3270
                                                                       P3;      (SEARCH LEVEL PARAMETERS FOR A LEVEL L);
 3270/0: 041|170 323|304 000 377|167 361|065                                 ZERO; =RM13; SETB377; SHC-8; REV;
 3271/3: 320 333 055|170 336|171 324|042|170 322                       1;      Z50M13; =Q13; I13; DUP; =M13;
 3273/1: 203 146 274                                                         J2≠Z;
 3273/4: 065|052|200 360 000                                                 REV; ERASE; (NONE EXIST N1=L); EXIT1;
 3274/3: 043|320 333 053|015|054|203 146 271                           2;      DUPD; Z52M13; NEV; AND; J1≠Z;
 3276/0: 065|052|202 360 001                                                 REV; ERASE; (N1=L; M13=ALP OF L); EXIT2;

=== Start P210V0; at address 1728/3300
 3300/0: 041|301 006 277                                               P210V0;      (STEVES 6-BIT ROUTINE); ZERO; =V0;
 3300/4: 042|164 137|221 046 302|200 360 000                                 DUP; SHL+47; J1<Z; EXIT1; (DELIMETER); (FORTRAN);
 3302/1: 262 306 303|052|201 266 322                                   1;      J2C12NZ; ERASE; J8;
 3303/2: 042|164 121|164 253                                           2;      DUP; SHL+40; SHL-43;
 3304/1: 042|203 146 305|052                                                 DUP; J3≠Z; ERASE;
 3305/0: 304 000 006                                                         SET6;
 3305/3: 170 331|154 336                                               3;      =RC13; C13TOQ14;
 3306/1: 041|166 015|042|225 146 311                                   4;      ZERO; SHLD+6; DUP; J7=Z; (SPACE);
 3307/2: 042|304 000 041|036|200 046 313                                     DUP; SETB41; -; J5≥Z; (A-Z);
 3310/4: 304 000 020|036|204 266 313                                         SETB20; -; J6; (O-9);
 3311/5: 052|304 000 236|204 266 313                                   7;      ERASE; SETB236; J6;
 3313/0: 304 000 025|036                                               5;      SETB25; -;
 3313/4: 167 361|300 006 277|166 021|301 006 277|052                   6;      SHC-8; V0; SHLD+8; =V0; ERASE;
 3315/3: 143 320|261 326 306                                                 DC13; J4C13NZ;
                                                                       [ original source of the next page
 3316/2: 052                                                                 ERASE;
 3316/3: 171 350|164 007|170 350                                             C14; SHL+3; =C14;
 3317/3: 300 012 234|164 340|142 340|300 006 277|166 340                     YD5; SHLC14; NC14; V0; SHLDC14;
 3321/3: 052|301 012 234                                                     ERASE; =YD5;
 3322/1: 200 326 154|143 140|202 360 001                               8;      JSP2; DC6; EXIT2; (CODEWORD);
=== Start P211V-1; at address 1748/3324
 3324/0: 200 326 154|143 140                                           P211;     JSP2; DC6;
 3324/5: 042|164 133|202 046 326|200 266 300                                 DUP; SHL+45; J15≥Z; (6 BIT); JP210;
 3326/2: 042|164 137|225 046 327|200 360 000                           15;      DUP; SHL+47; J1<Z; EXIT1;
                                                                             (KALGOL DELIM);
 3327/5: 042|164 135|200 046 351                                       1;      DUP; SHL+46; J2≥Z;
 3330/5: 042|164 121|164 253|170 351                                         DUP; SHL+40; SHL-43; =RC14;
 3332/0: 261 306 334                                                         J3C12NZ;
 3332/3: 052                                                                 ERASE;
 3332/4: 200 326 154|143 140                                                 JSP2; DC6;
 3333/3: 052                                                                 ERASE;
 3333/4: 202 266 345                                                         J4;
 3334/1: 300 012 234|164 121|065|164 361|166 261|052                   3;      YD5; SHL+40; REV; SHL-8; SHLD-40; ERASE;
 3336/0: 301 012 234                                                         =YD5;
 3336/3: 200 326 154|143 140                                                 JSP2; DC6;
 3337/2: 042|164 135|164 245|304 000 003|015|200 146 361                     DUP; SHL+46; SHL-46; SETB3; NEV; J5≠Z;
 3341/2: 300 012 234|164 361|166 021|301 012 234                       9;      YD5; SHL-8; SHLD+8; =YD5;
 3343/0: 300 012 235|164 041|065|164 301|166 341|052                         YD6; SHL+16; REV; SHL-32; SHLD-16; ERASE;
 3344/5: 301 012 235                                                         =YD6;
 3345/2: 143 340                                                       4;      DC14;
 3345/4: 244 346 347                                                   8;      J6C14Z;
 3346/1: 200 326 154|143 140                                                 JSP2; DC6;
 3347/0: 052|202 266 345                                                     ERASE; J4;
 3347/4: 200 326 154|143 140                                           6;      JSP2; DC6;
 3350/3: 202 360 001                                                         EXIT2;
 3351/0: 261 306 352|052|204 266 347                                   2;      J13C12NZ; ERASE; J6;
 3352/1: 154 016|042|164 121|164 253                                   13;      C0TOQ14; DUP; SHL+40; SHL-43;
 3353/2: 042|204 146 354|052|304 000 005                                     DUP; J14≠Z; ERASE; SET5;
 3354/4: 304 000 010|034|050|170 250|167 240                           14;      SET8; ×D; CONT; =C10; SHCC10;
 3356/1: 300 012 234|164 240|065|142 240|166 240                             YD5; SHLC10; REV; NC10; SHLDC10;
 3357/5: 052|301 012 234|204 266 347                                         ERASE; =YD5; J6;
 3361/0: 042|164 121|164 253|042|304 000 003|036                       5;      DUP; SHL+40; SHL-43; DUP; SET3; -;
 3362/4: 225 046 363                                                         J10<Z;
 3363/1: 052|202 266 341                                               11;      ERASE; J9;
 3363/5: 042|221 146 363                                               10;      DUP; J11=Z;
 3364/3: 304 000 010|034|050|170 250|300 012 234|164 361|166 021             SET8; ×D; CONT; =C10; YD5; SHL-8; SHLD+8;
 3366/5: 301 012 234|304 377 370|172 250|262 246 371                         =YD5; SET-8; =+C10; J12C10NZ;
 3370/4: 052|202 266 345                                                     ERASE; J4;

 3371/2: 300 012 235|164 240|065|304 000 060|170 270|142 240|171 250|172 270
                                                                       12;      YD6; SHLC10; REV; SET48; =C11; NC10; C10; =+C11;
 3374/1: 142 260|164 260|166 240|052|301 012 235|202 266 345                 NC11; SHLC11; SHLDC10; ERASE; =YD6; J4;

=== Start P212V1; at address 1793/3401
 3401/0: 170 256|100 174                                               P212V1;      =Q10; M12M7;
 3401/4: 170 276|171 102|170 264|171 276                                     =Q11; M4; =I11; Q11;
 3403/0: 101 174|151 107|154 253|151 233|152 013                             =M12M7; M4TOQ7; C10TOQ11; M9TOQ11; I0TOQ11;
 3404/4: 171 222|170 250|171 222|171 276|204 330 233|103 114                 M9; =C10; M9; Q11; JS2P215; =M12M4Q;
 3406/5: 171 310|027|033|224 147 010|052|200 267 031                         C12; NEG; NOT; J1=Z; ERASE; J2;
 3410/4: 300 007 063|065|067|041|301 006 377|304 000 005|170 370|164 045
                                                                       1;      V4P260; REV; FRB; ZERO; =V0;SET5; =C15; SHL+18;
 3413/2: 041|166 015|042|221 147 020                                   4;      ZERO; SHLD+6; DUP; J3=Z;
 3414/3: 164 121|300 006 377|166 021|301 006 377|052|143 360|243 367 023|041|166 015
                                                                       6;      SHL+40; V0; SHLD+8; =V0; ERASE; DC15; J5C15Z; ZERO; SHLD+6;
 3417/4: 203 267 014                                                         J6;
 3420/1: 304 000 236|164 121|300 006 377|166 021|301 006 377|052       3;      SETB236; SHL+40; V0; SHLD+8; =V0; ERASE;
 3422/3: 052|143 360|262 367 013                                             ERASE; DC15; J4C15NZ;
 3423/3: 052|300 006 377|164 021|300 012 235|164 321|166 061|301 012 235
                                                                       5;      ERASE; V0; SHL+8; YD6; SHL-24;SHLD+24; =YD6;
 3426/1: 164 301|300 012 236|164 041|065|166 341                             SHL-32; YD7; SHL+16; REV; SHLD-16;
 3427/5: 052|301 012 236|200 332 114                                         ERASE; =YD7;JSP218;
                                                                       [ original source of the next page
 3431/0: 200 360 000                                                   2;      EXIT1;
=== Start P213V-1; at address 1818/3432
 3432/0: 170 256|154 247                                               P213;      =Q10; C10TOQ7;
 3432/4: 200 326 324|204 267 033                                       2;      JSP211; J1;
 3433/4: 052|171 150|171 170|036|042|223 152 115                       1;      ERASE; C6; C7; -; DUP; J3P218=Z;
 3435/2: 224 107 032                                                         J2>Z;
 3435/5: 304 000 172|200 326 264                                             SET0122; JSP7;

=== Start P214V-1; at address 1823/3437
 3437/0: 042|164 041|164 261                                           P214;      DUP; SHL+16; SHL-40;             [ flow chart page no 5 -- process codeword
 3437/5: 042|225 147 045                                                     DUP; J1=Z;
 3440/3: 151 004                                                             M0TOQ4; (C1=0);
 3440/5: 100 114|041|166 021|065                                       3;      M12M4; ZERO; SHLD+8; REV;
 3441/5: 052|221 027 046                                                     ERASE; J2=;
 3442/3: 100 114|170 256|171 242|042                                         M12M4; =Q10; M10; DUP;
 3443/4: 170 102|205 147 040                                                 =M4; J3≠Z;
 3444/3: 052|052                                                             ERASE; ERASE;
 3444/5: 304 000 336|200 326 264                                             SET0222; JSP7;
 3445/5: 151 024                                                       1;      M1TOQ4;
 3446/1: 140 100|140 100|052|042                                       2;      M+I4; M+I4; ERASE; DUP;
 3447/1: 170 256|171 250                                                     =Q10; C10;
 3447/5: 100 114|170 256|171 250|220 027 054                           4;      M12M4; =Q10; C10; J5=;
 3451/2: 171 244|042|170 102|205 147 047                                     I10; DUP; =M4; J4≠Z;
 3452/4: 052|052|304 001 102|200 326 264                                     ERASE; ERASE;  SET0322; JSP7;

 3454/0: 052|100 114|170 256|164 041|171 242                           5;      ERASE; M12M4; =Q10; SHL+16; M10;
 3455/3: 166 341|052|200 326 247                                             SHLD-16; ERASE; JSP6;
 3456/3: 200 360 000                                                         EXIT1;

                                                                                                [ flow chart page no info on H-stores etc
                                                                                                [ flow chart page no Q-stores usage in P260
=== Start P260V6; at address 1846/3466
V-store at 03460 = 010 172 020 031 121 345                             P260V6;      V1=B0207502006250745;    [ flow chart page no 1
V-store at 03462 = 000 000 007 060 007 061                                   V3=Q0/AV1/AV2;                  [ flow chart page no info on V-stores and Z-stores
V-store at 03463 = 050 242 212 050 242 212                                   V4=B1212121212121212;
V-store at 03464 = 101 004 020 101 004 020                                   V5=B2020202020202020;
V-store at 03465 = 236 236 236 236 236 236                                   V6=B4751723647517236;           [ 236 236 236 236 236 236 spaces
 3466/0: 152 011                                                       I0TOQ9;
 3466/2: 202 326 174|152 010                                                  JS22P2; I0TOQ8;	[js22P2 fix - was js15p2 fix to work around tape position hux
 3467/1: 300 006 240|304 002 064|036|200 320 106                             V0P6; SETB1064; -; JSE70; [Monitor
 3470/5: 202 272 122|300 006 240|304 002 102|036|200 320 106|202 272 122|052
                                                                             J1P218; V0P6; SETB1102; -; JSE70; J1P218; ERASE; [ Open CH3
 3473/4: 304 000 002|170 023|304 000 005|170 043                             SET2; =RM1; SET5; =RM2;
 3475/2: 304 000 001|170 063|041|042                                         SET1; =RM3; ZERO; DUP;
 3476/3: 170 103|170 123|304 000 001|042|170 143|170 150                     =RM4; =RM5; SET+1; DUP; =RM6; =C6;
 3500/3: 200 330 201|304 000 002|170 163|041                                 JS20P215; SET2; =RM7; ZERO;
 3502/0: 033|027|042|042|164 041|011                                         NOT; NEG; DUP; DUP;  SHL+16; OR;
 3503/1: 205 330 230|301 076 237|164 121|204 330 233                         JS1P215; =Y-1M3; SHL+40; JS2P215;
 3505/0: 103 114|041|042|204 330 233|103 114                                 =M12M4Q;ZERO; DUP; JS2P215; =M12M4Q;
 3506/3: 204 330 233|103 114|041|042|301 012 042|301 012 043                 JS2P215; =M12M4Q; ZERO; DUP; =V0P219; =V1P219;
 3510/4: 320 013 071|164 005|042|221 047 115                                 Z38; SHL+2; DUP; J59<Z; (D2=1);
 3512/1: 164 005|225 047 113|154 014|205 267 116                             SHL+2; J60<Z; C0TOQ12; J62;
 3513/5: 304 000 001|170 310|205 267 116                               60;      SET1; =C12; J62;
 3515/1: 164 005|225 047 113                                           59;      SHL+2; J60<Z;
 3516/0: 304 377 377|170 310                                                 SET-1; =C12;
 3516/5: 304 000 007|170 251                                           62;      SET7; =RC10;
 3517/4: 017|017|300 007 065|017|017|017|303 252 230|177 240           *61;      V6; *=YD1M10Q; J61C10NZS;
 3521/5: 320 013 124|170 256|244 247 124                                     Z11; =Q10;J1C10Z;
 3523/1: 171 250|172 042|304 000 005|170 030                                 C10; =+M2; SET5; =C1;
 3524/4: 171 310|201 047 126|041|203 332 115                           1;      C12; J74≥Z; ZERO; JS3P218;
 3526/1: 200 326 324|204 267 310                                       74;      JSP211; J2;
 3527/1: 042|304 000 030|054|042|225 150 022                                 DUP; SETB30; AND; DUP; J3=Z; (R I B);
 3530/4: 065|042|012|164 125|222 047 163                                     REV; DUP; PERM; SHL+42; J56<Z; (FORMAL);
 3532/0: 304 000 010|222 030 052                                             SETB10; J4=; (ARRAY);
 3533/0: 304 000 020|222 027 172                                             SETB20; J5=; (PROCEDURE);
 3534/0: 052|042|304 000 037|054|304 000 030|223 027 164                     ERASE; DUP; SETB37; AND; SETB30; J6=; (SWITCH); [ flow chart page no 2
                                                                       [ original source of the next page
 3536/0: 304 000 031|222 027 140                                             SETB31; J69=; (LABEL);
                                                                       	[ jsp305; [hux diag
 3537/0: 052|052|304 012 076|200 326 264                                     ERASE; ERASE; SET2622; JSP7;
 3540/2: 052|264 307 141                                               69;      ERASE; J81C12NZ;             [ flow chart page no 3
 3541/0: 052|204 267 124                                                     ERASE; J1;
 3541/4: 042|164 041|041                                               81;      DUP; SHL+16; ZERO;
 3542/2: 166 021|065|041|166 021|065                                         SHLD+8; REV; ZERO; SHLD+8; REV;
 3543/3: 041|166 017|065|052                                                 ZERO; SHLD+7; REV; ERASE;
 3544/2: 200 332 026|065|200 332 026|066|200 332 026                         JSP217; REV; JSP217; CAB; JSP217;
 3546/1: 164 061|300 012 230|164 361|166 021|301 012 230|164 301             SHL+24; YD1; SHL-8; SHLD+8; =YD1; SHL-32;
 3550/3: 300 012 231|164 041|065|166 341|052|301 012 231                     YD2; SHL+16; REV; SHLD-16; ERASE; =YD2;
 3552/3: 164 061|300 012 231|164 341|166 041|301 012 231                     SHL+24; YD2; SHL-16; SHLD+16; =YD2;
 3554/3: 065|041|304 000 236|166 361|052|065|166 321                         REV; ZERO; SETB236; SHLD-8; ERASE; REV; SHLD-24;
 3556/2: 052|304 000 236|166 361|052|065|164 261                             ERASE; SETB236; SHLD-8; ERASE; REV; SHL-40;
 3560/0: 166 361|052|301 012 232|164 301|304 236 027|200 332 021             SHLD-8; ERASE; =YD3; SHL-32; SETB117027; JSP216;
 3562/2: 204 327 010|204 267 124                                              JS1P212; J1;

 3563/2: 052                                                           56;      ERASE;
 3563/3: 200 332 124|200 270 035                                             JSP221; J7;
 3564/3: 052|171 310|027|033                                           6;      ERASE; C12; NEG; NOT;
 3565/2: 205 147 166                                                         J82≠Z;
 3565/5: 304 036 042                                                         SETB17042;
 3566/2: 200 332 021                                                         JSP216;
 3566/5: 042|164 061|164 255|170 050                                   82;      DUP; SHL+24; SHL-42; =C2;
 3570/0: 151 031|171 050|172 022|140 020                                     M1TOQ9; C2; =+M1; M+I1;
 3571/2: 200 327 001|204 267 124                                             JSP212; J1;
 3572/2: 052|042|164 117|164 243                                       5;      ERASE; DUP; SHL+39; SHL-47;      [ flow chart page no 5
 3573/2: 225 147 174                                                         J8=Z;
 3573/5: 200 327 032|204 267 124                                             JSP213; J1;
 3574/5: 243 307 206|304 000 033                                       8;      J63C12Z; SETB33;                 [ flow chart page no 5
 3575/5: 164 121|304 000 236                                                 SHL+40; SETB236;
 3576/4: 166 361|052|164 301                                                 SHLD-8; ERASE; SHL-32;
 3577/3: 200 332 021                                                         JSP216;
 3600/0: 300 012 234|301 012 230|300 007 065|301 012 234                     YD5; =YD1; V6; =YD5;
 3602/0: 300 012 235|041|166 041                                             YD6; ZERO; SHLD+16;
 3603/0: 300 012 231|164 041|065                                             YD2; SHL+16; REV;
 3604/0: 166 341|052|301 012 231                                             SHLD-16; ERASE; =YD2;
 3605/0: 300 007 065|166 341|052                                             V6; SHLD-16; ERASE;
 3606/0: 301 012 235                                                         =YD6;

 3606/3: 171 102|170 243|140 240|171 142                               63;      M4; =RM10; M+I10; M6;           [ flow chart page no 5
 3607/5: 170 244|171 022|170 250|171 256                                     =I10; M1; =C10; Q10;
 3611/1: 205 330 230|303 076 240|171 162|300 076 240                         JS1P215; =Y0M3Q; M7; Y0M3;
 3613/0: 170 256|170 242|171 204|170 250|300 012 043|164 121|300 012 042|166 021|170 244|052
                                                                             =Q10; =M10; I8; =C10; V1P219; SHL+40; V0P219; SHLD+8; =I10; ERASE;
 3616/3: 171 256|205 330 230|152 010                                          Q10; JS1P215; I0TOQ8;
 3617/4: 303 076 240|100 134|164 341|164 041                                 =Y0M3Q; M12M5; SHL-16; SHL+16;
 3621/1: 171 102|011|101 134|042                                             M4; OR; =M12M5; DUP;
 3622/1: 164 261|164 121|171 122|164 041                                     SHL-40; SHL+40; M5; SHL+16;
 3623/3: 011|151 105|204 330 233|103 114                                     OR; M4TOQ5; JS2P215; =M12M4Q;
 3624/5: 304 000 001|164 003|170 022|151 106                                 SET+1; SHL+1; =M1; M4TOQ6;
 3626/2: 041|204 330 233|103 114|042|304 000 001|042|301 012 042|301 012 043
                                                                             ZERO; JS2P215; =M12M4Q; DUP; SET1; DUP; =V0P219; =V1P219;
 3631/1: 304 000 007|054|042|222 147 265                                     SETB7; AND; DUP; J9=Z;
 3632/3: 052|151 316|304 377 376|172 342                                     ERASE; M12TOQ14; SET-2; =+M14;
 3633/5: 100 116|200 326 270|204 267 235                                     M14M4; JSP3; J11;                  [ flow chart page no 6
 3635/1: 200 267 237                                                         J10;
 3635/4: 052|052|304 001 246|200 326 264                               11;      ERASE; ERASE; SET0422; JSP7;    [ flow chart page no 6

 3637/0: 320 333 053|164 101|164 261                                   10;      Z52M13; SHL+32; SHL-40;         [ flow chart page no 6
 3640/1: 242 307 263|042|300 007 063|065|067|304 000 005|170 250             J64C12Z; DUP; V4; REV; FRB; SET5; =C10;
 3642/3: 164 045                                                             SHL+18;
 3642/5: 041|166 015|042|224 147 247                                   67;      ZERO; SHLD+6; DUP; J65=Z;
                                                                       [ original source of the next page
 3644/0: 164 121|300 007 057|166 021|301 007 057|052|143 240|240 247 253|041
                                                                       68;      SHL+40; V0; SHLD+8; =V0; ERASE; DC10; J66C10Z; ZERO;
 3646/5: 166 015|200 267 244                                                 SHLD+6; J68;
 3647/4: 304 000 236|167 361|300 007 057|166 021|301 007 057|052|052|143 240
                                                                       65;      SETB236; SHC-8; V0; SHLD+8; =V0; ERASE; ERASE; DC10;
 3652/3: 265 247 242                                                         J67C10NZ;
 3653/0: 052|300 007 057                                               66;      ERASE; V0;
 3653/4: 300 012 234|164 121|065|166 261|052|301 012 234                     YD5; SHL+40; REV; SHLD-40; ERASE; =YD5;
 3655/4: 066|042|051|066|164 135|042|223 047 260|052                         CAB; DUP; REVD; CAB; SHL+46; DUP; J70<Z; ERASE;
 3657/3: 304 035 033|205 267 262                                             SETB16433; J71;
 3660/3: 164 003|222 047 262|304 024 033|205 267 262                   70;      SHL+1; J72<Z; SETB12033; J71;
 3662/2: 304 015 033                                                   72;      SETB6433;
 3662/5: 200 332 021                                                   71;      JSP216;
 3663/2: 012                                                           64;      PERM;
 3663/3: 052|042|012|164 355                                                 ERASE; DUP; PERM; SHL-10;
 3664/2: 164 101|011|204 267 265                                             SHL+32; OR; J12;
 3665/2: 052|041                                                       9;      ERASE; ZERO;                      [ flow chart page no 7

 3665/4: 151 107|204 330 233|103 114                                   12;      M4TOQ7; JS2P215;  =M12M4Q;       [ flow chart page no 7
 3666/5: 243 307 303                                                         J73C12Z;
 3667/2: 041|166 021|065|041|166 021|065|052                                 ZERO; SHLD+8; REV; ZERO; SHLD+8; REV; ERASE;
 3670/5: 300 007 063                                                         V4P260;
 3671/2: 042|012|065|067|012|065|067                                         DUP; PERM; REV; FRB; PERM; REV; FRB;
 3672/3: 200 332 166                                                         JSP261;
 3673/0: 300 012 232|164 021|065|166 361                                     YD3; SHL+8; REV; SHLD-8;
 3674/2: 065|301 012 232|164 101|300 012 231|164 341|166 041                 REV; =YD3; SHL+32; YD2; SHL-16; SHLD+16;
 3676/3: 301 012 231|052                                                     =YD2; ERASE;
 3677/1: 200 332 166                                                         JSP261;
 3677/4: 164 061|300 012 232|167 361|164 321|166 061                         SHL+24; YD3; SHC-8; SHL-24; SHLD+24;
 3701/3: 167 021|301 012 232|052                                             SHC+8; =YD3; ERASE;
 3702/3: 200 332 114|204 267 303                                             JSP218; J80;
 3703/3: 052                                                           73;      ERASE;                            [ flow chart page no 7
 3703/4: 200 326 324|205 267 305                                       80;      JSP211; J13;
 3704/4: 052|304 002 012|200 326 264                                         ERASE;SET0522; JSP7;
 3705/5: 304 000 377|054                                               13;      SETB377; AND;                     [ flow chart page no 7
 3706/3: 304 000 254|015|224 147 124                                         SETB254; NEV;  J1=Z;
 3707/4: 304 002 156|200 326 264                                             SET0622; JSP7;
 3710/4: 042|304 001 160|054|042|164 117|042|225 047 337               2;      DUP; SETB560; AND;DUP; SHL+39; DUP;J47<Z;    [ flow chart page no 8
 3712/4: 164 005|042|221 047 320                                             SHL+2; DUP; J18<Z;
 3713/4: 164 003|042|224 047 316                                             SHL+1; DUP; J19<Z;
 3714/4: 164 003|041|301 012 044|222 047 362                                 SHL+1; ZERO; =V2P219; J16<Z;
 3716/1: 202 267 324                                                         J14;
 3716/4: 052|052|052|304 002 322|200 326 264                           19;      ERASE; ERASE; ERASE; SET0722; JSP7;
 3720/1: 164 003|042|223 047 322                                       18;      SHL+1; DUP; J20<Z;
 3721/1: 164 003|221 047 377                                                 SHL+1; J17<Z;
 3722/0: 201 267 344                                                         J15;
 3722/3: 164 003|304 000 001|301 012 044|222 047 362                   20;      SHL+1; SET1; =V2P219; J16<Z;
 3724/2: 052|052|300 076 240|170 256                                   14;      ERASE; ERASE; Y0M3; =Q10;                     [ flow chart page no 10
 3725/3: 171 022|170 250|151 112|171 256|205 330 230|303 076 240|100 154
                                                                             M1; =C10; M4TOQ10; Q10; JS1P215; =Y0M3Q; M12M6;
 3730/1: 170 256|151 112|171 256|101 154|171 156|151 106                     =Q10; M4TOQ10; Q10; =M12M6; Q6; M4TOQ6;
 3732/1: 164 101|164 341|204 330 233|103 114                                 SHL+32; SHL-16; JS2P215; =M12M4Q;
 3733/4: 300 012 042|033|027|301 012 042                                     V0P219; NOT; NEG; =V0P219;
 3735/0: 300 012 043|033|027|301 012 043                                     V1P219; NOT; NEG; =V1P219;
 3736/2: 244 307 124|200 332 056|204 267 124                                 J1C12Z; JS1P219; J1;
 3737/5: 164 011|304 377 377|301 012 044|222 047 362|052|304 000 001|164 121|244 307 345|200 332 062|204 267 345
                                                                       47;      SHL+4; SET-1; =V2P219; J16<Z; ERASE; SET1; SHL+40; J83C12Z; JS3P219; J83;    [ flow chart page no 9
 3744/1: 052|242 307 345|200 332 061                                   15;      ERASE; J84C12Z; JS2P219;                        [ flow chart page no 11
 3745/2: 100 134                                                       84;      M12M5;                                          [ flow chart page no 11

 3745/4: 200 326 270|202 267 357                                       83;       JSP3; J21;                                     [ flow chart page no 11
 3746/4: 320 333 053|042|164 101|164 261|171 022                             Z52M13; DUP; SHL+32; SHL-40; M1;
 3750/2: 204 027 360                                                         J22≠;
 3750/5: 052|164 041|164 255|151 332|027|172 242                             ERASE; SHL+16; SHL-42; M13TOQ10; NEG; =+M10;
                                                                       [ original source of the next page
 3752/3: 320 253 052|167 361|171 022|166 361|052|167 041|321 253 052         Z53M10; SHC-8;  M1; SHLD-8; ERASE; SHC+16; =Z53M10;
 3755/0: 052|052                                                              ERASE; ERASE;
 3755/2: 320 333 054                                                   23;      Z51M13;
 3755/5: 164 261|172 022|140 020|204 267 124                                 SHL-40; =+M1; M+I1; J1;
 3757/2: 052|052|304 003 066|200 326 264                               21;      ERASE; ERASE; SET0822; JSP7;                    [ flow chart page no 11

 3760/4: 052|052|052|052|304 003 232|200 326 264                       22;      ERASE; ERASE; ERASE; ERASE; SET0922; JSP7;      [ flow chart page no 11
 3762/2: 052|300 076 237|240 307 364|205 332 101                       16;   ERASE; Y-1M3; J92C12Z; JS9P219;                    [ flow chart page no 12  or 92
                                                                                     [ P219 undocumented but appears to write ENDPRG to YD1 stores - drags? - hux
 3764/0: 170 256|300 012 043|027|033|301 012 043                       92;   =Q10; V1P219; NEG; NOT; =V1P219;    [ flow chart page no 12   or 16
 3765/4: 171 242|170 210|100 254|170 276                                     M10; =C8; M12M10; =Q11;
 3767/0: 171 022|171 204|036|220 047 371                                     M1; I8; -; J85<Z;
 3770/2: 171 022|170 204                                                     M1; =I8;
 3771/0: 042|304 001 377|054|304 001 234|015|205 147 373               85;      DUP; SETB777; AND; SETB634; NEV; J87≠Z;       [ flow chart page no 12
 3773/0: 171 204|201 267 374                                                 I8; J88;
 3773/5: 171 022                                                       87;      M1;                                             [ flow chart page no 12
 3774/1: 170 270|171 276|101 254                                       88;      =C11; Q11; =M12M10;                             [ flow chart page no 12
 3775/1: 171 250|170 022|141 060|203 330 250                                 C10; =M1; M-I3; JS6P215;
 3776/4: 204 270 016                                                         J24;
 3777/1: 241 310 000                                                   17;      J93C12Z;                                        [ flow chart page no 13
 3777/4: 205 332 105                                                         JS11P219;
 4000/1: 052|300 076 237|170 276|171 270|170 202                       93;      ERASE; Y-1M3; =Q11; C11; =M8;
 4001/5: 171 264|041|166 121|301 012 042|164 261|301 012 043                 I11; ZERO; SHLD+40; =V0P219; SHL-40; =V1P219;
 4004/0: 151 267                                                             M11TOQ7;
 4004/2: 141 060|203 330 250|300 076 237|170 276                             M-I3; JS6P215; Y-1M3; =Q11;
 4006/0: 151 272|171 262|170 210                                             M11TOQ10; M11; =C8;
 4007/0: 100 254|170 276|171 022|171 204|036|224 050 011                     M12M10; =Q11; M1; I8; -; J89<Z;
 4011/0: 171 022|170 204                                                     M1; =I8;
 4011/4: 171 204|170 270                                               89;      I8; =C11;                                       [ flow chart page no 13
 4012/2: 171 276|101 254|300 076 237|170 276                                 Q11; =M12M10; Y-1M3; =Q11;
 4013/5: 171 270|170 022|171 264|170 142                                     C11; =M1; I11; =M6;
 4015/1: 141 060|203 330 250|171 202|170 204                                 M-I3; JS6P215; M8; =I8;
 4016/4: 170 376|171 370|204 147 124|171 062|027|033|224 147 124       24;      =Q15; C15; J1≠Z; M3; NEG; NOT; J1=Z;          [ flow chart page no 13
 4021/0: 171 062|223 150 127|304 003 376|200 326 264                         M3; J25=Z; SET1022; JSP7;
 4022/5: 052                                                           3;      ERASE;                                           [ flow chart page no 14
 4023/0: 171 310|027|033|200 150 033                                         C12; NEG; NOT; J51≠Z;
 4024/1: 042|164 135|042|223 050 026                                         DUP; SHL+46; DUP; J48<Z;
 4025/2: 052|304 000 035|205 270 030                                         ERASE; SETB35; J49;
 4026/3: 164 003|222 050 030|304 003 070|205 270 030                   48;      SHL+1; J50<Z; SET824; J49;                 [ flow chart page no 14
 4030/2: 304 000 015                                                   50;      SETB15;                            [ flow chart page no 14 wrongly labelled as 15; on the flowchart
 4030/5: 164 121|304 000 236                                           49;      SHL+40; SETB236;                   [ flow chart page no 14
 4031/4: 166 361|052|164 301                                                 SHLD-8; ERASE; SHL-32;
 4032/3: 200 332 021                                                         JSP216;
 4033/0: 042|164 125                                                   51;      DUP; SHL+42;                       [ flow chart page no 14
 4033/3: 225 050 035                                                         J26<Z;
 4034/0: 042                                                                 DUP;
 4034/1: 164 117|223 050 044                                                 SHL+39; J27<Z;
 4035/0: 151 031|204 270 043                                           7;      M1TOQ9; J28;

 4035/5: 151 031|042|164 117|224 050 043                               26;      M1TOQ9; DUP; SHL+39; J28<Z;     [ flow chart page no 15
 4037/1: 140 020                                                             M+I1;
 4037/3: 171 310|027|033                                               86;      C12; NEG; NOT;
 4040/1: 204 150 043                                                         J28≠Z;
 4040/4: 300 012 233|167 021                                                 YD4; SHC+8;
 4041/3: 164 021|304 000 031                                                 SHL+8; SETB31;
 4042/2: 166 361|052                                                         SHLD-8; ERASE;
 4042/5: 167 361|301 012 233                                                 SHC-8; =YD4;
 4043/4: 140 020|202 270 051                                           28;      M+I1; J29;                        [ flow chart page no 15
 4044/3: 151 051|140 040                                               27;      M2TOQ9; M+I2;                     [ flow chart page no 14
 4045/1: 171 310|027|033                                                     C12; NEG; NOT;
 4045/5: 202 150 051|300 012 233                                             J29≠Z; YD4;
 4046/5: 167 021|164 021                                                     SHC+8; SHL+8;
                                                                       [ original source of the next page
 4047/3: 304 000 032|166 361                                                 SETB32; SHLD-8;
 4050/2: 052|167 361                                                         ERASE; SHC-8;
 4050/5: 301 012 233                                                         =YD4;
 4051/2: 200 327 001|204 267 124                                       29;      JSP212; J1;                       [ flow chart page no 15
 4052/2: 052                                                           4;      ERASE;                             [ flow chart page no 16
 4052/3: 171 310|027|033|200 150 064                                         C12; NEG; NOT; J52≠Z;
 4053/4: 042|164 135|042|222 050 057|222 150 056                             DUP; SHL+46; DUP; J53<Z; J54=Z;
 4055/2: 304 000 035|204 270 061                                             SETB35; J57;
 4056/2: 304 000 236|204 270 061                                       54;      SETB236; J57;                     [ flow chart page no 16
 4057/2: 164 003|221 050 061                                           53;      SHL+1; J55<Z;                   [ flow chart page no 16
 4060/1: 304 000 024|204 270 061                                             SETB24; J57;
 4061/1: 304 000 015                                                   55;      SETB15;                           [ flow chart page no 16
 4061/4: 304 000 014|164 121|065|166 361                               57;      SETB14; SHL+40; REV; SHLD-8;      [ flow chart page no 16
 4063/0: 052|164 301|200 332 021                                             ERASE; SHL-32; JSP216;
 4064/0: 042                                                           52;      DUP;                              [ flow chart page no 16
 4064/1: 164 105|164 253|170 230                                             SHL+34; SHL-43; =C9;
 4065/1: 265 230 066                                                         J30C9NZ;
 4065/4: 052|304 004 142|200 326 264                                         ERASE; SET1122; JSP7;
 4066/5: 042|164 117|222 050 102                                       30;      DUP; SHL+39; J32<Z;             [ flow chart page no 16
 4067/5: 151 031|140 020|042|202 330 143|200 327 001                   31;      M1TOQ9; M+I1; DUP; JS94; JSP212;  [ flow chart page no 16
 4071/4: 143 220|242 230 100|052                                             DC9; J35C9Z; ERASE;
 4072/4: 200 326 324|201 270 077                                             JSP211; J38;

 4073/4: 042|164 117|220 050 076                                       36;      DUP; SHL+39; J39<Z;
 4074/4: 042|164 105|164 253|225 150 067                                     DUP; SHL+34; SHL-43; J31=Z;
 4076/0: 052|304 004 306|200 326 264                                   39;      ERASE; SET1222; JSP7;             [ flow chart page no 17
 4077/1: 052|304 005 052|200 326 264                                   38;      ERASE; SET1322; JSP7;             [ flow chart page no 17
 4100/2: 164 061|164 253|042|170 130                                   35;      SHL+24; SHL-43; DUP; =C5;         [ flow chart page no 16
 4101/3: 172 022|204 267 124                                                 =+M1; J1;
 4102/2: 171 310|027|033|203 150 106                                   32;      C12; NEG; NOT; J58≠Z;           [ flow chart page no 18
 4103/3: 300 012 233|167 021|164 021                                         YD4; SHC+8; SHL+8;
 4104/4: 304 000 032|166 361|052                                             SETB32; SHLD-8; ERASE;
 4105/4: 167 361|301 012 233                                                 SHC-8; =YD4;
 4106/3: 042|164 117|203 050 111                                       58;      DUP; SHL+39; J33≥Z;             [ flow chart page no 18
 4107/3: 042|164 041|164 261|304 377 377                                     DUP; SHL+16; SHL-40; SET-1;
 4110/5: 056|224 150 112                                                     +; J37=Z;
 4111/3: 151 051|140 040|201 270 114                                   33;      M2TOQ9; M+I2; J34;                [ flow chart page no 18
 4112/4: 171 030|170 222|304 000 001|172 030                           37;      C1; =M9; SET+1; =+C1;             [ flow chart page no 18
 4114/1: 042|202 330 143|200 327 001|143 220|241 230 123               34;      DUP; JS94; JSP212; DC9; J40C9Z;   [ flow chart page no 18
 4116/1: 052|200 326 324|202 270 126                                         ERASE; JSP211; J41;
 4117/2: 042|304 001 170|054|304 001 110                                     DUP; SETB570; AND; SETB510;
 4120/4: 015|201 150 125|042|164 105|164 253|222 150 102|201 270 125         NEV; J42≠Z; DUP; SHL+34; SHL-43; J32=Z; J42;
 4123/1: 164 061|164 253|042|170 130                                   40;      SHL+24; SHL-43; DUP; =C5;
 4124/2: 172 042|204 267 124                                                 =+M2; J1;
 4125/1: 052|304 005 216|200 326 264                                   42;      ERASE; SET1422; JSP7;             [ flow chart page no 18
 4126/2: 052|304 005 362|200 326 264                                   41;      ERASE; SET1522; JSP7;             [ flow chart page no 18
 4127/3: 300 010 174|170 336|171 102|170 324|171 330|304 021 224|036|042
                                                                       25;      V2P215;=Q13; M4; =I13; C13; SETAH0;-; DUP;
 4132/1: 201 150 134                                                         J43≠Z;
 4132/4: 052|171 336|321 013 122|203 270 162                                 ERASE; Q13; =Z13; J45;
 4134/1: 042|221 110 156                                               43;      DUP; J44>Z;
 4134/5: 027|172 322|171 330|170 343|304 021 224|170 330                     NEG; =+M13; C13; =RM14; SETAH0; =C13;
 4136/5: 171 336|321 013 122|171 102|170 311                                 Q13; =Z13; M4; =RC12;
 4140/2: 017|017|017|017|100 316|017|017|017|017|313 301 224|177 300   *46;      M14M12; *=H0M12Q; J46C12NZS;
 4142/5: 203 270 162                                                         J45;
 4143/2: 171 310|204 110 155                                           94;      C12; J99≤Z;                     [ flow chart page no 19
 4144/1: 042|304 000 003|054                                                 DUP; SETB3; AND;
 4145/0: 304 000 001|220 030 151                                             SETB1; J95=;
 4146/0: 304 000 002|220 030 152                                             SETB2; J96=;
 4147/0: 304 000 003|220 030 153                                             SETB3; J97=;
 4150/0: 304 000 236|203 270 153                                             SETB236; J98;
                                                                       [ original source of the next page
 4151/0: 304 000 035|203 270 153                                       95;      SETB35; J98;                      [ flow chart page no 19
 4152/0: 304 000 024|203 270 153                                       96;      SETB24; J98;                      [ flow chart page no 19
 4153/0: 304 000 015                                                   97;      SETB15;                           [ flow chart page no 19
 4153/3: 304 000 014|167 361|065|166 021|200 332 021|052|052           98;      SETB14; SHC-8; REV; SHLD+8; JSP216; ERASE; ERASE;      [ flow chart page no 19
 4155/4: 200 360 000                                                   99;      EXIT1;                            [ flow chart page no 19
 4156/1: 304 021 224|065|036|300 007 063|067|300 007 064|056|301 007 061
                                                                       44;      SET4500; REV; -; V4; FRB; V5; +; =V2;
 4160/5: 300 007 062|170 036|171 336|321 013 122                             V3; =Q1; Q13; =Z13;

 4162/3: 171 042|304 377 373|056|225 150 164|171 042|200 270 165|041|321 013 121
                                                                       45;            (ENTER NEXT BRICK); M2; SET-5; +; J90=Z; M2; J91; 90; ZERO; 91; =Z14;
 4165/3: 202 326 210                                                          JS3P2;
 4166/0: 300 006 240|164 301|164 041|304 140 003|011|200 320 106|202 272 122
                                                                             V0P6; SHL-32; SHL+16; SETB60003; OR; JSE70; J1P218; [close CH3

 4170/5: 200 360 000                                                         EXIT1; [ exit p260 hux

=== Start P215V6; at address 2177/4201
V-store at 04173 = 000 000 377 377 000 000                             P215V6; V1=Q0/-1/0;
V-store at 04174 = 000 000 377 377 000 000                                   V2=Q0/-1/0;
V-store at 04175 = 000 000 377 377 000 000                                   V3=Q0/-1/0;
V-store at 04176 = 000 000 377 377 000 000                                   V4=Q0/-1/0;
V-store at 04177 = 000 000 377 377 000 000                                   V5=Q0/-1/0;
                                                                       20;      (INITIAL ENTRY RUN 6);            [ flow chart page no 1
 4201/0: 304 021 224|042|170 302                                            SETAH0; DUP; =M12; (BASE ADD OF BSK);
 4202/0: 300 010 173|170 256|304 016 240|036                                 V1; =Q10; SETAY0; -;
 4203/3: 170 242|171 256|301 010 173                                         =M10; Q10; =V1;
 4204/4: 320 013 124|170 256|304 053 055|172 242                             Z11; =Q10; SETAZ50; =+M10;
 4206/2: 171 242|042|321 013 120                                             M10; DUP; =Z15; (ADD OF THE FREE SPACE);
 4207/2: 304 021 224|036|300 010 174|170 256|170 242                         SETAH0; -; V2; =Q10; =M10;
 4211/1: 304 021 224|170 250|171 256|301 010 174                             SETAH0; =C10; Q10; =V2;
 4212/5: 200 360 000                                                         EXIT1;

                                                                       21;      (INITIAL ENTRY RUN 7);
 4213/2: 320 013 122|042|301 010 174|170 256|171 244|143 240|171 250|170 222
                                                                             Z13; DUP; =V2; =Q10; I10; DC10; C10; =M9;
 4216/1: 301 010 200                                                         =V6; (SIZE OF BSK LIST);
 4216/4: 320 013 120|170 262                                                 Z15; =M11; (FOR FAL LIST);
 4217/3: 145 240|171 256|301 010 177                                         I10=-1; Q10; =V5;
 4220/4: 300 010 175|170 256|304 001 054|170 242                             V3; =Q10; SET300; =M10;
 4222/2: 171 256|301 010 175                                                 Q10; =V3;
 4223/1: 300 010 177|170 256|171 250|304 017 314|042                         V5; =Q10; C10; SETAY300; DUP;
 4225/0: 300 010 176|170 256|042|170 203|170 250|036|170 242                 V4; =Q10; DUP; =RM8; =C10; -; =M10;
 4227/1: 145 240|171 256|301 010 176                                         I10=-1; Q10; =V4;
 4230/2: 200 360 000                                                         EXIT1;
 4230/5: 300 010 173|200 330 247|301 010 173|171 242|220 150 264       1;      V1; JS30; =V1; M10; J12=Z;         [ flow chart page no 1
 4233/1: 200 360 000                                                         EXIT1;
 4233/4: 300 010 174|200 330 247|301 010 174|171 242|221 150 301       2;      V2; JS30; =V2; M10; J13=Z;         [ flow chart page no 1
 4236/0: 200 360 000                                                         EXIT1;
 4236/3: 300 010 175|200 330 247|301 010 175|171 242|221 150 315       3;      V3; JS30; =V3; M10; J14=Z;         [ flow chart page no 1
 4240/5: 200 360 000                                                         EXIT1;
 4241/2: 300 010 176|200 330 247|301 010 176|171 242|221 150 332       4;      V4; JS30; =V4; M10; J15=Z;         [ flow chart page no 2
 4243/4: 200 360 000                                                         EXIT1;
 4244/1: 300 010 177|200 330 247|301 010 177|171 242|221 150 346       5;      V5; JS30; =V5; M10; J16=Z;         [ flow chart page no 2
 4246/3: 200 360 000                                                         EXIT1;
 4247/0: 170 256|140 240|171 256|200 360 000                           30;      =Q10; M+I10; Q10; EXIT1;
 4250/3: 300 010 173|203 330 262|301 010 173|200 360 000               6;      V1; JS11; =V1; EXIT1;              [ flow chart page no 2
 4252/3: 300 010 174|203 330 262|301 010 174|200 360 000               7;      V2; JS11; =V2; EXIT1;              [ flow chart page no 2
 4254/3: 300 010 175|203 330 262|301 010 175|200 360 000               8;      V3; JS11; =V3; EXIT1;              [ flow chart page no 2
 4256/3: 300 010 176|203 330 262|301 010 176|200 360 000               9;      V4; JS11; =V4; EXIT1;              [ flow chart page no 2
 4260/3: 300 010 177|203 330 262|301 010 177|200 360 000               10;      V5; JS11; =V5; EXIT1;             [ flow chart page no 2
 4262/3: 170 256|141 240|171 256|200 360 000                           11;      =Q10; M-I10; Q10; EXIT1;          [ flow chart page no 2 ?? lebelled 17 on diagram
 4264/0: 300 010 174|170 256|171 242|164 377|042                       12;      V2; =Q10; M10; SHL-1; DUP;
 4265/4: 221 151 046                                                         J18=Z;
 4266/1: 042|027|172 242|042|172 250|171 256                                 DUP; NEG;  =+M10; DUP; =+C10; Q10;
 4267/4: 301 010 174|042|300 010 173|170 256|172 242                         =V2; DUP; V1; =Q10; =+M10;
                                                                       [ original source of the next page
 4271/3: 171 256|301 010 173|171 302|056|170 322                             Q10; =V1; M12; +; =M13;
 4273/1: 171 102|170 351|145 340|151 317                                     M4; =RC14; I14=-1; M12TOQ15;
 4274/3: 151 334|171 102|042|172 322|042                                     M13TOQ12; M4; DUP; =+M13; DUP;
 4275/5: 172 362|204 110 300                                                 =+M15; J73≤Z;
 4276/4: 017|017|100 357|017|017|017|017|103 355|177 340               *19;      M15M14; *=M13M14Q; J19C14NZS;
 4300/4: 200 360 000                                                   73;      EXIT1;
 4301/1: 300 010 173|170 256|171 242|164 377|042                       13;      V1; =Q10; M10; SHL-1; DUP;
 4302/5: 221 151 046                                                         J18=Z;
 4303/2: 042|027|172 242|171 256|301 010 173|300 010 174                     DUP; NEG;  =+M10; Q10; =V1; V2;
 4305/2: 170 256|042|027|172 250|172 242                                     =Q10; DUP; NEG; =+C10; =+M10;
 4306/4: 151 317|171 250|170 322|151 334                                     M12TOQ15; C10; =M13; M13TOQ12;
 4310/0: 171 102|042|170 351|171 256|301 010 174                             M4; DUP; =RC14; Q10; =V2;
 4311/4: 204 110 314                                                         J34≤Z;
 4312/1: 017|017|017|017|017|100 357|017|017|017|017|103 355|177 340   *32;      M15M14; *=M13M14Q; J32C14NZS;
 4314/4: 200 360 000                                                   34;      EXIT1;
 4315/1: 300 010 176|170 256|171 242|164 377|042                       14;      V4; =Q10; M10; SHL-1; DUP;
 4316/5: 221 150 364                                                         J33=Z; (BBR+FAI FULL);
 4317/2: 042|172 250|042|027|172 242|171 256                                 DUP; =+C10; DUP; NEG; =+M10; Q10;
 4320/5: 301 010 176|171 250|170 362|300 010 175|170 256                     =V4; C10; =M15; V3; =Q10;
 4322/5: 172 242|171 256|301 010 175                                         =+M10; Q10; =V3;
 4324/0: 171 102|170 331|145 320|151 216                                     M4; =RC13; I13=-1; M8TOQ14;
 4325/2: 151 370|171 102|042|172 342                                         M15TOQ8; M4; DUP; =+M14;
 4326/3: 042|172 362|204 110 331                                             DUP; =+M15; J35≤Z;
 4327/3: 017|017|017|100 336|017|017|017|017|103 337|177 320           *22;      M14M13; *=M15M13Q; J22C13NZS;
 4331/4: 200 360 000                                                   35;      EXIT1;
 4332/1: 300 010 175|170 256|171 242|164 377|042                       15;      V3; =Q10; M10; SHL-1; DUP;
 4333/5: 221 150 364                                                         J33=Z; (BBR AHD FA1 PULL);
 4334/2: 042|027|172 242|171 256|301 010 175|300 010 176                     DUP; NEG;  =+M10; Q10; =V3; V4;
 4336/2: 170 256|042|027|172 250|172 242                                     =Q10; DUP; NEG; =+C10; =+M10;
 4337/4: 171 256|301 010 176|151 217|171 250|170 342                         Q10; =V4; M8TOQ15; C10; =M14;
 4341/3: 151 350|171 102|042|170 331                                         M14TOQ8; M4; DUP; =RC13;
 4342/4: 204 110 345                                                         J23≤Z;
 4343/1: 017|017|017|017|017|100 337|017|017|017|017|103 336|177 320   *24;      M15M13; *=M14M13Q; J24C13NZS;
 4345/4: 200 360 000                                                   23;      EXIT1;
 4346/1: 300 010 176|170 256|171 242|164 377|042|221 151 016           16;      V4; =Q10; M10; SHL-1; DUP;      J25=Z;
                                                                             (FAI FULL AND BSK);
 4350/2: 042|027|172 242|171 256|301 010 176                                 DUP; NEG; =+M10; Q10; =V4;
 4351/5: 300 010 177|170 256|042|027|172 250|042|172 242                     V5; =Q10; DUP; NEG; =+C10; DUP; =+M10;
 4353/5: 171 256|301 010 177|171 250|170 302                                 Q10; =V5; C10; =M12;
 4355/2: 151 237|151 236|027|172 342|151 351                                 M9TOQ15; M9TOQ14; NEG; =+M14; M14TOQ9;
 4356/5: 300 010 200|304 000 012|056|171 230|036                             V6; SET10; +; C9; -;
 4360/3: 042|170 331|204 110 363                                             DUP; =RC13; J36≤Z;
 4361/3: 017|017|017|100 337|017|017|017|017|103 336|177 320           *26;      M15M13; *=M14M13Q; J26C13NZS;
 4363/4: 200 360 000                                                   36;      EXIT1;
                                                                       33;      (BBR + FAI FULL);                 [ flow chart page no 1
 4364/1: 052                                                                 ERASE;
 4364/2: 300 010 177|170 256|171 242|304 000 003|044                         V5; =Q10; M10; SET3; ÷I;
 4366/1: 052|042|221 151 046                                                 ERASE; DUP; J18=Z; (MACHINE FILLED);
 4367/0: 042|164 003|042|172 250                                             DUP; SHL+1; DUP; =+C10;
 4370/0: 042|027|172 242|151 236|172 342|171 256|301 010 177                 DUP; NEG; =+M10; M9TOQ14; =+M14; Q10; =V5;
 4372/1: 300 010 176|170 256|042|172 250|042                                 V4; =Q10; DUP; =+C10; DUP;
 4373/4: 164 003                                                             SHL+1;
 4374/0: 172 302|042                                                         =+M12; DUP;
 4374/3: 172 242|171 256|301 010 176|300 010 175|170 256                     =+M10; Q10; =V4; V3; =Q10;
 4376/3: 172 242|171 256|301 010 175                                         =+M10; Q10; =V3;
 4377/4: 151 237|151 351|300 010 200|304 000 012|056                         M9TOQ15; M14TOQ9; V6; SET10; +;
 4401/3: 171 230|036|170 331|145 320                                         C9; -; =RC13; I13=-1;
 4402/4: 171 330|042|172 362|042                                             C13; DUP; =+M15; DUP;
 4403/4: 172 342|204 111 006                                                 =+M14; J37≤Z;
 4404/3: 017|017|017|100 337|017|017|017|017|103 336|177 320           *27;      M15M13; *=M14M13Q; J27C13NZS;
                                                                       [ original source of the next page
 4406/4: 300 010 176|170 256|171 250|170 342                           37;      V4; =Q10; C10; =M14;
 4410/1: 151 217|151 350|171 102|042|172 342                                 M8TOQ15; M14TOQ8; M4; DUP; =+M14;
 4411/4: 172 362|171 102|042|170 331                                         =+M15; M4; DUP; =RC13;
 4412/5: 145 320|204 111 015                                                 I13=-1; J38≤Z;
 4413/4: 017|017|100 337|017|017|017|017|103 336|177 320               *28;      M15M13; *=M14M13Q; J28C13NZS;
 4415/4: 200 360 000                                                   38;      EXIT1;
 4416/1: 300 010 175|170 256|171 242|304 000 003|044                   25;      V3; =Q10; M10; SET3; ÷I;  [???
 4420/0: 052|042|221 151 046                                                 ERASE; DUP; J18=Z;
 4420/5: 042|164 003|027|172 242|171 256|301 010 175                         DUP; SHL+1; NEG; =+M10; Q10; =V3;
 4422/4: 300 010 176|170 256|027|172 250|042|172 242                         V4; =Q10; NEG; =+C10; DUP; =+M10;
 4424/3: 171 256|301 010 176|300 010 177|170 256|042                         Q10; =V4; V5; =Q10; DUP;
 4426/2: 027|172 250|042|172 242|301 010 172                                 NEG; =+C10; DUP; =+M10; =V0; (V STORES SET UP);
 4427/5: 151 217|300 010 176|170 256|171 250|170 342                         M8TOQ15; V4; =Q10; C10; =M14;
 4431/4: 151 350|171 102|042|170 331                                         M14TOQ8; M4; DUP; =RC13;
 4432/5: 204 111 035                                                         J39≤Z;
 4433/2: 017|017|017|017|100 337|017|017|017|017|103 336|177 320       *29;      M15M13; *=M14M13Q; J29C13NZS;
 4435/4: 300 010 177|170 256|171 250|170 302                           39;      V5; =Q10; C10; =M12;
 4437/1: 151 237|151 236|300 010 172                                         M9TOQ15; M9TOQ14; V0;
 4440/2: 027|172 342|151 351                                                 NEG; =+M14; M14TOQ9;
 4441/1: 300 010 200|304 000 012|056|171 230|036                             V6; SET10; +; C9; -;
 4442/5: 042|170 331|204 111 045                                             DUP; =RC13; J40≤Z;
 4443/5: 017|100 337|017|017|017|017|103 336|177 320                   *31;      M15M13; *=M14M13Q; J31C13NZS;
 4445/4: 200 360 000                                                   40;      EXIT1;
 4446/1: 304 006 126|200 326 264                                       18;      SET1622; JSP7;
                                                                                                         [ flow chart page no info on H-stores etc
                                                                                                         [ flow chart page no Q-stores usage in P270
=== Start P270V0; at address 2345/4451
                                                                       P270V0;                           [ flow chart page no info on V-stores and Z-stores -- must relate to V-stores of P260
 4451/0: 202 330 213|145 260                                                 JS21P215; I11=-1;
 4451/5: 304 000 062|170 270|171 276|301 011 050                             SET50; =C11; Q11; =V0;
 4453/3: 145 220|304 000 012|170 230                                         I9=-1; SET10; =C9;
 4454/4: 041|042|170 023|170 043                                             ZERO; DUP; =RM1; =RM2;
 4455/4: 203 326 204|200 326 252                                             JS16P2; JS1P6;
 4456/4: 200 271 060                                                   J2;
 4457/1: 144 100                                                             I4=+1;
 4457/3: 200 326 154                                                   1;      JSP2;
 4460/0: 042|164 121|224 051 137|042|304 000 030|054                   2;      DUP; SHL+40; J3<Z; DUP;  SETB30; AND;
 4461/5: 042|222 151 070                                                     DUP; J4=Z;
 4462/3: 065|042|012|164 125|223 051 073                                     REV; DUP; PERM; SHL+42; J34<Z;
 4463/5: 304 000 010|222 031 160                                             SETB10; J7=;
 4464/5: 304 000 020|223 031 071                                             SETB20; J8=;
 4465/5: 052|042|304 000 003|054|221 151 261                                 ERASE; DUP; SETB3; AND; J9=Z;
 4467/2: 200 326 247|203 271 057                                       10;      JSP6; J1;
 4470/2: 052|200 327 037|203 271 057                                   4;      ERASE; JSP214; J1;
 4471/3: 052|042|164 123|042|222 051 122                               8;      ERASE;  DUP; SHL+41; DUP; J11<Z;
 4472/5: 052|202 271 067                                                     ERASE; J10;
 4473/3: 052|042|304 000 030|054|304 000 020|220 031 076|202 271 070   34;      ERASE; DUP; SETB30; AND; SETB20; J43=; J4;     [ flow chart page no
                                                                                                                               [ flow chart page no formal path in P270
 4476/0: 052|042|170 256|151 032|151 024                               43;      ERASE; DUP; =Q10; M1TOQ10; M1TOQ4;
 4477/2: 140 100|140 100|171 250|164 361|164 021                       M+I4; M+I4; C10; SHL-8; SHL+8;
 4501/0: 100 114|170 276                                               61;      M12M4; =Q11;                                   [ flow chart page no
 4501/4: 171 270|223 031 113                                                 C11; J60=; (CODE LOCAL);
 4502/3: 171 264|170 102                                                     I11; =M4;
 4503/1: 171 102                                                             M4;
 4503/3: 200 151 101                                                         J61≠Z; (C≠O);
 4504/0: 151 001                                                             M0TOQ1; (ACL:=0);
 4504/2: 140 100                                                       64;      M+I4;                                          [ flow chart page no
 4504/4: 140 100                                                             M+I4; (C:=C+2);
 4505/0: 100 114|170 276                                               63;      M12M4; =Q11;                                   [ flow chart page no
 4505/4: 171 270|222 031 114                                                 C11; J62=; (CODE-NON LOCAL);
 4506/3: 171 264|170 102                                                     I11; =M4; (C:=ANCW);
 4507/1: 171 102                                                             M4;                            [ flow chart page no formal path in P270 continued
 4507/3: 200 151 105                                                         J63≠Z; (C≠O);
                                                                       [ original source of the next page
 4510/0: 100 034                                                             M12M1;
 4510/2: 170 276                                                             =Q11;
 4510/4: 151 261                                                             M11TOQ1; (ACC:=ANC);
 4511/0: 151 024                                                             M1TOQ4; (C:=ACC);
 4511/2: 171 102                                                             M4;
 4511/4: 202 151 104                                                         J64≠Z;
 4512/1: 052|052                                                             ERASE; ERASE;
 4512/3: 304 012 242|200 326 264                                             SET2722; JSP7; (CODE DOES NOT EXIST);
 4513/3: 052|041|205 271 115                                           60;      ERASE; ZERO; J65; (LOCAL);
 4514/2: 052|100 034|170 276                                                 62; ERASE; M12M1; =Q11;
 4515/1: 171 270|164 361                                                     C11; SHL-8;
                                                                             (NON LOCAL FORMALS);
 4515/5: 065|041|166 021|065                                           65;      REV; ZERO; SHLD+8; REV;
 4516/4: 164 061|065|042|012                                                 SHL+24; REV; DUP; PERM;
 4517/3: 166 361|052|066|166 361                                             SHLD-8; ERASE; CAB; SHLD-8;
 4520/3: 052|164 361|065|166 361                                             ERASE; SHL-8; REV; SHLD-8;
 4521/3: 151 241|202 271 070                                                 M10TOQ1; J4;
 4522/2: 164 003|222 051 067                                           11;      SHL+1; J10<Z;
 4523/1: 042|164 261|042|170 070|151 004                                     DUP; SHL-40; DUP; =C3;M0TOQ4;
 4524/3: 100 114|164 261|220 031 131                                   16;      M12M4; SHL-40; J12=;
 4525/4: 100 114|170 256|171 242|042|170 102|203 151 124                     M12M4; =Q10; M10; DUP; =M4; J16≠Z;
 4527/4: 052|052|304 006 272|200 326 264                                     ERASE; ERASE; SET1722; JSP7;

 4531/0: 151 101|052|042|304 000 003|054|224 151 136                   12;      M4TOQ1; ERASE; DUP; SETB3; AND; J13=Z;
 4532/5: 151 312|304 000 002|172 242|100 032                           17;      M12TOQ10; SET+2; =+M10; M10M1;
 4534/2: 164 101|164 325|065                                                 SHL+32; SHL-22; REV;
 4535/1: 167 055|164 041|164 341|167 325                                     SHC+22; SHL+16; SHL-16; SHC-22;
 4536/3: 011                                                                 OR;
 4536/4: 200 326 247|203 271 057                                       13;      JSP6; J1;
 4537/4: 042|304 000 017|054|304 000 014                               3;      DUP; SETB17; AND; SETB14;
 4541/0: 015|221 151 143                                                     NEV; J14=Z;
 4541/4: 202 271 067                                                         J10;

 4542/1: 304 007 036|200 326 264                                       58;      SET1822; JSP7;
 4543/1: 042|164 117|203 051 312                                       14;      DUP; SHL+39; J15≥Z;
 4544/1: 042|164 127|203 051 322                                             DUP; SHL+43; J45≥Z;
 4545/1: 141 040|300 056 240|203 330 254                                     M-I2; Y0M2; JS8P215;
 4546/3: 164 301|164 103                                                     SHL-32; SHL+33;
 4547/1: 042|164 007|304 000 001|167 361|200 326 270|201 271 142             DUP; SHL+3; SET+1; SHC-8; JSP3; J58;
 4551/3: 052|320 333 054|167 351|164 351|166 031                             ERASE; Z51M13; SHC-12; SHL-12; SHLD+12;
 4553/1: 167 031|321 333 054|052                                             SHC+12; =Z51M13; ERASE;
 4554/1: 065|167 357                                                         REV; SHC-9;
 4554/4: 164 343|166 037|167 023|065|052                                     SHL-15; SHLD+15; SHC+9; REV; ERASE;
 4556/0: 200 326 247                                                         JSP6;
 4556/3: 171 042|220 151 365                                                 M2; J5=Z;
 4557/2: 304 007 202|200 326 264                                             SET1922; JSP7;
 4560/2: 041|170 103|052|042                                           7;      ZERO; =RM4; ERASE; DUP;
 4561/1: 164 301|202 330 241                                                 SHL-32; JS4P215;
 4562/0: 103 110|042|164 105                                                 =M8M4Q; DUP; SHL+34;
 4562/5: 164 253|170 130|143 120|042                                         SHL-43; =C5; DC5; DUP;
 4564/0: 157 116|200 327 037|157 344|042|304 000 170|054                     Q4TOQ14; JSP214; Q14TOQ4; DUP; SETB170; AND;
 4566/0: 304 000 110|015|205 151 252                                         SETB110; NEV; J18≠Z;
 4567/1: 171 270|224 111 170|052|203 271 057                                 C11; J19>Z; ERASE; J1;
 4570/4: 164 061|164 253|042|042|170 064|304 377 376                   19;      SHL+24; SHL-43; DUP; DUP; =I3; SET-2;
 4572/3: 056|225 151 174                                                     +; J20=Z;
 4573/1: 304 377 375|056|220 151 175                                         SET-3; +; J21=Z;
 4574/2: 203 271 057                                                         J1;
 4574/5: 052                                                           20;      ERASE;
 4575/0: 200 326 154|042|304 000 277|054|042                           21;      JSP2; DUP; SETB277; AND; DUP;
 4576/3: 304 000 211|015|224 151 210                                         SETB211; NEV; J22=Z;
                                                                       [ original source of the next page
 4577/4: 304 000 253|015|220 151 204                                         SETB253; NEV; J23=Z;
 4600/5: 042|304 000 130|054|304 000 110|015                                 DUP; SETB130; AND; SETB110; NEV;
 4602/2: 220 151 205|052                                                     J24=Z; ERASE;
 4603/0: 304 007 346|200 326 264                                             SET2022; JSP7;
 4604/0: 200 326 247|200 271 175                                       23;      JSP6; J21;
 4605/0: 042|041|166 041|202 330 241                                   24;      DUP; ZERO; SHLD+16; JS4P215;
 4606/1: 103 110|052|143 120|157 116|200 327 037                             =M8M4Q; ERASE; DC5; Q4TOQ14; JSP214;
 4607/5: 157 344|200 271 175                                                 Q14TOQ4; J21;
 4610/4: 052|041|101 110                                               22;      ERASE; ZERO; =M8M4;
 4611/2: 245 131 212|304 010 112|200 326 264                                 J25C5Z; SET2122; JSP7;
 4612/5: 151 006|171 064                                               25;      M0TOQ6; I3;
 4613/3: 027|033|161 003|042                                                 NEG; NOT; SHA+1; DUP;
 4614/2: 170 171|170 162                                                     =RC7; =M7;
 4615/0: 304 377 377|170 164                                                 SET-1; =I7;
 4615/5: 200 326 247|200 326 154|042                                   26;      JSP6; JSP2; DUP;
 4617/0: 304 004 277|054|304 004 235                                         SETB2277; AND; SETB2235;
 4620/1: 015|225 151 225                                                     NEV; J27=Z;
 4620/5: 042|304 000 377|054                                                 DUP; SETB377; AND;
 4621/4: 304 000 271|015|202 151 223|205 271 215                             SETB271; NEV; J28≠Z; J26; [ COULD BE J28≠Z - it was 28 not 25 hux
 4623/2: 042|304 000 377|054                                           28;      DUP; SETB377; AND;
 4624/1: 304 000 251|015|200 151 060|205 271 215                             SETB251; NEV; J2≠Z; J26;
 4625/5: 042|164 301|303 172 221                                       27;      DUP; SHL-32; =YC0M7Q;
 4626/5: 171 170|304 000 002|201 031 233                                     C7; SET+2; J6≠;
 4630/1: 052|300 012 224|300 012 225                                         ERASE; YC3; YC4;
 4631/2: 036|033|027|042                                                     -; NOT; NEG; DUP;
 4632/0: 170 144|170 142|205 271 215                                         =I6; =M6; J26;
 4633/1: 052|242 171 234|205 271 215                                   6;      ERASE; J29C7Z; J26;

 4634/2: 300 012 222|300 012 223|036|033                               29;      YC1; YC2; -; NOT;
 4635/4: 027|171 142|221 151 240|171 142                                     NEG; M6; J30=Z; M6;
 4637/0: 034|050|170 142|203 271 240                                         ×D; CONT; =M6; J31;
 4640/1: 170 144                                                       30;      =I6;

 4640/3: 171 144|304 177 377|036|223 111 243                           31;      I6; SET32767; -; J52>Z;
 4642/0: 171 142|304 177 377|036|224 051 244                                 M6; SET32767; -; J32<Z;
 4643/3: 052|304 010 256|200 326 264                                   52;      ERASE; SET2222;JSP7;
 4644/4: 200 326 247|151 004                                           32;      JSP6; M0TOQ4;
 4645/3: 203 330 256|102 110|170 150|171 156|201 330 244               33;      JS9P215; M8M4Q; =C6; Q6; JS5P215;
 4647/3: 300 011 050|170 276|103 260|171 276|301 011 050                     V0; =Q11; =M0M11Q; Q11; =V0;
 4651/3: 100 110|203 151 245|203 271 057                                     M8M4; J33≠Z; J1;
 4652/5: 042|170 256|164 123|223 051 057                               18;      DUP; =Q10; SHL+41; J1<Z;
 4654/1: 200 326 154|042|304 000 377|054|304 000 212                         JSP2; DUP; SETB377; AND; SETB212;
 4656/0: 015|200 151 060|171 250|065|170 256                                 NEV; J2≠Z; C10; REV; =Q10;
 4657/3: 170 250|171 256|200 326 247|203 271 057                             =C10; Q10; JSP6; J1;
 4661/1: 042|200 327 037|042|304 000 177                               9;      DUP; JSP214; DUP; SETB177;
 4662/3: 054|304 000 130|015|204 151 302                                     AND; SETB130; NEV; J35≠Z;
 4663/5: 052|243 231 057|200 326 154|042                                     ERASE; J1C9Z; JSP2; DUP;
 4665/1: 304 000 277|054|304 000 265                                         SETB277; AND; SETB265;
 4666/2: 015|200 151 060                                                     NEV; J2≠Z;
 4667/0: 200 326 247|200 326 154|042|304 000 077                       36;      JSP6; JSP2; DUP; SETB77;
 4670/4: 054|304 000 031|015                                                 AND; SETB31; NEV;
 4671/3: 223 151 272|200 271 060                                             J37=Z; J2;
 4672/3: 200 326 247|200 326 154|042|304 000 277|054                   37;      JSP6; JSP2; DUP; SETB277; AND;
 4674/2: 304 000 253|015|220 151 267                                         SETB253; NEV; J36=Z;
 4675/3: 042|304 000 277|054|304 000 230                                     DUP; SETB277; AND; SETB230;
 4676/5: 015|220 151 300|200 271 060                                         NEV; J38=Z; J2;
 4700/0: 042|041|166 041|202 330 241|103 220                           38;      DUP; ZERO; SHLD+16; JS4P215; =M0M9Q;
 4701/3: 052|200 326 247|203 271 057                                         ERASE; JSP6; J1;
 4702/4: 042|164 123|202 051 304                                       35;      DUP; SHL+41; J39≥Z;
 4703/4: 052|203 271 057                                                     ERASE; J1;
                                                                       [ original source of the next page
 4704/2: 041|166 041                                                   39;      ZERO; SHLD+16;
 4704/5: 065|052|200 326 154                                                 REV; ERASE; JSP2;
 4705/4: 042|304 000 377|054|304 000 212                                     DUP; SETB377; AND; SETB212;
 4707/0: 015|223 151 310|065|052                                             NEV; J40=Z; REV; ERASE;
 4710/0: 200 271 060                                                         J2;
 4710/3: 170 256|170 250|171 256|200 326 247                           40;      =Q10; =C10; Q10; JSP6;
 4712/0: 203 271 057                                                         J1;
 4712/3: 042|164 123|042|220 051 316                                   15;      DUP; SHL+41; DUP; J41<Z;
 4713/4: 164 003|042|224 051 341|164 003                                     SHL+1; DUP; J54<Z; SHL+1;
 4715/0: 224 051 335|203 271 322                                             J44<Z; J45;
 4716/0: 164 003|042|222 051 320                                       41;      SHL+1; DUP; J46<Z;
 4717/0: 164 003|225 051 342|200 271 330                                     SHL+1; J47<Z; J50;
 4720/2: 164 003|222 051 334                                           46;      SHL+1; J48<Z;
 4721/1: 042|164 021|164 337|225 151 341                                     DUP; SHL+8; SHL-17; J42=Z;
 4722/3: 171 024|170 242                                               45;      I1; =M10;
 4723/1: 100 254|170 256|171 250|171 242                                     M12M10; =Q10; C10; M10;
 4724/3: 170 024|042|300 056 240|170 256                                     =I1; DUP; Y0M2; =Q10;
 4725/5: 170 250|171 256|203 330 236|303 056 240                             =C10; Q10; JS3P215; =Y0M2Q;
 4727/3: 204 271 337                                                         J51;
 4730/0: 300 056 240|170 256|171 024|170 242                           50;      Y0M2; =Q10; I1; =M10;
 4731/3: 171 256|203 330 236|303 056 240|171 022                             Q10; JS3P215; =Y0M2Q; M1;
 4733/1: 033|027|170 024|203 271 322                                         NOT; NEG; =I1; J45;
 4734/2: 042|164 021|164 337|225 151 341                               48;      DUP; SHL+8; SHL-17; J42=Z;
 4735/4: 141 040|300 056 240|170 256|171 250|203 330 254               44;      M-I2; Y0M2; =Q10; C10; JS8P215;
 4737/4: 164 103|065|167 357|164 343|166 037                           51;      SHL+33; REV; SHC-9; SHL-15; SHLD+15;
 4741/1: 167 023|065                                                         SHC+9; REV;
 4741/4: 052                                                           54;       ERASE;
 4741/5: 200 326 247|203 271 057                                       42;      JSP6; J1;

 4742/5: 141 040|300 056 240|170 256|171 250|203 330 254               47;      M-I2; Y0M2; =Q10; C10; JS8P215;
 4744/5: 141 040|203 330 254|300 056 240|170 256|171 242                     M-I2; JS8P215; Y0M2; =Q10; M10;
 4746/5: 170 024                                                             =I1;
 4747/1: 065|042|012|200 326 270|203 271 363                                 REV; DUP; PERM; JSP3; J57;
 4750/4: 052                                                                 ERASE;
 4750/5: 042|320 333 054|167 351|164 351                                     DUP; Z51M13; SHC-12; SHL-12;
 4752/1: 065|164 111|065|166 031                                             REV; SHL+36; REV; SHLD+12;
 4753/1: 167 031|321 333 054|052                                             SHC+12; =Z51M13; ERASE;
 4754/1: 320 333 053|164 021|164 261|151 004                                 Z52M13; SHL+8; SHL-40; M0TOQ4;
 4755/4: 100 114|164 261|205 031 357                                   55;      M12M4; SHL-40; J56≠;
 4756/5: 052|151 101|204 271 337                                             ERASE; M4TOQ1; J51;
 4757/5: 100 114|164 101|164 301|170 102                               56;      M12M4; SHL+32; SHL-32; =M4;
 4761/1: 171 102|204 151 355                                                 M4; J55≠Z;
 4762/0: 052|052|052|304 011 022|200 326 264                                 ERASE; ERASE; ERASE; SET2322; JSP7;
 4763/3: 052|052|052|304 011 166|200 326 264                           57;      ERASE; ERASE; ERASE; SET2422; JSP7;
 4765/0: 200 326 260|202 326 210                                       5;      JS3P6; JS3P2;
 4766/0: 300 011 050|170 276                                                 V0; =Q11;
 4766/5: 041|101 260|171 262                                                 ZERO; =M0M11; M11;
 4767/4: 304 053 055|036|027|033                                             SETAZ50; -; NEG; NOT;
 4770/4: 320 013 124|170 256|171 242|320 013 123|170 256                     Z11; =Q10; M10; Z12; =Q10;
 4772/4: 170 250|170 244|171 256|321 013 123                                 =C10; =I10; Q10; =Z12;
 4774/1: 171 302|171 222|036                                                 M12; M9; -;
 4775/0: 041|101 220|042|170 071                                             ZERO; =M0M9; DUP; =RC3;
 4776/0: 320 013 123|170 256|171 244|065                                      Z12; =Q10; I10; REV;
 4777/2: 036|320 013 124|170 256|170 242                                     -; Z11; =Q10; =M10;
 5000/4: 171 256|321 013 124|320 013 123|170 256                             Q10; =Z11; Z12; =Q10;
 5002/2: 171 244|304 053 055|056|170 022                                     I10; SETAZ50; +; =M1;
 5003/4: 171 302|027|033|170 042                                             M12; NEG; NOT; =M2;
 5004/4: 017|017|100 062|017|017|017|017|103 061|177 060               *53;      M2M3; *=M1M3Q; J53C3NZS;
 5006/4: 320 013 071|164 031|222 052 015                                     Z38; SHL+12; J59<Z; [was ≥Z
 5010/0: 041|170 323|041                                                     ZERO; =RM13; ZERO;
                                                                       [ original source of the next page
 5010/4: 320 333 055|170 336|171 324|042|170 322                       66;      Z50M13; =Q13; I13; DUP; =M13;
 5012/2: 203 152 013                                                         J49≠Z;
 5012/5: 001|201 272 016                                                     VR; J67;
 5013/3: 320 333 053|164 261|032|065                                   49;      Z52M13; SHL-40; MAX; REV;
 5014/4: 052|204 272 010                                                     ERASE; J66;
 5015/2: 320 013 052|164 261                                           59;      Z53; SHL-40;
 5016/1: 033|027|321 013 122|041|321 013 120                           67;      NOT; NEG; =Z13; ZERO; =Z15;
 5017/4: 200 360 000                                                         EXIT1;
=== Start P216V-1; at address 2577/5021
 5021/0: 300 012 233|167 041|164 041|065|166 341                       P216;      YD4; SHC+16; SHL+16; REV; SHLD-16;
 5022/4: 052|167 341|301 012 233|200 360 000                                 ERASE; SHC-16; =YD4; EXIT1;

=== Start P217V0; at address 2582/5026
V-store at 05025 = 000 000 000 000 000 000                             P217V0;      V0=0;   [undocumented see P219 for calls - Hux
 5026/0: 041|301 012 025|300 007 063|065|067|164 075|304 000 003|170 250
                                                                             ZERO; =V0; V4P260; REV; FRB; SHL+30; SET3; =C10;
 5030/4: 041|166 015|042|223 152 035                                   2;      ZERO; SHLD+6; DUP; J1=Z;
 5031/5: 164 121|300 012 025|166 021|301 012 025|052                   4;      SHL+40; V0; SHLD+8; =V0; ERASE;
 5033/4: 143 240|245 252 040|041|166 015|205 272 031                         DC10; J3C10Z; ZERO; SHLD+6; J4;
 5035/3: 052|304 000 236|164 121|300 012 025|166 021|301 012 025       1;      ERASE; SETB236; SHL+40; V0; SHLD+8; =V0;
 5037/5: 052|143 240|264 252 030                                             ERASE; DC10; J2C10NZ;
 5040/5: 052|300 012 025|200 360 000                                   3;      ERASE; V0; EXIT1;

=== Start P219V11; at address 2606/5056
V-store at 05045 = 030 014 024 031 033 035                             P219V11;      V3=B0600602406215435;  [030 014 024 031 033 035 MAINPR    [output to YD space -
                                                                                      [undocumented diagnostics?
V-store at 05046 = 032 022 236 236 236 236                                   V4=B0641123647517236;          [032 022 236 236 236 236 OG
V-store at 05047 = 015 020 022 024 031 033                                   V5=B0321002205014433;          [015 020 022 024 031 033 BEGINP
V-store at 05050 = 015 020 022 024 031 021                                   V6=B0321002205014421;          [015 020 022 024 031 021 BEGINF
V-store at 05051 = 015 020 022 024 031 015                                   V7=B0321002205014415;          [015 020 022 024 031 015 BEGINB
V-store at 05052 = 020 031 017 236 236 015                                   V8=B0401441747517015;          [020 031 017 236 236 015 END  B
V-store at 05053 = 020 031 017 236 236 021                                   V9=B0401441747517021;          [020 031 017 236 236 021 END  F
V-store at 05054 = 020 031 017 236 236 033                                   V10=B0401441747517033;         [020 031 017 236 236 033 END  P
V-store at 05055 = 020 031 017 033 035 022                                   V11=B0401441706616422;         [020 031 017 033 035 022 ENDPRG
 5056/0: 300 012 044|220 152 060|300 012 050|203 272 064               1;      V2; J4=Z; V6; J5;
 5060/0: 300 012 051|203 272 064                                       4;      V7; J5;
 5061/0: 300 012 047|203 272 064                                       2;      V5; J5;
 5062/0: 300 012 045|301 012 230|300 012 046|301 012 231|200 272 065   3;      V3; =YD1; V4; =YD2; J6;
 5064/3: 301 012 230                                                   5;      =YD1;

 5065/0: 300 012 042|200 332 026|300 012 043|200 332 026|164 061|304 000 236|166 361
                                                                       6;      V0; JSP217; V1; JSP217; SHL+24; SETB236; SHLD-8;
 5070/1: 052|065|166 361|300 012 231|164 341|164 041|011|301 012 231         ERASE; REV; SHLD-8; YD2; SHL-16; SHL+16; OR; =YD2;
 5072/4: 300 012 232|164 121|164 261|011|301 012 232                         YD3; SHL+40; SHL-40; OR; =YD3;
 5074/3: 171 310|027|033|225 152 100                                         C12; NEG; NOT; J7=Z;
 5075/4: 304 000 004|170 251                                                 SET4; =RC10;
 5076/3: 017|017|017|300 012 111|017|017|017|303 252 233|177 240       *8;      V1P218; *=YD4M10Q; J8C10NZS;
 5100/5: 200 332 114|200 360 000                                       7;      JSP218; EXIT1;
 5101/5: 300 012 044|225 152 104|300 012 044|225 052 106|300 012 053|203 272 064
                                                                       9;      V2; J10=Z;  V2; J12<Z; V9; J5; (EWDF); (V2=1);
 5104/5: 300 012 052|203 272 064                                       10;      V8; J5; (ENDB); (V2=O);
 5105/5: 300 012 054|203 272 064                                       11;      V10; J5; (ENDP);
 5106/5: 300 012 055|203 272 064                                       12;      V11; J5; (ENDPRG);
=== Start P218V3; at address 2636/5114
V-store at 05110 = 012 230 012 237 270 321                             P218V3;      V0=QAYD1/AYD8/B134321;
V-store at 05111 = 236 236 236 236 236 236                                   V1=B4751723647517236;              [ 236 236 236 236 236 236 - DHo put this here
 5114/0: 300 012 110|200 320 106|202 272 122                                 V0; JSE70; J1;         [ 134321 Query - recorded as printer o/p on Channel 17 Hux
V-store at 05113 = 236 236 236 236 236 240                                   V3=B4751723647517240;              [ last word with a NL char - hux

 5115/3: 052|304 000 010|170 251                                       3;      ERASE; SET8; =RC10;
 5116/3: 017|017|017|300 012 111|017|017|017|303 252 230|177 240       *2;      V1; *=YD1M10Q; J2C10NZS;   [fills YD with 475517236236 475 ..  hux
 5120/5: 300 012 113|301 012 237                                       	V3; =YD8;			[last word hux
 5121/5: 200 360 000                                                         EXIT1;
 5122/2: 052|304 011 332|200 326 264                                   1;      ERASE; SET2522; JSP7;

=== Start P221V-1; at address 2644/5124
                                                                       P221;      (FORMALS IH DECL.LIST);
 5124/0: 260 312 125|200 360 000                                             J9C12NZ; EXIT1;
 5125/0: 042|304 000 030|054|042|220 152 137                           9;      DUP; SETB30; AND; DUP; J1=Z;
 5126/3: 304 000 010|221 032 140                                             SETB10; J2=;
 5127/3: 304 000 020|222 032 141                                             SETB20; J3=;
 5130/3: 052|042|304 000 037|054|304 000 030|224 032 155                     ERASE; DUP; SETB37; AND; SETB30; J4=;
                                                                       [ original source of the next page
 5132/3: 304 000 031|225 032 156                                             SETB31; J5=;
 5133/3: 304 000 032|225 032 135                                             SETB32; J17=;
 5134/3: 052|052|304 012 242|200 326 264                                     ERASE; ERASE; SET2722; JSP7;
 5135/5: 052|304 036 037|203 272 157                                   17;      ERASE; SETB17037; J10;
 5137/0: 052|304 000 236|203 272 143                                   1;      ERASE; SETB236; J6;
 5140/1: 052|304 000 014|203 272 143                                   2;      ERASE; SETB14; J6;
 5141/2: 052|167 021|164 021|167 341|304 000 033|203 272 143           3;      ERASE; SHC+8; SHL+8; SHC-16; SETB33; J6;
 5143/3: 065|042|304 000 003|054                                       6;      REV; DUP; SETB3; AND;
 5144/3: 304 000 001|224 032 150                                             SETB1; J7=;
 5145/3: 304 000 002|225 032 151                                             SETB2; J8=;
 5146/3: 304 000 003|220 032 153|052|304 000 236|204 272 153                 SETB3;J12=; ERASE; SETB236; J11;
 5150/4: 052|304 000 035|204 272 153                                   7;      ERASE; SETB35; J11;
 5151/5: 052|304 000 024|204 272 153                                   8;      ERASE; SETB24; J11;
 5153/0: 052|304 000 015                                               12;      ERASE; SETB15;
 5153/4: 066|164 121|065|166 361|052|164 301|203 272 157               11;      CAB; SHL+40; REV; SHLD-8; ERASE; SHL-32; J10;
 5155/4: 052|304 036 042|203 272 157                                   4;      ERASE; SETB17042; J10;
 5156/5: 052|304 236 027                                               5;      ERASE; SETB117027;
 5157/3: 164 101|164 301|065|042|012|164 117|223 052 164               10;      SHL+32; SHL-32; REV; DUP; PERM; SHL+39; J13<Z;
 5161/3: 300 012 233|167 021|164 013|304 000 031|166 361|052|167 361|301 012 233
                                                                             YD4; SHC+8; SHL+5; SETB31; SHLD-8; ERASE; SHC-8; =YD4;
 5164/3: 200 272 021                                                   13;      JP216;
=== Start P261V0; at address 2678/5166
 5166/0: 304 000 003|170 251|041|301 012 165|164 075                   P261V0;      SET3; =RC10; ZERO; =V0; SHL+30;
 5167/5: 041|166 015|042|205 152 174|052|304 000 236|164 121|300 012 165|166 021|301 012 165|052
                                                                       2;      ZERO; SHLD+6; DUP; J1≠Z; ERASE; SETB236; SHL+40; V0; SHLD+8; =V0; ERASE;
 5173/3: 143 240|265 252 167|201 272 200                                     DC10; J2C10NZ; J3;
 5174/5: 164 121|300 012 165|166 021|301 012 165|052|041|166 015|143 240|265 252 174|052
                                                                       1;      SHL+40; V0; SHLD+8; =V0; ERASE; ZERO; SHLD+6; DC10; J1C10NZ; ERASE;
 5200/1: 052|300 012 165|200 360 000                                   3;      ERASE; V0; EXIT1;

=== Start P-1V-1; at address 2690/5202
Finished
Reached end of file