PDP-10 Archive: decus/20-0050/test2.dat from decuslib20-02

Trailing-Edge - PDP-10 Archives - decuslib20-02 - decus/20-0050/test2.dat
There are 2 other files named test2.dat in the archive. Click here to see a list.
...TEST SRX AND TRX
TTL'/26/16TST
A=111,A
A=OCT 336,A
A=DEC 333,A
A=8SRX 157+DEC 222+157,A
A=555,A
8SRX,A=1232,A
A=336+DEC 222+10SRX 333,A
A=1570,A
DECIMAL=10TRX,OCTAL=8TRX
111
111+OCTAL 157
515
157+DEC 222+157
515+OCT 336
157+DECIMAL 555
222+OCT 515+222
444+DEC 444
111,222,333,444,555,666,777,888
111,222,333,444,555,666,777,888
BLK
...TEST IF SAVED UNKNOWN ADDRESS INFORMATION
...IS PROCESSED CORRECTLY IF ADDRESS IS ENCOUNTERED
...AFTER PACKING PATTERN DICTATES ORIGIN INCREMENT
...BUT BEFORE THIS INFORMATION IS PLACED INTO LIST
...STRUCTURE.
TTL'/27/
MASK=MSK 3WRD-10SIZ 2LFT ARG 0LFT ARG.1LFT ARG.
TON MASK
LOC ADR1 LOC ADR1 ADR1 LOC ADR1
LOC ADR2 LOC ADR2 LOC ADR2 ADR2
LOC ADR3 LOC ADR3 2WRD ADR3 LOC ADR3
MSK
MASK2=MSK.
10SIZ 3WRD 2LFT-LOC ADR4 LOC ADR4 MASK2 ADR4 1LFT.
LOC ADR1,LOC ADR2,LOC ADR3,LOC ADR4
16TST 2,20,-200,6,60,-600,9,90,-900,11,110,-1100
2,6,9,11 BLK
...TABLE TO TEST APPEARANCE OF BIT OPERATORS
...ANYWHERE IN PACKING PATTERN ARGUMENT LIST
TTL'/28/
MASK=MSK 10SIZ 3WRD 0LFT ARG 2WRD 1LFT ARG 2WRD 0LFT ARG,,,
2LFT ARG 1LFT ARG
ADR1 3WRD NUL
MASK 1 2 1 3 4 1
MASK 2WRD 5BIT ADR1 1BIT ADR1 1 7BIT ADR1 2,,,
3BIT ADR1 1 9BIT ADR1 3 5BIT ADR1 1BIT ADR1,,,
4 2WRD 3BIT ADR1 1 3WRD 1BIT ADR1 2WRD 1BIT ADR1
MASK 2WRD 5BIT ADR2 1BIT ADR2 1 7BIT ADR2 2,,,
3BIT ADR2 1 9BIT ADR2 3 5BIT ADR2 1BIT ADR2,,,
4 2WRD 3BIT ADR2 1 3WRD 1BIT ADR2 2WRD 1BIT ADR2
ADR2 3WRD NUL
15TST
341,21,1,341,21,1,341,21,1,341,21,1,341,21,1
BLK
...TABLE TO TEST APPEARANCE OF BIT OPERATORS
...ANYWHERE IN PACKING PATTERN ARGUMENT LIST
TTL'/29/
MASK=MSK 10SIZ 3WRD 0LFT ARG 2WRD 1LFT ARG 2WRD 0LFT ARG,,,
2LFT ARG 1LFT ARG
3DUP ADR1 3WRD NUL
2DUP MASK 1 2 1 3 4 1
3DUP MASK 2WRD 5BIT ADR1 1BIT ADR1 1 7BIT ADR1 2,,,
3BIT ADR1 1 9BIT ADR1 3 5BIT ADR1 1BIT ADR1,,,
4 2WRD 3BIT ADR1 1 3WRD 1BIT ADR1 2WRD 1BIT ADR1
2DUP MASK 2WRD 5BIT ADR2 1BIT ADR2 1 7BIT ADR2 2,,,
3BIT ADR2 1 9BIT ADR2 3 5BIT ADR2 1BIT ADR2,,,
4 2WRD 3BIT ADR2 1 3WRD 1BIT ADR2 2WRD 1BIT ADR2
3DUP ADR2 3WRD NUL
39TST
341,21,1,341,21,1,341,21,1,341,21,1,341,21,1
341,21,1,341,21,1,341,21,1,341,21,1,341,21,1
341,21,1,341,21,1,341,21,1
BLK
...TABLE TO TEST APPEARANCE OF BIT OPERATORS
...ANYWHERE IN PACKING PATTERN ARGUMENT LIST
...INCLUDING WITHIN PARENTHETICAL EXPRESSIONS
TTL'/30/
MASK=MSK 10SIZ 3WRD 0LFT ARG 2WRD 1LFT ARG 2WRD 0LFT ARG,,,
2LFT ARG 1LFT ARG
3DUP ADR1 3WRD NUL
2DUP MASK 1 2 1 3 4 1
3DUP MASK 2WRD 5BIT ADR1 1 1BIT ADR1 (1 7BIT ADR1,,,
3BIT ADR1 1) 1(1 9BIT ADR1 1 5BIT ADR1 1)(1BIT ADR1,,,
2 2WRD 3BIT ADR1 2)1 3WRD 1BIT ADR1 2WRD 1BIT ADR1
2DUP MASK 2WRD 5BIT ADR2 1 1BIT ADR2 (1 7BIT ADR2,,,
3BIT ADR2 1) 1(1 9BIT ADR2 1 5BIT ADR2 1)(1BIT ADR2,,,
2 2WRD 3BIT ADR2 2)1 3WRD 1BIT ADR2 2WRD 1BIT ADR2
3DUP ADR2 3WRD NUL
39TST
341,21,1,341,21,1,341,21,1,341,21,1,341,21,1
341,21,1,341,21,1,341,21,1,341,21,1,341,21,1
341,21,1,341,21,1,341,21,1
BLK
...TEST OF MULTIPLE PRECISION CONSTANT
...AS ARGUMENT OF MULTIPLE PRECISION MASK
TTL'/31/
MASK=MSK 3WRD 0LFT ARG 2WRD 0LFT ARG 0LFT ARG
ONE=3WRD 1
TWO=2WRD 2
THREE=3
MASK ONE TWO THREE
MASK THREE TWO ONE
MASK THREE THREE THREE
MASK TWO TWO TWO
MASK ONE ONE ONE
20TST
3,0,2,0,1
0,0,3
3,3,3
0,2,2,2
0,0,1,1,1
BLK
...TABLE TO TEST ABILITY TO CHANGE BYTE PATTERNS
...AT START OF A CONSTANT DEFINITION
TTL'/32/
MASK1=MSK.
MASK2=MSK.1LFT ARG
MASK3=MSK.2LFT ARG.
MASK4=MSK 3LFT ARG.
A=MASK1 1
B=MASK2 2
C=MASK3 3
D=MASK4 4
A,B,C,D
MASK1 1
MASK2 2
MASK3 3
MASK4 4
E=MASK2 MASK3 MASK4 MASK1 1
F=MASK3 MASK4 MASK1 MASK2 2
G=MASK4 MASK1 MASK2 MASK3 3
H=MASK1 MASK2 MASK3 MASK4 4
E,F,G,H
MASK2 MASK3 MASK4 MASK1 1
MASK3 MASK4 MASK1 MASK2 2
MASK4 MASK1 MASK2 MASK3 3
MASK1 MASK2 MASK3 MASK4 4
28TST
0,1,0,4,0,12,32
0,1,0,4,0,12,32
0,1,0,4,0,12,32
0,1,0,4,0,12,32
BLK
...TABLE TO TEST DEFINITION OF CONSTANTS WITH
...VARIOUS COMBINATIONS OF PACKING PATTERNS
TTL'/33/
MASK123=MSK 10SIZ 0LFT ARG 2WRD 1LFT ARG 3WRD 2LFT ARG
MASK132=MSK 10SIZ 0LFT ARG 3WRD 2LFT ARG 2WRD 1LFT ARG
MASK213=MSK 10SIZ 2WRD 1LFT ARG 0LFT ARG 3WRD 2LFT ARG
MASK231=MSK 10SIZ 2WRD 1LFT ARG 3WRD 2LFT ARG 0LFT ARG
MASK312=MSK 10SIZ 3WRD 2LFT ARG 0LFT ARG 2WRD 1LFT ARG
MASK321=MSK 10SIZ 3WRD 2LFT ARG 2WRD 1LFT ARG 0LFT ARG
A=MASK123 1 2 3
B=MASK132 1 3 2
C=MASK213 2 1 3
D=MASK231 2 3 1
E=MASK312 3 1 2
F=MASK321 3 2 1
A,B,C,D,E,F
A1=MASK123 1
A2=MASK213 2
A3=MASK312 3
A12=MASK123 1 2
A13=MASK132 1 3
A23=MASK231 2 3
XSY A B C D E F
A=A1 A23
B=A2 A13
C=A3 A12
D=A1 MASK231 2 3
E=A2 MASK132 1 3
F=A3 MASK123 1 2
A,B,C,D,E,F
XSY A B C D E F
A=A1 MASK231 2 MASK321 3
B=A13 MASK231 2
C=MASK231 2 MASK321 3)A1
D=MASK231 2)A1 MASK321 3
A,B,C,D
48TST
1,20,300,1,20,300,1,20,300,1,20,300,1,20,300,1,20,300
1,20,300,1,20,300,1,20,300,1,20,300,1,20,300,1,20,300
1,20,300,1,20,300,1,20,300,1,20,300
BLK
...TABLE TO TEST ABILITY TO REDEFINE PACKING
...PATTERN SELECTED BY TON OPERATOR
TTL'/34/
MASK1=MSK 10SIZ 0LFT ARG 1LFT ARG 2LFT ARG
MASK2=MSK 0LFT ARG 3LFT ARG 6LFT ARG
MASK3=MSK 6LFT ARG 3LFT ARG 0LFT ARG
MASK1 1 2 3
MASK2 1 2 3
MASK3 1 2 3
TON MASK1
1 2 3
4 5 6
MASK1=MSK 10SIZ 2LFT ARG 1LFT ARG 0LFT ARG
7 8 9
1 2 3
MASK1=MASK2
4 5 6
1 2 3
MASK1=MASK3
1 2 3
4 5 6
MASK4=MSK 10SIZ 2LFT ARG 1LFT ARG 0LFT ARG
1 2 3
MASK1=MSK 10SIZ 0LFT ARG 1LFT ARG 2LFT ARG
1 2 3
MASK2 1 2 3
4 5 6
MASK2=MASK3
1 2 3
4 5 6
MASK2=MASK4
1 2 3
4 5 6
MASK2=MSK 0LFT ARG 3LFT ARG 6LFT ARG
1 2 3
4 5 6
NULLMASK=MSK
1 2 3
MSK=MASK4
4 5 6
1 2 3
MSK
1 2 3

