...TABLE TO TEST PARENTHETIC EXPRESSIONS ...AFTER ARG OPERATOR IN BYTE MASK DEFINITIONS TTL'/51/ A1=11,A2=2WRD 22,A12=A1 A2,A3=3WRD 33,A13=A1 A3 A23=A2 A3,A123=A12 A3,A4=4WRD 44,A14=A1 A4 A24=A2 A4,A124=A12 A4,A34=A3 A4,A134=A13 A4 A234=A23 A4,A1234=A123 A4,A5=5WRD 55,A15=A1 A5 A25=A2 A5,A125=A12 A5,A35=A3 A5,A135=A13 A5 A235=A23 A5,A1235=A123 A5,A45=A4 A5,A145=A14 A5 A245=A24 A5,A1245=A124 A5,A345=A34 A5 A1345=A134 A5,A2345=A234 A5,A12345=A1234 A5 MASK=MSK ARG ( A1-A2 A3-A4 A5),MASK MASK=MSK-ARG (+A1 A2+A3 A4+A5),MASK MASK=MSK ARG-(+A1 A2+A3 A4+A5),MASK MASK=MSK ARG( A12345 A12345),MASK MASK=MSK ARG(+A12345 A12345),MASK MASK=MSK IOR ARG( A12345 A12345),MASK MASK=MSK ARG IOR(+A12345 A12345),MASK MASK=MSK 2LFT ARG(-A1 A2-A3 A4-A5),MASK MASK=MSK-2LFT ARG( A1+A2 A3+A4),MASK MASK=MSK-2LFT ARG 55-2LFT 2WRD ARG( A1+A2 A3+A4 A5),MASK 50TST 11,-22,33,-44,55 11,-22,33,-44,55 11,-22,33,-44,55 11,22,33,44,55 11,22,33,44,55 11,22,33,44,55 11,22,33,44,55 -44,88,-132,176,-220 -44,88,-132,176,-220 -44,88,-132,176,-220 BLK ...TABLE TO TEST RADIX RESTORATION AFTER ...DEC AND OCT OPERATORS DECIMAL=DEC 21TST TTL''/52/ 12TRX 16SRX 10SIZ 93 OCT 157 93 93 DEC 111 93 ABC=6F,ABC ABC=OCT 157 6F,ABC ABC=6F DECIMAL 111 6F,ABC ABC=MSK ARG 6F,ABC ABC=MSK ARG(OCT 157 6F),ABC ABC=MSK ARG(6F DECIMAL 111 6F),ABC ABC=14SRX 7D,ABC ABC=DE,ABC ABC=14SRX 7D DEC 111 7D,ABC ABC=6F,ABC ABC=14SRX OCT 157 7D,ABC ABC=14D,ABC ABC=MSK 14SRX ARG 7D,ABC ABC=MSK ARG DE,ABC ABC=MSK ARG(14SRX 7D DEC 111 7D),ABC ABC=MSK ARG 6F,ABC ABC=MSK ARG 14SRX(OCT 157 7D),ABC ABC=MSK ARG 14D,ABC 10TRX 111,222,333,111,222,333 111,222,333,111,222,333 111,222,333,111,222,333 111,222,333 BLK ...TEST HIA AND ,, OPERATORS TTL'/53/ COMMENT=1023...COMMENT 3WRD LOC LBL5 HIA LBL1 2WRD LOC LBL4 HIA LBL2 ,,4WRD LOC LBL3 HIA LBL3 5WRD LOC LBL2 HIA LBL4,,, LOC LBL1 HIA LBL5...COMMENT MASK1=MSK 3WRD ARG 2WRD ARG 4WRD ARG 5WRD ARG ARG MASK1 LOC LBL10 HIA LBL6 LOC LBL9 HIA LBL7,,, ,, LOC LBL8 HIA,,LBL8 LOC LBL7 HIA LBL9...COMMENT ,, ,, LOC LBL6 HIA LBL10 MASK2=MSK 3WRD ARG ARG.ARG 4WRD ARG.2WRD ARG MASK2 LOC LBL15 HIA LBL11 LOC LBL14 HIA LBL12 ...FIRST COMMENT ...SECOND COMMENT ,,LOC LBL13 HIA LBL13 LOC LBL12 HIA LBL14,,, ...THIRD COMMENT ...FOURTH COMMENT LOC LBL11 HIA LBL15...COMMENT MASK3=MSK.ARG. .,MASK4=MSK.ARG,MASK5=MSK ARG MASK3 MASK5 LOC LBL20 HIA LBL16,,, MASK3 MASK4 LOC LBL19 HIA LBL17 ...COMMENT ,,,ANOTHER COMMENT PRECEEDED BY 3 COMMAS ...COMMENT MASK2 LOC LBL18 HIA LBL18 ,,MASK2 MASK3 LOC LBL17 HIA LBL19 ...COMMENT ...COMMENT ,,LOC LBL16 HIA LBL20...COMMENT 3,5,5,4,3 8,10,10,9,8 15,13,15,13,13 20,20,17,19,16 20TST BLK ...TABLE TO TEST TEXT REPLACEMENT TTL''/54/ A='/1 B='/2 C='/3 D='/4 E='/5 ABCDE='FA,B,C,D,EF EDCBA='FE,D,C,B,AF DIFF='ANULL-NULL.NULL+NULL LOCA NULL=' DIFF ADR1 DIFF ADR2 ADR1 ABCDE ADR2 EDCBA 12TST 2,6,1,2,3,4,5,5,4,3,2,1 BLK ...TEST LOA AND HIA WITH BIT OPERATOR ...(ABILITY TO PATCH LOC LIST IF IS DESINATION) TTL'/55/ 9BIT ADR3 7BIT ADR1 7BIT ADR2 7BIT ADR3 5BIT ADR2 NEXT=MSK. LOC ADR7 NEXT ADR2 LOC ADR6 NEXT LOC ADR5 ,,LOA ADR1 HIA ADR3 8BIT ADR2 6BIT ADR1 4BIT ADR1 4BIT ADR2 4BIT ADR3 9BIT ADR4 9BIT ADR7 5BIT ADR4 5BIT ADR6 LOC ADR4 3WRD LOC ADR2 2WRD LOC ADR3 ,,LOA ADR4 HIA ADR6 NEXT ADR5 10BIT ADR7 10BIT ADR6 10BIT ADR5 8BIT ADR4 8BIT ADR6 6BIT ADR4 6BIT ADR5 4BIT ADR4 4BIT ADR5 4BIT ADR6 4BIT ADR7 HIA ADR7 LOC ADR1 7TST 111,222,333,444,555,666,777 BLK ...TABLE TO TEST PATCHING OF ADDRESS LIST WHEN ...LOA OPERATOR SPECIFIES ADDRESS TO RECIEVE BITS ...BUT ALREADY CONTAINING PART OF ADDRESS LIST TTL''/56/ LOA1='/1WRD LOA LOA2=''/2WRD LOA LOA3='/3WRD LOA LOA4=''/4WRD LOA LOA5='/5WRD LOA HIA1='/1WRD HIA HIA2=''/2WRD HIA HIA3='/3WRD HIA HIA4=''/4WRD HIA HIA5='/5WRD HIA ..=MSK. 6BIT AA 7BIT BB 8BIT CC 9BIT DD 10BIT EE 7BIT AA 8BIT BB 9BIT CC 10BIT DD 11BIT EE LOC A..1LFT LOC A..2LFT LOC A ,, ..3LFT LOC A..4LFT LOC A,,, LOA1 AA LOA2 BB LOA3 CC,,, LOA4 DD LOA5 EE 96+LOC B,212+LOC C,444+LOC C,908+LOC D,1836+LOC E 6BIT FF 7BIT GG 8BIT HH 9BIT II 10BIT JJ 7BIT FF 8BIT GG 9BIT HH 10BIT II 11BIT JJ LOC C..1LFT LOC C..2LFT LOC C ,, ..3LFT LOC C..4LFT LOC C,,, LOA1 FF LOA2 GG LOA3 HH,,, LOA4 II LOA5 JJ 6BIT KK 7BIT LL 8BIT MM 9BIT NN 10BIT OO 7BIT KK 8BIT LL 9BIT MM 10BIT NN 11BIT OO HIA1 KK HIA2 LL HIA2 MM HIA2 NN HIA2 OO,,, LOC C..1LFT LOC C..2LFT LOC C ,, ..3LFT LOC C..4LFT LOC C,,, HIA A HIA B HIA C HIA D HIA E 20TST 116,232,464,928,1856 116,232,464,928,1856 116,232,464,928,1856 116,232,464,928,1856 BLK ...TABLE TO TEST ALL POSSIBLE COMBINATIONS OF ...IF CLASS OPERATORS TTL '/57/ O=11 OA=22 OAD=33 OAU=44 LOC AU LOC AUO LOC OAU ADR A ADR AO ADR OA 2DUP ADR AD 3DUP ADR ADO 4DUP ADR OAD AO=55 ADO=66 AUO=77 LOC A LOC AO LOC OA LOC AD LOC ADO LOC OAD LOC AU LOC AUO LOC OAU 1BIT A 2BIT AO 3BIT OA 4BIT AD 5BIT ADO 6BIT OAD 7BIT AU 8BIT AUO 9BIT OAU O,OA,OAD,OAU,AO,ADO,AUO L=-1,E=0,G=1 ... ...TEST IFG IFG G 101,IFG G 102 END 103,IFG G 104 END 105 END IFG G 106,IFG G 107 END 108,IFG E 109 END 110 END IFG G 111,IFG E 112 END 113,IFG G 114 END 115 END IFG G 116,IFG L 117 END 118,IFG L 119 END 120 END IFG E 121,IFG G 122 END 123,IFG G 124 END 125 END IFG L 126,IFG G 127 END 128,IFG E 129 END 130 END IFG E 131,IFG E 132 END 133,IFG G 134 END 135 END IFG L 136,IFG L 137 END 138,IFG L 139 END 140 END ... ...TEST IFE IFE E 101,IFE E 102 END 103,IFE E 104 END 105 END IFE E 106,IFE E 107 END 108,IFE G 109 END 110 END IFE E 111,IFE G 112 END 113,IFE E 114 END 115 END IFE E 116,IFE L 117 END 118,IFE L 119 END 120 END IFE G 121,IFE E 122 END 123,IFE E 124 END 125 END IFE L 126,IFE E 127 END 128,IFE G 129 END 130 END IFE G 131,IFE G 132 END 133,IFE E 134 END 135 END IFE L 136,IFE L 137 END 138,IFE L 139 END 140 END ... ...TEST IFL IFL L 101,IFL L 102 END 103,IFL L 104 END 105 END IFL L 106,IFL L 107 END 108,IFL E 109 END 110 END IFL L 111,IFL E 112 END 113,IFL L 114 END 115 END IFL L 116,IFL G 117 END 118,IFL G 119 END 120 END IFL E 121,IFL L 122 END 123,IFL L 124 END 125 END IFL G 126,IFL L 127 END 128,IFL E 129 END 130 END IFL E 131,IFL E 132 END 133,IFL L 134 END 135 END IFL G 136,IFL G 137 END 138,IFL G 139 END 140 END ... ...TEST IFN IFN G 101,IFN G 102 END 103,IFN G 104 END 105 END IFN L 106,IFN L 107 END 108,IFN E 109 END 110 END IFN G 111,IFN E 112 END 113,IFN L 114 END 115 END IFN L 116,IFN E 117 END 118,IFN E 119 END 120 END IFN E 121,IFN G 122 END 123,IFN G 124 END 125 END IFN E 126,IFN L 127 END 128,IFN E 129 END 130 END IFN E 131,IFN E 132 END 133,IFN L 134 END 135 END IFN E 136,IFN E 137 END 138,IFN E 139 END 140 END ... ...TEST IFLE IFLE L 101,IFLE L 102 END 103,IFLE L 104 END 105 END IFLE E 106,IFLE E 107 END 108,IFLE G 109 END 110 END IFLE L 111,IFLE G 112 END 113,IFLE E 114 END 115 END IFLE E 116,IFLE G 117 END 118,IFLE G 119 END 120 END IFLE G 121,IFLE L 122 END 123,IFLE L 124 END 125 END IFLE G 126,IFLE E 127 END 128,IFLE G 129 END 130 END IFLE G 131,IFLE G 132 END 133,IFLE E 134 END 135 END IFLE G 136,IFLE G 137 END 138,IFLE G 139 END 140 END ...TEST IFGE IFGE G 101,IFGE G 102 END 103,IFGE G 104 END 105 END IFGE E 106,IFGE E 107 END 108,IFGE L 109 END 110 END IFGE G 111,IFGE L 112 END 113,IFGE E 114 END 115 END IFGE E 116,IFGE L 117 END 118,IFGE L 119 END 120 END IFGE L 121,IFGE G 122 END 123,IFGE G 124 END 125 END IFGE L 126,IFGE E 127 END 128,IFGE L 129 END 130 END IFGE L 131,IFGE L 132 END 133,IFGE E 134 END 135 END IFGE L 136,IFGE L 137 END 138,IFGE L 139 END 140 END ...TEST IFD IFD A 201,IFD AD 202 END 203,IFD AU 204 END 205 END IFD AO 206,IFD ADO 207 END 208,IFD AA 209 END 210 END IFD OA 211,IFD AA 212 END 213,IFD AUO 214 END 215 END IFD O 216,IFD AA 217 END 218,IFD AA 219 END 220 END IFD AA 221,IFD OAD 222 END 223,IFD OAU 224 END 225 END IFD AA 226,IFD O 227 END 228,IFD AA 229 END 230 END IFD AA 231,IFD AA 232 END 233,IFD O 234 END 235 END IFD AA 236,IFD AA 237 END 238,IFD AA 239 END 240 END ... ...TEST IFU IFU AA 201,IFU AA 202 END 203,IFU AA 204 END 205 END IFU AA 206,IFU AA 207 END 208,IFU AU 209 END 210 END IFU AA 211,IFU AD 212 END 213,IFU AA 214 END 215 END IFU AA 216,IFU ADO 217 END 218,IFU AUO 219 END 220 END IFU A 221,IFU AA 222 END 223,IFU AA 224 END 225 END IFU AO 226,IFU AA 227 END 228,IFU OAU 229 END 230 END IFU OA 231,IFU OAD 232 END 233,IFU AA 234 END 235 END IFU O 236,IFU O 237 END 238,IFU O 239 END 240 END ... ...TEST IFA IFA A 201,IFA AD 202 END 203,IFA AU 204 END 205 END IFA AO 206,IFA ADO 207 END 208,IFA O 209 END 210 END IFA OA 211,IFA O 212 END 213,IFA AUO 214 END 215 END IFA A 216,IFA OO 217 END 218,IFA OO 219 END 220 END IFA O 221,IFA OAD 222 END 223,IFA OAU 224 END 225 END IFA OO 226,IFA A 227 END 228,IFA O 229 END 230 END IFA O 231,IFA O 232 END 233,IFA AU 234 END 235 END IFA OO 236,IFA OO 237 END 238,IFA OO 239 END 240 END ... ...TEST IFO IFO O 201,IFO O 202 END 203,IFO O 204 END 205 END IFO OA 206,IFO OAD 207 END 208,IFO A 209 END 210 END IFO AO 211,IFO A 212 END 213,IFO OAU 214 END 215 END IFO O 216,IFO AA 217 END 218,IFO AA 219 END 220 END IFO A 221,IFO ADO 222 END 223,IFO AUO 224 END 225 END IFO AA 226,IFO O 227 END 228,IFO A 229 END 230 END IFO A 231,IFO A 232 END 233,IFO O 234 END 235 END IFO AA 236,IFO AA 237 END 238,IFO AA 239 END 240 END ... ...TEST IFNA IFNA O 301,IFNA O 302 END 303,IFNA O 304 END 305 END IFNA OO 306,IFNA OO 307 END 308,IFNA AU 309 END 310 END IFNA O 311,IFNA AD 312 END 313,IFNA OO 314 END 315 END IFNA OO 316,IFNA ADO 317 END 318,IFNA AUO 319 END 320 END IFNA A 321,IFNA O 322 END 323,IFNA O 324 END 325 END IFNA AO 326,IFNA OO 327 END 328,IFNA OAU 329 END 330 END IFNA OA 331,IFNA OAD 332 END 333,IFNA OO 334 END 335 END IFNA A 336,IFNA AD 337 END 338,IFNA AU 339 END 340 END ... ...TEST IFNO IFNO A 301,IFNO A 302 END 303,IFNO A 304 END 305 END IFNO AA 306,IFNO AA 307 END 308,IFNO O 309 END 310 END IFNO A 311,IFNO O 312 END 313,IFNO AA 314 END 315 END IFNO AA 316,IFNO OAD 317 END 318,IFNO OAU 319 END 320 END IFNO O 321,IFNO A 322 END 323,IFNO A 324 END 325 END IFNO OA 326,IFNO AA 327 END 328,IFNO AUO 329 END 330 END IFNO AO 331,IFNO ADO 332 END 333,IFNO AA 334 END 335 END IFNO O 336,IFNO O 337 END 338,IFNO O 339 END 340 END IADR AU ADR AUO ADR OAU O,OA,OAD,OAU,AO,ADO,AUO 224,225,226 1,2,4,8,8,16,16,16,32,32,32,32 4,5,6,7,9,12,224,225,226 11,22,33,44,55,66,77 101,102,103,104,105 106,107,108, 110 111, 113,114,115 116, 118, 120 101,102,103,104,105 106,107,108, 110 111, 113,114,115 116, 118, 120 101,102,103,104,105 106,107,108, 110 111, 113,114,115 116, 118, 120 101,102,103,104,105 106,107,108, 110 111, 113,114,115 116, 118, 120 101,102,103,104,105 106,107,108, 110 111, 113,114,115 116, 118, 120 101,102,103,104,105 106,107,108, 110 111, 113,114,115 116, 118, 120 201,202,203,204,205 206,207,208, 210 211, 213,214,215 216, 218, 220 201,202,203,204,205 206,207,208, 210 211, 213,214,215 216, 218, 220 201,202,203,204,205 206,207,208, 210 211, 213,214,215 216, 218, 220 201,202,203,204,205 206,207,208, 210 211, 213,214,215 216, 218, 220 301,302,303,304,305 306,307,308, 310 311, 313,314,315 316, 318, 320 301,302,303,304,305 306,307,308, 310 311, 313,314,315 316, 318, 320 64,128,256 11,22,33,44,55,66,77 233TST BLK ...TABLE TO TEST ALL POSSIBLE COMBINATIONS OF ...DO-IF CLASS OPERATORS TTL '/58/ SEP='/,/ O=11 OA=22 OAD=33 OAU=44 LOC AU LOC AUO LOC OAU ADR A ADR AO ADR OA 2DUP ADR AD 3DUP ADR ADO 4DUP ADR OAD AO=55 ADO=66 AUO=77 LOC A LOC AO LOC OA LOC AD LOC ADO LOC OAD LOC AU LOC AUO LOC OAU 1BIT A 2BIT AO 3BIT OA 4BIT AD 5BIT ADO 6BIT OAD 7BIT AU 8BIT AUO 9BIT OAU O,OA,OAD,OAU,AO,ADO,AUO L=-1,E=0,G=1 ... ...TEST DIG 14DIG G 101 SEP 2DIG G 102 SEP 103 SEP 2DIG G 104 SEP 105 SEP 14DIG G 106 SEP 2DIG G 107 SEP 108 SEP 2DIG E 109 SEP 110 SEP 14DIG G 111 SEP 2DIG E 112 SEP 113 SEP 2DIG G 114 SEP 115 SEP 14DIG G 116 SEP 2DIG L 117 SEP 118 SEP 2DIG L 119 SEP 120 SEP 14DIG E 121 SEP 2DIG G 122 SEP 123 SEP 2DIG G 124 SEP 125 SEP 14DIG L 126 SEP 2DIG G 127 SEP 128 SEP 2DIG E 129 SEP 130 SEP 14DIG E 131 SEP 2DIG E 132 SEP 133 SEP 2DIG G 134 SEP 135 SEP 14DIG L 136 SEP 2DIG L 137 SEP 138 SEP 2DIG L 139 SEP 140 SEP ... ...TEST DIE 14DIE E 101 SEP 2DIE E 102 SEP 103 SEP 2DIE E 104 SEP 105 SEP 14DIE E 106 SEP 2DIE E 107 SEP 108 SEP 2DIE G 109 SEP 110 SEP 14DIE E 111 SEP 2DIE G 112 SEP 113 SEP 2DIE E 114 SEP 115 SEP 14DIE E 116 SEP 2DIE L 117 SEP 118 SEP 2DIE L 119 SEP 120 SEP 14DIE G 121 SEP 2DIE E 122 SEP 123 SEP 2DIE E 124 SEP 125 SEP 14DIE L 126 SEP 2DIE E 127 SEP 128 SEP 2DIE G 129 SEP 130 SEP 14DIE G 131 SEP 2DIE G 132 SEP 133 SEP 2DIE E 134 SEP 135 SEP 14DIE L 136 SEP 2DIE L 137 SEP 138 SEP 2DIE L 139 SEP 140 SEP ... ...TEST DILE 14DILE L 101 SEP 2DILE L 102 SEP 103 SEP 2DILE L 104 SEP 105 SEP 14DILE E 106 SEP 2DILE E 107 SEP 108 SEP 2DILE G 109 SEP 110 SEP 14DILE L 111 SEP 2DILE G 112 SEP 113 SEP 2DILE E 114 SEP 115 SEP 14DILE E 116 SEP 2DILE G 117 SEP 118 SEP 2DILE G 119 SEP 120 SEP 14DILE G 121 SEP 2DILE L 122 SEP 123 SEP 2DILE L 124 SEP 125 SEP 14DILE G 126 SEP 2DILE E 127 SEP 128 SEP 2DILE G 129 SEP 130 SEP 14DILE G 131 SEP 2DILE G 132 SEP 133 SEP 2DILE E 134 SEP 135 SEP 14DILE G 136 SEP 2DILE G 137 SEP 138 SEP 2DILE G 139 SEP 140 SEP ...TEST DIGE 14DIGE G 101 SEP 2DIGE G 102 SEP 103 SEP 2DIGE G 104 SEP 105 SEP 14DIGE E 106 SEP 2DIGE E 107 SEP 108 SEP 2DIGE L 109 SEP 110 SEP 14DIGE G 111 SEP 2DIGE L 112 SEP 113 SEP 2DIGE E 114 SEP 115 SEP 14DIGE E 116 SEP 2DIGE L 117 SEP 118 SEP 2DIGE L 119 SEP 120 SEP 14DIGE L 121 SEP 2DIGE G 122 SEP 123 SEP 2DIGE G 124 SEP 125 SEP 14DIGE L 126 SEP 2DIGE E 127 SEP 128 SEP 2DIGE L 129 SEP 130 SEP 14DIGE L 131 SEP 2DIGE L 132 SEP 133 SEP 2DIGE E 134 SEP 135 SEP 14DIGE L 136 SEP 2DIGE L 137 SEP 138 SEP 2DIGE L 139 SEP 140 SEP ...TEST DIL 14DIL L 101 SEP 2DIL L 102 SEP 103 SEP 2DIL L 104 SEP 105 SEP 14DIL L 106 SEP 2DIL L 107 SEP 108 SEP 2DIL E 109 SEP 110 SEP 14DIL L 111 SEP 2DIL E 112 SEP 113 SEP 2DIL L 114 SEP 115 SEP 14DIL L 116 SEP 2DIL G 117 SEP 118 SEP 2DIL G 119 SEP 120 SEP 14DIL E 121 SEP 2DIL L 122 SEP 123 SEP 2DIL L 124 SEP 125 SEP 14DIL G 126 SEP 2DIL L 127 SEP 128 SEP 2DIL E 129 SEP 130 SEP 14DIL E 131 SEP 2DIL E 132 SEP 133 SEP 2DIL L 134 SEP 135 SEP 14DIL G 136 SEP 2DIL G 137 SEP 138 SEP 2DIL G 139 SEP 140 SEP ... ...TEST DIN 14DIN G 101 SEP 2DIN G 102 SEP 103 SEP 2DIN G 104 SEP 105 SEP 14DIN L 106 SEP 2DIN L 107 SEP 108 SEP 2DIN E 109 SEP 110 SEP 14DIN G 111 SEP 2DIN E 112 SEP 113 SEP 2DIN L 114 SEP 115 SEP 14DIN L 116 SEP 2DIN E 117 SEP 118 SEP 2DIN E 119 SEP 120 SEP 14DIN E 121 SEP 2DIN G 122 SEP 123 SEP 2DIN G 124 SEP 125 SEP 14DIN E 126 SEP 2DIN L 127 SEP 128 SEP 2DIN E 129 SEP 130 SEP 14DIN E 131 SEP 2DIN E 132 SEP 133 SEP 2DIN L 134 SEP 135 SEP 14DIN E 136 SEP 2DIN E 137 SEP 138 SEP 2DIN E 139 SEP 140 SEP ... ...TEST DID 14DID A 201 SEP 2DID AD 202 SEP 203 SEP 2DID AU 204 SEP 205 SEP 14DID AO 206 SEP 2DID ADO 207 SEP 208 SEP 2DID AA 209 SEP 210 SEP 14DID OA 211 SEP 2DID AA 212 SEP 213 SEP 2DID AUO 214 SEP 215 SEP 14DID O 216 SEP 2DID AA 217 SEP 218 SEP 2DID AA 219 SEP 220 SEP 14DID AA 221 SEP 2DID OAD 222 SEP 223 SEP 2DID OAU 224 SEP 225 SEP 14DID AA 226 SEP 2DID O 227 SEP 228 SEP 2DID AA 229 SEP 230 SEP 14DID AA 231 SEP 2DID AA 232 SEP 233 SEP 2DID O 234 SEP 235 SEP 14DID AA 236 SEP 2DID AA 237 SEP 238 SEP 2DID AA 239 SEP 240 SEP ... ...TEST DIU 14DIU AA 201 SEP 2DIU AA 202 SEP 203 SEP 2DIU AA 204 SEP 205 SEP 14DIU AA 206 SEP 2DIU AA 207 SEP 208 SEP 2DIU AU 209 SEP 210 SEP 14DIU AA 211 SEP 2DIU AD 212 SEP 213 SEP 2DIU AA 214 SEP 215 SEP 14DIU AA 216 SEP 2DIU ADO 217 SEP 218 SEP 2DIU AUO 219 SEP 220 SEP 14DIU A 221 SEP 2DIU AA 222 SEP 223 SEP 2DIU AA 224 SEP 225 SEP 14DIU AO 226 SEP 2DIU AA 227 SEP 228 SEP 2DIU OAU 229 SEP 230 SEP 14DIU OA 231 SEP 2DIU OAD 232 SEP 233 SEP 2DIU AA 234 SEP 235 SEP 14DIU O 236 SEP 2DIU O 237 SEP 238 SEP 2DIU O 239 SEP 240 SEP ... ...TEST DIA 14DIA A 201 SEP 2DIA AD 202 SEP 203 SEP 2DIA AU 204 SEP 205 SEP 14DIA AO 206 SEP 2DIA ADO 207 SEP 208 SEP 2DIA O 209 SEP 210 SEP 14DIA OA 211 SEP 2DIA O 212 SEP 213 SEP 2DIA AUO 214 SEP 215 SEP 14DIA A 216 SEP 2DIA OO 217 SEP 218 SEP 2DIA OO 219 SEP 220 SEP 14DIA O 221 SEP 2DIA OAD 222 SEP 223 SEP 2DIA OAU 224 SEP 225 SEP 14DIA OO 226 SEP 2DIA A 227 SEP 228 SEP 2DIA O 229 SEP 230 SEP 14DIA O 231 SEP 2DIA O 232 SEP 233 SEP 2DIA AU 234 SEP 235 SEP 14DIA OO 236 SEP 2DIA OO 237 SEP 238 SEP 2DIA OO 239 SEP 240 SEP ... ...TEST DIO 14DIO O 201 SEP 2DIO O 202 SEP 203 SEP 2DIO O 204 SEP 205 SEP 14DIO OA 206 SEP 2DIO OAD 207 SEP 208 SEP 2DIO A 209 SEP 210 SEP 14DIO AO 211 SEP 2DIO A 212 SEP 213 SEP 2DIO OAU 214 SEP 215 SEP 14DIO O 216 SEP 2DIO AA 217 SEP 218 SEP 2DIO AA 219 SEP 220 SEP 14DIO A 221 SEP 2DIO ADO 222 SEP 223 SEP 2DIO AUO 224 SEP 225 SEP 14DIO AA 226 SEP 2DIO O 227 SEP 228 SEP 2DIO A 229 SEP 230 SEP 14DIO A 231 SEP 2DIO A 232 SEP 233 SEP 2DIO O 234 SEP 235 SEP 14DIO AA 236 SEP 2DIO AA 237 SEP 238 SEP 2DIO AA 239 SEP 240 SEP ... ...TEST DINA 14DINA O 301 SEP 2DINA O 302 SEP 303 SEP 2DINA O 304 SEP 305 SEP 14DINA OO 306 SEP 2DINA OO 307 SEP 308 SEP 2DINA AU 309 SEP 310 SEP 14DINA O 311 SEP 2DINA AD 312 SEP 313 SEP 2DINA OO 314 SEP 315 SEP 14DINA OO 316 SEP 2DINA ADO 317 SEP 318 SEP 2DINA AUO 319 SEP 320 SEP 14DINA A 321 SEP 2DINA O 322 SEP 323 SEP 2DINA O 324 SEP 325 SEP 14DINA AO 326 SEP 2DINA OO 327 SEP 328 SEP 2DINA OAU 329 SEP 330 SEP 14DINA OA 331 SEP 2DINA OAD 332 SEP 333 SEP 2DINA OO 334 SEP 335 SEP 14DINA A 336 SEP 2DINA AD 337 SEP 338 SEP 2DINA AU 339 SEP 340 SEP ... ...TEST DINO 14DINO A 301 SEP 2DINO A 302 SEP 303 SEP 2DINO A 304 SEP 305 SEP 14DINO AA 306 SEP 2DINO AA 307 SEP 308 SEP 2DINO O 309 SEP 310 SEP 14DINO A 311 SEP 2DINO O 312 SEP 313 SEP 2DINO AA 314 SEP 315 SEP 14DINO AA 316 SEP 2DINO OAD 317 SEP 318 SEP 2DINO OAU 319 SEP 320 SEP 14DINO O 321 SEP 2DINO A 322 SEP 323 SEP 2DINO A 324 SEP 325 SEP 14DINO OA 326 SEP 2DINO AA 327 SEP 328 SEP 2DINO AUO 329 SEP 330 SEP 14DINO AO 331 SEP 2DINO ADO 332 SEP 333 SEP 2DINO AA 334 SEP 335 SEP 14DINO O 336 SEP 2DINO O 337 SEP 338 SEP 2DINO O 339 SEP 340 SEP IADR AU ADR AUO ADR OAU O,OA,OAD,OAU,AO,ADO,AUO 224,225,226 1,2,4,8,8,16,16,16,32,32,32,32 4,5,6,7,9,12,224,225,226 11,22,33,44,55,66,77 101,102,103,104,105 106,107,108, 110 111, 113,114,115 116, 118, 120 101,102,103,104,105 106,107,108, 110 111, 113,114,115 116, 118, 120 101,102,103,104,105 106,107,108, 110 111, 113,114,115 116, 118, 120 101,102,103,104,105 106,107,108, 110 111, 113,114,115 116, 118, 120 101,102,103,104,105 106,107,108, 110 111, 113,114,115 116, 118, 120 101,102,103,104,105 106,107,108, 110 111, 113,114,115 116, 118, 120 201,202,203,204,205 206,207,208, 210 211, 213,214,215 216, 218, 220 201,202,203,204,205 206,207,208, 210 211, 213,214,215 216, 218, 220 201,202,203,204,205 206,207,208, 210 211, 213,214,215 216, 218, 220 201,202,203,204,205 206,207,208, 210 211, 213,214,215 216, 218, 220 301,302,303,304,305 306,307,308, 310 311, 313,314,315 316, 318, 320 301,302,303,304,305 306,307,308, 310 311, 313,314,315 316, 318, 320 64,128,256 11,22,33,44,55,66,77 233TST BLK TTL'+59+7TST AA=-1'/+5/,BB=-1'/+15/,CC=-1'/+25/,DD=-1'/+30/ AA A=5 B=20 BB C=15,D=40 CC E== 25, DD F== 30 G=70,TTY TTY G,F,E,D,C,B,A 70,60,50,40,30,20,10 BLK TTL'+60+8TST A=-1'/,22/,B=-1'/,44/,C=-1'/,66/,D=-1'/,88/ A 11,TTY B 33 TTY C 55,,, ,TTY D 77 ,, ,TTY 11,22,33,44,55,66,77,88 BLK ...TABLE WHICH MODELS THE DIRECTORY SETS USED ...IN THE LHASA-10 PROGRAM ... ...FUNCTION F0 ASSIGNS A UNIQUE NAME TO THE PRESENT ...OR FOLLOWING ASSEMBLED TABLE ENTRY. IT IS EQUIVALENT ...TO THE APPEARANCE OF THE TEXT LOA Q0 WHERE Q0 ...IS THE UNIQUE NAME ... ...FUNCTION F1 FORMS DIRECTORY OF THE ADDRESS LABELS ...ASSIGNED BY FUNCTION F0, ASSIGNS A UNIQUE NAME TO THE ...FIRST ENTRY IN THIS DIRECTORY, AND CLEARS THE LABELS ...ASSIGNED BY F0 FROM THE TBLTRN SYMBOL DICTIONARY ... ...FUNCTION F2 TURNS ON THOSE SETS AND ONLY THOSE ...SETS WHICH HAVE BEEN REFERENCED PRIOR TO ITS APPEARANCE. ...THESE ARE PRECEDED BY A DIRECTORY SET HAVING ON ONLY ...THOSE BITS WHICH CORRESPOND TO THE SETS CREATED ... ...DEFINE F0 ... N0=0...COUNT OF TIMES F0 CALLED ...N0 IS RESET AGAIN TO 0 BY F1 P0='+:Q0:Q1:Q2:Q3:Q4:Q5:Q6:Q7:Q8:Q9 O2 P1 P1='+:R0:R1:R2:R3:R4:R5:R6:R7:R8:R9 O2 P2 P2='+:S0:S1:S2:S3:S4:S5:S6:S7:S8:S9 O2 P3 P3='+:R0:T1:T2:T3:T4:T5:T6:T7:T8:T9 O2 P4 P4='+:U0:U1:U2:U3:U4:U5:U6:U7:U8:U9 O2 P5 P5='+:V0:V1:V2:V3:V4:V5:V6:V7:V8:V9 O2 P6 P6='+:W0:W1:W2:W3:W4:W5:W6:W7:W8:W9 O2 P7 P7='+:X0:X1:X2:X3:X4:X5:X6:X7:X8:X9 O2 P8 P8='+:Y0:Y1:Y2:Y3:Y4:Y5:Y6:Y7:Y8:Y9 O2 P9 P9='+:Z0:Z1:Z2:Z3:Z4:Z5:Z6:Z7:Z8:Z9 O2 O0 N2='+'/1RED N1 2DIE N1 LOA /+...DEFINITION OF : IN F0 O0='+''/FUNCTION OVERFLOW/+...TEST IF CALLED TOO MANY TIMES F0='+1INC N0 DEF N0 N1 P0 O4='+1DIG N1 O2='+O4 ACC'+::+,:=N2 ... ...DEFINE F1 ... ...A0, A1 THRU AN ARE THE ADDRESSES OF THE DIRECTORIES ... N3=0...COUNT OF TIMES F1 CALLED TO MAKE F0 DIRECTORY N6='+::A0::A1::A2::A3::A4 O1 ::='+1RED N9 2DIE N9 LOA + O1='+1DIG N9 O0+...TEST IF CALLED TOO MANY TIMES N4='+'/,1DIG N9 N6 4DIG N1 1RED N1 LOC /+...DEFINITION OF : IN F1 F1='+1DIG N0 N5 N5='+,XSY:,:=N4,1INC N3 DEF N3 N9 N7 N7='+DEF N0 N1 P0 N8 O5='+,1DIG N1 N8='+DEF N0 N1,XSY:O2,:='/,1RED N1 XAD /,O2='/O5/,P0,O3 O3='+0DEF N0 XSY:O2,:=N2,O2='/O4/, + ... ...DEFINE F2 ... ...B0, B1 THRU BN ARE THE ADDRESSES OF THE DIRECTORY SETS ... ...DEST1, DEST2 THRU DESTN ARE THE NAMES OF THE SETS ...WHICH ARE TO BE CREATED IF REFERENCED ... O6=0...COUNT OF TIMES F2 CALLED SUCCESSFULLY D0='+:DEST1,:DEST2,:DEST3,:DEST4,D1 D1='+:DEST5,:DEST6,:DEST7,:DEST8,D2 D2='+:DEST9,:DEST10 C2='+::B0::B1::B2::B3::B4 O1 C4='+'/,1INC C6 C7 /+ C7='+1DIA C3 C11 C10 O7='+1DEF C5 1INC O6 O8 O8='+DEF O6 N9 O9 SET C2 F2='+,XSY:,:=C4,C5=0,C6=-1,D0,C9 C9='+,:,,XSY:C3,:=N2, + C10='+XSY C3,C3=', C11='+1DIE C5 O7,C12 C12='+C3 SET BIT C6 O9 XAD C3, SET='+NUL LOC A0,LOC B0,LOC A1,LOC B1,LOC A2,LOC B2 6BIT DEST4 4BIT DEST6 6BIT DEST6 2BIT DEST1 F0 101,F0 102,102 4BIT DEST1 4BIT DEST4 5BIT DEST6 3BIT DEST6 F2 F1 ... 3BIT DEST2 3BIT DEST3 3BIT DEST10 5BIT DEST2 F0 101,F0 102,102,F0 103,F0 104,104,F0 105 4BIT DEST3 6BIT DEST10 2BIT DEST3 5BIT DEST3 F0 106,F0 107,107,F0 108,F0 109,109,F0 110 7BIT DEST10 F0 111 F2 F1 ... 6BIT DEST5 5BIT DEST8 3BIT DEST7 7BIT DEST7 F0 101,F0 102,102, 5BIT DEST9 2BIT DEST9 2BIT DEST7 5BIT DEST5 2BIT DEST5 7BIT DEST8 7BIT DEST9 4BIT DEST9 F2 F1 ... 14,10,35,31,54,49 101,102,102 41,10,40,60 7,8 101,102,102,103,104,104,105 106,107,107,108,109,109,110 111 518,20,30,100 16,17,19,20,22,23,24,26,27,29,30 101,102,102 464,50,70,80,90 46,47 TTL'+61+55TST BLK ...TEST ALL POSSIBLE COMBINATIONS OF LINE ...CONTINUATIONS AFTER XSY OPERATOR TTL'+62+10TST ... ... CC='+DD+,DD=22 ... ... AA='+63+,BB='+63+,XSY AA BB,,, CC 11,DD,DD=44,CC='+DD ... ... AA='+63+,BB='+63+,XSY AA BB ,,CC 33,DD,CC='+DD+,DD=55 ... ... AA='+63+,BB='+63+,XSY AA BB CC,66,DD+22,XSY CC,CC='+,,DD+,DD=88 ... ... AA='+63+,BB='+63+,XSY AA BB CC,99,DD+22 ... ... 11,22,33,44,55,66,77,88,99,110 BLK FGSET=2...NUMBER OF ENTRIES PER FUNCTIONAL GROUP SET RXSET=3...NUMBER OF ENTRIES PER REACTION SET ...TABLE WHICH MODELS THE DIRECTORY SETS USED ...IN THE LHASA-10 PROGRAM ... ...FUNCTION F0 ASSIGNS A UNIQUE NAME TO THE PRESENT ...OR FOLLOWING ASSEMBLED TABLE ENTRY. IT IS EQUIVALENT ...TO THE APPEARANCE OF THE TEXT LOA Q0 WHERE Q0 ...IS THE UNIQUE NAME ... ...FUNCTION F1 FORMS DIRECTORY OF THE ADDRESS LABELS ...ASSIGNED BY FUNCTION F0, ASSIGNS A UNIQUE NAME TO THE ...FIRST ENTRY IN THIS DIRECTORY, AND CLEARS THE LABELS ...ASSIGNED BY F0 FROM THE TBLTRN SYMBOL DICTIONARY ... ...FUNCTION F2 TURNS ON THOSE SETS AND ONLY THOSE ...SETS WHICH HAVE BEEN REFERENCED PRIOR TO ITS APPEARANCE. ...THESE ARE PRECEDED BY A DIRECTORY SET HAVING ON ONLY ...THOSE BITS WHICH CORRESPOND TO THE SETS CREATED ... ...DEFINE F0 ... N0=0...COUNT OF TIMES F0 CALLED ...N0 IS RESET AGAIN TO 0 BY F1 F0='+NSN'/Z/NSV N0 LOA NST 1INC N0 ... ...DEFINE F1 ... ...A0, A1 THRU AN ARE THE ADDRESSES OF THE DIRECTORIES ... N1=0 F1='+,1DIG N0 F1A, + F1A='+NSV N1 NSN'/A/NST 1INC N1 0DEF Q0 NSN'/Z/F1B F1B='+NSV Q0 LOC NST XAD NST,1INC Q0 1RED N0 1DIG N0 F1B ... ...DEFINE F2 ... ...B0, B1 THRU BN ARE THE ADDRESSES OF THE DIRECTORY SETS ... N2=0 F2='+,64DEF Q0 0DEF Q1 0DEF Q2 NSN'/X/F2A, + F2A='+,NSV Q1 1INC Q1 1RED Q0 1DIA NST F2B 1DIG Q0 F2A F2B='+1DIE Q2 F2C NST WRD Q4 NUL BIT Q1 Q3 XAD NST, F2C='+1DEF Q2 NSN'/B/NSV N2 NST Q3 WRD FGSET NUL F2D F2D='+1INC N2 NSN'/X/1RED Q1 NSV Q1 1INC Q1, Q4=RXSET+RXSET ... ...DEFINE GROUP1, GROUP2 AND OR OR='/,Q6=1RIT/1'/-1,NSV Q6 WRD Q5 BIT N0 NST/ GROUP1='+NSN'/X/,Q5=1,XSY Q6,OR GROUP2='*NSN'/X/,Q5=RXSET+1,XSY Q6,OR MUST=,CAN=,BE= PATHEND='+F1 F2 ... ...NOTE IF FUNCTIONAL GROUP NUMBERS EXTEND FROM ...0 TO 63 RATHER THAN FROM 1 TO 64, THE CHARACTERS -1 ...MUST BE REMOVED FROM DEFINITION OF OR SYMBOL ... ...ALSO NOTE THAT THE ACTUAL SHIFT USED IN DEFINITION ...OF OR SYMBOL IS 25RIT RATHER THAN 1RIT ... ...TEST TABLE ... 5BPR ONE=2 TWO=4 THREE=6 FOUR=8 FIVE=10 SIX=12 SEVEN=14 EIGHT=16 NINE=18 TEN=20 RATING='/XAD BLOCK1 BLOCK2 BLOCK3,F0 100+ BEGIN='/-LOC.+LOC BLKEND='+,,HIA ... ...BEGIN SAMPLE STATEMENTS ... LOC B0,LOC A0,+LOC B0-LOC A0 LOC B1,LOC A1,+LOC B0-LOC A0+LOC B1-LOC A1 LOC B2,LOC A2,+LOC B0-LOC A0+LOC B1-LOC A1+LOC B2-LOC A2 ... RATING 10 GROUP1 CAN BE THREE OR FIVE OR TEN GROUP2 CAN BE TWO OR FIVE BEGIN BLOCK1 111 222 BLKEND BLOCK1 BEGIN BLOCK2 333 444 BLKEND BLOCK2 ... RATING 20 GROUP1 CAN BE ONE OR FIVE OR NINE GROUP2 CAN BE TWO OR THREE OR FOUR BEGIN BLOCK1 555 BLKEND BLOCK1 ... RATING 30 GROUP1 CAN BE TWO OR FIVE BEGIN BLOCK1 666 777 888 BLKEND BLOCK1 BEGIN BLOCK2 999 1010 BLKEND BLOCK2 ... RATING 40 GROUP2 CAN BE FIVE OR SIX BEGIN BLOCK1 1111 1212 BLKEND BLOCK1 ... RATING 50 GROUP2 CAN BE FOUR OR FIVE BEGIN BLOCK1 1313 1414 1515 BLKEND BLOCK1 ... RATING 60 GROUP1 CAN BE TWO OR THREE GROUP2 CAN BE THREE OR FOUR BEGIN BLOCK1 1616 BLKEND BLOCK1 ... RATING 70 GROUP1 CAN BE FIVE OR SIX GROUP2 CAN BE FOUR OR FIVE BEGIN BLOCK1 1717 1818 BLKEND BLOCK1 ... PATHEND ... RATING 80 GROUP1 CAN BE TWO GROUP2 CAN BE TWO BEGIN BLOCK1 1919 2020 BLKEND BLOCK1 BEGIN BLOCK2 2121 BLKEND BLOCK2 ... RATING 90 GROUP1 CAN BE TWO GROUP2 CAN BE TWO BEGIN BLOCK1 2222 2323 BLKEND BLOCK1 ... PATHEND ... RATING 100 GROUP1 CAN BE ONE OR TWO GROUP2 CAN BE THREE OR FOUR BEGIN BLOCK1 2424 BLKEND BLOCK1 ... RATING 110 GROUP1 CAN BE FIVE OR SIX GROUP2 CAN BE SEVEN OR EIGHT BEGIN BLOCK1 2525 BLKEND BLOCK1 BEGIN BLOCK2 2626 2727 BLKEND BLOCK2 ... RATING 120 GROUP1 CAN BE NINE OR TEN BEGIN BLOCK1 2828 BLKEND BLOCK1 ... PATHEND TTL'+63+197TST 51,44,7 113,111,9 136,133,12 110,2,111,222 2,333,444 120,1,555 130,3,666,777,888 2,999,1010 140,2,1111,1212 150,3,1313,1414,1515 160,1,1616 170,2,1717,1818 10,17,20,28,32,37,40 31,25 2,0,0,0,0,0 4,1,0,3,0,0 1,1,0,2,1,0 0,0,0,18,3,0 7,2,0,25,2,0 0,2,0,8,0,0 2,0,0,0,0,0 1,0,0,0,0,0 180,2,1919,2020 1,2121 190,2,2222,2323 101,107 2,0 3,0,0,3,0,0 200,1,2424 210,1,2525 2,2626,2727 220,1,2828 121,124,130 31,31 1,0,0,0,0,0 1,0,0,0,0,0 0,0,0,1,0,0 0,0,0,1,0,0 2,0,0,0,0,0 2,0,0,0,0,0 0,0,0,2,0,0 0,0,0,2,0,0 4,0,0,0,0,0 4,0,0,0,0,0 BLK ...TABLE TO TEST BSZ OPERATOR ... TTL'/64/66TST W=BIT,10BPR Y1=1W,Y2=2W,Y3=3W,Y4=11W,Y5=12W,Y6=13W X1=1W,X2=2W,X3=3W,X4=11W,X5=12W,X6=13W Z1=1W,Z2=2W,Z3=3W,Z4=4W,Z5=5W,Z6=6W Z7=7W,Z8=8W,Z9=9W,Z10=10W,Z11=11W,Z12=12W Z13=13W,Z14=14W,Z15=15W,Z16=16W,Z17=17W,Z18=18W Z19=19W,Z20=20W ... ...DEPOSIT INTO KNOWN DUPLICATED ENTRY ... 3DUP A 3WRD B 5WRD C 6WRD NUL Z15 C Z6 C Z9 C Z14 C Z20 C Z2 C Z8 C Z7 C Z13 C Z5 C Z17 C Z4 C Z12 C Z11 C 8BSZ Y3 B Y6 B Y5 B Y2 B Y3 B Y4 B Y2 B Y3 B Y6 B Y4 B Y6 B Y6 B Y2 B Y2 B Y3 B Y4 B Y4 B Y6 B Y6 B Y2 B Y2 B Y4 B Y5 B 10BSZ X3 A X6 A X4 A X4 A X4 A X1 A X6 A X1 A ... ...DEPOSIT INTO KNOWN UNDUPLICATED ENTRY ... A 3WRD B 5WRD C 6WRD NUL 2BSZ Z7 A Z4 A Z19 A Z13 A Z8 A Z16 A Z1 A Z14 A Z12 A 8BSZ Y2 B Y6 B Y3 B Y3 B Y5 B Y2 B Y1 B Y1 B Y3 B Y3 B Y6 B Y6 B Y3 B Y5 B Y5 B Y5 B Y5 B Y5 B Y6 B Y6 B Y3 B Y5 B Y6 B Y1 B Y6 B 10BSZ X3 C X6 C X4 C X3 C X6 C X1 C X4 C X6 C X3 C X4 C X1 C X3 C X6 C X4 C X3 C X6 C X6 C X4 C X3 C X1 C X4 C X1 C X6 C X1 C ... ...DEPOSIT INTO UNKNOWN DUPLICATED ENTRY ... XAD A B C 2BSZ Z15 C Z6 C Z9 C Z14 C Z20 C Z2 C Z8 C Z7 C Z13 C Z5 C Z17 C Z4 C Z12 C Z11 C 8BSZ Y3 B Y6 B Y5 B Y2 B Y3 B Y4 B Y2 B Y3 B Y6 B Y4 B Y6 B Y6 B Y2 B Y2 B Y3 B Y4 B Y4 B Y6 B Y6 B Y2 B Y2 B Y4 B Y5 B 10BSZ X3 A X6 A X4 A X4 A X4 A X1 A X6 A X1 A 3DUP A 3WRD B 5WRD C 6WRD NUL ... ...DEPOSIT INTO UNKNOWN UNDUPLICATED ENTRY ... XAD A B C 2BSZ Z7 A Z4 A Z19 A Z13 A Z8 A Z16 A Z1 A Z14 A Z12 A 8BSZ Y2 B Y6 B Y3 B Y3 B Y5 B Y2 B Y1 B Y1 B Y3 B Y3 B Y6 B Y6 B Y3 B Y5 B Y5 B Y5 B Y5 B Y5 B Y6 B Y6 B Y3 B Y5 B Y6 B Y1 B Y6 B 10BSZ X3 C X6 C X4 C X3 C X6 C X1 C X4 C X6 C X3 C X4 C X1 C X3 C X6 C X4 C X3 C X6 C X6 C X4 C X3 C X1 C X4 C X1 C X6 C X1 C A 3WRD B 5WRD C 6WRD NUL ... ...TEST VARIOUS COMBINATIONS INCLUDING BIT. ... XAD A B C 10BSZ 2WRD X3 A X1 A 8BSZ 3WRD Y3 A 4WRD Y3 A 2WRD Y3 B Y6 B Y2 B 2BSZ 5WRD Z9 A Z14 C Z7 C ... SKIP=MSK. ... 10BSZ X6.2WRD X1.8BSZ Y3 B 4WRD Y3.,,, 3WRD Y2.Y2 B 2BSZ Z8 C SKIP ,,4WRD Z15.SKIP 2WRD Z10 C 8BSZ Y3.Y2 B,,, SKIP LOA A Y2. 2WRD Y2 B 3WRD LOA B,,, 2WRD ADR C 2BSZ Z6 C 8BSZ 3WRD Y4 A Y1.,,, Y2 B ... 10BSZ X3 A X4 A X1 A X4 A 8BSZ 3WRD Y2 A 3WRD Y4 A Y4 B 2WRD Y3 B Y3 B 2WRD Y3 B Y4 B 2BSZ Z5 C 2WRD Z7 C 5WRD Z4 A 4WRD Z3 B 3WRD Z2 B Z12 C Z11 C XAD A B C 10BSZ 2WRD X3 A X1 A 8BSZ 3WRD Y3 A 4WRD Y3 A 2WRD Y3 B Y6 B Y2 B 2BSZ 5WRD Z9 A Z14 C Z7 C ... SKIP=MSK. ... 2DUP 10BSZ X6.2WRD X1.8BSZ Y3 B 4WRD Y3.,,, 3WRD Y2.Y2 B 2BSZ Z8 C SKIP ,,4WRD Z15.SKIP 2WRD Z10 C 8BSZ Y3.Y2 B,,, SKIP LOA A Y2. 2WRD Y2 B 3WRD LOA B,,, 2WRD ADR C 2BSZ Z6 C 8BSZ 3WRD Y4 A Y1.,,, Y2 B ... 10BSZ X3 A X4 A X1 A X4 A 8BSZ 3WRD Y2 A 3WRD Y4 A Y4 B 2WRD Y3 B Y3 B 2WRD Y3 B Y4 B 2BSZ Z5 C 2WRD Z7 C 5WRD Z4 A 4WRD Z3 B 3WRD Z2 B Z12 C Z11 C 102,203,304,405,506,607 102,203,304,405,506,607 102,203,304,405,506,607 201,302,403,504,605,706 102,203,304,405,506,607 102,203,304,405,506,607 102,203,304,405,506,607 201,302,403,504,605,706 102,203,304,405,506,607 102,203,304,405,506,607 102,203,304,405,506,607 BLK ... ...TABLE TO TEST SUPPRESSION OF VAIOUS TYPES OF SYMBOLS ...WITHIN RANGE OF IF AND DO-IF OPERATORS ... TTL'+65+24TST A=-1'/COMMA..ONETWOSEVEN 55 B=-1'/COMMA..ONETWOSEVEN 66 C=-1'/COMMA..ONETWOSEVEN 77 D=-1'/COMMA..ONETWOSEVEN 88/ E=-1'/COMMA..ONETWOSEVEN/ F=-1'/COMMA..ONETWOSEVEN,22 G=-1'/COMMA..ONETWOSEVEN,66 H=-1'/,255/ NOT=1 ONETWOSEVEN=127 COMMA='+, IFEND='+END ..= ... ...TEST SUPPRESSION OF SYMBOLS IN RANGE OF UNFULFILLED DO-IF ... 5DIE..NOT..63'+,+'+255+COMMA..ONETWOSEVEN 11 5DIE..NOT..63'+,+,,, '+255+COMMA..ONETWOSEVEN 22 5DIE..NOT..63'+,+ ,,'+255+COMMA..ONETWOSEVEN 33 5DIE..NOT..63'+,+,,, ,,'+255+COMMA..ONETWOSEVEN 44 ... ...TEST SUPPRESSION OF SYMBOLS IN RANGE OF UNFULFILLED IF ... IFE..NOT..63'+END+'+255+IFEND ONETWOSEVEN END 55 IFE..NOT..63'+END+,,, '+255+IFEND ONETWOSEVEN END 66 IFE..NOT..63'+END+ ,,'+255+IFEND ONETWOSEVEN END 77 IFE..NOT..63'+END+,,, ,,'+255+IFEND ONETWOSEVEN END 88 ... ...TEST DO-IF CLASS WITH RANGE GREATER THAN NUMBER ...OF SYMBOLS IN STATEMENT ... 8DIE..NOT..63'+,+'+255+COMMA..ONETWOSEVEN 11 8DIE..NOT..63'+,+,,, '+255+COMMA..ONETWOSEVEN,22 8DIE..NOT..63'+,+ ,,'+255+COMMA..ONETWOSEVEN,33 8DIE..NOT..63'+,+,,, ,,'+255+COMMA..ONETWOSEVEN 44 ... ...TEST FUNCTION BEFORE RANGE OF UNFULFILLED DO-IF ... A 5DIE..NOT..63'+,+'+255+ B 5DIE..NOT..63'+,+,,, '+255+ C 5DIE..NOT..63'+,+ ,,'+255+ D 5DIE..NOT..63'+,+,,, ,,'+255+ ... ...TEST FUNCTION BEFORE UNFULFILLED DO-IF WITH RANGE GREATER ...THAN STATEMENT AFTER REPLACEMENT ... E 8DIE..NOT..63'+,+'+255+ 11 F 8DIE..NOT..63'+,+,,, '+255+ E 8DIE..NOT..63'+,+ ,,'+255+,33 E 8DIE..NOT..63'+,+,,, ,,'+255+ 44 ... ...TEST SUPRESSION OF FUNCTION WITHIN RANGE OF UNFULFILLED DO-IF ... E 8DIE..NOT..63'+,+H 55 G 8DIE..NOT..63'+,+,,, H E 8DIE..NOT..63'+,+ ,,H,77 E 8DIE..NOT..63'+,+,,, ,,H 88 11,22,33,44,55,66,77,88 11,22,33,44,55,66,77,88 11,22,33,44,55,66,77,88 BLK ... ...TEST ACC OPERATOR ... TTL'/66/36TST KILL=BLK A=ACC A'/SS/,S='*'/* AS+-/ASAA/ASBA/ASCA/ASDA/ASEA/ASFA/ ACCSGG/ACCSHG/ACCSIG/ACCSJG/ACCSKG/ACCSLG/ ACCSMM/ACCSNM/ACCSON/ACCSPO/ACCSQP/ACCSRQ/ ACCSTT/ACCSUU/ACCSVV/ACCSWW/ACCSXX/ ACCSY/ACCSZY/ T=-1S+QR/ V=S,/,W=S,,/VX=S,,,/ AA=S+18/VBB=S+27/V+-=S,/ QR=9VOP=8VMN=7VKL=6VIJ=5VGH=4VEF=3VCD=2VAB=1 ABVCDVEFVGHVIJVKLVMNVOPVQR TABVTCDVTEFVTGHVTIJVTKLVTMNVTOPVTQR ABYAAVCDYAAVEFYAAVGHYAAVIJYAAVKLYAAVMNYAAVOPYAAVQRYAA ABZBB+-CDZBB+-EFZBB+-GHZBB+-IJZBB +-KLZBB+-MNZBB+-OPZBB+-QRZBB 1,2,3,4,5,6,7,8,9,10 11,12,13,14,15,16,17,18,19,20 21,22,23,24,25,26,27,28,29,30 31,32,33,34,35,36 KILL TTL'/67/ ...TABLE TO TEST MULTIPLE ORIGIN INCREMENTS 1WA='/ARG 2WA='/2WRD ARG 3WA='/3WRD ARG 4WA='/4WRD ARG 5WA='/5WRD ARG 1O='/. 2O='/. . 3O='/. . . 4O='/. . . . 5O='/. . . . . 1WO='/. 2WO='/2WRD. 3WO='/3WRD. 4WO='/4WRD. 5WO='/5WRD. MASK1=MSK 1WA 2WA 3WA 4WA 5WA MASK2=MASK1 5O 1WA 2WA 3WA 4WA 5WA MASK3=MASK1 5WO 1WA 2WA 3WA 4WA 5WA MASK4=MASK1 2O MASK4=MASK4 3O 1WA 2WA 3WA 4WA 5WA MASK5=MASK1 2WO MASK5=MASK5 3WO 1WA 2WA 3WA 4WA 5WA MASK2 1 2 3 4 5 6 7 8 9 10 MASK3 11 12 13 14 15 16 17 18 19 20 MASK4 21 22 23 24 25 26 27 28 29 30 MASK5 31 32 33 34 35 36 37 38 39 40 40TST 1, 2, 3, 4, 5, 6, 7, 8, 9,10 11,12,13,14,15,16,17,18,19,20 21,22,23,24,25,26,27,28,29,30 31,32,33,34,35,36,37,38,39,40 SAV XSY MASK1 MASK2 MASK3 MASK4 MASK5 TTL'/68/ ...MULTIPLE ORIGIN INCREMENTS WITH VARIOUS OTHER ...PACKING PATTERN SPECIFICATIONS 1Z=1WRD 0 2Z=2WRD 0 3Z=3WRD 0 4Z=4WRD 0 5Z=5WRD 0 MASK1=MSK ARG(1Z 3Z 5Z). . . . .3LFT ARG MASK1 3 MASK1=MSK ARG(1Z 3Z 5Z)3WRD.2WRD.2LFT ARG MASK1 3 CONST=1WRD 11 2WRD 22 3WRD 33 4WRD 44 5WRD 55 MASK1=MSK ARG CONST. . . . .3LFT ARG MASK1 3 MASK1=MSK ARG CONST 2WRD.3WRD.2LFT ARG MASK1 3 24TST 0,0,0,0,0,24 0,0,0,0,0,12 11,22,33,44,55,24 11,22,33,44,55,12 BLK TTL'/69/ ...TABLE TO TEST ADVANCEMENT OF ORIGIN ...SPECIFIED BY PACKING PATTERN WHEN HAVE ...A FOLLOWING ADDRESS RATHER THAN CONSTANT MASK=MSK 2WRD ARG. . . MASK 11 ADRS1 MASK 22 MASK 33 LOA ADRS2 MASK 44 MASK 55 ADR ADRS3 MASK 66 MASK 77 HIA ADRS4 MASK 88 LOC ADRS1 LOC ADRS2 LOC ADRS3 LOC ADRS4 24TST 0,11,0,0,22 0,33,0,0,44 0,55,0,0,66 0,77,0,0,88 4,6,14,19 BLK ...TABLE TO TEST FUNCTION TEXT THAT REMAINS IN BUFFER ...OF THE DESELECTED INPUT DEVICE. ...PREVIOUSLY, THE END OF THIS TEXT WAS NOT MARKED ...SO IT COULD RUN ON INTO THE NEXT STATEMENT. TTL'/70/10TST A=-1'/,33,44/,B=-1'/,77,88/ 11,AA== A 66 55,AA TTY 22,TTY BB=B 111 99,BB 11,22,33,44,55,66,77,88,99,111 BLK TTL'/71/6TST A=-1'/,2 B+2 B=-1'/,3 C+3/ C=-1'/,4 D+4/ D=-1'/,5+5/ 1 A+1 12,2,4,6,8,10,12 BLK 4TST TTL'/72/ AA=-1'/,2,A/,AA A==1 TTY 1,2,3,4 BLK 3 4 TTY ...END OF TEST TABLE 72 TTL'/73/16TST AA=-1'/1,BB BB=-1'/2,CC CC=-1'/3 DD=-1'/,EE 10,FF 12,GG 14 AA EE=-1'/,11 FF=-1'/,13 GG=-1'/,15 4,C 5,B 6,LOC B+1,LOC C+3 DD 9 16,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16 BLK TTL'/74/11TST 10DEF C A=-1'/1RED C 1DIG C A,LOC.,/ A 11,1,2,3,4,5,6,7,8,9,10,11 BLK ...TABLE TO TEST APPEARANCE OF ' '' ''' ... AND ,,, ...OPERATORS WITHIN A TEXT STRING TO BE INSERTED AT ...END OF CURRENT STATEMENT (AS INDICATED BY ''' OPERATOR). ...PREVIOUSLY A SET OF STATEMENTS OF THE FORM ... '''/...THIS IS A COMMENT/1 ... 2,3 ...WOULD CAUSE THE SECOND LINE TO BE IGNORED. THIS IS DUE ...TO TBLTRN NO KNOWING THE FIRST STATEMENT IS DONE UNTIL ...THE FIRST SYMBOL OF THE SECOND LINE IS INTERPRETTED. THEN ...THE STORAGE BUFFER FOR THE ''' TEXT IS INSERTED INTO THE ...START OF INPUT TEXT, THE ... OPERATOR FOUND AND THE WHOLE ...LINE IGNORED. NOW ONLY TEXT THRU END OF INSERTION IS ...IGNORED. ...JAN 26, 1972 TTL'/75/30TST AA=-1'/...THIS IS A COMMENT/ BB=-1'/,8...THIS IS A COMMENT/ CC=-1'/,11...THIS IS A COMMENT/ DD=-1'/,,,THIS IS A COMMENT/ EE=-1'/,20,,,THIS IS A COMMENT/ FF=-1'/,23,,,THIS IS A COMMENT/ G=-1'/+5 GG/,GG=-1'/GGG+10/,GGG=-1'/,26/ H=-1'/+8 HH/,HH=-1'/HHH+10/,HHH=-1'/,29/ B=100,C=100,D=100,E=100,F=100 THIS=100,IS=100,A=100,COMMENT=100 OMMENT=200,MMENT=200,MENT=200,ENT=200,NT=200,T=200 AA 1,2,3 AA 4 5,6 BB 7,9 CC 10 12 DD 13,14,15 DD 16 17,18 EE 19,21 FF 22 24 G 10,27 H 10 30 1,2,3,4,5,6,7,8,9,10,11,12,13,14,15 16,17,18,19,20,21,22,23,24,25,26,27,28,29,30 BLK