...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