Trailing-Edge
-
PDP-10 Archives
-
decus_20tap2_198111
-
decus/20-0050/test4.dat
There are 2 other files named test4.dat in the archive. Click here to see a list.
...TABLE TO TEST ALL POSSIBLE RADICES
TTL'/76/150TST
16TRX FED,CBA,987,654,321,DEF,ABC,789,456,123
15TRX EDC,BA9,876,543,210,CDE,9AB,678,345,12
14TRX DCB,A98,765,432,100,BCD,89A,567,234,1
13TRX CBA,987,654,321,ABC,789,456,123
12TRX BA9,876,543,210,9AB,678,345,12
11TRX A98,765,432,100,89A,567,234,1
10TRX 987,654,321,789,456,123
9TRX 876,543,210,678,345,12
8TRX 765,432,100,567,234,1
7TRX 654,321,456,123
6TRX 543,210,345,12
5TRX 432,100,234,1
4TRX 321,123
3TRX 210,12
2TRX 100,1
2SRX,I=1100110,I,I=11001011,I,I=11001001,I,I=100101110,I
3SRX,I=21112,I,I=102021,I,I=102012,I,I=112221,I
4SRX,I=10300,I,I=12111,I,I=12103,I,I=13320,I
5SRX,I=3110,I,I=4011,I,I=4004,I,I=4410,I
6SRX,I=2202,I,I=2451,I,I=2445,I,I=3134,I
7SRX,I=1525,I,I=2031,I,I=2026,I,I=2232,I
8SRX,I=1304,I,I=1451,I,I=1447,I,I=1614,I
9SRX,I=1088,I,I=1221,I,I=1218,I,I=1341,I
10SRX,I=910,I,I=1011,I,I=1009,I,I=1110,I
11SRX,I=83A,I,I=921,I,I=91A,I,I=A01,I
12SRX,I=788,I,I=851,I,I=84B,I,I=914,I
13SRX,I=724,I,I=7A1,I,I=79C,I,I=849,I
14SRX,I=69C,I,I=731,I,I=72D,I,I=7A2,I
15SRX,I=645,I,I=6B1,I,I=6AE,I,I=72A,I
16SRX,I=5EC,I,I=651,I,I=64F,I,I=6B4,I
10TRX
4077,3258,2439,1620, 801,3567,2748,1929,1110, 291...16
3357,2634,1911,1188, 465,2909,2186,1463, 740, 17...15
2727,2094,1461, 828, 196,2337,1704,1071, 438, 1...14
2181,1632,1083, 534,1845,1296, 747, 198...13
1713,1242, 771, 300,1427, 956, 485, 14...12
1317, 918, 519, 121,1077, 678, 279, 1...11
987, 654, 321, 789, 456, 123...10
717, 444, 171, 557, 284, 11... 9
501, 282, 64, 375, 156, 1... 8
333, 162, 237, 66... 7
207, 78, 137, 8... 6
117, 25, 69, 1... 5
57, 27... 4
21, 5... 3
4, 1... 2
102, 203, 201, 302... 2
203, 304, 302, 403... 3
304, 405, 403, 504... 4
405, 506, 504, 605... 5
506, 607, 605, 706... 6
607, 708, 706, 807... 7
708, 809, 807, 908... 8
809, 910, 908,1009... 9
910,1011,1009,1110...10
1011,1112,1110,1211...11
1112,1213,1211,1312...12
1213,1314,1312,1413...13
1314,1415,1413,1514...14
1415,1516,1514,1615...15
1516,1617,1615,1716...16
BLK
...TABLE TO TEST NEW PFX OPERATOR
...16 FEB 72
TST 31 TTL'/77/
A=WRD 3 33 WRD 2 22 WRD 5 55 WRD 1 11
B=WRD 5 555 WRD 3 333 WRD 1 111 WRD 4 444
C=3WRD 3333,D=2WRD 2222
A,B,C,D
DEF A AA
DEF B BB
DEF C CC
DEF D DD
AA,BB,CC,DD
PFX 2
DEF A AA
DEF B BB
DEF C CC
DEF D DD
AA,BB,CC,DD
PFX-1 DEF A AA
PFX-1 DEF B BB
PFX-1 DEF C CC
PFX-1 DEF D DD
AA,BB,CC,DD
DEF A AA
DEF B BB
DEF C CC
DEF D DD
AA,BB,CC,DD
11,22,33,0,55
111,0,333,444,555
0,0,3333
0,2222
55,555,3333,2222
22,0,0,2222
5,5,3,2
22,0,0,2222
BLK
...TABLE TO TEST PARENTHETICAL EXPRESSIONS AFTER OPERATOR
...WHICH COULD HAVE TAKEN PREFIX BUT DID NOT
TTL'/78/ 120TST
A=11,B=2WRD 22,C=3WRD 33,D=4WRD 44,E=5WRD 55
BC=B C,AC=A C,AB=A B
BCD=B C D,ACD=A C D,ABD=A B D,ABC=A B C
BCDE=B C D E,ACDE=A C D E,ABDE=A B D E,ABCE=A B C E,ABCD=A B C D
...
11DEF I
DEF 22 J
DEF C K
DEF(C+11)L
DEF(22+C)M
M,L,K,J,I
...
DEF(B-11)M
DEF(-22+D)L
DEF(55-B)K
DEF(-A+55)J
DEF-(+66 A)I
I,J,K,L,M
...
DEF-(C+44)I
DEF+(A A)J
DEF+(55-B)K
DEF+(-A 55)L
DEF+(22 33)M
M,L,K,J,I
...
DEF+(66-55)M
DEF+(-44 66)L
DEF-(+66 33)K
DEF-(22+66)J
DEF-(+22+33)I
I,J,K,L,M
...
BCDE DUP(20-17),ACDE DUP(100
,,-98)
ABDE
...
DEFI=11DEF
DEFJ=DEF 22
DEFK=DEF C
DEFL=DEF(C+11)
DEFM=DEF(22+C)
DEFM M DEFL L DEFK K DEFJ J DEFI I
M,L,K,J,I
...
XSY DEFI DEFJ DEFK DEFL DEFM
DEFM=DEF(B-11)
DEFL=DEF(-22+D)
DEFK=DEF(55-B)
DEFJ=DEF(-A+55)
DEFI=DEF-(+66 A)
DEFM M DEFL L DEFK K DEFJ J DEFI I
I,J,K,L,M
...
XSY DEFI DEFJ DEFK DEFL DEFM
DEFI=DEF-(C+44)
DEFJ=DEF+(A A)
DEFK=DEF+(55-B)
DEFL=DEF+(-A 55)
DEFM=DEF+(22 33)
DEFM M DEFL L DEFK K DEFJ J DEFI I
M,L,K,J,I
...
XSY DEFI DEFJ DEFK DEFL DEFM
DEFM=DEF+(66-55)
DEFL=DEF+(-44 66)
DEFK=DEF-(+66 33)
DEFJ=DEF-(22+66)
DEFI=DEF-(+22+33)
DEFM M DEFL L DEFK K DEFJ J DEFI I
I,J,K,L,M
...
BCDE DUP(20-17,ACDE DUP(100
,,-98
ABDE
...
XSY DEFI DEFJ DEFK DEFL DEFM
DEFI=11DEF
DEFJ=DEF 22
DEFK=DEF C
DEFL=DEF(C+11
DEFM=DEF(22+C
DEFM M DEFL L DEFK K DEFJ J DEFI I
M,L,K,J,I
...
XSY DEFI DEFJ DEFK DEFL DEFM
DEFM=DEF(B-11
DEFL=DEF(-22+D
DEFK=DEF(55-B
DEFJ=DEF(-A+55
DEFI=DEF-(+66 A
DEFM M DEFL L DEFK K DEFJ J DEFI I
I,J,K,L,M
...
XSY DEFI DEFJ DEFK DEFL DEFM
DEFI=DEF-(C+44
DEFJ=DEF+(A A
DEFK=DEF+(55-B
DEFL=DEF+(-A 55
DEFM=DEF+(22 33
DEFM M DEFL L DEFK K DEFJ J DEFI I
M,L,K,J,I
...
XSY DEFI DEFJ DEFK DEFL DEFM
DEFM=DEF+(66-55
DEFL=DEF+(-44 66
DEFK=DEF-(+66 33
DEFJ=DEF-(22+66
DEFI=DEF-(+22+33
DEFM M DEFL L DEFK K DEFJ J DEFI I
I,J,K,L,M
...
55,44,33,22,11
55,44,33,22,11
55,44,33,22,11
55,44,33,22,11
00,22,33,44,55
00,22,33,44,55
00,22,33,44,55
11,00,33,44,55
11,00,33,44,55
11,22,00,44,55
55,44,33,22,11
55,44,33,22,11
55,44,33,22,11
55,44,33,22,11
00,22,33,44,55
00,22,33,44,55
00,22,33,44,55
11,00,33,44,55
11,00,33,44,55
11,22,00,44,55
55,44,33,22,11
55,44,33,22,11
55,44,33,22,11
55,44,33,22,11
BLK
TTL'/79/TST 56
...TABLE TO TEST STACK OPERATORS PSH POP STK ROT
...
...FINAL STACK CONTENTS IS SHOWN BELOW
...
... A B C D
... 0 0 0 4000
... 0 0 3000 0
... 0 2000 0 0
... 1000 0 0 0
...
... AB AC AD BC BD CD
... 0 0 4100 0 4020 4003
... 0 3010 0 3002 0 3400
... 2001 0 0 2300 2040 0
... 1200 1030 1004 0 0 0
...
... ABC ABD BCD
... 0 4120 4023
... 3012 0 3402
... 2301 2041 2340
... 1230 1204 0
...
... ABCD
... 4123
... 3412
... 2341
... 1234
...
10SIZ
DEF 34 ABCD 2SFT ABCD DEF(ABCD+12)ABCD
2SIZ DEF(ABCD-10)BCD STK 2000 A PSH 250 B
SFT-1 A SFT 3 B
STK 20410 ABD 10SIZ SFT-1 ABD STK 4120 ABD STK 0 C
STK 0 C PSH 0 BCD DEF 4100 AD STK 1004 AD
PSH 1234 ABCD PSH 0 AD PSH 0 AD ROT AD
STK 0 A STK 0 B STK 3000 C STK 4123 ABCD ROT ABCD
ROT ABCD STK 2341 ABCD ROT ABCD ROT ABCD
STK 0 B STK 0 B ROT B
STK 3012 AB STK 2301 AB STK 1230 AB PSH 1200 AB
STK AB ABC POP AB STK AB ABC POP AB STK AB ABC
POP AB STK 0 ABC ROT ABD STK 0 ABD ROT ABD ROT ABD
STK 1204 ABD ROT ABD
BC=2WRD BC 0,BC=2WRD BC 3002,BC=2WRD BC 2300,BC=2WRD BC 0
AC=AC PFX-1 WRD(AC+1)1030,AC=AC PFX-1 WRD(AC+1)0
AC=AC PFX-1 WRD(AC+1)3010,AC=AC PFX-1 WRD(AC+1)0
BD=PFX-1 WRD(BD+1)0 BD,BD=PFX-1 WRD(BD+1)2040 BD
BD=PFX-1 WRD(BD+1)0 BD,BD=PFX-1 WRD(BD+1)4020 BD
PSH 0 AB PSH 0 AB STK 2001 AB ROT AB ROT AB
PSH 0 A PSH 0 A ROT A ROT A
ROT BCD STK 2340 BCD ROT BCD ROT BCD STK 4023 BCD
ROT C DEF(BCD-23)D STK 0 C ROT C ROT C
ROT D STK 0 D STK 0 CD PSH 3400 CD ROT D STK 0 D
ROT CD PSH 0 CD ROT CD ROT D STK 0 D ROT CD ROT CD STK 4003 CD
ROT D
A,B,C,D,AB,AC,AD,BC,BD,CD,ABC,ABD,BCD,ABCD
1000,0,0,0
0,2000,0,0,
0,0,3000,0
0,0,0,4000
1200,2001,0,0
1030,0,3010,0
1004,0,0,4100
0,2300,3002,0
0,2040,0,4020
0,0,3400,4003
1230,2301,3012,0
1204,2041,0,4120
0,2340,3402,4023
1234,2341,3412,4123
BLK
...TABLE TO TEST AUTOMATIC CONTINUATION OPERATORS BAC AND EAC
TTL'/80/TST 16
BAC ACC'/Z/,A=...A COMMENT
...ANOTHER COMMENT
2WRD
20
10,
B=,,,A COMMENT
,,,ANOTHER COMMENT
2WRD
,,40
30
,C=
ZZZZ
ZZZZ2WRDZZZZ
ZZZZ
60
ZZZZ,,50
,D=ZZZZ
ZZZZ
ZZZZ
2WRD 80
ZZZZ,,,A COMMENT
70
,
,ZZZZ
2WRD
160
150,2WRD
,,140
130
,ZZZZ2WRDZZZZ
ZZZZ
120,,,A COMMENT
110,90,100 EAC
D,C,B,A
150,160,130,140,110,120,90,100
70,80,50,60,30,40,10,20
BLK
...TABLE TO TEST THE XOR AND AND OPERATORS
TTL'/81/63TST
A=OCT 72 AND OCT 27...OCT 22 OR DEC 18
B=OCT 72 XOR OCT 27...OCT 55 OR DEC 45
C=OCT 72 IOR OCT 27...OCT 77 OR DEC 63
D=OCT 72+OCT 27...DEC 81
E=OCT 72-OCT 27...DEC 35
AA=DEF(OCT 72 AND OCT 27)
BB=DEF(OCT 72 XOR OCT 27)
CC=DEF(OCT 72 IOR OCT 27)
DD=DEF(OCT 72+OCT 27)
EE=DEF(OCT 72-OCT 27)
AAA=DEF AND 63
BBB=DEF XOR 63
CCC=DEF IOR 63
DDD=DEF +63
EEE=DEF -63
MASKA=MSK+ARG AND ARG
MASKB=MSK+ARG XOR ARG
MASKC=MSK+ARG IOR ARG
MASKD=MSK+ARG + ARG
MASKE=MSK+ARG - ARG
111
E,D,C,B,A
XSY A B C D E
EE E DD D CC C BB B AA A
222
A,B,C,D,E
XSY A B C D E
EEE E DDD D CCC C BBB B AAA A
333
A,B,C,D,E
XSY A B C D E AA BB CC DD EE AAA BBB CCC DDD EEE
444
A=MASKA OCT 72 OCT 27
B=MASKB OCT 72 OCT 27
C=MASKC OCT 72 OCT 27
D=MASKD OCT 72 OCT 27
E=MASKE OCT 72 OCT 27
E,D,C,B,A
555
...
...
OCT 72 AND OCT 27
OCT 72 XOR OCT 27
OCT 72 IOR OCT 27
OCT 72+OCT 27
OCT 72-OCT 27
666
AND 63
XOR 63
IOR 63
+63
-63
777
MASKA OCT 72 OCT 27
MASKB OCT 72 OCT 27
MASKC OCT 72 OCT 27
MASKD OCT 72 OCT 27
MASKE OCT 72 OCT 27
888
AND(+OCT 72 OCT 27)
XOR(+OCT 72 OCT 27)
IOR(+OCT 72 OCT 27)
+(OCT 72 OCT 27)
-(+OCT 72 OCT 27)
999
MASKA=MSK ARG(OCT 72 AND OCT 27)
MASKB=MSK ARG(OCT 72 XOR OCT 27)
MASKC=MSK ARG(OCT 72 IOR OCT 27)
MASKD=MSK ARG(OCT 72+OCT 27)
MASKE=MSK ARG(OCT 72-OCT 27)
1010
MASKA,MASKB,MASKC,MASKD,MASKE
1111
MASKA=MSK-ARG(+OCT 72 OCT 27)
MASKB=MSK+ARG(OCT 72 OCT 27)
MASKC=MSK IOR ARG(+OCT 72 OCT 27)
MASKD=MSK XOR ARG(+OCT 72 OCT 27)
MASKE=MSK AND ARG(+OCT 72 OCT 27)
1212
MASKE,MASKD,MASKC,MASKB,MASKA
1313
111
35,81,63,45,18
222
18,45,63,81,35
333
0,63,63,63,-63
444
35,81,63,45,18
555
18,45,63,81,35
666
0,63,63,63,-63
777
18,45,63,81,35
888
18,45,63,81,35
999
1010
18,45,63,81,35
1111
1212
18,45,63,81,35
1313
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'+82+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
TTL'/83/
...TEST ALL POSSIBLE COMBINATIONS OF CHARACTER CLASSES
SRX 8 TRX 8
''''=2
==== =4
****=10
((((=20
))))=40
,,,,=100
AAAA=200
....=400
++++=1000
----=2000
'''''=1,===== =1,*****=1
(((((=1,)))))=1, ,,,,,=1
AAAAA=1,.....=1,+++++=1
-----=1
...
''''5*'''' ''''',''''====
''''****,''''((((,''''))))
'''',,,, ,''''AAAA,''''....
''''++++,''''----,''''4000
...
====5*===='''',==== =====
====****,====((((,====))))
====,,,, ,====AAAA,====....
====++++,====----,====4000
...
**** 5*****'''',****====
**** *****,****((((,****))))
****,,,, ,**** AAAA,****....
****++++,****----,**** 4000
...
((((5*(((('''',((((====
((((****,(((( (((((,(((())))
((((,,,, ,((((AAAA,((((....
((((++++,((((----,((((4000
...
))))5*))))'''',))))====
))))****,))))((((,)))) )))))
)))),,,, ,))))AAAA,))))....
))))++++,))))----,))))4000
...
,,,,5*,,,,'''', ,,,,====
,,,,****, ,,,,((((, ,,,,))))
,,,, ,,,,, , ,,,,AAAA, ,,,,....
,,,,++++, ,,,,----, ,,,,4000
...
AAAA 5*AAAA'''',AAAA====
AAAA ****,AAAA((((,AAAA))))
AAAA,,,, ,AAAA AAAAA,AAAA....
AAAA++++,AAAA----,AAAA 4000
...
....5*....'''',....====
....****,....((((,....))))
....,,,, ,....AAAA,.... .....
....++++,....----,....4000
...
++++5*++++'''',++++====
++++****,++++((((,++++))))
++++,,,, ,++++AAAA,++++....
++++ +++++,++++----,++++4000
...
----5*----'''',----====
----****,----((((,----))))
----,,,, ,----AAAA,----....
----++++,---- -----,----4000
...
4000 5*4000'''',4000====
4000 ****,4000((((,4000))))
4000,,,, ,4000 AAAA,4000....
4000++++,4000----,4000 1
...
132TST
2,3,6
12,22,42
102,202,402
1002,2002,4002
...
4,6,5
14,24,44
104,204,404
1004,2004,4004
...
10,12,14
11,30,50
110,210,410
1010,2010,4010
...
20,22,24
30,21,60
120,220,420
1020,2020,4020
...
40,42,44
50,60,41
140,240,440
1040,2040,4040
...
100,102,104
110,120,140
101,300,500
1100,2100,4100
...
200,202,204
210,220,240
300,201,600
1200,2200,4200
...
400,402,404
410,420,440
500,600,401
1400,2400,4400
...
1000,1002,1004
1010,1020,1040
1100,1200,1400
1001,3000,5000
...
2000,2002,2004
2010,2020,2040
2100,2200,2400
3000,2001,6000
...
4000,4002,4004
4010,4020,4040
4100,4200,4400
5000,6000,4001
BLK
TTL'/84/
...TEST ALL POSSIBLE COMBINATIONS OF CHARACTER CLASSES
SRX 8 TRX 8
''''=2
==== =4
****=10
((((=20
))))=40
,,,,=100
AAAA=200
....=400
++++=1000
----=2000
'''''=1,===== =1,*****=1
(((((=1,)))))=1, ,,,,,=1
AAAAA=1,.....=1,+++++=1
-----=1
...
K1=''/4000 5*4000'''',4000====
K2=''/4000 ****,4000((((,4000))))
K3=''/4000,,,, ,4000 AAAA,4000....
K4=''/4000++++,4000----,4000 1
...
J1=''/----5*----'''',----====
J2=''/----****,----((((,----))))
J3=''/----,,,, ,----AAAA,----....
J4=''/----++++,---- -----,----4000
...
I1=''/++++5*++++'''',++++====
I2=''/++++****,++++((((,++++))))
I3=''/++++,,,, ,++++AAAA,++++....
I4=''/++++ +++++,++++----,++++4000
...
H1=''/....5*....'''',....====
H2=''/....****,....((((,....))))
H3=''/....,,,, ,....AAAA,.... .....
H4=''/....++++,....----,....4000
...
G1=''/AAAA 5*AAAA'''',AAAA====
G2=''/AAAA ****,AAAA((((,AAAA))))
G3=''/AAAA,,,, ,AAAA AAAAA,AAAA....
G4=''/AAAA++++,AAAA----,AAAA 4000
...
F1=''/,,,,5*,,,,'''', ,,,,====
F2=''/,,,,****, ,,,,((((, ,,,,))))
F3=''/,,,, ,,,,, , ,,,,AAAA, ,,,,....
F4=''/,,,,++++, ,,,,----, ,,,,4000
...
E1=''/))))5*))))'''',))))====
E2=''/))))****,))))((((,)))) )))))
E3=''/)))),,,, ,))))AAAA,))))....
E4=''/))))++++,))))----,))))4000
...
D1=''/((((5*(((('''',((((====
D2=''/((((****,(((( (((((,(((())))
D3=''/((((,,,, ,((((AAAA,((((....
D4=''/((((++++,((((----,((((4000
...
C1=''/**** 5*****'''',****====
C2=''/**** *****,****((((,****))))
C3=''/****,,,, ,**** AAAA,****....
C4=''/****++++,****----,**** 4000
...
B1=''/====5*===='''',==== =====
B2=''/====****,====((((,====))))
B3=''/====,,,, ,====AAAA,====....
B4=''/====++++,====----,====4000
...
A1=''/''''5*'''' ''''',''''====
A2=''/''''****,''''((((,''''))))
A3=''/'''',,,, ,''''AAAA,''''....
A4=''/''''++++,''''----,''''4000
...
A1,A2,A3,A4,B1,B2,B3,B4,C1,C2,C3,C4,D1,D2,D3,D4
E1,E2,E3,E4,F1,F2,F3,F4,G1,G2,G3,G4,H1,H2,H3,H4
I1,I2,I3,I4,J1,J2,J3,J4,K1,K2,K3,K4
...
132TST
2,3,6
12,22,42
102,202,402
1002,2002,4002
...
4,6,5
14,24,44
104,204,404
1004,2004,4004
...
10,12,14
11,30,50
110,210,410
1010,2010,4010
...
20,22,24
30,21,60
120,220,420
1020,2020,4020
...
40,42,44
50,60,41
140,240,440
1040,2040,4040
...
100,102,104
110,120,140
101,300,500
1100,2100,4100
...
200,202,204
210,220,240
300,201,600
1200,2200,4200
...
400,402,404
410,420,440
500,600,401
1400,2400,4400
...
1000,1002,1004
1010,1020,1040
1100,1200,1400
1001,3000,5000
...
2000,2002,2004
2010,2020,2040
2100,2200,2400
3000,2001,6000
...
4000,4002,4004
4010,4020,4040
4100,4200,4400
5000,6000,4001
BLK
TST 32 TTL'/85/...TABLE TO TEST BYTE SIZES WHICH ARE
...POWERS OF A BYTE SIZE FROM 2 THROUGH 17
MASK1=MSK 6LFT ARG
A1=6LFT 3
6LFT 5
B1=7
SFT 6 B1
BIT 5 C1
...
10SIZ
MASK2=MSK 4LFT ARG
A2=4LFT 3
4LFT 5
B2=7
SFT 4 B2
BIT 5 C2
...
8SIZ
MASK3=MSK 2LFT ARG
A3=2LFT 3
2LFT 5
B3=7
SFT 2 B3
BIT 5 C3
...
100SIZ
MASK4=MSK 2LFT ARG
A4=2LFT 3
2LFT 5
B4=7
SFT 2 B4
BIT 5 C4
...
A1,A2,A3,A4
B1,B2,B3,B4
...
2SIZ
MASK1 1,MASK2 2,MASK3 3,MASK4 4
...
10SIZ
MASK1 4,MASK2 3,MASK3 2,MASK4 1
...
8SIZ
MASK1 1,MASK2 2,MASK3 3,MASK4 4
...
100SIZ
MASK1 4,MASK2 3,MASK3 2,MASK4 1
C1,C2,C3,C4
...
320,50000,320,50000
192,30000,192,30000
448,70000,448,70000
64,20000,192,40000
256,30000,128,10000
64,20000,192,40000
256,30000,128,10000
16,16,16,16
BLK
TST 16 TTL'/86/...TABLE TO TEST BIT BYTE SIZES
3BIT A1
10BSZ
3BIT A2
8BSZ
3BIT A3
100BSZ
3BIT A4
A4 2WRD NUL,A3 2WRD NUL,A2 2WRD NUL,A1 2WRD NUL
10BPR
12BIT A1
12BIT B1
3BIT B4 3BIT B4
2BSZ
12BIT A2
12BIT B2
3BIT B3 3BIT B3
10BSZ
12BIT A3
12BIT B3
3BIT B2 3BIT B2
8BSZ
12BIT A4
12BIT B4
3BIT B1 3BIT B1
B4,B3,B2,B1
...
10000,8,64,10,100,2,4,100
20000,8,4,10,200,2,128,100
BLK
TTL'/87/36TST
...PRELIMINARY TABLE TO TEST NEW MACROS
...APR 6 1972
WORDA=1'/+3,5+7,/3'/,13+15,/-1'/+19/
WORDB='/2+4/'/+6,8/'/+10+/-3'/+22+24/
WORDC=-2'/,9+11/-3'/+19/
WORDD='//'//'//'/2+4+6,/5'//'//'/,14+16+18,/'//'//
WORDA 1 9+11 17,
WORDB 12,14+16+18,20,
WORDC 1+3,5+7,13+15,17,
WORDD 8+10+12 20+22+24,
WORDA 1 9+11 17
WORDB 12,14+16+18,20
WORDC 1+3,5+7,13+15,17
WORDD 8+10+12 20+22+24
4,12,20,28,36,12,30,48,66
4,12,20,28,36,12,30,48,66
4,12,20,28,36,12,30,48,66
4,12,20,28,36,12,30,48,66
BLK
TTL'/88/TST 38
ONE=1
WORDA=-1'/IFE ONE,6,7
WORDB=-1'/IFN ONE,6,7
WORDC=-1'/IFN ONE,14,15/
WORDD=-1'/IFE ONE,14,15/-1'/IFN ONE 12,WORDC 13 END 16
WORDE='/21,22/-2'/,24,25
WORDF='/27,28/-3'/,31,32
WORDG='/33,34/-4'/37,38
IFN ONE 1,WORDA 2 END 3
IFN ONE 4,WORDB 5 END 8
IFN ONE 9,WORDD 10 END 11
17 END 18 END 19 END 20
WORDE,IFE ONE 100,100 END IFE ONE 100,100 END 23,26
WORDF,IFE ONE 100,100 END IFE ONE 100,100 END 29,30
WORDG,IFE ONE 100,100 END IFE ONE 100,100 END 35,36,
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 BLK
TTL'/89/TST 12
WORDA='/1,2,TTY/-2'/,10,11
WORDB='/3,4/-3'/,7,8/-2'/100,100/
WORDA,9,12
WORDB,5,6,TTY
1,2,3,4,5,6,7,8,9,10,11,12 BLK
TTL'/90/TST 12
A=1,DMYA='/THIS IS A DUMMY TO TEST CORRECTION IN XSY/
D=1,DMYD=1
WORDA='/1,2,TTY/-2'/,10,11
DMYD='/THIS IS ANOTHER DUMMY
B=1,DMYB=1
WORDB='/3,4/-3'/,7,8/-2'/100,100/
D='/SO IS THIS
C=1,DMYC=1
DMYB='/THIS IS ANOTHER
DMYC='/AND THIS IS ANOTHER
DMYE=1
WORDA,9,12
WORDB,5 XSY A B C DMYA DMYB DMYC D DMYD,6,TTY
1,2,3,4,5,6,7,8,9,10,11,12 BLK
TTL'/91/TST 15
4BIT A
WORDA='/1,2 3BIT A,TTY/-2'/,3BIT B 10,11
4BIT B
WORDB='/3 3BIT C,4 1BIT A/-3'/,7,8/-2'/100,100/
4BIT C
WORDA 2BIT B,9 2BIT C,12,A,B,C
WORDB,1BIT C 5,6,TTY
1,2,3,4,5,6,7,8,9,10,11,12,13,14,15 BLK
...TEXT REPLACEMENT TEST TABLE
TTL'/92/TST 18
A= 1'/, 2,/-1'/B 4 6,16,17
B='/,/1'/, 5,/-1'/C 7 9,15
C='/,/1'/, 8,/-1'/D 10 12
D='/,/1'/,11,/-1'/E 13
E='/,/1'/,14 /
A 1 3,18
1, 2, 3, 4, 5, 6, 7, 8, 9,10
11,12,13,14,15,16,17,18 BLK
TTL'/93/TST 22
...TEST REPLACEMENTS BY LONG AND SHORT TEXT STRINGS
NUMBER*THREE='/THREE/
THREE='/3/
SIX='/NUMBER*SIX/
NUMBER*SIX='/6/
TEN*ELEVEN=-1'/TEN NUMBER*ELEVEN
TEN='/NUMBER*TEN
NUMBER*TEN='/+1,10
NUMBER*ELEVEN='/ELEVEN
ELEVEN='/,11
1,2,NUMBER*THREE,4,5,SIX,7,8
TEN*ELEVEN 8
12
XSY NUMBER*TEN,NUMBER*TEN='/10/
ODD='/13,/-1'/+TEN,15/-4'/+THREE,19/
A=-1'/+1/-1'/+1/
ODD 4,16,17,15,20
A 19,22
1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20
21,22
BLK
TTL'/94/TST 100
3YX=999,3BC=999
EOD,7BCDEFG=999,7YXWVUT=999,BOD
2Y=50,26CDEFGHIJKLMNOPQRSTUVWXYZ=49
3YX=48,25CDEFGHIJKLMNOPQRSTUVWXY=47
4YXW=46,24CDEFGHIJKLMNOPQRSTUVWX=45
5YXWV=44,23CDEFGHIJKLMNOPQRSTUVW=43
6YXWVU=42,22CDEFGHIJKLMNOPQRSTUV=41
7YXWVUT=40,21CDEFGHIJKLMNOPQRSTU=39
8YXWVUTS=38,20CDEFGHIJKLMNOPQRST=37
9YXWVUTSR=36,19CDEFGHIJKLMNOPQRS=35
10XWVUTSRQ=34,18CDEFGHIJKLMNOPQR=33
11XWVUTSRQP=32,17CDEFGHIJKLMNOPQ=31
12XWVUTSRQPO=30,16CDEFGHIJKLMNOP=29
13XWVUTSRQPON=28,15CDEFGHIJKLMNO=27
14XWVUTSRQPONM=26,EOD,14CDEFGHIJKLMN=25
15XWVUTSRQPONML=24,13CDEFGHIJKLM=23
16XWVUTSRQPONMLK=22,12CDEFGHIJKL=21
17XWVUTSRQPONMLKJ=20,11CDEFGHIJK=19
18XWVUTSRQPONMLKJI=18,10CDEFGHIJ=17
19XWVUTSRQPONMLKJIH=16,9BCDEFGHI=15
20XWVUTSRQPONMLKJIHG=14,8BCDEFGH=13
21XWVUTSRQPONMLKJIHGF=12,7BCDEFG=11
22XWVUTSRQPONMLKJIHGFE=10,6BCDEF=09
23XWVUTSRQPONMLKJIHGFED=08,5BCDE=07
24XWVUTSRQPONMLKJIHGFEDC=06,4BCD=05
25XWVUTSRQPONMLKJIHGFEDCB=04,3BC=03
26XWVUTSRQPONMLKJIHGFEDCBA=02,2B=01
ADR 2B LOC 26XWVUTSRQPONMLKJIHGFEDCBA
ADR 3BC LOC 25XWVUTSRQPONMLKJIHGFEDCB
ADR 4BCD LOC 24XWVUTSRQPONMLKJIHGFEDC
ADR 5BCDE LOC 23XWVUTSRQPONMLKJIHGFED
ADR 6BCDEF LOC 22XWVUTSRQPONMLKJIHGFE
ADR 7BCDEFG LOC 21XWVUTSRQPONMLKJIHGF
ADR 8BCDEFGH LOC 20XWVUTSRQPONMLKJIHG
ADR 9BCDEFGHI LOC 19XWVUTSRQPONMLKJIH
ADR 10CDEFGHIJ LOC 18XWVUTSRQPONMLKJI
ADR 11CDEFGHIJK LOC 17XWVUTSRQPONMLKJ
ADR 12CDEFGHIJKL LOC 16XWVUTSRQPONMLK
ADR 13CDEFGHIJKLM LOC 15XWVUTSRQPONML
ADR 14CDEFGHIJKLMN LOC 14XWVUTSRQPONM
ADR 15CDEFGHIJKLMNO LOC 13XWVUTSRQPON
ADR 16CDEFGHIJKLMNOP LOC 12XWVUTSRQPO
ADR 17CDEFGHIJKLMNOPQ LOC 11XWVUTSRQP
ADR 18CDEFGHIJKLMNOPQR LOC 10XWVUTSRQ
ADR 19CDEFGHIJKLMNOPQRS LOC 9YXWVUTSR
ADR 20CDEFGHIJKLMNOPQRST LOC 8YXWVUTS
ADR 21CDEFGHIJKLMNOPQRSTU LOC 7YXWVUT
ADR 22CDEFGHIJKLMNOPQRSTUV LOC 6YXWVU
ADR 23CDEFGHIJKLMNOPQRSTUVW LOC 5YXWV
ADR 24CDEFGHIJKLMNOPQRSTUVWX LOC 4YXW
ADR 25CDEFGHIJKLMNOPQRSTUVWXY LOC 3YX
ADR 26CDEFGHIJKLMNOPQRSTUVWXYZ LOC 2Y
ADR 2Y LOC 26CDEFGHIJKLMNOPQRSTUVWXYZ
ADR 3YX LOC 25CDEFGHIJKLMNOPQRSTUVWXY
ADR 4YXW LOC 24CDEFGHIJKLMNOPQRSTUVWX
ADR 5YXWV LOC 23CDEFGHIJKLMNOPQRSTUVW
ADR 6YXWVU LOC 22CDEFGHIJKLMNOPQRSTUV
ADR 7YXWVUT LOC 21CDEFGHIJKLMNOPQRSTU
ADR 8YXWVUTS LOC 20CDEFGHIJKLMNOPQRST
ADR 9YXWVUTSR LOC 19CDEFGHIJKLMNOPQRS
ADR 10XWVUTSRQ LOC 18CDEFGHIJKLMNOPQR
ADR 11XWVUTSRQP LOC 17CDEFGHIJKLMNOPQ
ADR 12XWVUTSRQPO LOC 16CDEFGHIJKLMNOP
ADR 13XWVUTSRQPON LOC 15CDEFGHIJKLMNO
ADR 14XWVUTSRQPONM LOC 14CDEFGHIJKLMN
ADR 15XWVUTSRQPONML LOC 13CDEFGHIJKLM
ADR 16XWVUTSRQPONMLK LOC 12CDEFGHIJKL
ADR 17XWVUTSRQPONMLKJ LOC 11CDEFGHIJK
ADR 18XWVUTSRQPONMLKJI LOC 10CDEFGHIJ
ADR 19XWVUTSRQPONMLKJIH LOC 9BCDEFGHI
ADR 20XWVUTSRQPONMLKJIHG LOC 8BCDEFGH
ADR 21XWVUTSRQPONMLKJIHGF LOC 7BCDEFG
ADR 22XWVUTSRQPONMLKJIHGFE LOC 6BCDEF
ADR 23XWVUTSRQPONMLKJIHGFED LOC 5BCDE
ADR 24XWVUTSRQPONMLKJIHGFEDC LOC 4BCD
ADR 25XWVUTSRQPONMLKJIHGFEDCB LOC 3BC
ADR 26XWVUTSRQPONMLKJIHGFEDCBA LOC 2B
2B,26XWVUTSRQPONMLKJIHGFEDCBA
3BC,25XWVUTSRQPONMLKJIHGFEDCB
4BCD,24XWVUTSRQPONMLKJIHGFEDC
5BCDE,23XWVUTSRQPONMLKJIHGFED
6BCDEF,22XWVUTSRQPONMLKJIHGFE
7BCDEFG,21XWVUTSRQPONMLKJIHGF
8BCDEFGH,20XWVUTSRQPONMLKJIHG
9BCDEFGHI,19XWVUTSRQPONMLKJIH
10CDEFGHIJ,18XWVUTSRQPONMLKJI
11CDEFGHIJK,17XWVUTSRQPONMLKJ
12CDEFGHIJKL,16XWVUTSRQPONMLK
13CDEFGHIJKLM,15XWVUTSRQPONML
14CDEFGHIJKLMN,14XWVUTSRQPONM
15CDEFGHIJKLMNO,13XWVUTSRQPON
16CDEFGHIJKLMNOP,12XWVUTSRQPO
17CDEFGHIJKLMNOPQ,11XWVUTSRQP
18CDEFGHIJKLMNOPQR,10XWVUTSRQ
19CDEFGHIJKLMNOPQRS,9YXWVUTSR
20CDEFGHIJKLMNOPQRST,8YXWVUTS
21CDEFGHIJKLMNOPQRSTU,7YXWVUT
22CDEFGHIJKLMNOPQRSTUV,6YXWVU
23CDEFGHIJKLMNOPQRSTUVW,5YXWV
24CDEFGHIJKLMNOPQRSTUVWX,4YXW
25CDEFGHIJKLMNOPQRSTUVWXY,3YX
26CDEFGHIJKLMNOPQRSTUVWXYZ,2Y
50,49,48,47,46,45,44,43,42,41
40,39,38,37,36,35,34,33,32,31
30,29,28,27,26,25,24,23,22,21
20,19,18,17,16,15,14,13,12,11
10, 9, 8, 7, 6, 5, 4, 3, 2, 1
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
41,42,43,44,45,46,47,48,49,50
BLK
TTL'/95/TST 100
ADR 2B LOC 26XWVUTSRQPONMLKJIHGFEDCBA
ADR 3BC LOC 25XWVUTSRQPONMLKJIHGFEDCB
ADR 4BCD LOC 24XWVUTSRQPONMLKJIHGFEDC
ADR 5BCDE LOC 23XWVUTSRQPONMLKJIHGFED
ADR 6BCDEF LOC 22XWVUTSRQPONMLKJIHGFE
ADR 7BCDEFG LOC 21XWVUTSRQPONMLKJIHGF
ADR 8BCDEFGH LOC 20XWVUTSRQPONMLKJIHG
ADR 9BCDEFGHI LOC 19XWVUTSRQPONMLKJIH
ADR 10CDEFGHIJ LOC 18XWVUTSRQPONMLKJI
ADR 11CDEFGHIJK LOC 17XWVUTSRQPONMLKJ
ADR 12CDEFGHIJKL LOC 16XWVUTSRQPONMLK
ADR 13CDEFGHIJKLM LOC 15XWVUTSRQPONML
ADR 14CDEFGHIJKLMN LOC 14XWVUTSRQPONM
ADR 15CDEFGHIJKLMNO LOC 13XWVUTSRQPON
ADR 16CDEFGHIJKLMNOP LOC 12XWVUTSRQPO
ADR 17CDEFGHIJKLMNOPQ LOC 11XWVUTSRQP
ADR 18CDEFGHIJKLMNOPQR LOC 10XWVUTSRQ
ADR 19CDEFGHIJKLMNOPQRS LOC 9YXWVUTSR
ADR 20CDEFGHIJKLMNOPQRST LOC 8YXWVUTS
ADR 21CDEFGHIJKLMNOPQRSTU LOC 7YXWVUT
ADR 22CDEFGHIJKLMNOPQRSTUV LOC 6YXWVU
ADR 23CDEFGHIJKLMNOPQRSTUVW LOC 5YXWV
ADR 24CDEFGHIJKLMNOPQRSTUVWX LOC 4YXW
ADR 25CDEFGHIJKLMNOPQRSTUVWXY LOC 3YX
ADR 26CDEFGHIJKLMNOPQRSTUVWXYZ LOC 2Y
3YX=999,3BC=999
EOD,7BCDEFG=999,7YXWVUT=999,BOD
2Y=50,26CDEFGHIJKLMNOPQRSTUVWXYZ=49
3YX=48,25CDEFGHIJKLMNOPQRSTUVWXY=47
4YXW=46,24CDEFGHIJKLMNOPQRSTUVWX=45
5YXWV=44,23CDEFGHIJKLMNOPQRSTUVW=43
6YXWVU=42,22CDEFGHIJKLMNOPQRSTUV=41
7YXWVUT=40,21CDEFGHIJKLMNOPQRSTU=39
8YXWVUTS=38,20CDEFGHIJKLMNOPQRST=37
9YXWVUTSR=36,19CDEFGHIJKLMNOPQRS=35
10XWVUTSRQ=34,18CDEFGHIJKLMNOPQR=33
11XWVUTSRQP=32,17CDEFGHIJKLMNOPQ=31
12XWVUTSRQPO=30,16CDEFGHIJKLMNOP=29
13XWVUTSRQPON=28,15CDEFGHIJKLMNO=27
14XWVUTSRQPONM=26,EOD,14CDEFGHIJKLMN=25
15XWVUTSRQPONML=24,13CDEFGHIJKLM=23
16XWVUTSRQPONMLK=22,12CDEFGHIJKL=21
17XWVUTSRQPONMLKJ=20,11CDEFGHIJK=19
18XWVUTSRQPONMLKJI=18,10CDEFGHIJ=17
19XWVUTSRQPONMLKJIH=16,9BCDEFGHI=15
20XWVUTSRQPONMLKJIHG=14,8BCDEFGH=13
21XWVUTSRQPONMLKJIHGF=12,7BCDEFG=11
22XWVUTSRQPONMLKJIHGFE=10,6BCDEF=09
23XWVUTSRQPONMLKJIHGFED=08,5BCDE=07
24XWVUTSRQPONMLKJIHGFEDC=06,4BCD=05
25XWVUTSRQPONMLKJIHGFEDCB=04,3BC=03
26XWVUTSRQPONMLKJIHGFEDCBA=02,2B=01
ADR 2Y LOC 26CDEFGHIJKLMNOPQRSTUVWXYZ
ADR 3YX LOC 25CDEFGHIJKLMNOPQRSTUVWXY
ADR 4YXW LOC 24CDEFGHIJKLMNOPQRSTUVWX
ADR 5YXWV LOC 23CDEFGHIJKLMNOPQRSTUVW
ADR 6YXWVU LOC 22CDEFGHIJKLMNOPQRSTUV
ADR 7YXWVUT LOC 21CDEFGHIJKLMNOPQRSTU
ADR 8YXWVUTS LOC 20CDEFGHIJKLMNOPQRST
ADR 9YXWVUTSR LOC 19CDEFGHIJKLMNOPQRS
ADR 10XWVUTSRQ LOC 18CDEFGHIJKLMNOPQR
ADR 11XWVUTSRQP LOC 17CDEFGHIJKLMNOPQ
ADR 12XWVUTSRQPO LOC 16CDEFGHIJKLMNOP
ADR 13XWVUTSRQPON LOC 15CDEFGHIJKLMNO
ADR 14XWVUTSRQPONM LOC 14CDEFGHIJKLMN
ADR 15XWVUTSRQPONML LOC 13CDEFGHIJKLM
ADR 16XWVUTSRQPONMLK LOC 12CDEFGHIJKL
ADR 17XWVUTSRQPONMLKJ LOC 11CDEFGHIJK
ADR 18XWVUTSRQPONMLKJI LOC 10CDEFGHIJ
ADR 19XWVUTSRQPONMLKJIH LOC 9BCDEFGHI
ADR 20XWVUTSRQPONMLKJIHG LOC 8BCDEFGH
ADR 21XWVUTSRQPONMLKJIHGF LOC 7BCDEFG
ADR 22XWVUTSRQPONMLKJIHGFE LOC 6BCDEF
ADR 23XWVUTSRQPONMLKJIHGFED LOC 5BCDE
ADR 24XWVUTSRQPONMLKJIHGFEDC LOC 4BCD
ADR 25XWVUTSRQPONMLKJIHGFEDCB LOC 3BC
ADR 26XWVUTSRQPONMLKJIHGFEDCBA LOC 2B
2B,26XWVUTSRQPONMLKJIHGFEDCBA
3BC,25XWVUTSRQPONMLKJIHGFEDCB
4BCD,24XWVUTSRQPONMLKJIHGFEDC
5BCDE,23XWVUTSRQPONMLKJIHGFED
6BCDEF,22XWVUTSRQPONMLKJIHGFE
7BCDEFG,21XWVUTSRQPONMLKJIHGF
8BCDEFGH,20XWVUTSRQPONMLKJIHG
9BCDEFGHI,19XWVUTSRQPONMLKJIH
10CDEFGHIJ,18XWVUTSRQPONMLKJI
11CDEFGHIJK,17XWVUTSRQPONMLKJ
12CDEFGHIJKL,16XWVUTSRQPONMLK
13CDEFGHIJKLM,15XWVUTSRQPONML
14CDEFGHIJKLMN,14XWVUTSRQPONM
15CDEFGHIJKLMNO,13XWVUTSRQPON
16CDEFGHIJKLMNOP,12XWVUTSRQPO
17CDEFGHIJKLMNOPQ,11XWVUTSRQP
18CDEFGHIJKLMNOPQR,10XWVUTSRQ
19CDEFGHIJKLMNOPQRS,9YXWVUTSR
20CDEFGHIJKLMNOPQRST,8YXWVUTS
21CDEFGHIJKLMNOPQRSTU,7YXWVUT
22CDEFGHIJKLMNOPQRSTUV,6YXWVU
23CDEFGHIJKLMNOPQRSTUVW,5YXWV
24CDEFGHIJKLMNOPQRSTUVWX,4YXW
25CDEFGHIJKLMNOPQRSTUVWXY,3YX
26CDEFGHIJKLMNOPQRSTUVWXYZ,2Y
50,49,48,47,46,45,44,43,42,41
40,39,38,37,36,35,34,33,32,31
30,29,28,27,26,25,24,23,22,21
20,19,18,17,16,15,14,13,12,11
10, 9, 8, 7, 6, 5, 4, 3, 2, 1
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
41,42,43,44,45,46,47,48,49,50
BLK
TTL'/96/TST 7
MASK1=MSK 100SIZ 2LFT ARG NUL 1LFT ARG ARG
MASK2=MSK 100SIZ 1LFT ARG 2LFT ARG(NUL)ARG
MASK3=MSK 100SIZ 2LFT ARG()1LFT ARG ARG
MASK4=MSK 100SIZ 1LFT ARG ARG 2LFT ARG()
MASK5=MSK 100SIZ 1LFT ARG ARG 2LFT ARG NUL
MASK1 1 2
MASK2 3 4
MASK3 5 6
MASK4 7 8
MASK5 9 10
MASK6=MSK+3LFT ARG(-NUL 100 39)+1LFT 2WRD ARG(NUL 600-NUL 57
MASK6
102,304,506,708,910,1112,1314 BLK
TTL'/97/100TST
A=1WRD 11,B=2WRD 22,C=3WRD 33,D=4WRD 44,E=5WRD 55
F=66,G=2WRD 77,H=3WRD 88,I=4WRD 99
5WRD()B C D,A C D 5WRD(),5WRD NUL A B D
D F B 5WRD NUL,5WRD())G C D,H A D 5WRD())
5WRD(NUL)I B A,H D F 5WRD(NUL),5WRD(NUL))G H I
F G H 5WRD(NUL))
AA=5WRD()B C D,BB=A C D 5WRD(),CC=5WRD NUL A B D
DD=D F B 5WRD NUL,EE=5WRD())G C D,FF=H A D 5WRD())
GG=5WRD(NUL)I B A,HH=H D F 5WRD(NUL),II=5WRD(NUL))G H I
JJ=F G H 5WRD(NUL))
JJ,II,HH,GG,FF,EE,DD,CC,BB,AA
...
...PREDICTED RESULTS
00,22,33,44,00,11,00,33,44,00,11,22,00,44,00
66,22,00,44,00,00,77,33,44,00,11,00,88,44,00
11,22,00,99,00,66,00,88,44,00,00,77,88,99,00
66,77,88,00,00
66,77,88,00,00,00,77,88,99,00,66,00,88,44,00
11,22,00,99,00,11,00,88,44,00,00,77,33,44,00
66,22,00,44,00,11,22,00,44,00,11,00,33,44,00
00,22,33,44,00
BLK
TTL'/98/69TST
LPAREN=(,ZERO1=(),ZERO2=())
ZERO3=(NUL),ZERO4=(NUL)),RPAREN=)
DRPAREN=))
1,ZERO1,2,ZERO2,3,ZERO3,4,ZERO4,5
2WRD LPAREN 3+3 RPAREN 4WRD LPAREN 3+4
MASK1=MSK 5WRD ARG 2WRD ARG 22 .2WRD ARG
MASK1)33,MASK1()33
FOO1=MASK1()333,FOO2=MASK1)333,FOO2,FOO1
FOO2=MASK1 0 123,FOO3=MASK1 NUL 456
FOO4=MASK1 (NUL)789,FOO2,FOO3,FOO4
MASK1 0 321,MASK1 NUL 654,MASK1(NUL)987
BLAH=2WRD(,BLAH 888,BLEH=2WRD,BLEH 999
FLIP=WRD 2(,FLIP 555,FLOP=WRD 2,FLOP 444
ZIP=WRD 2+(400 30 4,ZIP
...
...PREDICTED RESULTS
1,0,2,0,3,0,4,0,5,0,6,0,7
0,0,33,0,22,33,0,0
0,0,333,0,22,333,0,0
0,22,123,0,0,0,22,456,0,0,0,22,789,0,0
0,22,321,0,0,0,22,654,0,0,0,22,987,0,0
888,0,0,999,555,0,0,444,0,434
BLK
TTL'/99/,7TST
NSN'/FOO/
FOO1=111
FOO=64
NSV -5
123,NST,456
JST 2
NSV 1
345,NST,567
NST
...
...PREDICTED RESULTS
123,59,456,345,65,567,111
BLK
...TABLE TO TEST BUG FIX DEC 7, 1941
...THE POP OPERATOR DID NOT CORRECTLY REVEAL
...EMBEDDED ZEROS WITHIN A STACK. FOR EXAMPLE, IF
...A=11 3WRD 33, THE DOING A SINGLE POP A WOULD
...LEAVE A WITH THE VALUE A=11, RATHER THAN A=11 2WRD 0
...AS WOULD BE DESIRED.
TTL'/100/244TST
G=0,H=0,I=0
PSH 70 A PSH 0 A PSH 0 A PSH 40 A PSH 0 A PSH 0 A PSH 10 A
STK 11 B STK 21 B STK 0 B STK 41 B STK 0 B STK 61 B STK 71 B
PSH 0 C PSH 0 C PSH 52 C PSH 0 C PSH 0 C PSH 0 C PSH 0 C
STK 0 D STK 0 D STK 0 D STK 43 D STK 53 D STK 0 D STK 0 D
PSH 0 E PSH 0 E PSH 0 E PSH 14 E
STK 15 F STK 25 F STK 0 F STK 0 F
STK 0 G STK 0 G STK 0 G STK 0 G STK 0 G STK 77 G
PSH 0 H PSH 58 H PSH 0 H PSH 38 H PSH 0 H PSH 0 H
STK 29 I STK 39 I STK 0 I STK 0 I STK 69 I STK 0 I
STK 46 J STK 56 J PSH 36 J PSH 26 J STK 66 J
PSH 16 J STK 76 J
...
A,B,C,D,E,F,G,H,I,J
POP A POP B POP C POP D POP E POP F POP G POP H POP I POP J
A,B,C,D,E,F,G,H,I,J
POP A POP B POP C POP D POP E POP F POP G POP H POP I POP J
A,B,C,D,E,F,G,H,I,J
POP A POP B POP C POP D POP E POP F POP G POP H POP I POP J
A,B,C,D,E,F,G,H,I,J
1DIU E 100 1DIU F 100
POP A POP B POP C POP D POP E POP F POP G POP H POP I POP J
1DID E 200 1DID F 200
A,B,C,D,G,H,I,J
POP A POP B POP C POP D POP G POP H POP I POP J
A,B,C,D,G,H,I,J
POP A POP B POP C POP D POP G POP H POP I POP J
A,B,C,D,G,H,I,J
POP A POP B POP C POP D POP G POP H POP I POP J
1DID A 1 1DID B 2 1DID C 4 1DID D 8
,,1DID E 16 1DID F 32 1DID G 64 1DID H 128 1DID I 256
,,1DID J 512
10, 0, 0,40, 0, 0,70
11,21, 0,41, 0,61,71
0, 0, 0, 0,52, 0, 0
0, 0, 0,43,53, 0, 0
14, 0, 0, 0
15,25, 0, 0
0, 0, 0, 0, 0, 0,77
0, 0,38, 0,58, 0, 0
0,29,39, 0, 0,69, 0
16,26,36,46,56,66,76
10, 0, 0,40, 0, 0
11,21, 0,41, 0,61
0, 0, 0, 0,52, 0
0, 0, 0,43,53, 0
14, 0, 0
15,25, 0
0, 0, 0, 0, 0, 0
0, 0,38, 0,58, 0
0,29,39, 0, 0,69
16,26,36,46,56,66
10, 0, 0,40, 0
11,21, 0,41, 0
0, 0, 0, 0,52
0, 0, 0,43,53
14, 0
15,25
0, 0, 0, 0, 0
0, 0,38, 0,58
0,29,39, 0, 0
16,26,36,46,56
10, 0, 0,40
11,21, 0,41
0, 0, 0, 0
0, 0, 0,43
14
15
0, 0, 0, 0
0, 0,38, 0
0,29,39, 0
16,26,36,46
10, 0, 0
11,21, 0
0, 0, 0
0, 0, 0
0, 0, 0
0, 0,38
0,29,39
16,26,36
10, 0
11,21
0, 0
0, 0
0, 0
0, 0
0,29
16,26
10
11
0
0
0
0
0
16
BLK