4 5 6
NULLMASK
4 5 6
27TST
321,209,83,321,654,789,123,428,209,83,302
83,321,209,428,83,302,123,456,209
428,209,428,209,123,456,7
BLK
...TABLE TO TEST ABILITY TO XSY PACKING PATTERN
...SELECTED BY TON OPERATOR
TTL'/35/
MASK1=MSK 10SIZ 0LFT ARG 1LFT ARG 2LFT ARG
MASK2=MSK 0LFT ARG 3LFT ARG 6LFT ARG
MASK3=MSK 6LFT ARG 3LFT ARG 0LFT ARG
MASK4=MSK 10SIZ 2LFT ARG 1LFT ARG 0LFT ARG
TON MASK3
1 2 3 
4 5 6 
XSY MASK1
1 2 3
4 5 6
XSY MASK3
1 2 3  
4 5 6 
TON MASK2
1 2 3 
4 5 6 
XSY MASK2
1 2 3 
4 5 6
10TST
83,302,83,302,3,7,209,428,3,7
BLK
...TABLE TO TEST ABILITY TO XSY SYMBOLS FROM DICTIONARY
...CONTAINING BYTE INFORMATION CELLS
TTL'/36/
LOC ADR1
LOC ADR1
A=1
B=1WRD 1 2WRD 2 3WRD 3
+LOC ADR2+LOC ADR2
C=2
D=1WRD 4 2WRD 5 3WRD 6
ADR3 3DUP NUL
E=3
F=1WRD 7 2WRD 8 3WRD 9
MASK=MSK 1WRD 0LFT ARG 2WRD 0LFT ARG 3WRD 0LFT ARG
G=4
H=MASK 10 11 12
I=B
J=D
A,B,C,D,E,F,G,H,I,J
XSY A B C D E F G H
I,J
2DUP ADR1
4DUP ADR2
4BIT ADR3 3BIT ADR1 2BIT ADR2 1BIT ADR1
MASK 21 22 23
LOC ADR3
44TST
35,35,74,8,8,8
1,1,2,3
2,4,5,6
3,7,8,9
4,10,11,12
1,2,3,4,5,6
1,2,3,4,5,6
5,5
2,2,2,2
21,22,23
4
BLK
...PAIR OF TABLES TO TEST ABILITY TO TRANSMIT
...MULTIPLE ENTRY CONSTANTS AND MASKS BETWEEN
...TABLES WITH SAV TERMINATOR COMMAND
TTL'/37/
ADR1 LOC ADR2
MASK=MSK 10SIZ 2LFT ARG 1LFT ARG 0LFT ARG
ADR3 LOC ADR4
SYMBOL1=1 2WRD 2 3WRD 3
ADR5 LOC ADR6 3DUP
SYMBOL2=MASK 1 3 5
ADR2 MASK 5 7 9
ADR4 SYMBOL1
ADR6 SYMBOL2
10TST
6,7,10,10,10,579,1,2,3,135
SAV
...COMPANION TABLE TO 37 ABOVE
TTL'/38/
MASK 5 6 7
SYMBOL1
SYMBOL2
5TST 567,1,2,3,135 BLK
...TABLE TO TEST VARIOUS COMBINATIONS OF
...MULTIPLE ENTRY CONSTANTS
TTL'/39/
MASK0=MSK 10SIZ 1WRD 0LFT ARG 2WRD 0LFT ARG 3WRD 0LFT ARG
MASK1=MSK 10SIZ 1WRD 1LFT ARG 2WRD 1LFT ARG 3WRD 1LFT ARG
MASK2=MSK 10SIZ 1WRD 2LFT ARG 2WRD 2LFT ARG 3WRD 2LFT ARG
MASK3=MSK 10SIZ 1WRD 3LFT ARG 2WRD 3LFT ARG 3WRD 3LFT ARG
MASK4=MSK 10SIZ 1WRD 4LFT ARG 2WRD 4LFT ARG 3WRD 4LFT ARG
A1=MASK0 1 1 1
A2=MASK1 2 2 2
A3=MASK2 3 3 3
A4=MASK3 4 4 4
A5=MASK4 5 5 5
A12=MASK0 1 1 1+A2
A13=A1 MASK2 3 3 3
A14=MASK0 1 1 1 MASK3 4 4 4
A15=A1+A5
A23=A2
A23=A23+A3
A24=MASK1 2 2 2 10SIZ 3LFT 4 2WRD 3LFT 4 3WRD 3LFT 4
A25=10SIZ 1LFT 2 2WRD 1LFT 2 3WRD 1LFT 2 MASK4 5 5 5
A34=A3 10SIZ 3LFT 4 2WRD 3LFT 4 3WRD 3LFT 4
A35=10SIZ 2LFT 3 2WRD 2LFT 3 3WRD 2LFT 3 A5
A45=A14+A25-A12
A12+A34+A5
A13+A25+A4
A14+A35+A2
A15+A24+A3
A23+A45+A1
15TST
54321,54321,54321,54321,54321
54321,54321,54321,54321,54321
54321,54321,54321,54321,54321
BLK
...TABLE TO TEST TTY OPERATOR IN TEST TABLE
TTL'/40/10TST
1 TTY 4 TTY 7 TTY 10
2,3 TTY 5,6 TTY 8,9 TTY
1,2,3,4,5,6,7,8,9,10 BLK
...SIMPLE TABLE TO TEST == OPERATOR
TTL'/41/6TST
A==B==C==
1,2,3,4,5,6,
D==E==F==
F,E,D,C,B,A
6,5,4,3,2,1 BLK
...SIMPLE TABLE TO TEST ABILITY OF == OPERATOR
...TO WAIT FOR A VALID DEFINITION TO BE INPUT
..=
TTL'/42/4TST
A==B==C==D==D,C,B,A,4,3,2,1 BLK
, ,1,
.. ..
2,...A COMMENT
3
,,,ANOTHER COMMENT
,4,
...SIMPLE TABLE TO TEST ABILITY OF == OPERATOR
...TO ACCEPT ANY TYPE OF DEFINITION
TTL'/43/6TST
MASK==,CONSTANT1==,CONSTANT2==
MSK 10SIZ 2LFT ARG 1LFT ARG 0LFT ARG,MASK 1 2 3,2WRD 456 3WRD 789,10SIZ 1LFT,,,
TOTAL==TTY OCTAL==LOCATION==TTY ADRS OCTAL 77,1234
CONSTANT1 1LFT CONSTANT2,,,
4 2WRD 7,TOTAL TTY OCT,LOC,OCTAL 77,LOCATION ADRS TTY
4567,7890,63,6,63 
BLK
...TEST THAT TTY OPERATOR DOESN'T DROP
...ANY CHARACTERS WHEN SWAP BUFFERS
TTL'/44/16TST
XSY-,-=TTY
1-3-5-7-
2-4-6-8-
9-11-13
10-12
-14-16-
-15-1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16 BLK
...TEST MULTIPLE ENTRY CONSTANTS
TTL'/45/25TST
A1=10000 2WRD 20000 3WRD 30000 4WRD,,,
   40000 5WRD 50000
