Trailing-Edge
-
PDP-10 Archives
-
decuslib20-02
-
decus/20-0050/test3.dat
There are 2 other files named test3.dat in the archive. Click here to see a list.
...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