A2=2000 2WRD 3000 3WRD 4000 4WRD 5000,,,
   5WRD 6000
A3=300 2WRD 400 3WRD 500 4WRD 600 5WRD,,,
   700
A4=40 2WRD 50 3WRD 60 4WRD 70 5WRD 80
A5=5 2WRD 6 3WRD 7 4WRD 8 5WRD 9
8SRX
B1=3WRD 100000 4WRD 100000 5WRD 100000
B2=30000 2WRD 50000 4WRD 30000 5WRD,,,
   50000
B3=2WRD 5000 3WRD 3000 4WRD 1000 ,,,
   5WRD 6000
B4=2WRD 600 3WRD 400 4WRD 100 5WRD,,,
   700
B5=70 2WRD 40 4WRD 50 5WRD 20
B6=1 3WRD 7 4WRD 6 5WRD 5
TOTAL=A1+A2+A3+A4+A5
A1+A2+A3+A4+A5
B1+B2+B3+B4+B5+B6
B1 IOR B2 IOR B3 IOR B4 IOR B5 IOR B6
B1 B1 B2 B2 B3 B3 B4 B4 B5 B5 B6 B6
TOTAL
12345,23456,34567,45678,56789
12345,23456,34567,45678,56789
12345,23456,34567,45678,56789
12345,23456,34567,45678,56789
12345,23456,34567,45678,56789 BLK
...FIRST OF A SET OF TABLES TO TEST ORIGIN INCREMENT
...BY PACKING PATTERN
TTL'/46/54TST
M000=MSK 0LFT ARG
M001=M000.
M002=M001.
M010=MSK 1LFT ARG
M011=M010.
M012=M011.
M020=MSK 2LFT ARG
M021=M020.
M022=M021.
M100=MSK.M000
M101=M100.
M102=M101.
M110=MSK.M010
M111=M110.
M112=M111.
M120=MSK.M020
M121=M120.
M122=M121.
M200=MSK.M100
M201=M200.
M202=M201.
M210=MSK.M110
M211=M210.
M212=M211.
M220=MSK.M120
M221=M220.
M222=M221.
M000  1,M001  2,M002  3,M010  4,M011  5,M012  6
M020  7,M021  8,M022  9,M100 10,M101 11,M102 12
M110 13,M111 14,M112 15,M120 16,M121 17,M122 18
M200 19,M201 20,M202 21,M210 22,M211 23,M212 24
M220 25,M221 26,M222 27
1,2,3,8,10,12,28,32,36
0,10,0,11,0,12,0,26,0,28,0,30,0,64,0,68,0,72
0,0,19,0,0,20,0,0,21,0,0,44,0,0,46,0,0,48,0,0,100,0,0,104,0,0,108
SAV
...TABLE TO TEST ORIGIN INCREMENT WHEN COMMAND
...IS AT END OF PACKING PATTERN DEFINITION AND
...ANOTHER CONSTANT APPEARS IN STATEMENT
TTL'/47/81TST
M000  1 128,M001  2 128,M002  3 128,
M010  4 128,M011  5 128,M012  6 128
M020  7 128,M021  8 128,M022  9 128,
M100 10 128,M101 11 128,M102 12 128
M110 13 128,M111 14 128,M112 15 128,
M120 16 128,M121 17 128,M122 18 128
M200 19 128,M201 20 128,M202 21 128,
M210 22 128,M211 23 128,M212 24 128
M220 25 128,M221 26 128,M222 27 128
129,2,128,3,0,128,
136,10,128,12,0,128,
156,32,128,36,0,128,
0,138,0,11,128,0,12,0,128,
0,154,0,28,128,0,30,0,128,
0,192,0,68,128,0,72,0,128,
0,0,147,0,0,20,128,0,0,21,0,128,
0,0,172,0,0,46,128,0,0,48,0,128,
0,0,228,0,0,104,128,0,0,108,0,128
SAV
...TABLE TO TEST THAT EXTRA PACKING PATTERNS
...ARE IGNORED IN STATEMENTS WHICH ASSEMBLE TABLE ENTRIES
TTL'/48/81TST
MASK=MSK.
MASK M000  1 128,MASK M001  2 128,MASK M002  3 128,
M000 M010  4 128,M000 M011  5 128,M000 M012  6 128
M222 M020  7 128,M222 M021  8 128,M222 M022  9 128,
MASK M100 10 128,MASK M101 11 128,MASK M102 12 128
M000 M110 13 128,M000 M111 14 128,M000 M112 15 128,
M222 M120 16 128,M222 M121 17 128,M222 M122 18 128
MASK M200 19 128,MASK M201 20 128,MASK M202 21 128,
M000 M210 22 128,M000 M211 23 128,M000 M212 24 128
M222 M220 25 128,M222 M221 26 128,M222 M222 27 128
129,2,128,3,0,128,
136,10,128,12,0,128,
156,32,128,36,0,128,
0,138,0,11,128,0,12,0,128,
0,154,0,28,128,0,30,0,128,
0,192,0,68,128,0,72,0,128,
0,0,147,0,0,20,128,0,0,21,0,128,
0,0,172,0,0,46,128,0,0,48,0,128,
0,0,228,0,0,104,128,0,0,108,0,128
BLK

...SIMPLE TABLE TO TEST MASKS AS CONSTANTS
TTL'/49/
ABC=2WRD 22 3WRD 33 4WRD 44
DEFG=5WRD 55
MASK=MSK ARG 11 ARG ABC ARG DEFG
MASK
MASK=MSK-ARG 11-ARG ABC-ARG DEFG
MASK
ABC=22 3WRD 44
DEFG=2WRD 55
MASK=MSK 3WRD ARG 33 2WRD ARG ABC 4WRD ARG DEFG ARG 11
MASK
MASK=MSK-3WRD ARG 33-2WRD ARG ABC-4WRD ARG DEFG-ARG 11
MASK
20TST
11,22,33,44,55,-11,-22,-33,-44,-55
11,22,33,44,55,-11,-22,-33,-44,-55
BLK
...SHORT TABLE TO TEST THAT PACKING PATTERNS
...WHICH BEGIN WITH CONSTANT SPECIFICATIONS DO
...NOT PRODUCE TABLE ENTRIES FOR STATEMENTS
...WHICH DO NOT SPECIFY TABLE ENTRIES
MASK1=MSK ARG 11.
TON MASK1
MASK2=MSK ARG 11
MASK3=MSK ARG 333
MASK4=MSK ARG 11.ARG 0
222
TTL'/50/
XSY LOC OCT DEC
333
MASK2...EQUIVALENT TO STATEMENT TON MASK2
...AND SO PRODUCES NO TABLE ENTRY

2WRD 444
12TST
MSK
MASK1 222
MASK4 MASK3
2WRD 444 MASK1
11,222,11,333,11,444,11,222,11,333,11,444
BLK