


                              E.R.C.C. IMP(SYS1) COMPILER  RELEASE 5 ALL-IMP VERSION   DATED 1/5/70


B 00000001    0B
     1    %CONTROL X'1FFF0110' ; ! Decode=1 + checks=1 + diags=1 - compiles OK

C 00000000    50CD001C        ST     12,   28( 13,  0)
C 00000004    58CD005C        L      12,   92( 13,  0)
C 00000008    50FB003C        ST     15,   60( 11,  0)
C 0000000C    45FC004C        BAL    15,   76( 12,  0)
C 00000010    189B            LR      9, 11
C 00000012    41BB0000        LA     11,    0( 11,  0)
C 00000016    41000004        LA      0,    4(  0,  0)
C 0000001A    59BD0044        C      11,   68( 13,  0)
C 0000001E    4720C054        BC      2,   84(  0, 12)


     2    !%CONTROL X'1FFF1000' ; ! Decode=1 + unass=1 - fails with lots of FAULT 99's
     3    !%CONTROL X'1FFF0100' ; ! Decode=1 + checks=1 - compiles OK!
     4    !%CONTROL X'1FFF0010' ; ! Decode=1 + diags1=1 - compiles OK!
     5    !%CONTROL X'1FFF0001' ; ! Decode=1 + linenos=1 - with this option, compilation fails with FAULT 99!
     6    !%CONTROL X'1FFF0000' ; ! Decode=1 only.  This allows it to compile OK
     7                   %BEGIN

C 00000022    90AB9040        STM    10, 11,   64(  9)
C 00000026    D2039048D014    MVC     72(  4,  9),   20( 13)
C 0000002C    41000007        LA      0,    7(  0,  0)
C 00000030    4000D014        STH     0,   20(  0, 13)
C 00000034    05A0            BALR   10,  0


     8                       %INTEGER I,J,K,SS
     9        %OWNBYTEINTEGERARRAY CLETT(1: 425)=   1,
    10          43,   1,  45,   1,  92,   1,  40,   1,  41,   1,  33,   1,  44,   2,
K 00000000    01 2B 01 2D
K 00000004    01 5C 01 28
K 00000008    01 29 01 21
    11          42,  42,   2,  33,  33,   1,  42,   2,  47,  47,   1,  47,   1,  38,
K 0000000C    01 2C 02 2A
K 00000010    2A 02 21 21
K 00000014    01 2A 02 2F
K 00000018    2F 01 2F 01
    12           2,  62,  62,   2,  60,  60,   1,  46,   1,  63,   2, 201, 198,   6,
K 0000001C    26 02 3E 3E
K 00000020    02 3C 3C 01
K 00000024    2E 01 3F 02
    13         213, 206, 204, 197, 211, 211,   7, 201, 206, 212, 197, 199, 197, 210,
K 00000028    C9 C6 06 D5
K 0000002C    CE CC C5 D3
K 00000030    D3 07 C9 CE
K 00000034    D4 C5 C7 C5
    14           4, 210, 197, 193, 204,   4, 194, 217, 212, 197,   5, 211, 200, 207,
K 00000038    D2 04 D2 C5
K 0000003C    C1 CC 04 C2
K 00000040    D9 D4 C5 05
    15         210, 212,   4, 204, 207, 206, 199,   6, 211, 212, 210, 201, 206, 199,
K 00000044    D3 C8 CF D2
K 00000048    D4 04 CC CF
K 0000004C    CE C7 06 D3
K 00000050    D4 D2 C9 CE
    16           7, 210, 207, 213, 212, 201, 206, 197,   2, 198, 206,   3, 205, 193,
K 00000054    C7 07 D2 CF
K 00000058    D5 D4 C9 CE
K 0000005C    C5 02 C6 CE
    17         208,   4, 206, 193, 205, 197,   6, 210, 197, 195, 207, 210, 196,   4,
K 00000060    03 CD C1 D0
K 00000064    04 CE C1 CD
K 00000068    C5 06 D2 C5
K 0000006C    C3 CF D2 C4
    18         211, 212, 207, 208,   7, 195, 207, 205, 208, 201, 204, 197,   6, 201,
K 00000070    04 D3 D4 CF
K 00000074    D0 07 C3 CF
K 00000078    CD D0 C9 CC
    19         199, 206, 207, 210, 197,   2, 207, 206,   3, 207, 198, 198,   5, 193,
K 0000007C    C5 06 C9 C7
K 00000080    CE CF D2 C5
K 00000084    02 CF CE 03
K 00000088    CF C6 C6 05
    20         210, 210, 193, 217,   3, 193, 206, 196,   2, 207, 210,   2,  61,  61,
K 0000008C    C1 D2 D2 C1
K 00000090    D9 03 C1 CE
K 00000094    C4 02 CF D2
    21           1,  61,   2,  60,  45,   2,  45,  62,   4, 211, 208, 197, 195,   6,
K 00000098    02 3D 3D 01
K 0000009C    3D 02 3C 2D
K 000000A0    02 2D 3E 04
K 000000A4    D3 D0 C5 C3
    22         206, 207, 210, 205, 193, 204,   6, 214, 197, 195, 212, 207, 210,   1,
K 000000A8    06 CE CF D2
K 000000AC    CD C1 CC 06
K 000000B0    D6 C5 C3 D4
    23          58,   2,  62,  61,   1,  62,   1,  35,   2,  60,  61,   1,  60,   2,
K 000000B4    CF D2 01 3A
K 000000B8    02 3E 3D 01
K 000000BC    3E 01 23 02
K 000000C0    3C 3D 01 3C
    24          92,  61,   4, 197, 204, 211, 197,   1,  95,   6, 211, 217, 211, 212,
K 000000C4    02 5C 3D 04
K 000000C8    C5 CC D3 C5
K 000000CC    01 5F 06 D3
    25         197, 205,   8, 197, 216, 212, 197, 210, 206, 193, 204,   5, 195, 204,
K 000000D0    D9 D3 D4 C5
K 000000D4    CD 08 C5 D8
K 000000D8    D4 C5 D2 CE
K 000000DC    C1 CC 05 C3
    26         193, 201, 205,   7, 210, 197, 204, 197, 193, 211, 197,   1,  80,   3,
K 000000E0    CC C1 C9 CD
K 000000E4    07 D2 C5 CC
K 000000E8    C5 C1 D3 C5
    27          80,  85,  84,   1,  64,   9, 208, 210, 201, 206, 212, 212, 197, 216,
K 000000EC    01 50 03 50
K 000000F0    55 54 01 40
K 000000F4    09 D0 D2 C9
K 000000F8    CE D4 D4 C5
    28         212,   6, 210, 197, 212, 213, 210, 206,   7, 210, 197, 211, 213, 204,
K 000000FC    D8 D4 06 D2
K 00000100    C5 D4 D5 D2
K 00000104    CE 07 D2 C5
    29         212,  61,   7, 205, 207, 206, 201, 212, 207, 210,   5, 211, 212, 193,
K 00000108    D3 D5 CC D4
K 0000010C    3D 07 CD CF
K 00000110    CE C9 D4 CF
K 00000114    D2 05 D3 D4
    30         210, 212,   7, 209, 213, 197, 210, 201, 197, 211,   5, 195, 217, 195,
K 00000118    C1 D2 D4 07
K 0000011C    D1 D5 C5 D2
K 00000120    C9 C5 D3 05
    31         204, 197,   6, 210, 197, 208, 197, 193, 212,   4, 212, 200, 197, 206,
K 00000124    C3 D9 C3 CC
K 00000128    C5 06 D2 C5
K 0000012C    D0 C5 C1 D4
K 00000130    04 D4 C8 C5
    32           3, 197, 206, 196,   7, 195, 207, 205, 205, 197, 206, 212,   5, 210,
K 00000134    CE 03 C5 CE
K 00000138    C4 07 C3 CF
K 0000013C    CD CD C5 CE
    33         197, 193, 204, 211,   5, 194, 197, 199, 201, 206,   2, 207, 198,   7,
K 00000140    D4 05 D2 C5
K 00000144    C1 CC D3 05
K 00000148    C2 C5 C7 C9
K 0000014C    CE 02 CF C6
    34         208, 210, 207, 199, 210, 193, 205,   6, 211, 215, 201, 212, 195, 200,
K 00000150    07 D0 D2 CF
K 00000154    C7 D2 C1 CD
K 00000158    06 D3 D7 C9
    35           8, 210, 197, 199, 201, 211, 212, 197, 210,   3, 207, 215, 206,   5,
K 0000015C    D4 C3 C8 08
K 00000160    D2 C5 C7 C9
K 00000164    D3 D4 C5 D2
K 00000168    03 CF D7 CE
    36         205, 195, 207, 196, 197,   5, 198, 193, 213, 204, 212,   4, 198, 201,
K 0000016C    05 CD C3 CF
K 00000170    C4 C5 05 C6
K 00000174    C1 D5 CC D4
    37         204, 197,   6, 196, 197, 198, 201, 206, 197,   1, 210,   7, 211, 208,
K 00000178    04 C6 C9 CC
K 0000017C    C5 06 C4 C5
K 00000180    C6 C9 CE C5
K 00000184    01 D2 07 D3
    38         197, 195, 201, 193, 204,   4, 204, 201, 211, 212,   7, 195, 207, 206,
K 00000188    D0 C5 C3 C9
K 0000018C    C1 CC 04 CC
K 00000190    C9 D3 D4 07
    39         212, 210, 207, 204,   6, 198, 201, 206, 201, 211, 200,   6, 198, 207,
K 00000194    C3 CF CE D4
K 00000198    D2 CF CC 06
K 0000019C    C6 C9 CE C9
K 000001A0    D3 C8 06 C6
    40         210, 205, 193, 212;
K 000001A4    CF D2 CD C1
K 000001A8    D4 00 00 00
K 000001AC    00 01 00 01
K 000001B0    00 00 00 01
K 000001B4    00 00 01 A9
    41        %OWNSHORTINTEGERARRAY SYMBOL(1300: 2148)=  1309,
    42          1303,     1,  1305,     3,  1307,     5,  1309,  1000,  1316,  1312,
K 000001B8    05 1D 05 17
K 000001BC    00 01 05 19
K 000001C0    00 03 05 1B
K 000001C4    00 05 05 1D
K 000001C8    03 E8 05 24
    43             1,  1314,     3,  1316,  1000,  1335,  1321,  1001,  1342,  1706,
K 000001CC    05 20 00 01
K 000001D0    05 22 00 03
K 000001D4    05 24 03 E8
K 000001D8    05 37 05 29
K 000001DC    03 E9 05 3E
    44          1323,  1003,  1329,     7,  1300,  1316,  1335,     9,  1335,    11,
K 000001E0    06 AA 05 2B
K 000001E4    03 EB 05 31
K 000001E8    00 07 05 14
K 000001EC    05 24 05 37
K 000001F0    00 09 05 37
    45          1300,  1316,  1335,    11,  1342,  1340,  1361,  1316,  1335,  1342,
K 000001F4    00 0B 05 14
K 000001F8    05 24 05 37
K 000001FC    00 0B 05 3E
K 00000200    05 3C 05 51
K 00000204    05 24 05 37
    46          1000,  1352,  1350,     7,  1300,  1316,  1335,  1352,     9,  1352,
K 00000208    05 3E 03 E8
K 0000020C    05 48 05 46
K 00000210    00 07 05 14
K 00000214    05 24 05 37
K 00000218    05 48 00 09
    47          1000,  1361,  1359,    13,  1300,  1316,  1335,  1352,  1361,  1000,
K 0000021C    05 48 03 E8
K 00000220    05 51 05 4F
K 00000224    00 0D 05 14
K 00000228    05 24 05 37
K 0000022C    05 48 05 51
    48          1388,  1364,    15,  1366,     1,  1368,     3,  1370,    18,  1372,
K 00000230    03 E8 05 6C
K 00000234    05 54 00 0F
K 00000238    05 56 00 01
K 0000023C    05 58 00 03
K 00000240    05 5A 00 12
    49            11,  1374,    21,  1376,    23,  1378,    26,  1380,    28,  1382,
K 00000244    05 5C 00 0B
K 00000248    05 5E 00 15
K 0000024C    05 60 00 17
K 00000250    05 62 00 1A
K 00000254    05 64 00 1C
    50            30,  1384,    33,  1386,    36,  1388,  1000,  1393,  1391,    38,
K 00000258    05 66 00 1E
K 0000025C    05 68 00 21
K 00000260    05 6A 00 24
K 00000264    05 6C 03 E8
K 00000268    05 71 05 6F
    51          1393,  1000,  1398,  1396,    13,  1398,  1000,  1403,  1401,    40,
K 0000026C    00 26 05 71
K 00000270    03 E8 05 76
K 00000274    05 74 00 0D
K 00000278    05 76 03 E8
K 0000027C    05 7B 05 79
    52          1403,    43,  1420,  1406,    50,  1408,    58,  1411,    63,    50,
K 00000280    00 28 05 7B
K 00000284    00 2B 05 8C
K 00000288    05 7E 00 32
K 0000028C    05 80 00 3A
K 00000290    05 83 00 3F
    53          1414,    68,    50,  1417,    74,    58,  1420,    79,  1883,  1426,
K 00000294    00 32 05 86
K 00000298    00 44 00 32
K 0000029C    05 89 00 4A
K 000002A0    00 3A 05 8C
K 000002A4    00 4F 07 5B
    54          1423,    86,  1426,  1403,  1426,  1431,  1429,    94,  1431,    97,
K 000002A8    05 92 05 8F
K 000002AC    00 56 05 92
K 000002B0    05 7B 05 92
K 000002B4    05 97 05 95
K 000002B8    00 5E 05 97
    55          1445,  1435,  1420,  1467,  1438,  1403,  1472,  1441,  1462,   101,
K 000002BC    00 61 05 A5
K 000002C0    05 9B 05 8C
K 000002C4    05 BB 05 9E
K 000002C8    05 7B 05 C0
K 000002CC    05 A1 05 B6
    56          1445,   106,  1462,   101,  1450,  1448,  1005,  1450,  1001,  1457,
K 000002D0    00 65 05 A5
K 000002D4    00 6A 05 B6
K 000002D8    00 65 05 AA
K 000002DC    05 A8 03 ED
K 000002E0    05 AA 03 E9
    57          1453,   113,  1455,   118,  1457,   126,  1462,  1460,   133,  1462,
K 000002E4    05 B1 05 AD
K 000002E8    00 71 05 AF
K 000002EC    00 76 05 B1
K 000002F0    00 7E 05 B6
K 000002F4    05 B4 00 85
    58           136,  1467,  1465,   140,  1467,  1000,  1472,  1470,   101,  1472,
K 000002F8    05 B6 00 88
K 000002FC    05 BB 05 B9
K 00000300    00 8C 05 BB
K 00000304    03 E8 05 C0
K 00000308    05 BE 00 65
    59          1000,  1484,  1477,   101,   140,   101,  1480,   140,   101,  1482,
K 0000030C    05 C0 03 E8
K 00000310    05 CC 05 C5
K 00000314    00 65 00 8C
K 00000318    00 65 05 C8
K 0000031C    00 8C 00 65
    60           101,  1484,  1000,  1493,  1491,     7,  1431,  1009,  1493,     9,
K 00000320    05 CA 00 65
K 00000324    05 CC 03 E8
K 00000328    05 D5 05 D3
K 0000032C    00 07 05 97
K 00000330    03 F1 05 D5
    61          1493,  1000,  1501,  1499,  1393,  1431,  1009,  1493,  1501,  1000,
K 00000334    00 09 05 D5
K 00000338    03 E8 05 DD
K 0000033C    05 DB 05 71
K 00000340    05 97 03 F1
K 00000344    05 D5 05 DD
    62          1520,  1513,  1010,  1300,  1316,  1335,  1669,  1300,  1316,  1335,
K 00000348    03 E8 05 F0
K 0000034C    05 E9 03 F2
K 00000350    05 14 05 24
K 00000354    05 37 06 85
K 00000358    05 14 05 24
    63          1520,  1011,  1520,     7,  1010,  1501,  1528,  1011,     9,  1528,
K 0000035C    05 37 05 F0
K 00000360    03 F3 05 F0
K 00000364    00 07 03 F2
K 00000368    05 DD 05 F8
K 0000036C    03 F3 00 09
    64          1526,  1669,  1300,  1316,  1335,  1528,  1000,  1539,  1533,   146,
K 00000370    05 F8 05 F6
K 00000374    06 85 05 14
K 00000378    05 24 05 37
K 0000037C    05 F8 03 E8
K 00000380    06 03 05 FD
    65          1501,  1539,  1537,   150,  1501,  1546,  1539,  1000,  1546,  1544,
K 00000384    00 92 05 DD
K 00000388    06 03 06 01
K 0000038C    00 96 05 DD
K 00000390    06 0A 06 03
K 00000394    03 E8 06 0A
    66           146,  1501,  1539,  1546,  1000,  1553,  1551,   150,  1501,  1546,
K 00000398    06 08 00 92
K 0000039C    05 DD 06 03
K 000003A0    06 0A 03 E8
K 000003A4    06 11 06 0F
K 000003A8    00 96 05 DD
    67          1553,  1000,  1562,  1560,  1562,  1300,  1316,  1335,  1388,  1562,
K 000003AC    06 0A 06 11
K 000003B0    03 E8 06 1A
K 000003B4    06 18 06 1A
K 000003B8    05 14 05 24
K 000003BC    05 37 05 6C
    68          1000,  1571,  1565,   153,  1567,   156,  1569,   158,  1571,   161,
K 000003C0    06 1A 03 E8
K 000003C4    06 23 06 1D
K 000003C8    00 99 06 1F
K 000003CC    00 9C 06 21
K 000003D0    00 9E 06 23
    69          1576,  1574,   164,  1576,  1000,  1581,  1579,    74,  1581,   169,
K 000003D4    00 A1 06 28
K 000003D8    06 26 00 A4
K 000003DC    06 28 03 E8
K 000003E0    06 2D 06 2B
K 000003E4    00 4A 06 2D
    70          1588,  1586,    13,  1714,  1581,  1588,  1000,  1599,  1592,  1472,
K 000003E8    00 A9 06 34
K 000003EC    06 32 00 0D
K 000003F0    06 B2 06 2D
K 000003F4    06 34 03 E8
K 000003F8    06 3F 06 38
    71          1009,  1596,  1467,   140,  1599,  1599,   176,  1613,  1607,  1607,
K 000003FC    05 C0 03 F1
K 00000400    06 3C 05 BB
K 00000404    00 8C 06 3F
K 00000408    06 3F 00 B0
K 0000040C    06 4D 06 47
    72          1009,     7,  1714,  1581,     9,  1607,  1613,  1611,    13,  1599,
K 00000410    06 47 03 F1
K 00000414    00 07 06 B2
K 00000418    06 2D 00 09
K 0000041C    06 47 06 4D
K 00000420    06 4B 00 0D
    73          1613,  1000,  1618,  1618,  1009,  1635,  1618,  1624,  1622,    13,
K 00000424    06 3F 06 4D
K 00000428    03 E8 06 52
K 0000042C    06 52 03 F1
K 00000430    06 63 06 52
K 00000434    06 58 06 56
    74          1613,  1624,  1000,  1635,  1629,  1001,  1723,  1006,  1635,   140,
K 00000438    00 0D 06 4D
K 0000043C    06 58 03 E8
K 00000440    06 63 06 5D
K 00000444    03 E9 06 BB
K 00000448    03 EE 06 63
    75          1001,  1635,  1890,  1004,  1644,  1644,     7,  1309,  1003,   183,
K 0000044C    00 8C 03 E9
K 00000450    06 63 07 62
K 00000454    03 EC 06 6C
K 00000458    06 6C 00 07
K 0000045C    05 1D 03 EB
    76          1309,  1003,     9,  1651,  1649,    13,  1005,  1644,  1651,  1000,
K 00000460    00 B7 05 1D
K 00000464    03 EB 00 09
K 00000468    06 73 06 71
K 0000046C    00 0D 03 ED
K 00000470    06 6C 06 73
    77          1661,  1659,    13,  1005,  1644,   161,  1445,  1651,  1661,  1000,
K 00000474    03 E8 06 7D
K 00000478    06 7B 00 0D
K 0000047C    03 ED 06 6C
K 00000480    00 A1 05 A5
K 00000484    06 73 06 7D
    78          1669,  1667,    13,  1009,  1635,  1661,  1669,  1000,  1686,  1672,
K 00000488    03 E8 06 85
K 0000048C    06 83 00 0D
K 00000490    03 F1 06 63
K 00000494    06 7D 06 85
K 00000498    03 E8 06 96
    79           156,  1674,   185,  1676,   188,  1678,   190,  1680,   192,  1682,
K 0000049C    06 88 00 9C
K 000004A0    06 8A 00 B9
K 000004A4    06 8C 00 BC
K 000004A8    06 8E 00 BE
K 000004AC    06 90 00 C0
    80           195,  1684,   197,  1686,   161,  1694,  1689,  1006,  1694,  1398,
K 000004B0    06 92 00 C3
K 000004B4    06 94 00 C5
K 000004B8    06 96 00 A1
K 000004BC    06 9E 06 99
K 000004C0    03 EE 06 9E
    81          1501,  1528,  1006,  1700,  1698,   200,  1902,  1700,  1000,  1706,
K 000004C4    05 76 05 DD
K 000004C8    05 F8 03 EE
K 000004CC    06 A4 06 A2
K 000004D0    00 C8 07 6E
K 000004D4    06 A4 03 E8
    82          1704,   205,  1001,  1706,  1000,  1714,  1712,   205,  1001,  1342,
K 000004D8    06 AA 06 A8
K 000004DC    00 CD 03 E9
K 000004E0    06 AA 03 E8
K 000004E4    06 B2 06 B0
K 000004E8    00 CD 03 E9
    83          1706,  1714,  1000,  1723,  1723,  1300,  1316,  1335,   183,  1300,
K 000004EC    05 3E 06 AA
K 000004F0    06 B2 03 E8
K 000004F4    06 BB 06 BB
K 000004F8    05 14 05 24
K 000004FC    05 37 00 B7
    84          1316,  1335,  1730,  1728,   156,  1300,  1003,  1730,  1000,  1737,
K 00000500    05 14 05 24
K 00000504    05 37 06 C2
K 00000508    06 C0 00 9C
K 0000050C    05 14 03 EB
K 00000510    06 C2 03 E8
    85          1733,   207,  1735,   214,  1737,  1000,  1742,  1740,   223,  1742,
K 00000514    06 C9 06 C5
K 00000518    00 CF 06 C7
K 0000051C    00 D6 06 C9
K 00000520    03 E8 06 CE
K 00000524    06 CC 00 DF
    86           229,  1747,  1745,   140,  1747,   106,  1757,  1755,  1393,  1403,
K 00000528    06 CE 00 E5
K 0000052C    06 D3 06 D1
K 00000530    00 8C 06 D3
K 00000534    00 6A 06 DD
K 00000538    06 DB 05 71
    87          1467,   140,  1599,  1747,  1757,  1000,  1764,  1762,  1431,  1009,
K 0000053C    05 7B 05 BB
K 00000540    00 8C 06 3F
K 00000544    06 D3 06 DD
K 00000548    03 E8 06 E4
K 0000054C    06 E2 05 97
    88          1493,  1764,  1000,  1772,  1768,  1001,  1857,  1772,   195,  1445,
K 00000550    03 F1 05 D5
K 00000554    06 E4 03 E8
K 00000558    06 EC 06 E8
K 0000055C    03 E9 07 41
K 00000560    06 EC 00 C3
    89           188,  1785,  1780,  1005,     7,  1005,    13,  1005,     9,  1785,
K 00000564    05 A5 00 BC
K 00000568    06 F9 06 F4
K 0000056C    03 ED 00 07
K 00000570    03 ED 00 0D
K 00000574    03 ED 00 09
    90          1764,     7,  1005,     9,  1792,  1789,  1764,  1883,  1792,  1005,
K 00000578    06 F9 06 E4
K 0000057C    00 07 03 ED
K 00000580    00 09 07 00
K 00000584    06 FD 06 E4
K 00000588    07 5B 07 00
    91          1792,  1805,  1799,     7,  1005,    13,  1005,     9,  1803,     7,
K 0000058C    03 ED 07 00
K 00000590    07 0D 07 07
K 00000594    00 07 03 ED
K 00000598    00 0D 03 ED
K 0000059C    00 09 07 0B
    92          1005,     9,  1805,  1000,  1811,  1809,    13,  1003,  1811,  1000,
K 000005A0    00 07 03 ED
K 000005A4    00 09 07 0D
K 000005A8    03 E8 07 13
K 000005AC    07 11 00 0D
K 000005B0    03 EB 07 13
    93          1817,  1814,  1764,  1817,  1005,  1883,  1857,  1823,  1012,  1005,
K 000005B4    03 E8 07 19
K 000005B8    07 16 06 E4
K 000005BC    07 19 03 ED
K 000005C0    07 5B 07 41
K 000005C4    07 1F 03 F4
    94            13,  1005,  1828,  1013,  1005,    13,  1785,  1835,  1014,  1005,
K 000005C8    03 ED 00 0D
K 000005CC    03 ED 07 24
K 000005D0    03 F5 03 ED
K 000005D4    00 0D 06 F9
K 000005D8    07 2B 03 F6
    95            13,  1005,    13,  1811,  1839,  1015,  1811,  1805,  1844,  1016,
K 000005DC    03 ED 00 0D
K 000005E0    03 ED 00 0D
K 000005E4    07 13 07 2F
K 000005E8    03 F7 07 13
K 000005EC    07 0D 07 34
    96          1005,    13,  1811,  1849,  1017,  1772,    13,  1811,  1854,  1018,
K 000005F0    03 F8 03 ED
K 000005F4    00 0D 07 13
K 000005F8    07 39 03 F9
K 000005FC    06 EC 00 0D
K 00000600    07 13 07 3E
    97          1772,    13,  1772,  1857,  1019,  1005,  1863,  1861,     1,  1005,
K 00000604    03 FA 06 EC
K 00000608    00 0D 06 EC
K 0000060C    07 41 03 FB
K 00000610    03 ED 07 47
K 00000614    07 45 00 01
    98          1863,  1000,  1883,  1872,    21,  1005,    13,  1895,  1001,  1342,
K 00000618    03 ED 07 47
K 0000061C    03 E8 07 5B
K 00000620    07 50 00 15
K 00000624    03 ED 00 0D
K 00000628    07 67 03 E9
    99          1706,  1876,   161,   237,  1005,  1879,  1002,  1817,  1883,   239,
K 0000062C    05 3E 06 AA
K 00000630    07 54 00 A1
K 00000634    00 ED 03 ED
K 00000638    07 57 03 EA
K 0000063C    07 19 07 5B
   100           205,  1003,  1890,  1888,     7,  1005,     9,  1890,  1000,  1895,
K 00000640    00 EF 00 CD
K 00000644    03 EB 07 62
K 00000648    07 60 00 07
K 0000064C    03 ED 00 09
K 00000650    07 62 03 E8
   101          1893,   156,  1895,  1000,  1902,  1898,   243,  1900,   156,  1902,
K 00000654    07 67 07 65
K 00000658    00 9C 07 67
K 0000065C    03 E8 07 6E
K 00000660    07 6A 00 F3
K 00000664    07 6C 00 9C
   102          1000,  1943,  1910,  1010,  1001,  1342,  1706,  1011,  1553,  1918,
K 00000668    07 6E 03 E8
K 0000066C    07 97 07 76
K 00000670    03 F2 03 E9
K 00000674    05 3E 06 AA
K 00000678    03 F3 06 11
   103           161,  1001,     7,  1300,  1316,  1335,     9,  1921,   161,  1445,
K 0000067C    07 7E 00 A1
K 00000680    03 E9 00 07
K 00000684    05 14 05 24
K 00000688    05 37 00 09
K 0000068C    07 81 00 A1
   104          1924,   245,  1008,  1926,   255,  1931,   262,  1300,  1316,  1335,
K 00000690    05 A5 07 84
K 00000694    00 F5 03 F0
K 00000698    07 86 00 FF
K 0000069C    07 8B 01 06
K 000006A0    05 14 05 24
   105          1933,   113,  1936,   270,   113,  1938,   278,  1940,   270,  1943,
K 000006A4    05 37 07 8D
K 000006A8    00 71 07 90
K 000006AC    01 0E 00 71
K 000006B0    07 92 01 16
K 000006B4    07 94 01 0E
   106           284,  1457,  2149,  1949,  1010,  1902,  1011,  1686,  1967,   292,
K 000006B8    07 97 01 1C
K 000006BC    05 B1 08 65
K 000006C0    07 9D 03 F2
K 000006C4    07 6E 03 F3
K 000006C8    06 96 07 AF
   107          1001,  1342,  1706,   156,  1300,  1316,  1335,    13,  1300,  1316,
K 000006CC    01 24 03 E9
K 000006D0    05 3E 06 AA
K 000006D4    00 9C 05 14
K 000006D8    05 24 05 37
K 000006DC    00 0D 05 14
   108          1335,    13,  1300,  1316,  1335,  1006,  1970,   298,  1006,  1973,
K 000006E0    05 24 05 37
K 000006E4    00 0D 05 14
K 000006E8    05 24 05 37
K 000006EC    03 EE 07 B2
K 000006F0    01 2A 03 EE
   109          1445,   183,  1985,  1398,  1010,  1501,  1528,   305,  1011,  1010,
K 000006F4    07 B5 05 A5
K 000006F8    00 B7 07 C1
K 000006FC    05 76 03 F2
K 00000700    05 DD 05 F8
K 00000704    01 31 03 F3
   110          1902,  1011,  1694,  1006,  1988,    11,  1007,  1992,  1403,  1588,
K 00000708    03 F2 07 6E
K 0000070C    03 F3 06 9E
K 00000710    03 EE 07 C4
K 00000714    00 0B 03 EF
K 00000718    07 C8 05 7B
   111          1006,  1995,   310,  1006,  2004,  1010,  1730,  1420,  1011,  1571,
K 0000071C    06 34 03 EE
K 00000720    07 CB 01 36
K 00000724    03 EE 07 D4
K 00000728    03 F2 06 C2
K 0000072C    05 8C 03 F3
   112          1001,  1484,  1006,  2007,   314,  1007,  2011,   322,  1576,  1006,
K 00000730    06 23 03 E9
K 00000734    05 CC 03 EE
K 00000738    07 D7 01 3A
K 0000073C    03 EF 07 DB
K 00000740    01 42 06 28
   113          2014,   328,  1006,  2019,   310,   334,   337,  1006,  2026,  1001,
K 00000744    03 EE 07 DE
K 00000748    01 48 03 EE
K 0000074C    07 E3 01 36
K 00000750    01 4E 01 51
K 00000754    03 EE 07 EA
   114             7,  1309,  1003,     9,   183,  2032,   345,  1009,  1635,  1661,
K 00000758    03 E9 00 07
K 0000075C    05 1D 03 EB
K 00000760    00 09 00 B7
K 00000764    07 F0 01 59
K 00000768    03 F1 06 63
   115          1006,  2036,  1450,   284,  1006,  2040,   352,  1001,  1006,  2044,
K 0000076C    06 7D 03 EE
K 00000770    07 F4 05 AA
K 00000774    01 1C 03 EE
K 00000778    07 F8 01 60
K 0000077C    03 E9 03 EE
   116           361,  1403,  1624,  2050,  1737,  1742,   352,  1001,  1006,  2053,
K 00000780    07 FC 01 69
K 00000784    05 7B 06 58
K 00000788    08 02 06 C9
K 0000078C    06 CE 01 60
K 00000790    03 E9 03 EE
   117           365,  1006,  2057,    68,    86,  1006,  2061,    21,  1863,  1006,
K 00000794    08 05 01 6D
K 00000798    03 EE 08 09
K 0000079C    00 44 00 56
K 000007A0    03 EE 08 0D
K 000007A4    00 15 07 47
   118          2069,   371,  1005,  1644,   161,  1445,  1651,  1006,  2074,   310,
K 000007A8    03 EE 08 15
K 000007AC    01 73 03 ED
K 000007B0    06 6C 00 A1
K 000007B4    05 A5 06 73
K 000007B8    03 EE 08 1A
   119           334,   377,  1006,  2079,   310,   334,   365,  1006,  2084,   382,
K 000007BC    01 36 01 4E
K 000007C0    01 79 03 EE
K 000007C4    08 1F 01 36
K 000007C8    01 4E 01 6D
K 000007CC    03 EE 08 24
   120           118,   389,  1006,  2090,   164,  1001,  1706,  1484,  1006,  2095,
K 000007D0    01 7E 00 76
K 000007D4    01 85 03 EE
K 000007D8    08 2A 00 A4
K 000007DC    03 E9 06 AA
K 000007E0    05 CC 03 EE
   121           391,   101,  1001,  1006,  2098,   399,  1006,  2103,   310,   334,
K 000007E4    08 2F 01 87
K 000007E8    00 65 03 E9
K 000007EC    03 EE 08 32
K 000007F0    01 8F 03 EE
K 000007F4    08 37 01 36
   122           399,  1006,  2107,   404,  1003,  1006,  2111,   412,  1694,  1006,
K 000007F8    01 4E 01 8F
K 000007FC    03 EE 08 3B
K 00000800    01 94 03 EB
K 00000804    03 EE 08 3F
K 00000808    01 9C 06 9E
   123          2120,   106,   419,  1001,     7,  1757,  1747,     9,  1006,  2129,
K 0000080C    03 EE 08 48
K 00000810    00 6A 01 A3
K 00000814    03 E9 00 07
K 00000818    06 DD 06 D3
K 0000081C    00 09 03 EE
   124           106,  1010,  1588,  1011,     7,  1001,     9,  1006,  2136,  1010,
K 00000820    08 51 00 6A
K 00000824    03 F2 06 34
K 00000828    03 F3 00 07
K 0000082C    03 E9 00 09
K 00000830    03 EE 08 58
   125          1420,   101,  1011,  1009,  1006,  2147,   106,   164,  1010,  1001,
K 00000834    03 F2 05 8C
K 00000838    00 65 03 F3
K 0000083C    03 F1 03 EE
K 00000840    08 63 00 6A
K 00000844    00 A4 03 F2
   126          1700,  1011,     7,  1001,     9,  1006,  2149,  1006;
K 00000848    03 E9 06 A4
K 0000084C    03 F3 00 07
K 00000850    03 E9 00 09
K 00000854    03 EE 08 65
K 00000858    03 EE 00 00
K 0000085C    00 01 00 02
K 00000860    00 00 05 14
K 00000864    00 00 08 64
   127        SS= 1943

C 00000036    41100797        LA      1, 1943(  0,  0)
C 0000003A    50109058        ST      1,   88(  0,  9)


   128                 %OWNBYTEINTEGERARRAY OPC(0:120)=0,
   129                     8,9,X'10',X'11',X'12',
K 00000868    00 08 09 10
   130                       X'13',X'20',X'21',X'22',X'23',
K 0000086C    11 12 13 20
   131                       X'30',X'31',X'32',X'33',X'24',
K 00000870    21 22 23 30
K 00000874    31 32 33 24
   132                       X'34',0,X'45',X'46',X'47',
K 00000878    34 00 45 46
   133                       X'54',X'55',X'56',X'57',X'58',X'59',X'5A',X'5B',X'5C',
K 0000087C    47 54 55 56
K 00000880    57 58 59 5A
   134                       X'5D',X'5E',X'5F',X'68',X'69',X'6A',
K 00000884    5B 5C 5D 5E
K 00000888    5F 68 69 6A
   135                       X'6B',X'6C',X'6D',X'6E',X'6F',
K 0000088C    6B 6C 6D 6E
   136                       X'78',X'79',X'7A',X'7B',X'7C',
K 00000890    6F 78 79 7A
   137                       X'7D',X'7E',X'7F',0,X'70',
K 00000894    7B 7C 7D 7E
   138                       X'60',X'50',X'4E',X'4F',X'4C',
K 00000898    7F 00 70 60
K 0000089C    50 4E 4F 4C
   139                       X'4B',X'4A',X'49',X'48',X'44',
K 000008A0    4B 4A 49 48
   140                       X'43',X'42',X'41',X'40',0,
K 000008A4    44 43 42 41
   141                       X'90',X'98',X'86',X'87',0,
K 000008A8    40 00 90 98
   142                       X'91',X'92',X'94',X'95',X'96',
K 000008AC    86 87 00 91
K 000008B0    92 94 95 96
   143                       X'97',X'9C',X'9E',X'9D',X'9F',
K 000008B4    97 9C 9E 9D
   144                       X'82',X'84',X'85',0,X'88',
K 000008B8    9F 82 84 85
   145                       X'89',X'8A',X'8B',X'8C',X'8D',
K 000008BC    00 88 89 8A
   146                       X'8E',X'8F',0,X'D0',X'D1',
K 000008C0    8B 8C 8D 8E
K 000008C4    8F 00 D0 D1
   147                       X'D2',X'D4',X'D5',X'D6',X'D7',
K 000008C8    D2 D4 D5 D6
   148                       X'D8',X'DC',X'DD',X'DE',X'DF',
K 000008CC    D7 D8 DC DD
   149                       X'D3',0,X'F1',X'F2',X'F3',
K 000008D0    DE DF D3 00
   150                       X'F8',X'F9',X'FA',X'FB',X'FC',
K 000008D4    F1 F2 F3 F8
K 000008D8    F9 FA FB FC
   151                       X'FD',0,10,4,X'80';
K 000008DC    FD 00 0A 04
K 000008E0    80 00 00 00
K 000008E4    00 01 00 01
K 000008E8    00 00 00 00
K 000008EC    00 00 00 78
   152                 %OWNINTEGERARRAY NEM(0:120)=M'CNOP',
K 000008F0    43 4E 4F 50
   153                       M'ISK',M'SSK',M'LP',M'LN',M'LT',
K 000008F4    00 49 53 4B
K 000008F8    00 53 53 4B
K 000008FC    00 00 4C 50
K 00000900    00 00 4C 4E
K 00000904    00 00 4C 54
   154                       M'LC',M'LPD',M'LND',M'LTD',M'LCD',
K 00000908    00 00 4C 43
K 0000090C    00 4C 50 44
K 00000910    00 4C 4E 44
K 00000914    00 4C 54 44
K 00000918    00 4C 43 44
   155                       M'LPE',M'LNE',M'LTE',M'LCE',M'HD',
K 0000091C    00 4C 50 45
K 00000920    00 4C 4E 45
K 00000924    00 4C 54 45
K 00000928    00 4C 43 45
K 0000092C    00 00 48 44
   156                       M'HE',0,M'BAL',M'BCT',M'BC',
K 00000930    00 00 48 45
K 00000934    00 00 00 00
K 00000938    00 42 41 4C
K 0000093C    00 42 43 54
K 00000940    00 00 42 43
   157                       'N',M'CL','O','X','L','C','A','S','M','D',
K 00000944    00 00 00 4E
K 00000948    00 00 43 4C
K 0000094C    00 00 00 4F
K 00000950    00 00 00 58
K 00000954    00 00 00 4C
K 00000958    00 00 00 43
K 0000095C    00 00 00 41
K 00000960    00 00 00 53
K 00000964    00 00 00 4D
K 00000968    00 00 00 44
   158                       M'AL',M'SL',M'LD',M'CD',M'AD',
K 0000096C    00 00 41 4C
K 00000970    00 00 53 4C
K 00000974    00 00 4C 44
K 00000978    00 00 43 44
K 0000097C    00 00 41 44
   159                       M'SD',M'MD',M'DD',M'AW',M'SW',
K 00000980    00 00 53 44
K 00000984    00 00 4D 44
K 00000988    00 00 44 44
K 0000098C    00 00 41 57
K 00000990    00 00 53 57
   160                       M'LE',M'CE',M'AE',M'SE',M'ME',
K 00000994    00 00 4C 45
K 00000998    00 00 43 45
K 0000099C    00 00 41 45
K 000009A0    00 00 53 45
K 000009A4    00 00 4D 45
   161                       M'DE',M'AU',M'SU',0,M'STE',
K 000009A8    00 00 44 45
K 000009AC    00 00 41 55
K 000009B0    00 00 53 55
K 000009B4    00 00 00 00
K 000009B8    00 53 54 45
   162                       M'STD',M'ST',M'CVD',M'CVB',M'MH',
K 000009BC    00 53 54 44
K 000009C0    00 00 53 54
K 000009C4    00 43 56 44
K 000009C8    00 43 56 42
K 000009CC    00 00 4D 48
   163                       M'SH',M'AH',M'CH',M'LH',M'EX',
K 000009D0    00 00 53 48
K 000009D4    00 00 41 48
K 000009D8    00 00 43 48
K 000009DC    00 00 4C 48
K 000009E0    00 00 45 58
   164                       M'IC',M'STC',M'LA',M'STH',0,
K 000009E4    00 00 49 43
K 000009E8    00 53 54 43
K 000009EC    00 00 4C 41
K 000009F0    00 53 54 48
K 000009F4    00 00 00 00
   165                       M'STM',M'LM',M'BXH',M'BXLE',0,
K 000009F8    00 53 54 4D
K 000009FC    00 00 4C 4D
K 00000A00    00 42 58 48
K 00000A04    42 58 4C 45
K 00000A08    00 00 00 00
   166                       M'TM',M'MVI',M'NI',M'CLI',M'OI',
K 00000A0C    00 00 54 4D
K 00000A10    00 4D 56 49
K 00000A14    00 00 4E 49
K 00000A18    00 43 4C 49
K 00000A1C    00 00 4F 49
   167                       M'XI',M'SDV',M'HDV',M'TDV',M'CKC',
K 00000A20    00 00 58 49
K 00000A24    00 53 44 56
K 00000A28    00 48 44 56
K 00000A2C    00 54 44 56
K 00000A30    00 43 4B 43
   168                       M'PC',M'WRD',M'RDD',0,M'SRL',
K 00000A34    00 00 50 43
K 00000A38    00 57 52 44
K 00000A3C    00 52 44 44
K 00000A40    00 00 00 00
K 00000A44    00 53 52 4C
   169                       M'SLL',M'SRA',M'SLA',M'SRDL',M'SLDL',
K 00000A48    00 53 4C 4C
K 00000A4C    00 53 52 41
K 00000A50    00 53 4C 41
K 00000A54    53 52 44 4C
K 00000A58    53 4C 44 4C
   170                       M'SRDA',M'SLDA',0,M'SSP',M'MVN',
K 00000A5C    53 52 44 41
K 00000A60    53 4C 44 41
K 00000A64    00 00 00 00
K 00000A68    00 53 53 50
K 00000A6C    00 4D 56 4E
   171                       M'MVC',M'NC',M'CLC',M'OC',M'XC',
K 00000A70    00 4D 56 43
K 00000A74    00 00 4E 43
K 00000A78    00 43 4C 43
K 00000A7C    00 00 4F 43
K 00000A80    00 00 58 43
   172                       M'LSP',M'TR',M'TRT',M'ED',M'EDMK',
K 00000A84    00 4C 53 50
K 00000A88    00 00 54 52
K 00000A8C    00 54 52 54
K 00000A90    00 00 45 44
K 00000A94    45 44 4D 4B
   173                       M'MVZ',0,M'MVO',M'PACK',M'UNPK',
K 00000A98    00 4D 56 5A
K 00000A9C    00 00 00 00
K 00000AA0    00 4D 56 4F
K 00000AA4    50 41 43 4B
K 00000AA8    55 4E 50 4B
   174                       M'ZAP',M'CP',M'AP',M'SP',M'MP',
K 00000AAC    00 5A 41 50
K 00000AB0    00 00 43 50
K 00000AB4    00 00 41 50
K 00000AB8    00 00 53 50
K 00000ABC    00 00 4D 50
   175                       M'DP',0,M'SVC',M'SPM',M'IDL';
K 00000AC0    00 00 44 50
K 00000AC4    00 00 00 00
K 00000AC8    00 53 56 43
K 00000ACC    00 53 50 4D
K 00000AD0    00 49 44 4C
K 00000AD4    00 01 00 04
K 00000AD8    00 00 00 00
K 00000ADC    00 00 00 78
   176                 %OWNSHORTINTEGERARRAY CLODS(0:88)=                 4,X'50CD',X'001C',X'58CD',X'5C',
K 00000AE0    00 04 50 CD
K 00000AE4    00 1C 58 CD
   177                       4,X'50FB',X'003C',X'45FC',X'4C',
K 00000AE8    00 5C 00 04
K 00000AEC    50 FB 00 3C
K 00000AF0    45 FC 00 4C
   178                 6,X'5820',X'2000',X'0620',
K 00000AF4    00 06 58 20
K 00000AF8    20 00 06 20
   179                       X'8920',24,X'1602',0,
K 00000AFC    89 20 00 18
K 00000B00    16 02 00 00
   180                       8,X'50B0',0,X'4AB0',X'4002',
K 00000B04    00 08 50 B0
K 00000B08    00 00 4A B0
   181                           X'41BB',X'7',X'54BD',84,
K 00000B0C    40 02 41 BB
K 00000B10    00 07 54 BD
   182                       4,X'581D',36,X'9200',X'1001',
K 00000B14    00 54 00 04
K 00000B18    58 1D 00 24
K 00000B1C    92 00 10 01
   183                       11,X'0510',X'2826',X'6E6D',X'48',
K 00000B20    00 0B 05 10
K 00000B24    28 26 6E 6D
   184                           X'6A6D',X'28',X'2B26',X'47B0',
K 00000B28    00 48 6A 6D
K 00000B2C    00 28 2B 26
   185                           X'1014',X'6A2D',X'30',
K 00000B30    47 B0 10 14
K 00000B34    6A 2D 00 30
   186                       4, X'9003',X'B000',X'41BB',X'10',
K 00000B38    00 04 90 03
K 00000B3C    B0 00 41 BB
   187                       5, X'4100',0,X'58EC',186,X'5FE',
K 00000B40    00 10 00 05
K 00000B44    41 00 00 00
K 00000B48    58 EC 00 BA
   188                       5, X'904E',X'B010',X'98CE',
K 00000B4C    05 FE 00 05
K 00000B50    90 4E B0 10
   189                           X'D000',X'5FE',
K 00000B54    98 CE D0 00
   190                       7, X'904E',X'B010',X'98CF',0,
K 00000B58    05 FE 00 07
K 00000B5C    90 4E B0 10
K 00000B60    98 CF 00 00
   191                           X'9859',X'F014',X'5FE',
K 00000B64    98 59 F0 14
   192                       5,X'4100',255,X'8900',X'18',X'1610',
K 00000B68    05 FE 00 05
K 00000B6C    41 00 00 FF
K 00000B70    89 00 00 18
   193                       6,X'4100',4,X'59BD',X'44',
K 00000B74    16 10 00 06
K 00000B78    41 00 00 04
K 00000B7C    59 BD 00 44
   194                           X'4720',X'C054'     ,
K 00000B80    47 20 C0 54
   195                       6,X'6000',X'B040',X'4100',12,X'5000',X'B048'
K 00000B84    00 06 60 00
K 00000B88    B0 40 41 00
K 00000B8C    00 0C 50 00
K 00000B90    B0 48 00 00
K 00000B94    00 01 00 02
K 00000B98    00 00 00 00
K 00000B9C    00 00 00 58
   196                 %OWNBYTEINTEGERARRAY TSNAME (0:50)=0(8),
K 00000BA0    00 00 00 00
K 00000BA4    00 00 00 00
   197                       1,0(5),1,26,1,1,26,0(2),2,1,26(8),
K 00000BA8    01 00 00 00
K 00000BAC    00 00 01 1A
K 00000BB0    01 01 1A 00
K 00000BB4    00 02 01 1A
K 00000BB8    1A 1A 1A 1A
   198                       3,9,17,26(2),1,0,1,26,0(2),5,0(8)
K 00000BBC    1A 1A 1A 03
K 00000BC0    09 11 1A 1A
K 00000BC4    01 00 01 1A
K 00000BC8    00 00 05 00
K 00000BCC    00 00 00 00
K 00000BD0    00 00 00 00
K 00000BD4    00 01 00 01
K 00000BD8    00 00 00 00
K 00000BDC    00 00 00 32
   199                 NEWLINES(3); SPACES(30)

C 0000003E    41200003        LA      2,    3(  0,  0)
C 00000042    4110000A        LA      1,   10(  0,  0)
C 00000046    45F0C038        BAL    15,   56(  0, 12)



C 0000004A    4120001E        LA      2,   30(  0,  0)
C 0000004E    41100020        LA      1,   32(  0,  0)
C 00000052    45F0C038        BAL    15,   56(  0, 12)


   200                 %PRINTTEXT'E.R.C.C. IMP(SYS1) COMPILER '

C 00000056    45F0C078        BAL    15,  120(  0, 12)
C 0000005A    1C45            MR      4,  5
C 0000005C    2E52            AWR     5,  2
C 0000005E    2E43            AWR     4,  3
C 00000060    2E43            AWR     4,  3
C 00000062    2E20            AWR     2,  0
C 00000064    494D5028        CH      4,   40( 13,  5)
C 00000068    5359
C 0000006A    5331
C 0000006C    2920            CDR     2,  0
C 0000006E    434F4D50        IC      4, 3408( 15,  4)
C 00000072    494C4552        CH      4, 1362( 12,  4)
C 00000076    2000            LPDR    0,  0


   201                 %PRINTTEXT' RELEASE 5 ALL-IMP VERSION'

C 00000078    45F0C078        BAL    15,  120(  0, 12)
C 0000007C    1A20            AR      2,  0
C 0000007E    5245
C 00000080    4C454153        MH      4,  339(  5,  4)
C 00000084    45203520        BAL     2, 1312(  0,  3)
C 00000088    414C4C2D        LA      4, 3117( 12,  4)
C 0000008C    494D5020        CH      4,   32( 13,  5)
C 00000090    56455253        O       4,  595(  5,  5)
C 00000094    494F4E00        CH      4, 3584( 15,  4)


   202                 %PRINTTEXT'   DATED 1/5/70'

C 00000098    45F0C078        BAL    15,  120(  0, 12)
C 0000009C    0F20
C 0000009E    2020            LPDR    2,  0
C 000000A0    44415445        EX      4, 1093(  1,  5)
C 000000A4    4420312F        EX      2,  303(  0,  3)
C 000000A8    352F            LRER    2, 15
C 000000AA    3730            SXR     3,  0


   203                 NEWLINES(3)

C 000000AC    41200003        LA      2,    3(  0,  0)
C 000000B0    4110000A        LA      1,   10(  0,  0)
C 000000B4    45F0C038        BAL    15,   56(  0, 12)


   204                 %OWNBYTEINTEGERARRAY BYTES(0:3)=4,1,2,8;
K 00000BE0    04 01 02 08
K 00000BE4    00 01 00 01
K 00000BE8    00 00 00 00
K 00000BEC    00 00 00 03
   205                 %OWNBYTEINTEGERARRAY PRECEDENCE (1:12)=0,3,3,3,3,4,4,4,4,5,5,5;
K 00000BF0    00 03 03 03
K 00000BF4    03 04 04 04
K 00000BF8    04 05 05 05
K 00000BFC    00 01 00 01
K 00000C00    00 00 00 01
K 00000C04    00 00 00 0C
   206                 %OWNBYTEINTEGERARRAY TYPEFLAG(1:6)=1,2,
   207                       B'1001',B'10001',B'11010',5;
K 00000C08    01 02 09 11
K 00000C0C    1A 05 00 00
K 00000C10    00 01 00 01
K 00000C14    00 00 00 01
K 00000C18    00 00 00 06
   208                 %OWNINTEGER MASK1=X'0F0F0F0F'
   209                 %OWNINTEGER MASK2=X'0F0F0F0F'
   210                 %OWNSHORTINTEGER MAXLEVELS=11
   211                 %OWNINTEGER CODER=12
   212                 %OWNINTEGER  LINK =15
   213                 %OWNINTEGER  WSPR =11
   214                 %OWNINTEGER  GLA =13
   215                 %SHORTINTEGER CCSIZE,ARSIZE,DSIZE,NROUTS
   216                 %ROUTINESPEC SIZES
   217                 %INTEGER ASL,NNAMES
   218                 %INTEGER CABUF,PPCURR,QPREAL,OLDLINE
   219                 %INTEGER LINE,LENGTH,LENGTHP,N0,NUM,SNUM
   220                 %INTEGER RLEVEL,NMAX,OWNLINK,CONSTPTR
   221                 %INTEGER PLABEL,LEVEL,CA,MARKER1,MARKER2,LABSET
   222                 %INTEGER R13,RP13,SIGFIGS
   223                 %BYTEINTEGER AFLAG,FFLAG,CHECKS,SBFLAG
   224                 %BYTEINTEGER FAULTY,MONE,HIT,QU,PERM,MCSWITCH,LIST,ALLLONG
   225                 %BYTEINTEGER LINENOS,DIAGS1,DIAGS2,CHECKSP
   226                 %BYTEINTEGER CTYPE,DCOMP,COMPILER,CPRMODE
   227                 %BYTEINTEGER UNASS,PRINTMAP
   228                 %LONGREAL CVALUE,IMAX
   229                 %INTEGER MASK,RBASE,SFLABEL
   230        %INTEGER NEXT,N,NR,ITEM,STRINST
   231                 %INTEGER P,Q,R,S,T,U,V,NEST,FNAME
   232                 %INTEGER XREFLINK,LDPTR
   233                 %SHORTINTEGER NEPS,EPLINK
   234                 %INTEGER SSTL,QMAX,STMTS
   235                       %INTEGERARRAY REGISTER(0:15)

C 000000B8    50B0D024        ST     11,   36(  0, 13)
C 000000BC    1F11            SLR     1,  1
C 000000BE    4120000F        LA      2,   15(  0,  0)
C 000000C2    41000004        LA      0,    4(  0,  0)
C 000000C6    9002B000        STM     0,  2,    0( 11)
C 000000CA    9201B001        MVI      1( 11),  1
C 000000CE    41B0B010        LA     11,   16(  0, 11)
C 000000D2    45F0C034        BAL    15,   52(  0, 12)
C 000000D6    9003914C        STM     0,  3,  332(  9)


   236                 %INTEGERARRAY ST(0:1300)

C 000000DA    50B0D024        ST     11,   36(  0, 13)
C 000000DE    1F11            SLR     1,  1
C 000000E0    41200514        LA      2, 1300(  0,  0)
C 000000E4    41000004        LA      0,    4(  0,  0)
C 000000E8    9002B000        STM     0,  2,    0( 11)
C 000000EC    9201B001        MVI      1( 11),  1
C 000000F0    41B0B010        LA     11,   16(  0, 11)
C 000000F4    45F0C034        BAL    15,   52(  0, 12)
C 000000F8    9003915C        STM     0,  3,  348(  9)


   237                 %INTEGER %ARRAY SET,CODEBASE,FREG,RAL(0:MAXLEVELS)

C 000000FC    50B0D024        ST     11,   36(  0, 13)
C 00000100    1F11            SLR     1,  1
C 00000102    4820D142        LH      2,  322(  0, 13)
C 00000106    41000004        LA      0,    4(  0,  0)
C 0000010A    9002B000        STM     0,  2,    0( 11)
C 0000010E    9201B001        MVI      1( 11),  1
C 00000112    41B0B010        LA     11,   16(  0, 11)
C 00000116    45F0C034        BAL    15,   52(  0, 12)
C 0000011A    9003916C        STM     0,  3,  364(  9)
C 0000011E    45F0C034        BAL    15,   52(  0, 12)
C 00000122    9003917C        STM     0,  3,  380(  9)
C 00000126    45F0C034        BAL    15,   52(  0, 12)
C 0000012A    9003918C        STM     0,  3,  396(  9)
C 0000012E    45F0C034        BAL    15,   52(  0, 12)
C 00000132    9003919C        STM     0,  3,  412(  9)


   238                 %SHORTINTEGERARRAY CYCLE,JUMP,NAME,LABEL,FLAG,SBR,WSP,L,M,LWSP,MDARR,RNEXT,NMDECS,STRWSP(0:MAXLEVELS)

C 00000136    50B0D024        ST     11,   36(  0, 13)
C 0000013A    1F11            SLR     1,  1
C 0000013C    4820D142        LH      2,  322(  0, 13)
C 00000140    41000002        LA      0,    2(  0,  0)
C 00000144    9002B000        STM     0,  2,    0( 11)
C 00000148    9201B001        MVI      1( 11),  1
C 0000014C    41B0B010        LA     11,   16(  0, 11)
C 00000150    45F0C034        BAL    15,   52(  0, 12)
C 00000154    900391AC        STM     0,  3,  428(  9)
C 00000158    45F0C034        BAL    15,   52(  0, 12)
C 0000015C    900391BC        STM     0,  3,  444(  9)
C 00000160    45F0C034        BAL    15,   52(  0, 12)
C 00000164    900391CC        STM     0,  3,  460(  9)
C 00000168    45F0C034        BAL    15,   52(  0, 12)
C 0000016C    900391DC        STM     0,  3,  476(  9)
C 00000170    45F0C034        BAL    15,   52(  0, 12)
C 00000174    900391EC        STM     0,  3,  492(  9)
C 00000178    45F0C034        BAL    15,   52(  0, 12)
C 0000017C    900391FC        STM     0,  3,  508(  9)
C 00000180    45F0C034        BAL    15,   52(  0, 12)
C 00000184    9003920C        STM     0,  3,  524(  9)
C 00000188    45F0C034        BAL    15,   52(  0, 12)
C 0000018C    9003921C        STM     0,  3,  540(  9)
C 00000190    45F0C034        BAL    15,   52(  0, 12)
C 00000194    9003922C        STM     0,  3,  556(  9)
C 00000198    45F0C034        BAL    15,   52(  0, 12)
C 0000019C    9003923C        STM     0,  3,  572(  9)
C 000001A0    45F0C034        BAL    15,   52(  0, 12)
C 000001A4    9003924C        STM     0,  3,  588(  9)
C 000001A8    45F0C034        BAL    15,   52(  0, 12)
C 000001AC    9003925C        STM     0,  3,  604(  9)
C 000001B0    45F0C034        BAL    15,   52(  0, 12)
C 000001B4    9003926C        STM     0,  3,  620(  9)
C 000001B8    45F0C034        BAL    15,   52(  0, 12)
C 000001BC    9003927C        STM     0,  3,  636(  9)


   239                 %SHORTINTEGERARRAY CODE(0:192)

C 000001C0    50B0D024        ST     11,   36(  0, 13)
C 000001C4    1F11            SLR     1,  1
C 000001C6    412000C0        LA      2,  192(  0,  0)
C 000001CA    41000002        LA      0,    2(  0,  0)
C 000001CE    9002B000        STM     0,  2,    0( 11)
C 000001D2    9201B001        MVI      1( 11),  1
C 000001D6    41B0B010        LA     11,   16(  0, 11)
C 000001DA    45F0C034        BAL    15,   52(  0, 12)
C 000001DE    9003928C        STM     0,  3,  652(  9)


   240                 %SHORTINTEGERARRAY PAGENOS(0:50)

C 000001E2    50B0D024        ST     11,   36(  0, 13)
C 000001E6    1F11            SLR     1,  1
C 000001E8    41200032        LA      2,   50(  0,  0)
C 000001EC    41000002        LA      0,    2(  0,  0)
C 000001F0    9002B000        STM     0,  2,    0( 11)
C 000001F4    9201B001        MVI      1( 11),  1
C 000001F8    41B0B010        LA     11,   16(  0, 11)
C 000001FC    45F0C034        BAL    15,   52(  0, 12)
C 00000200    9003929C        STM     0,  3,  668(  9)


   241                 %INTEGERARRAY UVARREG(5:8)

C 00000204    50B0D024        ST     11,   36(  0, 13)
C 00000208    41100005        LA      1,    5(  0,  0)
C 0000020C    41200008        LA      2,    8(  0,  0)
C 00000210    41000004        LA      0,    4(  0,  0)
C 00000214    9002B000        STM     0,  2,    0( 11)
C 00000218    9201B001        MVI      1( 11),  1
C 0000021C    41B0B010        LA     11,   16(  0, 11)
C 00000220    45F0C034        BAL    15,   52(  0, 12)
C 00000224    900392AC        STM     0,  3,  684(  9)


   242                 SIZES

C 00000228    5810D154        L       1,  340(  0, 13)
C 0000022C    45F0D074        BAL    15,  116(  0, 13)


   243                 %BYTEINTEGERARRAY CC(0:CCSIZE),ASLIST(0:ASL),LETT(0:DSIZE+20)

C 00000230    50B0D024        ST     11,   36(  0, 13)
C 00000234    1F11            SLR     1,  1
C 00000236    4820905C        LH      2,   92(  0,  9)
C 0000023A    41000001        LA      0,    1(  0,  0)
C 0000023E    9002B000        STM     0,  2,    0( 11)
C 00000242    9201B001        MVI      1( 11),  1
C 00000246    41B0B010        LA     11,   16(  0, 11)
C 0000024A    45F0C034        BAL    15,   52(  0, 12)
C 0000024E    900392BC        STM     0,  3,  700(  9)
C 00000252    50B0D024        ST     11,   36(  0, 13)
C 00000256    1F11            SLR     1,  1
C 00000258    58209064        L       2,  100(  0,  9)
C 0000025C    41000001        LA      0,    1(  0,  0)
C 00000260    9002B000        STM     0,  2,    0( 11)
C 00000264    9201B001        MVI      1( 11),  1
C 00000268    41B0B010        LA     11,   16(  0, 11)
C 0000026C    45F0C034        BAL    15,   52(  0, 12)
C 00000270    900392CC        STM     0,  3,  716(  9)
C 00000274    50B0D024        ST     11,   36(  0, 13)
C 00000278    1F11            SLR     1,  1
C 0000027A    41200014        LA      2,   20(  0,  0)
C 0000027E    4A209060        AH      2,   96(  0,  9)
C 00000282    41000001        LA      0,    1(  0,  0)
C 00000286    9002B000        STM     0,  2,    0( 11)
C 0000028A    9201B001        MVI      1( 11),  1
C 0000028E    41B0B010        LA     11,   16(  0, 11)
C 00000292    45F0C034        BAL    15,   52(  0, 12)
C 00000296    900392DC        STM     0,  3,  732(  9)


   244                 %SHORTINTEGERARRAY RA(0:NROUTS),A(-2:ARSIZE)

C 0000029A    50B0D024        ST     11,   36(  0, 13)
C 0000029E    1F11            SLR     1,  1
C 000002A0    48209062        LH      2,   98(  0,  9)
C 000002A4    41000002        LA      0,    2(  0,  0)
C 000002A8    9002B000        STM     0,  2,    0( 11)
C 000002AC    9201B001        MVI      1( 11),  1
C 000002B0    41B0B010        LA     11,   16(  0, 11)
C 000002B4    45F0C034        BAL    15,   52(  0, 12)
C 000002B8    900392EC        STM     0,  3,  748(  9)
C 000002BC    50B0D024        ST     11,   36(  0, 13)
C 000002C0    41100002        LA      1,    2(  0,  0)
C 000002C4    1311            LCR     1,  1
C 000002C6    4820905E        LH      2,   94(  0,  9)
C 000002CA    41000002        LA      0,    2(  0,  0)
C 000002CE    9002B000        STM     0,  2,    0( 11)
C 000002D2    9201B001        MVI      1( 11),  1
C 000002D6    41B0B010        LA     11,   16(  0, 11)
C 000002DA    45F0C034        BAL    15,   52(  0, 12)
C 000002DE    900392FC        STM     0,  3,  764(  9)


   245                 %SHORTINTEGERARRAY WORD,TAGS(0:NNAMES)

C 000002E2    50B0D024        ST     11,   36(  0, 13)
C 000002E6    1F11            SLR     1,  1
C 000002E8    58209068        L       2,  104(  0,  9)
C 000002EC    41000002        LA      0,    2(  0,  0)
C 000002F0    9002B000        STM     0,  2,    0( 11)
C 000002F4    9201B001        MVI      1( 11),  1
C 000002F8    41B0B010        LA     11,   16(  0, 11)
C 000002FC    45F0C034        BAL    15,   52(  0, 12)
C 00000300    9003930C        STM     0,  3,  780(  9)
C 00000304    45F0C034        BAL    15,   52(  0, 12)
C 00000308    9003931C        STM     0,  3,  796(  9)


   246                 %SYSTEMINTEGERFNSPEC COM(%INTEGER N)
   247                 %SYSTEMROUTINESPEC SET COM(%INTEGER I,J)
   248                 %SYSTEMROUTINESPEC IOCP(%INTEGER A,B)
   249                 %ROUTINESPEC CNOP(%INTEGER I,J)
   250                 %ROUTINESPEC PCONST(%INTEGER X)
   251                 %ROUTINESPEC PSI(%INTEGER OPCODE,J,BASE,DISP)
   252                 %ROUTINESPEC PSS(%INTEGER OPCODE,N,BASE,DISP,P,Q)
   253                 %ROUTINESPEC PRX(%INTEGER OPCODE,R1,R2,BASE,DISP)
   254                 %ROUTINESPEC PACLOD(%INTEGER PTR,AT,VALUE)
   255                 %ROUTINESPEC PCLOD(%INTEGER PTR)
   256                 %ROUTINESPEC PLANT(%INTEGER VALUE)
   257                 %ROUTINESPEC PRR (%INTEGER OPCODE,R1,R2)
   258                 %SYSTEMROUTINESPEC LPUT(%INTEGER A,B,C,D)
   259                 %ROUTINESPEC PLUG(%INTEGER J,K)
   260                 %ROUTINESPEC PRHEX(%INTEGER VALUE,PLACES)
   261                 %ROUTINESPEC INITIALISE
   262                 %ROUTINESPEC PSYM(%INTEGER X)
   263                        %ROUTINESPEC COMPARE
   264                 %ROUTINESPEC PNAME
   265                 %ROUTINESPEC CONST(%BYTEINTEGER MODE)
   266                 %ROUTINESPEC CONSTLIST
   267                 %ROUTINESPEC TEXTTEXT
   268                 %ROUTINESPEC FROMAR8(%INTEGER PTR,%LONGREALNAME VALUE)
   269                 %ROUTINESPEC FROMAR4(%INTEGER PTR,%INTEGERNAME VALUE)
   270                 %ROUTINESPEC TOAR8(%INTEGER PTR,%LONGREAL VALUE)
   271                 %ROUTINESPEC TOAR4(%INTEGER PTR,VALUE)
   272                 %ROUTINESPEC CSS(%INTEGER P)
   273                 %ROUTINESPEC FAULT(%BYTEINTEGER N)
   274                  %ROUTINESPEC FINALISE
   275                        %ROUTINESPEC PRINT NAME (%INTEGER N)
   276        %EXTERNAL          %ROUTINESPEC RECODE (%INTEGER START,FINISH,CA)
   277                 %ROUTINESPEC READ LINE(%BYTEINTEGER N)
   278                 %FAULT 9->INEND,18->SUBSCHAR

C 0000030C    41100009        LA      1,    9(  0,  0)
C 00000310    45F0C050        BAL    15,   80(  0, 12)
C 00000314    0000
C 00000316    0000
C 00000318    47FA0000        BC     15,    0( 10,  0)
C 0000031C    41100012        LA      1,   18(  0,  0)
C 00000320    45F0C050        BAL    15,   80(  0, 12)
C 00000324    0000
C 00000326    0000
C 00000328    47FA0000        BC     15,    0( 10,  0)


   279         ! START OF COMPILATION
   280        INITIALISE

C 0000032C    5810D1F8        L       1,  504(  0, 13)
C 00000330    45F0D074        BAL    15,  116(  0, 13)


   281                 LPUT(0,1,1,ADDR(LETT(1)))

C 00000334    1F11            SLR     1,  1
C 00000336    5010B040        ST      1,   64(  0, 11)
C 0000033A    41B0B048        LA     11,   72(  0, 11)
C 0000033E    41100001        LA      1,    1(  0,  0)
C 00000342    5AB0D050        A      11,   80(  0, 13)
C 00000346    5010B000        ST      1,    0(  0, 11)
C 0000034A    41B0B004        LA     11,    4(  0, 11)
C 0000034E    41100001        LA      1,    1(  0,  0)
C 00000352    5010B000        ST      1,    0(  0, 11)
C 00000356    41B0B008        LA     11,    8(  0, 11)
C 0000035A    41100001        LA      1,    1(  0,  0)
C 0000035E    413092DC        LA      3,  732(  0,  9)
C 00000362    45F0C05C        BAL    15,   92(  0, 12)
C 00000366    4111F000        LA      1,    0(  1, 15)
C 0000036A    5AB0D050        A      11,   80(  0, 13)
C 0000036E    5010B000        ST      1,    0(  0, 11)
C 00000372    4100004C        LA      0,   76(  0,  0)
C 00000376    1BB0            SR     11,  0
C 00000378    904EB010        STM     4, 14,   16( 11)
C 0000037C    98CED1D8        LM     12, 14,  472( 13)
C 00000380    05FE            BALR   15, 14


   282        8:       READLINE(0); Q=1

C 00000382    9200B043        MVI     67( 11),  0
C 00000386    5810D250        L       1,  592(  0, 13)
C 0000038A    45F0D074        BAL    15,  116(  0, 13)



C 0000038E    41100001        LA      1,    1(  0,  0)
C 00000392    50109114        ST      1,  276(  0,  9)


   283        5:       R=1; P=SS

C 00000396    41100001        LA      1,    1(  0,  0)
C 0000039A    50109118        ST      1,  280(  0,  9)



C 0000039E    D20391109058    MVC    272(  4,  9),   88(  9)


   284                 OLDLINE=LINE; COMPARE

C 000003A4    D2039078907C    MVC    120(  4,  9),  124(  9)



C 000003AA    5810D200        L       1,  512(  0, 13)
C 000003AE    45F0D074        BAL    15,  116(  0, 13)


   285                 FAULT(102) %IF R>ARSIZE

C 000003B2    4810905E        LH      1,   94(  0,  9)
C 000003B6    59109118        C       1,  280(  0,  9)
C 000003BA    47BA0394        BC     11,  916( 10,  0)
C 000003BE    9266B043        MVI     67( 11), 102
C 000003C2    5810D228        L       1,  552(  0, 13)
C 000003C6    45F0D074        BAL    15,  116(  0, 13)


   286                       ->6 %IF HIT=0

C 000003CA    950090CE        CLI    206(  9),  0
C 000003CE    0000
C 000003D0    0000
C 000003D2    478A0000        BC      8,    0( 10,  0)


   287                 STMTS=STMTS+1

C 000003D6    41100001        LA      1,    1(  0,  0)
C 000003DA    5A109148        A       1,  328(  0,  9)
C 000003DE    50109148        ST      1,  328(  0,  9)


   288                  CSS(1)

C 000003E2    41100001        LA      1,    1(  0,  0)
C 000003E6    5010B040        ST      1,   64(  0, 11)
C 000003EA    5810D224        L       1,  548(  0, 13)
C 000003EE    45F0D074        BAL    15,  116(  0, 13)


   289                 %IF DCOMP#0 %AND CA>CABUF %THEN %START

C 000003F2    950090D9        CLI    217(  9),  0
C 000003F6    0000
C 000003F8    0000
C 000003FA    478A0000        BC      8,    0( 10,  0)
C 000003FE    5810906C        L       1,  108(  0,  9)
C 00000402    591090AC        C       1,  172(  0,  9)
C 00000406    0000
C 00000408    0000
C 0000040A    47BA0000        BC     11,    0( 10,  0)


   290                 RECODE(ADDR(CODE(0)),ADDR(CODE(PPCURR)),CABUF)

C 0000040E    1F11            SLR     1,  1
C 00000410    4130928C        LA      3,  652(  0,  9)
C 00000414    45F0C05C        BAL    15,   92(  0, 12)
C 00000418    4111F000        LA      1,    0(  1, 15)
C 0000041C    5010B040        ST      1,   64(  0, 11)
C 00000420    41B0B048        LA     11,   72(  0, 11)
C 00000424    58109070        L       1,  112(  0,  9)
C 00000428    4130928C        LA      3,  652(  0,  9)
C 0000042C    45F0C05C        BAL    15,   92(  0, 12)
C 00000430    4111F000        LA      1,    0(  1, 15)
C 00000434    5AB0D050        A      11,   80(  0, 13)
C 00000438    5010B000        ST      1,    0(  0, 11)
C 0000043C    41B0B004        LA     11,    4(  0, 11)
C 00000440    D203B000906C    MVC      0(  4, 11),  108(  9)
C 00000446    41000048        LA      0,   72(  0,  0)
C 0000044A    1BB0            SR     11,  0
C 0000044C    904EB010        STM     4, 14,   16( 11)
C 00000450    98CED238        LM     12, 14,  568( 13)
C 00000454    05FE            BALR   15, 14


   291                 NEWLINE

C 00000456    4110000A        LA      1,   10(  0,  0)
C 0000045A    41000003        LA      0,    3(  0,  0)
C 0000045E    9041B010        STM     4,  1,   16( 11)
C 00000462    98CED08C        LM     12, 14,  140( 13)
C 00000466    05FE            BALR   15, 14


   292                 LPUT(1,CA-CABUF,CABUF,ADDR(CODE(0)))

C 00000468    41100001        LA      1,    1(  0,  0)
C 0000046C    5010B040        ST      1,   64(  0, 11)
C 00000470    41B0B048        LA     11,   72(  0, 11)
C 00000474    581090AC        L       1,  172(  0,  9)
C 00000478    5B10906C        S       1,  108(  0,  9)
C 0000047C    5AB0D050        A      11,   80(  0, 13)
C 00000480    5010B000        ST      1,    0(  0, 11)
C 00000484    41B0B004        LA     11,    4(  0, 11)
C 00000488    D203B000906C    MVC      0(  4, 11),  108(  9)
C 0000048E    41B0B008        LA     11,    8(  0, 11)
C 00000492    1F11            SLR     1,  1
C 00000494    4130928C        LA      3,  652(  0,  9)
C 00000498    45F0C05C        BAL    15,   92(  0, 12)
C 0000049C    4111F000        LA      1,    0(  1, 15)
C 000004A0    5AB0D050        A      11,   80(  0, 13)
C 000004A4    5010B000        ST      1,    0(  0, 11)
C 000004A8    4100004C        LA      0,   76(  0,  0)
C 000004AC    1BB0            SR     11,  0
C 000004AE    904EB010        STM     4, 14,   16( 11)
C 000004B2    98CED1D8        LM     12, 14,  472( 13)
C 000004B6    05FE            BALR   15, 14


   293                 PPCURR=0; CABUF=CA; %FINISH

C 000004B8    1F11            SLR     1,  1
C 000004BA    50109070        ST      1,  112(  0,  9)



C 000004BE    D203906C90AC    MVC    108(  4,  9),  172(  9)


   294                 ->7 %IF A(1)=13;              ! END OF PROGRAM

C 000004C4    41100001        LA      1,    1(  0,  0)
C 000004C8    413092FC        LA      3,  764(  0,  9)
C 000004CC    45F0C05C        BAL    15,   92(  0, 12)
C 000004D0    4811F000        LH      1,    0(  1, 15)
C 000004D4    4120000D        LA      2,   13(  0,  0)
C 000004D8    1912            CR      1,  2
C 000004DA    0000
C 000004DC    0000
C 000004DE    478A0000        BC      8,    0( 10,  0)


   295        9:       ->8 %IF Q>=LENGTH              ;->5

C 000004E2    58109080        L       1,  128(  0,  9)
C 000004E6    59109114        C       1,  276(  0,  9)
C 000004EA    47C0A34C        BC     12,  844(  0, 10)



C 000004EE    47F0A360        BC     15,  864(  0, 10)


   296        6:             FAULT(100); ->9

C 000004F2    9264B043        MVI     67( 11), 100
C 000004F6    5810D228        L       1,  552(  0, 13)
C 000004FA    45F0D074        BAL    15,  116(  0, 13)



C 000004FE    47F0A4AC        BC     15, 1196(  0, 10)


   297        7:             !DEAL WITH END OF PROGRAM
   298                  FINALISE

C 00000502    5810D22C        L       1,  556(  0, 13)
C 00000506    45F0D074        BAL    15,  116(  0, 13)


   299                 SET COM(24,0) %IF COMPILER =0 %AND FAULTY=0

C 0000050A    950090DA        CLI    218(  9),  0
C 0000050E    477A04FC        BC      7, 1276( 10,  0)
C 00000512    950090CC        CLI    204(  9),  0
C 00000516    477A04FC        BC      7, 1276( 10,  0)
C 0000051A    41100018        LA      1,   24(  0,  0)
C 0000051E    5010B040        ST      1,   64(  0, 11)
C 00000522    1F11            SLR     1,  1
C 00000524    5010B044        ST      1,   68(  0, 11)
C 00000528    904EB010        STM     4, 14,   16( 11)
C 0000052C    98CED178        LM     12, 14,  376( 13)
C 00000530    05FE            BALR   15, 14


   300                 %STOP

C 00000532    45F0C018        BAL    15,   24(  0, 12)


   301        INEND:   FAULT(108)

C 00000536    926CB043        MVI     67( 11), 108
C 0000053A    5810D228        L       1,  552(  0, 13)
C 0000053E    45F0D074        BAL    15,  116(  0, 13)


   302        SUBSCHAR:LINE=LINE+1;FAULT(48)

C 00000542    41100001        LA      1,    1(  0,  0)
C 00000546    5A10907C        A       1,  124(  0,  9)
C 0000054A    5010907C        ST      1,  124(  0,  9)



C 0000054E    9230B043        MVI     67( 11), 48
C 00000552    5810D228        L       1,  552(  0, 13)
C 00000556    45F0D074        BAL    15,  116(  0, 13)


   303                 SPACES(5)

C 0000055A    41200005        LA      2,    5(  0,  0)
C 0000055E    41100020        LA      1,   32(  0,  0)
C 00000562    45F0C038        BAL    15,   56(  0, 12)


   304        15:      READSYMBOL(I); ->8 %IF I=10

C 00000566    41000001        LA      0,    1(  0,  0)
C 0000056A    9041B010        STM     4,  1,   16( 11)
C 0000056E    98CED08C        LM     12, 14,  140( 13)
C 00000572    05FE            BALR   15, 14
C 00000574    5010904C        ST      1,   76(  0,  9)



C 00000578    4110000A        LA      1,   10(  0,  0)
C 0000057C    5910904C        C       1,   76(  0,  9)
C 00000580    4780A34C        BC      8,  844(  0, 10)


   305                 PRINTSYMBOL(I); ->15

C 00000584    5810904C        L       1,   76(  0,  9)
C 00000588    41000003        LA      0,    3(  0,  0)
C 0000058C    9041B010        STM     4,  1,   16( 11)
C 00000590    98CED08C        LM     12, 14,  140( 13)
C 00000594    05FE            BALR   15, 14



C 00000596    47F0A530        BC     15, 1328(  0, 10)


   306                  %ROUTINE    FINALISE

C 0000059A    0000
C 0000059C    0000
C 0000059E    47FA0000        BC     15,    0( 10,  0)
C 000005A2    50F0B03C        ST     15,   60(  0, 11)
C 000005A6    D203B000D014    MVC      0(  4, 11),   20( 13)
C 000005AC    41000132        LA      0,  306(  0,  0)
C 000005B0    4000D014        STH     0,   20(  0, 13)
C 000005B4    188B            LR      8, 11
C 000005B6    41BB0000        LA     11,    0( 11,  0)
C 000005BA    41000004        LA      0,    4(  0,  0)
C 000005BE    59BD0044        C      11,   68( 13,  0)
C 000005C2    4720C054        BC      2,   84(  0, 12)
C 000005C6    05A0            BALR   10,  0


   307                     N0=N0+1 %IF N0&1#1

C 000005C8    41100001        LA      1,    1(  0,  0)
C 000005CC    54109088        N       1,  136(  0,  9)
C 000005D0    41200001        LA      2,    1(  0,  0)
C 000005D4    1912            CR      1,  2
C 000005D6    478A001E        BC      8,   30( 10,  0)
C 000005DA    41100001        LA      1,    1(  0,  0)
C 000005DE    5A109088        A       1,  136(  0,  9)
C 000005E2    50109088        ST      1,  136(  0,  9)


   308                     CNOP(0,8);ST(0)=X'20000'

C 000005E6    1F11            SLR     1,  1
C 000005E8    5010B040        ST      1,   64(  0, 11)
C 000005EC    41100008        LA      1,    8(  0,  0)
C 000005F0    5010B044        ST      1,   68(  0, 11)
C 000005F4    5810D1B0        L       1,  432(  0, 13)
C 000005F8    45F0D074        BAL    15,  116(  0, 13)



C 000005FC    5840D254        L       4,  596(  0, 13)
C 00000600    1F11            SLR     1,  1
C 00000602    4130915C        LA      3,  348(  0,  9)
C 00000606    45F0C05C        BAL    15,   92(  0, 12)
C 0000060A    5041F000        ST      4,    0(  1, 15)


   309                     ST(1)=X'10100000'

C 0000060E    5840D258        L       4,  600(  0, 13)
C 00000612    41100001        LA      1,    1(  0,  0)
C 00000616    4130915C        LA      3,  348(  0,  9)
C 0000061A    45F0C05C        BAL    15,   92(  0, 12)
C 0000061E    5041F000        ST      4,    0(  1, 15)


   310                     ST(4)=-1; ST(6)=255

C 00000622    5840D010        L       4,   16(  0, 13)
C 00000626    41100004        LA      1,    4(  0,  0)
C 0000062A    4130915C        LA      3,  348(  0,  9)
C 0000062E    45F0C05C        BAL    15,   92(  0, 12)
C 00000632    5041F000        ST      4,    0(  1, 15)



C 00000636    414000FF        LA      4,  255(  0,  0)
C 0000063A    41100006        LA      1,    6(  0,  0)
C 0000063E    4130915C        LA      3,  348(  0,  9)
C 00000642    45F0C05C        BAL    15,   92(  0, 12)
C 00000646    5041F000        ST      4,    0(  1, 15)


   311            ST(8)=OWNLINK

C 0000064A    5840909C        L       4,  156(  0,  9)
C 0000064E    41100008        LA      1,    8(  0,  0)
C 00000652    4130915C        LA      3,  348(  0,  9)
C 00000656    45F0C05C        BAL    15,   92(  0, 12)
C 0000065A    5041F000        ST      4,    0(  1, 15)


   312                     ST(12)=X'41100000';           ! D'1'

C 0000065E    5840D25C        L       4,  604(  0, 13)
C 00000662    4110000C        LA      1,   12(  0,  0)
C 00000666    4130915C        LA      3,  348(  0,  9)
C 0000066A    45F0C05C        BAL    15,   92(  0, 12)
C 0000066E    5041F000        ST      4,    0(  1, 15)


   313                     ST(14)=X'41200000';           ! D'2'

C 00000672    5840D260        L       4,  608(  0, 13)
C 00000676    4110000E        LA      1,   14(  0,  0)
C 0000067A    4130915C        LA      3,  348(  0,  9)
C 0000067E    45F0C05C        BAL    15,   92(  0, 12)
C 00000682    5041F000        ST      4,    0(  1, 15)


   314                     ST(18)=X'4E000000';           ! FOR IN LINE FLOATING

C 00000686    5840D264        L       4,  612(  0, 13)
C 0000068A    41100012        LA      1,   18(  0,  0)
C 0000068E    4130915C        LA      3,  348(  0,  9)
C 00000692    45F0C05C        BAL    15,   92(  0, 12)
C 00000696    5041F000        ST      4,    0(  1, 15)


   315                     ST(20)=-4; ST(21)=-8

C 0000069A    41400004        LA      4,    4(  0,  0)
C 0000069E    1344            LCR     4,  4
C 000006A0    41100014        LA      1,   20(  0,  0)
C 000006A4    4130915C        LA      3,  348(  0,  9)
C 000006A8    45F0C05C        BAL    15,   92(  0, 12)
C 000006AC    5041F000        ST      4,    0(  1, 15)



C 000006B0    41400008        LA      4,    8(  0,  0)
C 000006B4    1344            LCR     4,  4
C 000006B6    41100015        LA      1,   21(  0,  0)
C 000006BA    4130915C        LA      3,  348(  0,  9)
C 000006BE    45F0C05C        BAL    15,   92(  0, 12)
C 000006C2    5041F000        ST      4,    0(  1, 15)


   316                     ST(22)=XREFLINK; XREFLINK=88

C 000006C6    58409134        L       4,  308(  0,  9)
C 000006CA    41100016        LA      1,   22(  0,  0)
C 000006CE    4130915C        LA      3,  348(  0,  9)
C 000006D2    45F0C05C        BAL    15,   92(  0, 12)
C 000006D6    5041F000        ST      4,    0(  1, 15)



C 000006DA    41100058        LA      1,   88(  0,  0)
C 000006DE    50109134        ST      1,  308(  0,  9)


   317                     ST(26)=X'80000000'; ST(27)=X'06492350'; ST(28)=M'ERMA'

C 000006E2    5840D268        L       4,  616(  0, 13)
C 000006E6    4110001A        LA      1,   26(  0,  0)
C 000006EA    4130915C        LA      3,  348(  0,  9)
C 000006EE    45F0C05C        BAL    15,   92(  0, 12)
C 000006F2    5041F000        ST      4,    0(  1, 15)



C 000006F6    5840D26C        L       4,  620(  0, 13)
C 000006FA    4110001B        LA      1,   27(  0,  0)
C 000006FE    4130915C        LA      3,  348(  0,  9)
C 00000702    45F0C05C        BAL    15,   92(  0, 12)
C 00000706    5041F000        ST      4,    0(  1, 15)



C 0000070A    5840D270        L       4,  624(  0, 13)
C 0000070E    4110001C        LA      1,   28(  0,  0)
C 00000712    4130915C        LA      3,  348(  0,  9)
C 00000716    45F0C05C        BAL    15,   92(  0, 12)
C 0000071A    5041F000        ST      4,    0(  1, 15)


   318                     ST(29)=X'904EB010';           ! ROUTINE ENTRY SUBROUTINE

C 0000071E    5840D274        L       4,  628(  0, 13)
C 00000722    4110001D        LA      1,   29(  0,  0)
C 00000726    4130915C        LA      3,  348(  0,  9)
C 0000072A    45F0C05C        BAL    15,   92(  0, 12)
C 0000072E    5041F000        ST      4,    0(  1, 15)


   319                     ST(30)= X'5A10D01C'

C 00000732    5840D278        L       4,  632(  0, 13)
C 00000736    4110001E        LA      1,   30(  0,  0)
C 0000073A    4130915C        LA      3,  348(  0,  9)
C 0000073E    45F0C05C        BAL    15,   92(  0, 12)
C 00000742    5041F000        ST      4,    0(  1, 15)


   320                     ST(31)=X'07F10700'

C 00000746    5840D27C        L       4,  636(  0, 13)
C 0000074A    4110001F        LA      1,   31(  0,  0)
C 0000074E    4130915C        LA      3,  348(  0,  9)
C 00000752    45F0C05C        BAL    15,   92(  0, 12)
C 00000756    5041F000        ST      4,    0(  1, 15)


   321                     ST(32)=X'80808080'

C 0000075A    5840D280        L       4,  640(  0, 13)
C 0000075E    41100020        LA      1,   32(  0,  0)
C 00000762    4130915C        LA      3,  348(  0,  9)
C 00000766    45F0C05C        BAL    15,   92(  0, 12)
C 0000076A    5041F000        ST      4,    0(  1, 15)


   322                     ST(33)=X'80808080'

C 0000076E    5840D284        L       4,  644(  0, 13)
C 00000772    41100021        LA      1,   33(  0,  0)
C 00000776    4130915C        LA      3,  348(  0,  9)
C 0000077A    45F0C05C        BAL    15,   92(  0, 12)
C 0000077E    5041F000        ST      4,    0(  1, 15)


   323                     ST(38)=X'80000000'; ST(39)=X'06532349'; ST(40)=M'OCP '

C 00000782    5840D288        L       4,  648(  0, 13)
C 00000786    41100026        LA      1,   38(  0,  0)
C 0000078A    4130915C        LA      3,  348(  0,  9)
C 0000078E    45F0C05C        BAL    15,   92(  0, 12)
C 00000792    5041F000        ST      4,    0(  1, 15)



C 00000796    5840D28C        L       4,  652(  0, 13)
C 0000079A    41100027        LA      1,   39(  0,  0)
C 0000079E    4130915C        LA      3,  348(  0,  9)
C 000007A2    45F0C05C        BAL    15,   92(  0, 12)
C 000007A6    5041F000        ST      4,    0(  1, 15)



C 000007AA    5840D290        L       4,  656(  0, 13)
C 000007AE    41100028        LA      1,   40(  0,  0)
C 000007B2    4130915C        LA      3,  348(  0,  9)
C 000007B6    45F0C05C        BAL    15,   92(  0, 12)
C 000007BA    5041F000        ST      4,    0(  1, 15)


   324                     K=CA

C 000007BE    D203905490AC    MVC     84(  4,  9),  172(  9)


   325                     LPUT(1,CA-CABUF,CABUF,ADDR(CODE(0))) %UNLESS CA=CABUF

C 000007C4    D50390AC906C    CLC    172(  4,  9),  108(  9)
C 000007CA    478A0256        BC      8,  598( 10,  0)
C 000007CE    41100001        LA      1,    1(  0,  0)
C 000007D2    5010B040        ST      1,   64(  0, 11)
C 000007D6    41B0B048        LA     11,   72(  0, 11)
C 000007DA    581090AC        L       1,  172(  0,  9)
C 000007DE    5B10906C        S       1,  108(  0,  9)
C 000007E2    5AB0D050        A      11,   80(  0, 13)
C 000007E6    5010B000        ST      1,    0(  0, 11)
C 000007EA    41B0B004        LA     11,    4(  0, 11)
C 000007EE    D203B000906C    MVC      0(  4, 11),  108(  9)
C 000007F4    41B0B008        LA     11,    8(  0, 11)
C 000007F8    1F11            SLR     1,  1
C 000007FA    4130928C        LA      3,  652(  0,  9)
C 000007FE    45F0C05C        BAL    15,   92(  0, 12)
C 00000802    4111F000        LA      1,    0(  1, 15)
C 00000806    5AB0D050        A      11,   80(  0, 13)
C 0000080A    5010B000        ST      1,    0(  0, 11)
C 0000080E    4100004C        LA      0,   76(  0,  0)
C 00000812    1BB0            SR     11,  0
C 00000814    904EB010        STM     4, 14,   16( 11)
C 00000818    98CED1D8        LM     12, 14,  472( 13)
C 0000081C    05FE            BALR   15, 14


   326                     LPUT(2,N0<<2+4,0,ADDR(ST(0)));! GLA

C 0000081E    41100002        LA      1,    2(  0,  0)
C 00000822    5010B040        ST      1,   64(  0, 11)
C 00000826    41B0B048        LA     11,   72(  0, 11)
C 0000082A    58109088        L       1,  136(  0,  9)
C 0000082E    89100002        SLL     1,    2(  0)
C 00000832    41200004        LA      2,    4(  0,  0)
C 00000836    1A12            AR      1,  2
C 00000838    5AB0D050        A      11,   80(  0, 13)
C 0000083C    5010B000        ST      1,    0(  0, 11)
C 00000840    41B0B004        LA     11,    4(  0, 11)
C 00000844    1F11            SLR     1,  1
C 00000846    5010B000        ST      1,    0(  0, 11)
C 0000084A    41B0B008        LA     11,    8(  0, 11)
C 0000084E    1F11            SLR     1,  1
C 00000850    4130915C        LA      3,  348(  0,  9)
C 00000854    45F0C05C        BAL    15,   92(  0, 12)
C 00000858    4111F000        LA      1,    0(  1, 15)
C 0000085C    5AB0D050        A      11,   80(  0, 13)
C 00000860    5010B000        ST      1,    0(  0, 11)
C 00000864    4100004C        LA      0,   76(  0,  0)
C 00000868    1BB0            SR     11,  0
C 0000086A    904EB010        STM     4, 14,   16( 11)
C 0000086E    98CED1D8        LM     12, 14,  472( 13)
C 00000872    05FE            BALR   15, 14


   327                     FAULT(99) %IF N0>1023

C 00000874    411003FF        LA      1, 1023(  0,  0)
C 00000878    59109088        C       1,  136(  0,  9)
C 0000087C    47BA02C4        BC     11,  708( 10,  0)
C 00000880    9263B043        MVI     67( 11), 99
C 00000884    5810D228        L       1,  552(  0, 13)
C 00000888    45F0D074        BAL    15,  116(  0, 13)


   328                     I=X'E2E2E2E2'

C 0000088C    5810D294        L       1,  660(  0, 13)
C 00000890    5010904C        ST      1,   76(  0,  9)


   329                     LPUT(4,4,SSTL,ADDR(I))

C 00000894    41100004        LA      1,    4(  0,  0)
C 00000898    5010B040        ST      1,   64(  0, 11)
C 0000089C    41B0B048        LA     11,   72(  0, 11)
C 000008A0    41100004        LA      1,    4(  0,  0)
C 000008A4    5AB0D050        A      11,   80(  0, 13)
C 000008A8    5010B000        ST      1,    0(  0, 11)
C 000008AC    41B0B004        LA     11,    4(  0, 11)
C 000008B0    D203B0009140    MVC      0(  4, 11),  320(  9)
C 000008B6    41B0B008        LA     11,    8(  0, 11)
C 000008BA    4110904C        LA      1,   76(  0,  9)
C 000008BE    5AB0D050        A      11,   80(  0, 13)
C 000008C2    5010B000        ST      1,    0(  0, 11)
C 000008C6    4100004C        LA      0,   76(  0,  0)
C 000008CA    1BB0            SR     11,  0
C 000008CC    904EB010        STM     4, 14,   16( 11)
C 000008D0    98CED1D8        LM     12, 14,  472( 13)
C 000008D4    05FE            BALR   15, 14


   330                     %IF CONSTPTR&1#0 %THEN PSYM(0)

C 000008D6    41100001        LA      1,    1(  0,  0)
C 000008DA    541090A0        N       1,  160(  0,  9)
C 000008DE    478A0328        BC      8,  808( 10,  0)
C 000008E2    1F11            SLR     1,  1
C 000008E4    5010B040        ST      1,   64(  0, 11)
C 000008E8    5810D1FC        L       1,  508(  0, 13)
C 000008EC    45F0D074        BAL    15,  116(  0, 13)


   331                     ->129 %IF FAULTY #0

C 000008F0    950090CC        CLI    204(  9),  0
C 000008F4    0000
C 000008F6    0000
C 000008F8    477A0000        BC      7,    0( 10,  0)


   332                     NEWLINE; WRITE(STMTS,4)

C 000008FC    4110000A        LA      1,   10(  0,  0)
C 00000900    41000003        LA      0,    3(  0,  0)
C 00000904    9041B010        STM     4,  1,   16( 11)
C 00000908    98CED08C        LM     12, 14,  140( 13)
C 0000090C    05FE            BALR   15, 14



C 0000090E    58109148        L       1,  328(  0,  9)
C 00000912    41200004        LA      2,    4(  0,  0)
C 00000916    45F0C010        BAL    15,   16(  0, 12)


   333                     %PRINTTEXT' STATEMENTS COMPILED SUCCESSFULLY'

C 0000091A    45F0C078        BAL    15,  120(  0, 12)
C 0000091E    2120            LNDR    2,  0
C 00000920    5354
C 00000922    4154454D        LA      5, 1357(  4,  4)
C 00000926    454E5453        BAL     4, 1107( 14,  5)
C 0000092A    2043            LPDR    4,  3
C 0000092C    4F4D5049        CVB     4,   73( 13,  5)
C 00000930    4C454420        MH      4, 1056(  5,  4)
C 00000934    5355
C 00000936    43434553        IC      4, 1363(  3,  4)
C 0000093A    5346
C 0000093C    554C4C59        CL      4, 3161( 12,  4)


   334            120:          %PRINTTEXT'
   335'           CODE OCCUPIES'

C 00000940    45F0C078        BAL    15,  120(  0, 12)
C 00000944    0E0A
C 00000946    434F4445        IC      4, 1093( 15,  4)
C 0000094A    204F            LPDR    4, 15
C 0000094C    43435550        IC      4, 1360(  3,  5)
C 00000950    49455300        CH      4,  768(  5,  5)


   336                     WRITE(K,3);%PRINTTEXT' BYTES      GLAP'

C 00000954    58109054        L       1,   84(  0,  9)
C 00000958    41200003        LA      2,    3(  0,  0)
C 0000095C    45F0C010        BAL    15,   16(  0, 12)



C 00000960    45F0C078        BAL    15,  120(  0, 12)
C 00000964    1020            LPR     2,  0
C 00000966    42595445        STC     5, 1093(  9,  5)
C 0000096A    5320
C 0000096C    2020            LPDR    2,  0
C 0000096E    2020            LPDR    2,  0
C 00000970    2047            LPDR    4,  7
C 00000972    4C415000        MH      4,    0(  1,  5)


   337                     WRITE(N0<<2,3); %PRINTTEXT' +'

C 00000976    58109088        L       1,  136(  0,  9)
C 0000097A    89100002        SLL     1,    2(  0)
C 0000097E    41200003        LA      2,    3(  0,  0)
C 00000982    45F0C010        BAL    15,   16(  0, 12)



C 00000986    45F0C078        BAL    15,  120(  0, 12)
C 0000098A    0220
C 0000098C    2B00            SDR     0,  0


   338                     WRITE(CONSTPTR<<2,1); %PRINTTEXT' BYTES      DIAG TABLES'

C 0000098E    581090A0        L       1,  160(  0,  9)
C 00000992    89100002        SLL     1,    2(  0)
C 00000996    41200001        LA      2,    1(  0,  0)
C 0000099A    45F0C010        BAL    15,   16(  0, 12)



C 0000099E    45F0C078        BAL    15,  120(  0, 12)
C 000009A2    1720            XR      2,  0
C 000009A4    42595445        STC     5, 1093(  9,  5)
C 000009A8    5320
C 000009AA    2020            LPDR    2,  0
C 000009AC    2020            LPDR    2,  0
C 000009AE    2044            LPDR    4,  4
C 000009B0    49414720        CH      4, 1824(  1,  4)
C 000009B4    5441424C        N       4,  588(  1,  4)
C 000009B8    45534343        BAL     5,  835(  3,  4)


   339                     WRITE(SSTL+4,4); %PRINTTEXT' BYTES      TOTAL'

C 000009BA    41100004        LA      1,    4(  0,  0)
C 000009BE    5A109140        A       1,  320(  0,  9)
C 000009C2    41200004        LA      2,    4(  0,  0)
C 000009C6    45F0C010        BAL    15,   16(  0, 12)



C 000009CA    45F0C078        BAL    15,  120(  0, 12)
C 000009CE    1120            LNR     2,  0
C 000009D0    42595445        STC     5, 1093(  9,  5)
C 000009D4    5320
C 000009D6    2020            LPDR    2,  0
C 000009D8    2020            LPDR    2,  0
C 000009DA    2054            LPDR    5,  4
C 000009DC    4F54414C        CVB     5,  332(  4,  4)


   340                     ST(0)=CA; ST(1)=N0<<2+4

C 000009E0    584090AC        L       4,  172(  0,  9)
C 000009E4    1F11            SLR     1,  1
C 000009E6    4130915C        LA      3,  348(  0,  9)
C 000009EA    45F0C05C        BAL    15,   92(  0, 12)
C 000009EE    5041F000        ST      4,    0(  1, 15)



C 000009F2    58409088        L       4,  136(  0,  9)
C 000009F6    89400002        SLL     4,    2(  0)
C 000009FA    41100004        LA      1,    4(  0,  0)
C 000009FE    1A41            AR      4,  1
C 00000A00    41100001        LA      1,    1(  0,  0)
C 00000A04    4130915C        LA      3,  348(  0,  9)
C 00000A08    45F0C05C        BAL    15,   92(  0, 12)
C 00000A0C    5041F000        ST      4,    0(  1, 15)


   341                     ST(2)=(LDPTR<<2+7)&(-8); ST(3)=(SSTL+11)&(-8)

C 00000A10    58109138        L       1,  312(  0,  9)
C 00000A14    89100002        SLL     1,    2(  0)
C 00000A18    41200007        LA      2,    7(  0,  0)
C 00000A1C    1A12            AR      1,  2
C 00000A1E    1851            LR      5,  1
C 00000A20    41100008        LA      1,    8(  0,  0)
C 00000A24    1311            LCR     1,  1
C 00000A26    1861            LR      6,  1
C 00000A28    1456            NR      5,  6
C 00000A2A    1845            LR      4,  5
C 00000A2C    41100002        LA      1,    2(  0,  0)
C 00000A30    4130915C        LA      3,  348(  0,  9)
C 00000A34    45F0C05C        BAL    15,   92(  0, 12)
C 00000A38    5041F000        ST      4,    0(  1, 15)



C 00000A3C    4110000B        LA      1,   11(  0,  0)
C 00000A40    5A109140        A       1,  320(  0,  9)
C 00000A44    1851            LR      5,  1
C 00000A46    41100008        LA      1,    8(  0,  0)
C 00000A4A    1311            LCR     1,  1
C 00000A4C    1861            LR      6,  1
C 00000A4E    1456            NR      5,  6
C 00000A50    1845            LR      4,  5
C 00000A52    41100003        LA      1,    3(  0,  0)
C 00000A56    4130915C        LA      3,  348(  0,  9)
C 00000A5A    45F0C05C        BAL    15,   92(  0, 12)
C 00000A5E    5041F000        ST      4,    0(  1, 15)


   342                     ST(4)=CONSTPTR<<2

C 00000A62    584090A0        L       4,  160(  0,  9)
C 00000A66    89400002        SLL     4,    2(  0)
C 00000A6A    41100004        LA      1,    4(  0,  0)
C 00000A6E    4130915C        LA      3,  348(  0,  9)
C 00000A72    45F0C05C        BAL    15,   92(  0, 12)
C 00000A76    5041F000        ST      4,    0(  1, 15)


   343                     ST(5)=CA+ST(1)+ST(2)+ST(3)+ST(4)

C 00000A7A    41100001        LA      1,    1(  0,  0)
C 00000A7E    4130915C        LA      3,  348(  0,  9)
C 00000A82    45F0C05C        BAL    15,   92(  0, 12)
C 00000A86    5871F000        L       7,    0(  1, 15)
C 00000A8A    41100002        LA      1,    2(  0,  0)
C 00000A8E    4130915C        LA      3,  348(  0,  9)
C 00000A92    45F0C05C        BAL    15,   92(  0, 12)
C 00000A96    5861F000        L       6,    0(  1, 15)
C 00000A9A    41100003        LA      1,    3(  0,  0)
C 00000A9E    4130915C        LA      3,  348(  0,  9)
C 00000AA2    45F0C05C        BAL    15,   92(  0, 12)
C 00000AA6    5851F000        L       5,    0(  1, 15)
C 00000AAA    41100004        LA      1,    4(  0,  0)
C 00000AAE    4130915C        LA      3,  348(  0,  9)
C 00000AB2    45F0C05C        BAL    15,   92(  0, 12)
C 00000AB6    5841F000        L       4,    0(  1, 15)
C 00000ABA    5A7090AC        A       7,  172(  0,  9)
C 00000ABE    1A76            AR      7,  6
C 00000AC0    1A75            AR      7,  5
C 00000AC2    1A74            AR      7,  4
C 00000AC4    1847            LR      4,  7
C 00000AC6    41100005        LA      1,    5(  0,  0)
C 00000ACA    4130915C        LA      3,  348(  0,  9)
C 00000ACE    45F0C05C        BAL    15,   92(  0, 12)
C 00000AD2    5041F000        ST      4,    0(  1, 15)


   344                     WRITE(ST(5),5); %PRINTTEXT' BYTES'

C 00000AD6    41100005        LA      1,    5(  0,  0)
C 00000ADA    4130915C        LA      3,  348(  0,  9)
C 00000ADE    45F0C05C        BAL    15,   92(  0, 12)
C 00000AE2    5811F000        L       1,    0(  1, 15)
C 00000AE6    41200005        LA      2,    5(  0,  0)
C 00000AEA    45F0C010        BAL    15,   16(  0, 12)



C 00000AEE    45F0C078        BAL    15,  120(  0, 12)
C 00000AF2    0620            BCTR    2,  0
C 00000AF4    42595445        STC     5, 1093(  9,  5)
C 00000AF8    5300


   345                     NEWLINE

C 00000AFA    4110000A        LA      1,   10(  0,  0)
C 00000AFE    41000003        LA      0,    3(  0,  0)
C 00000B02    9041B010        STM     4,  1,   16( 11)
C 00000B06    98CED08C        LM     12, 14,  140( 13)
C 00000B0A    05FE            BALR   15, 14


   346                     NEWLINE

C 00000B0C    4110000A        LA      1,   10(  0,  0)
C 00000B10    41000003        LA      0,    3(  0,  0)
C 00000B14    9041B010        STM     4,  1,   16( 11)
C 00000B18    98CED08C        LM     12, 14,  140( 13)
C 00000B1C    05FE            BALR   15, 14


   347                     LPUT(7,24,0,ADDR(ST(0)))

C 00000B1E    41100007        LA      1,    7(  0,  0)
C 00000B22    5010B040        ST      1,   64(  0, 11)
C 00000B26    41B0B048        LA     11,   72(  0, 11)
C 00000B2A    41100018        LA      1,   24(  0,  0)
C 00000B2E    5AB0D050        A      11,   80(  0, 13)
C 00000B32    5010B000        ST      1,    0(  0, 11)
C 00000B36    41B0B004        LA     11,    4(  0, 11)
C 00000B3A    1F11            SLR     1,  1
C 00000B3C    5010B000        ST      1,    0(  0, 11)
C 00000B40    41B0B008        LA     11,    8(  0, 11)
C 00000B44    1F11            SLR     1,  1
C 00000B46    4130915C        LA      3,  348(  0,  9)
C 00000B4A    45F0C05C        BAL    15,   92(  0, 12)
C 00000B4E    4111F000        LA      1,    0(  1, 15)
C 00000B52    5AB0D050        A      11,   80(  0, 13)
C 00000B56    5010B000        ST      1,    0(  0, 11)
C 00000B5A    4100004C        LA      0,   76(  0,  0)
C 00000B5E    1BB0            SR     11,  0
C 00000B60    904EB010        STM     4, 14,   16( 11)
C 00000B64    98CED1D8        LM     12, 14,  472( 13)
C 00000B68    05FE            BALR   15, 14


   348            %RETURN

C 00000B6A    D203D0148000    MVC     20(  4, 13),    0(  8)
C 00000B70    984F8010        LM      4, 15,   16(  8)
C 00000B74    07FF            BCR    15, 15


   349            129:     %PRINTTEXT'
   350'           PROGRAM CONTAINS'; WRITE(FAULTY,2); %PRINTTEXT' FAULTS'; ->120

C 00000B76    45F0C078        BAL    15,  120(  0, 12)
C 00000B7A    110A            LNR     0, 10
C 00000B7C    50524F47        ST      5, 3911(  2,  4)
C 00000B80    5241
C 00000B82    4D20
C 00000B84    434F4E54        IC      4, 3668( 15,  4)
C 00000B88    41494E53        LA      4, 3667(  9,  4)



C 00000B8C    1F11            SLR     1,  1
C 00000B8E    431090CC        IC      1,  204(  0,  9)
C 00000B92    41200002        LA      2,    2(  0,  0)
C 00000B96    45F0C010        BAL    15,   16(  0, 12)



C 00000B9A    45F0C078        BAL    15,  120(  0, 12)
C 00000B9E    0720            BCR     2,  0
C 00000BA0    4641554C        BCT     4, 1356(  1,  5)
C 00000BA4    5453C010        N       5,   16(  3, 12)



C 00000BA6    47F0A378        BC     15,  888(  0, 10)


   351                     %END
D 00000000    C2 C2 C2 C2 01 32 08 08 46 49 4E 41 4C 49 53 45 FF FF FF FF


C 00000BAA    D203D0148000    MVC     20(  4, 13),    0(  8)
C 00000BB0    984F8010        LM      4, 15,   16(  8)
C 00000BB4    07FF            BCR    15, 15


   352                 %ROUTINE     READ LINE(%BYTEINTEGER N)

C 00000BB6    0000
C 00000BB8    0000
C 00000BBA    47FA0000        BC     15,    0( 10,  0)
C 00000BBE    50F0B03C        ST     15,   60(  0, 11)
C 00000BC2    D203B000D014    MVC      0(  4, 11),   20( 13)
C 00000BC8    41000160        LA      0,  352(  0,  0)
C 00000BCC    4000D014        STH     0,   20(  0, 13)
C 00000BD0    188B            LR      8, 11
C 00000BD2    41BB0000        LA     11,    0( 11,  0)
C 00000BD6    41000004        LA      0,    4(  0,  0)
C 00000BDA    59BD0044        C      11,   68( 13,  0)
C 00000BDE    4720C054        BC      2,   84(  0, 12)
C 00000BE2    05A0            BALR   10,  0


   353                     %SHORTROUTINE
   354                     %INTEGER DEL
   355                     %BYTEINTEGER NP
   356                     %COMMENT ABOUT 30% CPU TIME OF COMPILATION IS SPENT IN THIS
   357                     %COMMENT ROUTINE AS WRITTEN. A HAND CODED VERSION USING I
   358                     %COMMENT ISO CARD NOT READ SYMBOL IS USED IN PRODUCTION VRSN
   359                     Q=1; LINE=LINE+1

C 00000BE4    41100001        LA      1,    1(  0,  0)
C 00000BE8    50109114        ST      1,  276(  0,  9)



C 00000BEC    41100001        LA      1,    1(  0,  0)
C 00000BF0    5A10907C        A       1,  124(  0,  9)
C 00000BF4    5010907C        ST      1,  124(  0,  9)


   360                     LENGTH=0; DEL=0

C 00000BF8    1F11            SLR     1,  1
C 00000BFA    50109080        ST      1,  128(  0,  9)



C 00000BFE    1F11            SLR     1,  1
C 00000C00    50108044        ST      1,   68(  0,  8)


   361            1:       ->START %UNLESS N=0 %AND NEXT SYMBOL=10;! IGNORE EMPTY LINES

C 00000C04    95008043        CLI     67(  8),  0
C 00000C08    477A0000        BC      7,    0( 10,  0)
C 00000C0C    41000002        LA      0,    2(  0,  0)
C 00000C10    9041B010        STM     4,  1,   16( 11)
C 00000C14    98CED08C        LM     12, 14,  140( 13)
C 00000C18    05FE            BALR   15, 14
C 00000C1A    4120000A        LA      2,   10(  0,  0)
C 00000C1E    1912            CR      1,  2
C 00000C20    477A0000        BC      7,    0( 10,  0)


   362                     SKIP SYMBOL; ->1;                       ! IN PROGRAM MODE ONLY

C 00000C24    41000001        LA      0,    1(  0,  0)
C 00000C28    9041B010        STM     4,  1,   16( 11)
C 00000C2C    98CED08C        LM     12, 14,  140( 13)
C 00000C30    05FE            BALR   15, 14



C 00000C32    47F0A020        BC     15,   32(  0, 10)


   363            START:   ->2 %IF LIST=0

C 00000C36    950090D2        CLI    210(  9),  0
C 00000C3A    478A0000        BC      8,    0( 10,  0)


   364                     WRITE(LINE,5)

C 00000C3E    5810907C        L       1,  124(  0,  9)
C 00000C42    41200005        LA      2,    5(  0,  0)
C 00000C46    45F0C010        BAL    15,   16(  0, 12)


   365                     PRINT SYMBOL(M'''') %IF N#0

C 00000C4A    95008043        CLI     67(  8),  0
C 00000C4E    478A0080        BC      8,  128( 10,  0)
C 00000C52    41100027        LA      1,   39(  0,  0)
C 00000C56    41000003        LA      0,    3(  0,  0)
C 00000C5A    9041B010        STM     4,  1,   16( 11)
C 00000C5E    98CED08C        LM     12, 14,  140( 13)
C 00000C62    05FE            BALR   15, 14


   366                     SPACES(4*LEVEL-N)

C 00000C64    41100004        LA      1,    4(  0,  0)
C 00000C68    5C0090A8        M       0,  168(  0,  9)
C 00000C6C    1F22            SLR     2,  2
C 00000C6E    43208043        IC      2,   67(  0,  8)
C 00000C72    1B12            SR      1,  2
C 00000C74    1821            LR      2,  1
C 00000C76    41100020        LA      1,   32(  0,  0)
C 00000C7A    45F0C038        BAL    15,   56(  0, 12)


   367            2:       READ SYMBOL(I)

C 00000C7E    41000001        LA      0,    1(  0,  0)
C 00000C82    9041B010        STM     4,  1,   16( 11)
C 00000C86    98CED08C        LM     12, 14,  140( 13)
C 00000C8A    05FE            BALR   15, 14
C 00000C8C    5010904C        ST      1,   76(  0,  9)


   368                     PRINT SYMBOL(I) %UNLESS LIST=0

C 00000C90    950090D2        CLI    210(  9),  0
C 00000C94    478A00C6        BC      8,  198( 10,  0)
C 00000C98    5810904C        L       1,   76(  0,  9)
C 00000C9C    41000003        LA      0,    3(  0,  0)
C 00000CA0    9041B010        STM     4,  1,   16( 11)
C 00000CA4    98CED08C        LM     12, 14,  140( 13)
C 00000CA8    05FE            BALR   15, 14


   369                     ->4 %UNLESS N=0

C 00000CAA    95008043        CLI     67(  8),  0
C 00000CAE    477A0000        BC      7,    0( 10,  0)


   370                     ->3 %UNLESS I='%'

C 00000CB2    41100025        LA      1,   37(  0,  0)
C 00000CB6    5910904C        C       1,   76(  0,  9)
C 00000CBA    477A0000        BC      7,    0( 10,  0)


   371                     DEL=128; ->2

C 00000CBE    41100080        LA      1,  128(  0,  0)
C 00000CC2    50108044        ST      1,   68(  0,  8)



C 00000CC6    47F0A09A        BC     15,  154(  0, 10)


   372            3:       DEL=0 %UNLESS 'A'<=I<='Z'

C 00000CCA    5810904C        L       1,   76(  0,  9)
C 00000CCE    41200041        LA      2,   65(  0,  0)
C 00000CD2    1921            CR      2,  1
C 00000CD4    473A00FE        BC      3,  254( 10,  0)
C 00000CD8    4120005A        LA      2,   90(  0,  0)
C 00000CDC    1912            CR      1,  2
C 00000CDE    47CA0104        BC     12,  260( 10,  0)
C 00000CE2    1F11            SLR     1,  1
C 00000CE4    50108044        ST      1,   68(  0,  8)


   373                     ->2 %IF I=' '

C 00000CE8    41100020        LA      1,   32(  0,  0)
C 00000CEC    5910904C        C       1,   76(  0,  9)
C 00000CF0    4780A09A        BC      8,  154(  0, 10)


   374            4:       LENGTH=LENGTH+1

C 00000CF4    41100001        LA      1,    1(  0,  0)
C 00000CF8    5A109080        A       1,  128(  0,  9)
C 00000CFC    50109080        ST      1,  128(  0,  9)


   375                     CC(LENGTH)=I!DEL

C 00000D00    5840904C        L       4,   76(  0,  9)
C 00000D04    56408044        O       4,   68(  0,  8)
C 00000D08    58109080        L       1,  128(  0,  9)
C 00000D0C    413092BC        LA      3,  700(  0,  9)
C 00000D10    45F0C05C        BAL    15,   92(  0, 12)
C 00000D14    4241F000        STC     4,    0(  1, 15)
C 00000D18    5540D018        CL      4,   24(  0, 13)
C 00000D1C    472C0058        BC      2,   88( 12,  0)


   376                     %IF I=M'''' %THEN N=1-N

C 00000D20    41100027        LA      1,   39(  0,  0)
C 00000D24    5910904C        C       1,   76(  0,  9)
C 00000D28    477A0160        BC      7,  352( 10,  0)
C 00000D2C    41100001        LA      1,    1(  0,  0)
C 00000D30    1F22            SLR     2,  2
C 00000D32    43208043        IC      2,   67(  0,  8)
C 00000D36    1B12            SR      1,  2
C 00000D38    42108043        STC     1,   67(  0,  8)
C 00000D3C    5510D018        CL      1,   24(  0, 13)
C 00000D40    472C0058        BC      2,   88( 12,  0)


   377                     ->2 %UNLESS I=10

C 00000D44    4110000A        LA      1,   10(  0,  0)
C 00000D48    5910904C        C       1,   76(  0,  9)
C 00000D4C    4770A09A        BC      7,  154(  0, 10)


   378                     %RETURN %UNLESS CC(LENGTH-1)= 'C'+128

C 00000D50    58109080        L       1,  128(  0,  9)
C 00000D54    0610            BCTR    1,  0
C 00000D56    413092BC        LA      3,  700(  0,  9)
C 00000D5A    45F0C05C        BAL    15,   92(  0, 12)
C 00000D5E    4311F000        IC      1,    0(  1, 15)
C 00000D62    5410D018        N       1,   24(  0, 13)
C 00000D66    1851            LR      5,  1
C 00000D68    41100080        LA      1,  128(  0,  0)
C 00000D6C    41200043        LA      2,   67(  0,  0)
C 00000D70    1A12            AR      1,  2
C 00000D72    1915            CR      1,  5
C 00000D74    478A01A0        BC      8,  416( 10,  0)
C 00000D78    D203D0148000    MVC     20(  4, 13),    0(  8)
C 00000D7E    984F8010        LM      4, 15,   16(  8)
C 00000D82    07FF            BCR    15, 15


   379                     LENGTH=LENGTH-1

C 00000D84    58109080        L       1,  128(  0,  9)
C 00000D88    0610            BCTR    1,  0
C 00000D8A    50109080        ST      1,  128(  0,  9)


   380                     ->2 %IF LIST=0

C 00000D8E    950090D2        CLI    210(  9),  0
C 00000D92    4780A09A        BC      8,  154(  0, 10)


   381                     SPACES(5); PRINTSYMBOL('C'); SPACES(4*LEVEL); ->2

C 00000D96    41200005        LA      2,    5(  0,  0)
C 00000D9A    41100020        LA      1,   32(  0,  0)
C 00000D9E    45F0C038        BAL    15,   56(  0, 12)



C 00000DA2    41100043        LA      1,   67(  0,  0)
C 00000DA6    41000003        LA      0,    3(  0,  0)
C 00000DAA    9041B010        STM     4,  1,   16( 11)
C 00000DAE    98CED08C        LM     12, 14,  140( 13)
C 00000DB2    05FE            BALR   15, 14



C 00000DB4    41100004        LA      1,    4(  0,  0)
C 00000DB8    5C0090A8        M       0,  168(  0,  9)
C 00000DBC    1821            LR      2,  1
C 00000DBE    41100020        LA      1,   32(  0,  0)
C 00000DC2    45F0C038        BAL    15,   56(  0, 12)



C 00000DC6    47F0A09A        BC     15,  154(  0, 10)


   382                     %END
D 00000014    C2 C2 C2 C2 01 60 08 08 52 45 41 44 4C 49 4E 45 09 80 48 02 4E 50 00 00 01 80 44 03 44 45 4C 00 09 80 43 01 4E 00 00 01 FF FF FF FF


C 00000DCA    D203D0148000    MVC     20(  4, 13),    0(  8)
C 00000DD0    984F8010        LM      4, 15,   16(  8)
C 00000DD4    07FF            BCR    15, 15


   383                 %ROUTINE     FAULT(%BYTEINTEGER N)

C 00000DD6    0000
C 00000DD8    0000
C 00000DDA    47FA0000        BC     15,    0( 10,  0)
C 00000DDE    50F0B03C        ST     15,   60(  0, 11)
C 00000DE2    D203B000D014    MVC      0(  4, 11),   20( 13)
C 00000DE8    4100017F        LA      0,  383(  0,  0)
C 00000DEC    4000D014        STH     0,   20(  0, 13)
C 00000DF0    188B            LR      8, 11
C 00000DF2    41BB0000        LA     11,    0( 11,  0)
C 00000DF6    41000004        LA      0,    4(  0,  0)
C 00000DFA    59BD0044        C      11,   68( 13,  0)
C 00000DFE    4720C054        BC      2,   84(  0, 12)
C 00000E02    05A0            BALR   10,  0


   384                     %SHORTROUTINE
   385                     %INTEGER I,J,QP
   386                     %PRINTTEXT'
   387'           *';      WRITE(LINE,4); I=3; I=3*LEVEL %IF LIST=0     ; SPACES(I)

C 00000E04    45F0C078        BAL    15,  120(  0, 12)
C 00000E08    020A
C 00000E0A    2A00            ADR     0,  0



C 00000E0C    5810907C        L       1,  124(  0,  9)
C 00000E10    41200004        LA      2,    4(  0,  0)
C 00000E14    45F0C010        BAL    15,   16(  0, 12)



C 00000E18    41100003        LA      1,    3(  0,  0)
C 00000E1C    50108044        ST      1,   68(  0,  8)



C 00000E20    950090D2        CLI    210(  9),  0
C 00000E24    477A0030        BC      7,   48( 10,  0)
C 00000E28    41100003        LA      1,    3(  0,  0)
C 00000E2C    5C0090A8        M       0,  168(  0,  9)
C 00000E30    50108044        ST      1,   68(  0,  8)



C 00000E34    58208044        L       2,   68(  0,  8)
C 00000E38    41100020        LA      1,   32(  0,  0)
C 00000E3C    45F0C038        BAL    15,   56(  0, 12)


   388                     FAULTY=FAULTY+1

C 00000E40    41100001        LA      1,    1(  0,  0)
C 00000E44    1F22            SLR     2,  2
C 00000E46    432090CC        IC      2,  204(  0,  9)
C 00000E4A    1A12            AR      1,  2
C 00000E4C    421090CC        STC     1,  204(  0,  9)
C 00000E50    5510D018        CL      1,   24(  0, 13)
C 00000E54    472C0058        BC      2,   88( 12,  0)


   389                     ->9 %IF N=100; %PRINTTEXT'FAULT'; WRITE(N,2)

C 00000E58    95648043        CLI     67(  8), 100
C 00000E5C    478A0000        BC      8,    0( 10,  0)



C 00000E60    45F0C078        BAL    15,  120(  0, 12)
C 00000E64    0546            BALR    4,  6
C 00000E66    41554C54        LA      5, 3156(  5,  4)



C 00000E6A    1F11            SLR     1,  1
C 00000E6C    43108043        IC      1,   67(  0,  8)
C 00000E70    41200002        LA      2,    2(  0,  0)
C 00000E74    45F0C010        BAL    15,   16(  0, 12)


   390                     ->2 %IF N<100; %PRINTTEXT' DISASTER '

C 00000E78    95648043        CLI     67(  8), 100
C 00000E7C    474A0000        BC      4,    0( 10,  0)



C 00000E80    45F0C078        BAL    15,  120(  0, 12)
C 00000E84    0A20            SVC     2,  0
C 00000E86    44495341        EX      4,  833(  9,  5)
C 00000E8A    5354
C 00000E8C    45522000        BAL     5,    0(  2,  2)


   391                     %MONITORSTOP

C 00000E90    45F0C030        BAL    15,   48(  0, 12)


   392            2:       PRINTNAME(FNAME) %UNLESS 7#N#16; ->99

C 00000E94    1F11            SLR     1,  1
C 00000E96    43108043        IC      1,   67(  0,  8)
C 00000E9A    41200007        LA      2,    7(  0,  0)
C 00000E9E    1921            CR      2,  1
C 00000EA0    478A00AA        BC      8,  170( 10,  0)
C 00000EA4    41200010        LA      2,   16(  0,  0)
C 00000EA8    1912            CR      1,  2
C 00000EAA    477A00B8        BC      7,  184( 10,  0)
C 00000EAE    D203B0409130    MVC     64(  4, 11),  304(  9)
C 00000EB4    5810D230        L       1,  560(  0, 13)
C 00000EB8    45F0D074        BAL    15,  116(  0, 13)



C 00000EBC    47FA0000        BC     15,    0( 10,  0)


   393            9:       %PRINTTEXT'  SYNTAX   '

C 00000EC0    45F0C078        BAL    15,  120(  0, 12)
C 00000EC4    0B20
C 00000EC6    2053            LPDR    5,  3
C 00000EC8    594E5441        C       4, 1089( 14,  5)
C 00000ECC    58202020        L       2,   32(  0,  2)


   394                     ->11 %IF LINE#OLDLINE

C 00000ED0    D503907C9078    CLC    124(  4,  9),  120(  9)
C 00000ED6    477A0000        BC      7,    0( 10,  0)


   395                     QP=Q

C 00000EDA    D203804C9114    MVC     76(  4,  8),  276(  9)


   396                           %CYCLE Q=Q,1,LENGTH-1

C 00000EE0    41409114        LA      4,  276(  0,  9)
C 00000EE4    41200001        LA      2,    1(  0,  0)
C 00000EE8    50208050        ST      2,   80(  0,  8)
C 00000EEC    58309080        L       3,  128(  0,  9)
C 00000EF0    0630            BCTR    3,  0
C 00000EF2    90348054        STM     3,  4,   84(  8)
C 00000EF6    58109114        L       1,  276(  0,  9)
C 00000EFA    50104000        ST      1,    0(  0,  4)


   397                           PRINTSYMBOL(CC(Q))

C 00000EFE    58109114        L       1,  276(  0,  9)
C 00000F02    413092BC        LA      3,  700(  0,  9)
C 00000F06    45F0C05C        BAL    15,   92(  0, 12)
C 00000F0A    4311F000        IC      1,    0(  1, 15)
C 00000F0E    5410D018        N       1,   24(  0, 13)
C 00000F12    41000003        LA      0,    3(  0,  0)
C 00000F16    9041B010        STM     4,  1,   16( 11)
C 00000F1A    98CED08C        LM     12, 14,  140( 13)
C 00000F1E    05FE            BALR   15, 14


   398                           ->10 %IF CC(Q)=';'

C 00000F20    58109114        L       1,  276(  0,  9)
C 00000F24    413092BC        LA      3,  700(  0,  9)
C 00000F28    45F0C05C        BAL    15,   92(  0, 12)
C 00000F2C    4311F000        IC      1,    0(  1, 15)
C 00000F30    5410D018        N       1,   24(  0, 13)
C 00000F34    4120003B        LA      2,   59(  0,  0)
C 00000F38    1912            CR      1,  2
C 00000F3A    478A0000        BC      8,    0( 10,  0)


   399                     %REPEAT

C 00000F3E    98248050        LM      2,  4,   80(  8)
C 00000F42    58104000        L       1,    0(  0,  4)
C 00000F46    8712A0F6        BXLE    1,  2,  246( 10)


   400            10:            Q =Q+1

C 00000F4A    41100001        LA      1,    1(  0,  0)
C 00000F4E    5A109114        A       1,  276(  0,  9)
C 00000F52    50109114        ST      1,  276(  0,  9)


   401                     ->99 %IF I+20+Q-QP>120

C 00000F56    41100014        LA      1,   20(  0,  0)
C 00000F5A    5A108044        A       1,   68(  0,  8)
C 00000F5E    5A109114        A       1,  276(  0,  9)
C 00000F62    5B10804C        S       1,   76(  0,  8)
C 00000F66    41200078        LA      2,  120(  0,  0)
C 00000F6A    1912            CR      1,  2
C 00000F6C    472A0000        BC      2,    0( 10,  0)


   402                     NEWLINE; SPACES(I+QMAX-QP+17)

C 00000F70    4110000A        LA      1,   10(  0,  0)
C 00000F74    41000003        LA      0,    3(  0,  0)
C 00000F78    9041B010        STM     4,  1,   16( 11)
C 00000F7C    98CED08C        LM     12, 14,  140( 13)
C 00000F80    05FE            BALR   15, 14



C 00000F82    58208044        L       2,   68(  0,  8)
C 00000F86    5A209144        A       2,  324(  0,  9)
C 00000F8A    5B20804C        S       2,   76(  0,  8)
C 00000F8E    41100011        LA      1,   17(  0,  0)
C 00000F92    1A21            AR      2,  1
C 00000F94    41100020        LA      1,   32(  0,  0)
C 00000F98    45F0C038        BAL    15,   56(  0, 12)


   403                     PRINTSYMBOL('!')

C 00000F9C    41100021        LA      1,   33(  0,  0)
C 00000FA0    41000003        LA      0,    3(  0,  0)
C 00000FA4    9041B010        STM     4,  1,   16( 11)
C 00000FA8    98CED08C        LM     12, 14,  140( 13)
C 00000FAC    05FE            BALR   15, 14


   404                     NEWLINE

C 00000FAE    4110000A        LA      1,   10(  0,  0)
C 00000FB2    41000003        LA      0,    3(  0,  0)
C 00000FB6    9041B010        STM     4,  1,   16( 11)
C 00000FBA    98CED08C        LM     12, 14,  140( 13)
C 00000FBE    05FE            BALR   15, 14


   405                     ->99

C 00000FC0    47FA0000        BC     15,    0( 10,  0)


   406            11:      %PRINTTEXT'
   407'                    TEXT MODE FAILURE '; WRITE(LINE-OLDLINE,1)

C 00000FC4    45F0C078        BAL    15,  120(  0, 12)
C 00000FC8    1C0A            MR      0, 10
C 00000FCA    2020            LPDR    2,  0
C 00000FCC    2020            LPDR    2,  0
C 00000FCE    2020            LPDR    2,  0
C 00000FD0    2020            LPDR    2,  0
C 00000FD2    2054            LPDR    5,  4
C 00000FD4    45585420        BAL     5, 1056(  8,  5)
C 00000FD8    4D4F
C 00000FDA    44452046        EX      4,   70(  5,  2)
C 00000FDE    41494C55        LA      4, 3157(  9,  4)
C 00000FE2    5245
C 00000FE4    2000            LPDR    0,  0



C 00000FE6    5810907C        L       1,  124(  0,  9)
C 00000FEA    5B109078        S       1,  120(  0,  9)
C 00000FEE    41200001        LA      2,    1(  0,  0)
C 00000FF2    45F0C010        BAL    15,   16(  0, 12)


   408                     %PRINTTEXT' LINES LOST '

C 00000FF6    45F0C078        BAL    15,  120(  0, 12)
C 00000FFA    0C20
C 00000FFC    4C494E45        MH      4, 3653(  9,  4)
C 00001000    5320
C 00001002    4C4F5354        MH      4,  852( 15,  5)
C 00001006    2000            LPDR    0,  0


   409                     NEWLINE; Q=QMAX

C 00001008    4110000A        LA      1,   10(  0,  0)
C 0000100C    41000003        LA      0,    3(  0,  0)
C 00001010    9041B010        STM     4,  1,   16( 11)
C 00001014    98CED08C        LM     12, 14,  140( 13)
C 00001018    05FE            BALR   15, 14



C 0000101A    D20391149144    MVC    276(  4,  9),  324(  9)


   410            99:      NEWLINE; %END

C 00001020    4110000A        LA      1,   10(  0,  0)
C 00001024    41000003        LA      0,    3(  0,  0)
C 00001028    9041B010        STM     4,  1,   16( 11)
C 0000102C    98CED08C        LM     12, 14,  140( 13)
C 00001030    05FE            BALR   15, 14


D 00000040    C2 C2 C2 C2 01 7F 08 05 46 41 55 4C 54 FE A6 B8 01 80 4C 02 51 50 00 00 01 80 48 01 4A 45 4C 00 01 80 44 01 49 00 00 01 09 80 43 01 4E 00 00 17 FF FF FF FF


C 00001032    D203D0148000    MVC     20(  4, 13),    0(  8)
C 00001038    984F8010        LM      4, 15,   16(  8)
C 0000103C    07FF            BCR    15, 15


   411                       %ROUTINE COMPARE

C 0000103E    0000
C 00001040    0000
C 00001042    47FA0000        BC     15,    0( 10,  0)
C 00001046    50F0B03C        ST     15,   60(  0, 11)
C 0000104A    D203B000D014    MVC      0(  4, 11),   20( 13)
C 00001050    4100019B        LA      0,  411(  0,  0)
C 00001054    4000D014        STH     0,   20(  0, 13)
C 00001058    188B            LR      8, 11
C 0000105A    41BB0000        LA     11,    0( 11,  0)
C 0000105E    41000004        LA      0,    4(  0,  0)
C 00001062    59BD0044        C      11,   68( 13,  0)
C 00001066    4720C054        BC      2,   84(  0, 12)
C 0000106A    05A0            BALR   10,  0


   412                     %SHORTROUTINE
   413                     %INTEGER RA,RP,RQ,RR,RS,MARKER
   414                     %SWITCH BIP(1000:1019)

C 0000106C    47FA0000        BC     15,    0( 10,  0)
C 00001070    0200
C 00001072    03E8
C 00001074    0000
C 00001076    03FB
C 00001078    0000
C 0000107A    0000
C 0000107C    0000
C 0000107E    0000
C 00001080    0000
C 00001082    0000
C 00001084    0000
C 00001086    0000
C 00001088    0000
C 0000108A    0000
C 0000108C    0000
C 0000108E    0000
C 00001090    0000
C 00001092    0000
C 00001094    0000
C 00001096    0000
C 00001098    0000
C 0000109A    0000
C 0000109C    0000
C 0000109E    0000
C 000010A0    0000
C 000010A2    0000


   415                     RP=SYMBOL(P)

C 000010A4    58109110        L       1,  272(  0,  9)
C 000010A8    4130D0B8        LA      3,  184(  0, 13)
C 000010AC    45F0C05C        BAL    15,   92(  0, 12)
C 000010B0    4811F000        LH      1,    0(  1, 15)
C 000010B4    50108044        ST      1,   68(  0,  8)


   416                     RQ=Q; RR=R;                   ! RESET VALUES OF LINE&AR PTRS

C 000010B8    D20380489114    MVC     72(  4,  8),  276(  9)



C 000010BE    D203804C9118    MVC     76(  4,  8),  280(  9)


   417                     A(R)=1;                       ! FIRST ALTERNATIVE TO BE TRIED

C 000010C4    41400001        LA      4,    1(  0,  0)
C 000010C8    58109118        L       1,  280(  0,  9)
C 000010CC    413092FC        LA      3,  764(  0,  9)
C 000010D0    45F0C05C        BAL    15,   92(  0, 12)
C 000010D4    4041F000        STH     4,    0(  1, 15)
C 000010D8    494F1000        CH      4,    0( 15,  1)
C 000010DC    477C0058        BC      7,   88( 12,  0)


   418                     P=P+1; RA=SYMBOL(P); RS=P;    ! RA TO NEXT PHRASE ALTERNATIVE

C 000010E0    41100001        LA      1,    1(  0,  0)
C 000010E4    5A109110        A       1,  272(  0,  9)
C 000010E8    50109110        ST      1,  272(  0,  9)



C 000010EC    58109110        L       1,  272(  0,  9)
C 000010F0    4130D0B8        LA      3,  184(  0, 13)
C 000010F4    45F0C05C        BAL    15,   92(  0, 12)
C 000010F8    4811F000        LH      1,    0(  1, 15)
C 000010FC    50108040        ST      1,   64(  0,  8)



C 00001100    D20380509110    MVC     80(  4,  8),  272(  9)


   419                     %COMMENT  ROUTINE REALLY STARTS HERE
   420            1:       R=R+1

C 00001106    41100001        LA      1,    1(  0,  0)
C 0000110A    5A109118        A       1,  280(  0,  9)
C 0000110E    50109118        ST      1,  280(  0,  9)


   421            BIP(1000):2:                           ! SUCCESS ON TO NEXT ITEM
   422                     RS=RS+1; ->8 %IF RS=RA;       ! RS=NEXT ALTERNATIVE MEANS THAT

C 00001112    41100001        LA      1,    1(  0,  0)
C 00001116    5A108050        A       1,   80(  0,  8)
C 0000111A    50108050        ST      1,   80(  0,  8)



C 0000111E    D50380508040    CLC     80(  4,  8),   64(  8)
C 00001124    478A0000        BC      8,    0( 10,  0)


   423                                                   ! THIS ALT HAS BEEN COMPLETED SO
   424                                                   ! EXIT WITH HIT=1
   425                     ITEM=SYMBOL(RS);              ! NEXT BRICK IN THE CURRENT ALT

C 00001128    58108050        L       1,   80(  0,  8)
C 0000112C    4130D0B8        LA      3,  184(  0, 13)
C 00001130    45F0C05C        BAL    15,   92(  0, 12)
C 00001134    4811F000        LH      1,    0(  1, 15)
C 00001138    50109108        ST      1,  264(  0,  9)


   426                     ->4 %IF ITEM>=1300;           ! BRICK IS A PHRASE TYPE

C 0000113C    41100514        LA      1, 1300(  0,  0)
C 00001140    59109108        C       1,  264(  0,  9)
C 00001144    47CA0000        BC     12,    0( 10,  0)


   427                     ->6 %IF ITEM>=1000;           ! BRICK IS BUILT IN PHRASE

C 00001148    411003E8        LA      1, 1000(  0,  0)
C 0000114C    59109108        C       1,  264(  0,  9)
C 00001150    47CA0000        BC     12,    0( 10,  0)


   428                     %CYCLE J=1,1,CLETT(ITEM);     ! BRICK IS LITERAL

C 00001154    41409050        LA      4,   80(  0,  9)
C 00001158    41200001        LA      2,    1(  0,  0)
C 0000115C    50208058        ST      2,   88(  0,  8)
C 00001160    58109108        L       1,  264(  0,  9)
C 00001164    4130D0A8        LA      3,  168(  0, 13)
C 00001168    45F0C05C        BAL    15,   92(  0, 12)
C 0000116C    1F33            SLR     3,  3
C 0000116E    4331F000        IC      3,    0(  1, 15)
C 00001172    9034805C        STM     3,  4,   92(  8)
C 00001176    41100001        LA      1,    1(  0,  0)
C 0000117A    50104000        ST      1,    0(  0,  4)


   429                     ->3 %UNLESS CC(Q)=CLETT(J+ITEM)

C 0000117E    58109114        L       1,  276(  0,  9)
C 00001182    413092BC        LA      3,  700(  0,  9)
C 00001186    45F0C05C        BAL    15,   92(  0, 12)
C 0000118A    4311F000        IC      1,    0(  1, 15)
C 0000118E    5410D018        N       1,   24(  0, 13)
C 00001192    1851            LR      5,  1
C 00001194    58109050        L       1,   80(  0,  9)
C 00001198    5A109108        A       1,  264(  0,  9)
C 0000119C    4130D0A8        LA      3,  168(  0, 13)
C 000011A0    45F0C05C        BAL    15,   92(  0, 12)
C 000011A4    4311F000        IC      1,    0(  1, 15)
C 000011A8    5410D018        N       1,   24(  0, 13)
C 000011AC    1915            CR      1,  5
C 000011AE    477A0000        BC      7,    0( 10,  0)


   430                     Q=Q+1; %REPEAT;               !CHECK IT WITH LITERAL DICT ENTRY

C 000011B2    41100001        LA      1,    1(  0,  0)
C 000011B6    5A109114        A       1,  276(  0,  9)
C 000011BA    50109114        ST      1,  276(  0,  9)



C 000011BE    98248058        LM      2,  4,   88(  8)
C 000011C2    58104000        L       1,    0(  0,  4)
C 000011C6    8712A10E        BXLE    1,  2,  270( 10)


   431                     ->2;                          ! MATCHED SUCCESSFULLY

C 000011CA    47F0A0A6        BC     15,  166(  0, 10)


   432            4:                                     ! PHRASE TYPE ALTERNATE
   433                     P=ITEM; COMPARE;              ! RCALL COMPARE TO RECOGNISE IT

C 000011CE    D20391109108    MVC    272(  4,  9),  264(  9)



C 000011D4    5810D200        L       1,  512(  0, 13)
C 000011D8    45F0D074        BAL    15,  116(  0, 13)


   434                     ->2 %IF HIT#0;                ! FOUND

C 000011DC    950090CE        CLI    206(  9),  0
C 000011E0    4770A0A6        BC      7,  166(  0, 10)


   435            3:       QMAX=Q %IF Q>QMAX;            ! FAILURE - NOTE POSITION REACHD

C 000011E4    58109144        L       1,  324(  0,  9)
C 000011E8    59109114        C       1,  276(  0,  9)
C 000011EC    47BA018A        BC     11,  394( 10,  0)
C 000011F0    D20391449114    MVC    324(  4,  9),  276(  9)


   436                     Q=RQ; R=RR;                   ! RESET LINE AND A.R. POINTERS

C 000011F6    D20391148048    MVC    276(  4,  9),   72(  8)



C 000011FC    D2039118804C    MVC    280(  4,  9),   76(  8)


   437                     ->7 %IF RA=RP;                !TOTAL FAILURE NO ALT LEFT TO TRY

C 00001202    D50380408044    CLC     64(  4,  8),   68(  8)
C 00001208    478A0000        BC      8,    0( 10,  0)


   438                     RS=RA; A(R)=A(R)+1;           ! MOVE TO NEXT ALT OF PHRASE

C 0000120C    D20380508040    MVC     80(  4,  8),   64(  8)



C 00001212    58109118        L       1,  280(  0,  9)
C 00001216    413092FC        LA      3,  764(  0,  9)
C 0000121A    45F0C05C        BAL    15,   92(  0, 12)
C 0000121E    4871F000        LH      7,    0(  1, 15)
C 00001222    41400001        LA      4,    1(  0,  0)
C 00001226    1A74            AR      7,  4
C 00001228    1847            LR      4,  7
C 0000122A    58109118        L       1,  280(  0,  9)
C 0000122E    413092FC        LA      3,  764(  0,  9)
C 00001232    45F0C05C        BAL    15,   92(  0, 12)
C 00001236    4041F000        STH     4,    0(  1, 15)
C 0000123A    494F1000        CH      4,    0( 15,  1)
C 0000123E    477C0058        BC      7,   88( 12,  0)


   439                     RA=SYMBOL(RA); ->1

C 00001242    58108040        L       1,   64(  0,  8)
C 00001246    4130D0B8        LA      3,  184(  0, 13)
C 0000124A    45F0C05C        BAL    15,   92(  0, 12)
C 0000124E    4811F000        LH      1,    0(  1, 15)
C 00001252    50108040        ST      1,   64(  0,  8)



C 00001256    47F0A09A        BC     15,  154(  0, 10)


   440            8:                                     ! COMPLETE SUCCESS
   441                     HIT=1; %RETURN

C 0000125A    920190CE        MVI    206(  9),  1



C 0000125E    D203D0148000    MVC     20(  4, 13),    0(  8)
C 00001264    984F8010        LM      4, 15,   16(  8)
C 00001268    07FF            BCR    15, 15


   442            7:                                     ! UTTER FAILURE
   443                     HIT=0; %RETURN

C 0000126A    920090CE        MVI    206(  9),  0



C 0000126E    D203D0148000    MVC     20(  4, 13),    0(  8)
C 00001274    984F8010        LM      4, 15,   16(  8)
C 00001278    07FF            BCR    15, 15


   444            6:                                     ! BUILT IN PHRASE
   445                     I=CC(Q); ->BIP(ITEM);         ! SO SWITCH TO IT

C 0000127A    58109114        L       1,  276(  0,  9)
C 0000127E    413092BC        LA      3,  700(  0,  9)
C 00001282    45F0C05C        BAL    15,   92(  0, 12)
C 00001286    4311F000        IC      1,    0(  1, 15)
C 0000128A    5410D018        N       1,   24(  0, 13)
C 0000128E    5010904C        ST      1,   76(  0,  9)



C 00001292    58109108        L       1,  264(  0,  9)
C 00001296    4120A004        LA      2,    4(  0, 10)
C 0000129A    45F0C01C        BAL    15,   28(  0, 12)


   446            BIP(1001):                             ! PHRASE NAME
   447                           PNAME; ->1 %IF HIT=1; ->3

C 0000129E    5810D204        L       1,  516(  0, 13)
C 000012A2    45F0D074        BAL    15,  116(  0, 13)



C 000012A6    950190CE        CLI    206(  9),  1
C 000012AA    4780A09A        BC      8,  154(  0, 10)



C 000012AE    47F0A178        BC     15,  376(  0, 10)


   448            BIP(1002):                             ! PHRASE U/CODE INSRN
   449                     ->3 %UNLESS 'A'<=I<='Z'

C 000012B2    5810904C        L       1,   76(  0,  9)
C 000012B6    41200041        LA      2,   65(  0,  0)
C 000012BA    1921            CR      2,  1
C 000012BC    4730A178        BC      3,  376(  0, 10)
C 000012C0    4120005A        LA      2,   90(  0,  0)
C 000012C4    1912            CR      1,  2
C 000012C6    4730A178        BC      3,  376(  0, 10)


   450                     S=I; J=1

C 000012CA    D203911C904C    MVC    284(  4,  9),   76(  9)



C 000012D0    41100001        LA      1,    1(  0,  0)
C 000012D4    50109050        ST      1,   80(  0,  9)


   451            200:     Q=Q+1; I=CC(Q)

C 000012D8    41100001        LA      1,    1(  0,  0)
C 000012DC    5A109114        A       1,  276(  0,  9)
C 000012E0    50109114        ST      1,  276(  0,  9)



C 000012E4    58109114        L       1,  276(  0,  9)
C 000012E8    413092BC        LA      3,  700(  0,  9)
C 000012EC    45F0C05C        BAL    15,   92(  0, 12)
C 000012F0    4311F000        IC      1,    0(  1, 15)
C 000012F4    5410D018        N       1,   24(  0, 13)
C 000012F8    5010904C        ST      1,   76(  0,  9)


   452                     ->201 %UNLESS 'A'<=I<='Z'

C 000012FC    5810904C        L       1,   76(  0,  9)
C 00001300    41200041        LA      2,   65(  0,  0)
C 00001304    1921            CR      2,  1
C 00001306    473A0000        BC      3,    0( 10,  0)
C 0000130A    4120005A        LA      2,   90(  0,  0)
C 0000130E    1912            CR      1,  2
C 00001310    473A0000        BC      3,    0( 10,  0)


   453                     S=S<<8!I;J=J+1; ->200

C 00001314    5810911C        L       1,  284(  0,  9)
C 00001318    89100008        SLL     1,    8(  0)
C 0000131C    5610904C        O       1,   76(  0,  9)
C 00001320    5010911C        ST      1,  284(  0,  9)



C 00001324    41100001        LA      1,    1(  0,  0)
C 00001328    5A109050        A       1,   80(  0,  9)
C 0000132C    50109050        ST      1,   80(  0,  9)



C 00001330    47F0A26C        BC     15,  620(  0, 10)


   454            201:     ->3 %UNLESS I='_' %AND J<=4

C 00001334    4110005F        LA      1,   95(  0,  0)
C 00001338    5910904C        C       1,   76(  0,  9)
C 0000133C    4770A178        BC      7,  376(  0, 10)
C 00001340    41100004        LA      1,    4(  0,  0)
C 00001344    59109050        C       1,   80(  0,  9)
C 00001348    4750A178        BC      5,  376(  0, 10)


   455                     Q=Q+1; ->2

C 0000134C    41100001        LA      1,    1(  0,  0)
C 00001350    5A109114        A       1,  276(  0,  9)
C 00001354    50109114        ST      1,  276(  0,  9)



C 00001358    47F0A0A6        BC     15,  166(  0, 10)


   456            BIP(1003):                             ! PHRASE CONST
   457                     CONST(0)

C 0000135C    9200B043        MVI     67( 11),  0
C 00001360    5810D208        L       1,  520(  0, 13)
C 00001364    45F0D074        BAL    15,  116(  0, 13)


   458                           ->3 %IF HIT=0

C 00001368    950090CE        CLI    206(  9),  0
C 0000136C    4780A178        BC      8,  376(  0, 10)


   459                     ->1 %IF CTYPE=5

C 00001370    950590D8        CLI    216(  9),  5
C 00001374    4780A09A        BC      8,  154(  0, 10)


   460                     ->26 %IF CTYPE=2;             ! %REAL

C 00001378    950290D8        CLI    216(  9),  2
C 0000137C    478A0000        BC      8,    0( 10,  0)


   461                     ->22 %IF S>>12=0

C 00001380    5810911C        L       1,  284(  0,  9)
C 00001384    8810000C        SRL     1,   12(  0)
C 00001388    1211            LTR     1,  1
C 0000138A    478A0000        BC      8,    0( 10,  0)


   462                     A(R)=1

C 0000138E    41400001        LA      4,    1(  0,  0)
C 00001392    58109118        L       1,  280(  0,  9)
C 00001396    413092FC        LA      3,  764(  0,  9)
C 0000139A    45F0C05C        BAL    15,   92(  0, 12)
C 0000139E    4041F000        STH     4,    0(  1, 15)
C 000013A2    494F1000        CH      4,    0( 15,  1)
C 000013A6    477C0058        BC      7,   88( 12,  0)


   463                     TOAR4(R+1,S); R=R+3; ->2

C 000013AA    41100001        LA      1,    1(  0,  0)
C 000013AE    5A109118        A       1,  280(  0,  9)
C 000013B2    5010B040        ST      1,   64(  0, 11)
C 000013B6    D203B044911C    MVC     68(  4, 11),  284(  9)
C 000013BC    5810D220        L       1,  544(  0, 13)
C 000013C0    45F0D074        BAL    15,  116(  0, 13)



C 000013C4    41100003        LA      1,    3(  0,  0)
C 000013C8    5A109118        A       1,  280(  0,  9)
C 000013CC    50109118        ST      1,  280(  0,  9)



C 000013D0    47F0A0A6        BC     15,  166(  0, 10)


   464            22:      A(R)=9; R=R+1; A(R)=S; ->1

C 000013D4    41400009        LA      4,    9(  0,  0)
C 000013D8    58109118        L       1,  280(  0,  9)
C 000013DC    413092FC        LA      3,  764(  0,  9)
C 000013E0    45F0C05C        BAL    15,   92(  0, 12)
C 000013E4    4041F000        STH     4,    0(  1, 15)
C 000013E8    494F1000        CH      4,    0( 15,  1)
C 000013EC    477C0058        BC      7,   88( 12,  0)



C 000013F0    41100001        LA      1,    1(  0,  0)
C 000013F4    5A109118        A       1,  280(  0,  9)
C 000013F8    50109118        ST      1,  280(  0,  9)



C 000013FC    5840911C        L       4,  284(  0,  9)
C 00001400    58109118        L       1,  280(  0,  9)
C 00001404    413092FC        LA      3,  764(  0,  9)
C 00001408    45F0C05C        BAL    15,   92(  0, 12)
C 0000140C    4041F000        STH     4,    0(  1, 15)
C 00001410    494F1000        CH      4,    0( 15,  1)
C 00001414    477C0058        BC      7,   88( 12,  0)



C 00001418    47F0A09A        BC     15,  154(  0, 10)


   465            26:      A(R)=2; TOAR8(R+1,CVALUE); R=R+5; ->2

C 0000141C    41400002        LA      4,    2(  0,  0)
C 00001420    58109118        L       1,  280(  0,  9)
C 00001424    413092FC        LA      3,  764(  0,  9)
C 00001428    45F0C05C        BAL    15,   92(  0, 12)
C 0000142C    4041F000        STH     4,    0(  1, 15)
C 00001430    494F1000        CH      4,    0( 15,  1)
C 00001434    477C0058        BC      7,   88( 12,  0)



C 00001438    41100001        LA      1,    1(  0,  0)
C 0000143C    5A109118        A       1,  280(  0,  9)
C 00001440    5010B040        ST      1,   64(  0, 11)
C 00001444    686090E0        LD      6,  224(  0,  9)
C 00001448    6060B048        STD     6,   72(  0, 11)
C 0000144C    5810D21C        L       1,  540(  0, 13)
C 00001450    45F0D074        BAL    15,  116(  0, 13)



C 00001454    41100005        LA      1,    5(  0,  0)
C 00001458    5A109118        A       1,  280(  0,  9)
C 0000145C    50109118        ST      1,  280(  0,  9)



C 00001460    47F0A0A6        BC     15,  166(  0, 10)


   466            BIP(1005):                             ! PHRASE N
   467                     ->3 %UNLESS '0'<=I<='9';      ! MUST START WITH DIGIT

C 00001464    5810904C        L       1,   76(  0,  9)
C 00001468    41200030        LA      2,   48(  0,  0)
C 0000146C    1921            CR      2,  1
C 0000146E    4730A178        BC      3,  376(  0, 10)
C 00001472    41200039        LA      2,   57(  0,  0)
C 00001476    1912            CR      1,  2
C 00001478    4730A178        BC      3,  376(  0, 10)


   468                     CONST(2); A(R)=S; ->1

C 0000147C    9202B043        MVI     67( 11),  2
C 00001480    5810D208        L       1,  520(  0, 13)
C 00001484    45F0D074        BAL    15,  116(  0, 13)



C 00001488    5840911C        L       4,  284(  0,  9)
C 0000148C    58109118        L       1,  280(  0,  9)
C 00001490    413092FC        LA      3,  764(  0,  9)
C 00001494    45F0C05C        BAL    15,   92(  0, 12)
C 00001498    4041F000        STH     4,    0(  1, 15)
C 0000149C    494F1000        CH      4,    0( 15,  1)
C 000014A0    477C0058        BC      7,   88( 12,  0)



C 000014A4    47F0A09A        BC     15,  154(  0, 10)


   469            BIP(1004):                             ! PHRASE CONSTLIST
   470                     CONSTLIST;->1

C 000014A8    5810D20C        L       1,  524(  0, 13)
C 000014AC    45F0D074        BAL    15,  116(  0, 13)



C 000014B0    47F0A09A        BC     15,  154(  0, 10)


   471            BIP(1006):                             ! PHRASE S=SEPARATOR
   472                     ->2 %IF I=10

C 000014B4    4110000A        LA      1,   10(  0,  0)
C 000014B8    5910904C        C       1,   76(  0,  9)
C 000014BC    4780A0A6        BC      8,  166(  0, 10)


   473                     ->3 %UNLESS I=';'

C 000014C0    4110003B        LA      1,   59(  0,  0)
C 000014C4    5910904C        C       1,   76(  0,  9)
C 000014C8    4770A178        BC      7,  376(  0, 10)


   474                     Q=Q+1; ->2

C 000014CC    41100001        LA      1,    1(  0,  0)
C 000014D0    5A109114        A       1,  276(  0,  9)
C 000014D4    50109114        ST      1,  276(  0,  9)



C 000014D8    47F0A0A6        BC     15,  166(  0, 10)


   475            BIP(1007):30:                          ! PHRASE TEXT=COMMENT TEXT
   476                     ->1 %UNLESS 10#I#';'

C 000014DC    5810904C        L       1,   76(  0,  9)
C 000014E0    4120000A        LA      2,   10(  0,  0)
C 000014E4    1921            CR      2,  1
C 000014E6    4780A09A        BC      8,  154(  0, 10)
C 000014EA    4120003B        LA      2,   59(  0,  0)
C 000014EE    1912            CR      1,  2
C 000014F0    4780A09A        BC      8,  154(  0, 10)


   477                     Q=Q+1; I=CC(Q); ->30

C 000014F4    41100001        LA      1,    1(  0,  0)
C 000014F8    5A109114        A       1,  276(  0,  9)
C 000014FC    50109114        ST      1,  276(  0,  9)



C 00001500    58109114        L       1,  276(  0,  9)
C 00001504    413092BC        LA      3,  700(  0,  9)
C 00001508    45F0C05C        BAL    15,   92(  0, 12)
C 0000150C    4311F000        IC      1,    0(  1, 15)
C 00001510    5410D018        N       1,   24(  0, 13)
C 00001514    5010904C        ST      1,   76(  0,  9)



C 00001518    47F0A470        BC     15, 1136(  0, 10)


   478            BIP(1008):                             ! PHRASE TEXTTEXT=BETWEEN QUOTES
   479                     TEXTTEXT

C 0000151C    5810D210        L       1,  528(  0, 13)
C 00001520    45F0D074        BAL    15,  116(  0, 13)


   480                     ->3 %IF HIT=0;->1

C 00001524    950090CE        CLI    206(  9),  0
C 00001528    4780A178        BC      8,  376(  0, 10)



C 0000152C    47F0A09A        BC     15,  154(  0, 10)


   481            BIP(1009):                             ! PHRASE NAMELIST
   482                     ! GIVES AR IN FORM NNAMES,NAME1,....NAMEN
   483                     U=R; V=1; R=R+1

C 00001530    D20391249118    MVC    292(  4,  9),  280(  9)



C 00001536    41100001        LA      1,    1(  0,  0)
C 0000153A    50109128        ST      1,  296(  0,  9)



C 0000153E    41100001        LA      1,    1(  0,  0)
C 00001542    5A109118        A       1,  280(  0,  9)
C 00001546    50109118        ST      1,  280(  0,  9)


   484                     PNAME; ->3 %IF HIT=0

C 0000154A    5810D204        L       1,  516(  0, 13)
C 0000154E    45F0D074        BAL    15,  116(  0, 13)



C 00001552    950090CE        CLI    206(  9),  0
C 00001556    4780A178        BC      8,  376(  0, 10)


   485            90:      ->91 %UNLESS CC(Q)=','

C 0000155A    58109114        L       1,  276(  0,  9)
C 0000155E    413092BC        LA      3,  700(  0,  9)
C 00001562    45F0C05C        BAL    15,   92(  0, 12)
C 00001566    4311F000        IC      1,    0(  1, 15)
C 0000156A    5410D018        N       1,   24(  0, 13)
C 0000156E    4120002C        LA      2,   44(  0,  0)
C 00001572    1912            CR      1,  2
C 00001574    477A0000        BC      7,    0( 10,  0)


   486                     Q=Q+1; R=R+1

C 00001578    41100001        LA      1,    1(  0,  0)
C 0000157C    5A109114        A       1,  276(  0,  9)
C 00001580    50109114        ST      1,  276(  0,  9)



C 00001584    41100001        LA      1,    1(  0,  0)
C 00001588    5A109118        A       1,  280(  0,  9)
C 0000158C    50109118        ST      1,  280(  0,  9)


   487                     I=CC(Q)

C 00001590    58109114        L       1,  276(  0,  9)
C 00001594    413092BC        LA      3,  700(  0,  9)
C 00001598    45F0C05C        BAL    15,   92(  0, 12)
C 0000159C    4311F000        IC      1,    0(  1, 15)
C 000015A0    5410D018        N       1,   24(  0, 13)
C 000015A4    5010904C        ST      1,   76(  0,  9)


   488                     PNAME

C 000015A8    5810D204        L       1,  516(  0, 13)
C 000015AC    45F0D074        BAL    15,  116(  0, 13)


   489                     ->92 %IF HIT=0; V=V+1; ->90

C 000015B0    950090CE        CLI    206(  9),  0
C 000015B4    478A0000        BC      8,    0( 10,  0)



C 000015B8    41100001        LA      1,    1(  0,  0)
C 000015BC    5A109128        A       1,  296(  0,  9)
C 000015C0    50109128        ST      1,  296(  0,  9)



C 000015C4    47F0A4EE        BC     15, 1262(  0, 10)


   490            92:      R=R-1; Q=Q-1

C 000015C8    58109118        L       1,  280(  0,  9)
C 000015CC    0610            BCTR    1,  0
C 000015CE    50109118        ST      1,  280(  0,  9)



C 000015D2    58109114        L       1,  276(  0,  9)
C 000015D6    0610            BCTR    1,  0
C 000015D8    50109114        ST      1,  276(  0,  9)


   491            91:      A(U)=V; ->1

C 000015DC    58409128        L       4,  296(  0,  9)
C 000015E0    58109124        L       1,  292(  0,  9)
C 000015E4    413092FC        LA      3,  764(  0,  9)
C 000015E8    45F0C05C        BAL    15,   92(  0, 12)
C 000015EC    4041F000        STH     4,    0(  1, 15)
C 000015F0    494F1000        CH      4,    0( 15,  1)
C 000015F4    477C0058        BC      7,   88( 12,  0)



C 000015F8    47F0A09A        BC     15,  154(  0, 10)


   492            BIP(1010):                             ! PHRASE HOLE
   493                     MARKER=R; ->1

C 000015FC    D20380549118    MVC     84(  4,  8),  280(  9)



C 00001602    47F0A09A        BC     15,  154(  0, 10)


   494            BIP(1011):                             ! PHRASE MARK
   495                     A(MARKER)=R-MARKER; ->2

C 00001606    58409118        L       4,  280(  0,  9)
C 0000160A    5B408054        S       4,   84(  0,  8)
C 0000160E    58108054        L       1,   84(  0,  8)
C 00001612    413092FC        LA      3,  764(  0,  9)
C 00001616    45F0C05C        BAL    15,   92(  0, 12)
C 0000161A    4041F000        STH     4,    0(  1, 15)
C 0000161E    494F1000        CH      4,    0( 15,  1)
C 00001622    477C0058        BC      7,   88( 12,  0)



C 00001626    47F0A0A6        BC     15,  166(  0, 10)


   496            BIP(1012):                             ! PHRASE UCRR=RR FORMAT
   497                     ->124 %IF S&255='R';          ! LAST LETTER=R

C 0000162A    411000FF        LA      1,  255(  0,  0)
C 0000162E    5410911C        N       1,  284(  0,  9)
C 00001632    41200052        LA      2,   82(  0,  0)
C 00001636    1912            CR      1,  2
C 00001638    478A0000        BC      8,    0( 10,  0)


   498                     %CYCLE I=0,1,2

C 0000163C    4140904C        LA      4,   76(  0,  9)
C 00001640    41200001        LA      2,    1(  0,  0)
C 00001644    41300002        LA      3,    2(  0,  0)
C 00001648    90248064        STM     2,  4,  100(  8)
C 0000164C    1F11            SLR     1,  1
C 0000164E    50104000        ST      1,    0(  0,  4)


   499                     ->120 %IF S=NEM(I)

C 00001652    5810904C        L       1,   76(  0,  9)
C 00001656    4130D0D8        LA      3,  216(  0, 13)
C 0000165A    45F0C05C        BAL    15,   92(  0, 12)
C 0000165E    5811F000        L       1,    0(  1, 15)
C 00001662    5910911C        C       1,  284(  0,  9)
C 00001666    478A0000        BC      8,    0( 10,  0)


   500                     %REPEAT; ->3

C 0000166A    98248064        LM      2,  4,  100(  8)
C 0000166E    58104000        L       1,    0(  0,  4)
C 00001672    8712A5E2        BXLE    1,  2, 1506( 10)



C 00001676    47F0A178        BC     15,  376(  0, 10)


   501            120:     A(R)=OPC(I)&63; ->1

C 0000167A    5810904C        L       1,   76(  0,  9)
C 0000167E    4130D0C8        LA      3,  200(  0, 13)
C 00001682    45F0C05C        BAL    15,   92(  0, 12)
C 00001686    1F77            SLR     7,  7
C 00001688    4371F000        IC      7,    0(  1, 15)
C 0000168C    4140003F        LA      4,   63(  0,  0)
C 00001690    1474            NR      7,  4
C 00001692    1847            LR      4,  7
C 00001694    58109118        L       1,  280(  0,  9)
C 00001698    413092FC        LA      3,  764(  0,  9)
C 0000169C    45F0C05C        BAL    15,   92(  0, 12)
C 000016A0    4041F000        STH     4,    0(  1, 15)
C 000016A4    494F1000        CH      4,    0( 15,  1)
C 000016A8    477C0058        BC      7,   88( 12,  0)



C 000016AC    47F0A09A        BC     15,  154(  0, 10)


   502            124:       J=S>>8; %CYCLE I=2,1,48

C 000016B0    5810911C        L       1,  284(  0,  9)
C 000016B4    88100008        SRL     1,    8(  0)
C 000016B8    50109050        ST      1,   80(  0,  9)



C 000016BC    4140904C        LA      4,   76(  0,  9)
C 000016C0    41200001        LA      2,    1(  0,  0)
C 000016C4    41300030        LA      3,   48(  0,  0)
C 000016C8    90248070        STM     2,  4,  112(  8)
C 000016CC    41100002        LA      1,    2(  0,  0)
C 000016D0    50104000        ST      1,    0(  0,  4)


   503                     ->120 %IF J=NEM(I)

C 000016D4    5810904C        L       1,   76(  0,  9)
C 000016D8    4130D0D8        LA      3,  216(  0, 13)
C 000016DC    45F0C05C        BAL    15,   92(  0, 12)
C 000016E0    5811F000        L       1,    0(  1, 15)
C 000016E4    59109050        C       1,   80(  0,  9)
C 000016E8    4780A60E        BC      8, 1550(  0, 10)


   504                     %REPEAT; ->3

C 000016EC    98248070        LM      2,  4,  112(  8)
C 000016F0    58104000        L       1,    0(  0,  4)
C 000016F4    8712A664        BXLE    1,  2, 1636( 10)



C 000016F8    47F0A178        BC     15,  376(  0, 10)


   505            BIP(1013):                             ! PHRASE UCRX=RX FORMAT
   506                     %CYCLE I=18,1,64

C 000016FC    4140904C        LA      4,   76(  0,  9)
C 00001700    41200001        LA      2,    1(  0,  0)
C 00001704    41300040        LA      3,   64(  0,  0)
C 00001708    9024807C        STM     2,  4,  124(  8)
C 0000170C    41100012        LA      1,   18(  0,  0)
C 00001710    50104000        ST      1,    0(  0,  4)


   507                     ->130 %IF S=NEM(I)

C 00001714    5810904C        L       1,   76(  0,  9)
C 00001718    4130D0D8        LA      3,  216(  0, 13)
C 0000171C    45F0C05C        BAL    15,   92(  0, 12)
C 00001720    5811F000        L       1,    0(  1, 15)
C 00001724    5910911C        C       1,  284(  0,  9)
C 00001728    478A0000        BC      8,    0( 10,  0)


   508                     %REPEAT; ->3

C 0000172C    9824807C        LM      2,  4,  124(  8)
C 00001730    58104000        L       1,    0(  0,  4)
C 00001734    8712A6A4        BXLE    1,  2, 1700( 10)



C 00001738    47F0A178        BC     15,  376(  0, 10)


   509            130:     A(R)=OPC(I); ->1

C 0000173C    5810904C        L       1,   76(  0,  9)
C 00001740    4130D0C8        LA      3,  200(  0, 13)
C 00001744    45F0C05C        BAL    15,   92(  0, 12)
C 00001748    1F44            SLR     4,  4
C 0000174A    4341F000        IC      4,    0(  1, 15)
C 0000174E    58109118        L       1,  280(  0,  9)
C 00001752    413092FC        LA      3,  764(  0,  9)
C 00001756    45F0C05C        BAL    15,   92(  0, 12)
C 0000175A    4041F000        STH     4,    0(  1, 15)
C 0000175E    494F1000        CH      4,    0( 15,  1)
C 00001762    477C0058        BC      7,   88( 12,  0)



C 00001766    47F0A09A        BC     15,  154(  0, 10)


   510            BIP(1014):                             ! PHRASE UCRS=R,R,DB FORMAT
   511                     %CYCLE I=66,1,69

C 0000176A    4140904C        LA      4,   76(  0,  9)
C 0000176E    41200001        LA      2,    1(  0,  0)
C 00001772    41300045        LA      3,   69(  0,  0)
C 00001776    90248088        STM     2,  4,  136(  8)
C 0000177A    41100042        LA      1,   66(  0,  0)
C 0000177E    50104000        ST      1,    0(  0,  4)


   512                     ->130 %IF S=NEM(I)

C 00001782    5810904C        L       1,   76(  0,  9)
C 00001786    4130D0D8        LA      3,  216(  0, 13)
C 0000178A    45F0C05C        BAL    15,   92(  0, 12)
C 0000178E    5811F000        L       1,    0(  1, 15)
C 00001792    5910911C        C       1,  284(  0,  9)
C 00001796    4780A6D0        BC      8, 1744(  0, 10)


   513                     %REPEAT; ->3

C 0000179A    98248088        LM      2,  4,  136(  8)
C 0000179E    58104000        L       1,    0(  0,  4)
C 000017A2    8712A712        BXLE    1,  2, 1810( 10)



C 000017A6    47F0A178        BC     15,  376(  0, 10)


   514            BIP(1015):                             ! PHRASE UCSI=STORE IMDTE
   515                     %CYCLE I=71,1,83

C 000017AA    4140904C        LA      4,   76(  0,  9)
C 000017AE    41200001        LA      2,    1(  0,  0)
C 000017B2    41300053        LA      3,   83(  0,  0)
C 000017B6    90248094        STM     2,  4,  148(  8)
C 000017BA    41100047        LA      1,   71(  0,  0)
C 000017BE    50104000        ST      1,    0(  0,  4)


   516                     ->130 %IF S=NEM(I)

C 000017C2    5810904C        L       1,   76(  0,  9)
C 000017C6    4130D0D8        LA      3,  216(  0, 13)
C 000017CA    45F0C05C        BAL    15,   92(  0, 12)
C 000017CE    5811F000        L       1,    0(  1, 15)
C 000017D2    5910911C        C       1,  284(  0,  9)
C 000017D6    4780A6D0        BC      8, 1744(  0, 10)


   517                     %REPEAT; ->3

C 000017DA    98248094        LM      2,  4,  148(  8)
C 000017DE    58104000        L       1,    0(  0,  4)
C 000017E2    8712A752        BXLE    1,  2, 1874( 10)



C 000017E6    47F0A178        BC     15,  376(  0, 10)


   518            BIP(1016):                             ! PHRASE UCSHIFT=SHIFT INSTRNS
   519                     %CYCLE I=85,1,92

C 000017EA    4140904C        LA      4,   76(  0,  9)
C 000017EE    41200001        LA      2,    1(  0,  0)
C 000017F2    4130005C        LA      3,   92(  0,  0)
C 000017F6    902480A0        STM     2,  4,  160(  8)
C 000017FA    41100055        LA      1,   85(  0,  0)
C 000017FE    50104000        ST      1,    0(  0,  4)


   520                     ->130 %IF S=NEM(I)

C 00001802    5810904C        L       1,   76(  0,  9)
C 00001806    4130D0D8        LA      3,  216(  0, 13)
C 0000180A    45F0C05C        BAL    15,   92(  0, 12)
C 0000180E    5811F000        L       1,    0(  1, 15)
C 00001812    5910911C        C       1,  284(  0,  9)
C 00001816    4780A6D0        BC      8, 1744(  0, 10)


   521                     %REPEAT; ->3

C 0000181A    982480A0        LM      2,  4,  160(  8)
C 0000181E    58104000        L       1,    0(  0,  4)
C 00001822    8712A792        BXLE    1,  2, 1938( 10)



C 00001826    47F0A178        BC     15,  376(  0, 10)


   522            BIP(1017):                             ! PHRASE UCSS=STORE TO STORE
   523                     %CYCLE I=94,1,106

C 0000182A    4140904C        LA      4,   76(  0,  9)
C 0000182E    41200001        LA      2,    1(  0,  0)
C 00001832    4130006A        LA      3,  106(  0,  0)
C 00001836    902480AC        STM     2,  4,  172(  8)
C 0000183A    4110005E        LA      1,   94(  0,  0)
C 0000183E    50104000        ST      1,    0(  0,  4)


   524                     ->130 %IF S=NEM(I)

C 00001842    5810904C        L       1,   76(  0,  9)
C 00001846    4130D0D8        LA      3,  216(  0, 13)
C 0000184A    45F0C05C        BAL    15,   92(  0, 12)
C 0000184E    5811F000        L       1,    0(  1, 15)
C 00001852    5910911C        C       1,  284(  0,  9)
C 00001856    4780A6D0        BC      8, 1744(  0, 10)


   525                     %REPEAT; ->3

C 0000185A    982480AC        LM      2,  4,  172(  8)
C 0000185E    58104000        L       1,    0(  0,  4)
C 00001862    8712A7D2        BXLE    1,  2, 2002( 10)



C 00001866    47F0A178        BC     15,  376(  0, 10)


   526            BIP(1018):                             ! PHRASE UCPD=PACKED DECIMAL
   527                     %CYCLE I=108,1,116

C 0000186A    4140904C        LA      4,   76(  0,  9)
C 0000186E    41200001        LA      2,    1(  0,  0)
C 00001872    41300074        LA      3,  116(  0,  0)
C 00001876    902480B8        STM     2,  4,  184(  8)
C 0000187A    4110006C        LA      1,  108(  0,  0)
C 0000187E    50104000        ST      1,    0(  0,  4)


   528                     ->130 %IF S=NEM(I)

C 00001882    5810904C        L       1,   76(  0,  9)
C 00001886    4130D0D8        LA      3,  216(  0, 13)
C 0000188A    45F0C05C        BAL    15,   92(  0, 12)
C 0000188E    5811F000        L       1,    0(  1, 15)
C 00001892    5910911C        C       1,  284(  0,  9)
C 00001896    4780A6D0        BC      8, 1744(  0, 10)


   529                     %REPEAT; ->3

C 0000189A    982480B8        LM      2,  4,  184(  8)
C 0000189E    58104000        L       1,    0(  0,  4)
C 000018A2    8712A812        BXLE    1,  2, 2066( 10)



C 000018A6    47F0A178        BC     15,  376(  0, 10)


   530            BIP(1019):                             ! PHRASE UCSPEC=THE FUNNIES
   531                     %CYCLE I=118,1,120

C 000018AA    4140904C        LA      4,   76(  0,  9)
C 000018AE    41200001        LA      2,    1(  0,  0)
C 000018B2    41300078        LA      3,  120(  0,  0)
C 000018B6    902480C4        STM     2,  4,  196(  8)
C 000018BA    41100076        LA      1,  118(  0,  0)
C 000018BE    50104000        ST      1,    0(  0,  4)


   532                     ->130 %IF S=NEM(I)

C 000018C2    5810904C        L       1,   76(  0,  9)
C 000018C6    4130D0D8        LA      3,  216(  0, 13)
C 000018CA    45F0C05C        BAL    15,   92(  0, 12)
C 000018CE    5811F000        L       1,    0(  1, 15)
C 000018D2    5910911C        C       1,  284(  0,  9)
C 000018D6    4780A6D0        BC      8, 1744(  0, 10)


   533                     %REPEAT; ->3

C 000018DA    982480C4        LM      2,  4,  196(  8)
C 000018DE    58104000        L       1,    0(  0,  4)
C 000018E2    8712A852        BXLE    1,  2, 2130( 10)



C 000018E6    47F0A178        BC     15,  376(  0, 10)


   534                           %END                    ;!OF ROUTINE 'COMPARE'
D 00000074    C2 C2 C2 C2 01 9B 08 07 43 4F 4D 50 41 52 45 30 01 80 54 06 4D 41 52 4B 45 52 00 01 01 80 50 02 52 53 00 01 01 80 4C 02 52 52 FF FF 01 80 48 02 52 51 A6 B8 01 80 44 02 52 50 00 00 01 80 40 02 52 41 00 02 FF FF FF FF


C 000018EA    D203D0148000    MVC     20(  4, 13),    0(  8)
C 000018F0    984F8010        LM      4, 15,   16(  8)
C 000018F4    07FF            BCR    15, 15


   535                 %INTEGERFN HASH(%INTEGER ADDR)

C 000018F6    0000
C 000018F8    0000
C 000018FA    47FA0000        BC     15,    0( 10,  0)
C 000018FE    50F0B03C        ST     15,   60(  0, 11)
C 00001902    D203B000D014    MVC      0(  4, 11),   20( 13)
C 00001908    41000217        LA      0,  535(  0,  0)
C 0000190C    4000D014        STH     0,   20(  0, 13)
C 00001910    188B            LR      8, 11
C 00001912    41BB0000        LA     11,    0( 11,  0)
C 00001916    41000004        LA      0,    4(  0,  0)
C 0000191A    59BD0044        C      11,   68( 13,  0)
C 0000191E    4720C054        BC      2,   84(  0, 12)
C 00001922    05A0            BALR   10,  0


   536                     %RESULT=NNAMES &(19*BYTE INTEGER(ADDR)+31*BYTE INTEGER(ADDR+1))

C 00001924    58108040        L       1,   64(  0,  8)
C 00001928    1F77            SLR     7,  7
C 0000192A    43701000        IC      7,    0(  0,  1)
C 0000192E    41100001        LA      1,    1(  0,  0)
C 00001932    5A108040        A       1,   64(  0,  8)
C 00001936    1F66            SLR     6,  6
C 00001938    43601000        IC      6,    0(  0,  1)
C 0000193C    41100013        LA      1,   19(  0,  0)
C 00001940    1C07            MR      0,  7
C 00001942    1876            LR      7,  6
C 00001944    4120001F        LA      2,   31(  0,  0)
C 00001948    1C62            MR      6,  2
C 0000194A    1A17            AR      1,  7
C 0000194C    1851            LR      5,  1
C 0000194E    54509068        N       5,  104(  0,  9)
C 00001952    1815            LR      1,  5
C 00001954    D203D0148000    MVC     20(  4, 13),    0(  8)
C 0000195A    984F8010        LM      4, 15,   16(  8)
C 0000195E    07FF            BCR    15, 15


   537                     %END
D 000000BC    C2 C2 C2 C2 02 17 08 04 48 41 53 48 01 80 40 04 41 44 44 52 FF FF FF FF


C 00001960    4100000B        LA      0,   11(  0,  0)
C 00001964    45F0C054        BAL    15,   84(  0, 12)


   538                 %ROUTINE PNAME

C 00001968    0000
C 0000196A    0000
C 0000196C    47FA0000        BC     15,    0( 10,  0)
C 00001970    50F0B03C        ST     15,   60(  0, 11)
C 00001974    D203B000D014    MVC      0(  4, 11),   20( 13)
C 0000197A    4100021A        LA      0,  538(  0,  0)
C 0000197E    4000D014        STH     0,   20(  0, 13)
C 00001982    188B            LR      8, 11
C 00001984    41BB0000        LA     11,    0( 11,  0)
C 00001988    41000004        LA      0,    4(  0,  0)
C 0000198C    59BD0044        C      11,   68( 13,  0)
C 00001990    4720C054        BC      2,   84(  0, 12)
C 00001994    05A0            BALR   10,  0


   539                     %INTEGER  JJ,KK,LL
   540                     %SHORTROUTINE
   541                     HIT=0; I=CC(Q)

C 00001996    920090CE        MVI    206(  9),  0



C 0000199A    58109114        L       1,  276(  0,  9)
C 0000199E    413092BC        LA      3,  700(  0,  9)
C 000019A2    45F0C05C        BAL    15,   92(  0, 12)
C 000019A6    4311F000        IC      1,    0(  1, 15)
C 000019AA    5410D018        N       1,   24(  0, 13)
C 000019AE    5010904C        ST      1,   76(  0,  9)


   542                     -> 3 %UNLESS 'A'<=I<='Z';     ! 1ST CHAR MUST BE LETTER

C 000019B2    5810904C        L       1,   76(  0,  9)
C 000019B6    41200041        LA      2,   65(  0,  0)
C 000019BA    1921            CR      2,  1
C 000019BC    473A0000        BC      3,    0( 10,  0)
C 000019C0    4120005A        LA      2,   90(  0,  0)
C 000019C4    1912            CR      1,  2
C 000019C6    473A0000        BC      3,    0( 10,  0)


   543                     ->3 %IF CC(Q+1)=M'''' %AND(I='B' %OR I='X' %OR I='M')

C 000019CA    41100001        LA      1,    1(  0,  0)
C 000019CE    5A109114        A       1,  276(  0,  9)
C 000019D2    413092BC        LA      3,  700(  0,  9)
C 000019D6    45F0C05C        BAL    15,   92(  0, 12)
C 000019DA    4311F000        IC      1,    0(  1, 15)
C 000019DE    5410D018        N       1,   24(  0, 13)
C 000019E2    41200027        LA      2,   39(  0,  0)
C 000019E6    1912            CR      1,  2
C 000019E8    477A007A        BC      7,  122( 10,  0)
C 000019EC    41100042        LA      1,   66(  0,  0)
C 000019F0    5910904C        C       1,   76(  0,  9)
C 000019F4    478A0000        BC      8,    0( 10,  0)
C 000019F8    41100058        LA      1,   88(  0,  0)
C 000019FC    5910904C        C       1,   76(  0,  9)
C 00001A00    478A0000        BC      8,    0( 10,  0)
C 00001A04    4110004D        LA      1,   77(  0,  0)
C 00001A08    5910904C        C       1,   76(  0,  9)
C 00001A0C    478A0000        BC      8,    0( 10,  0)


   544                     S=2; T=1; -> 10

C 00001A10    41100002        LA      1,    2(  0,  0)
C 00001A14    5010911C        ST      1,  284(  0,  9)



C 00001A18    41100001        LA      1,    1(  0,  0)
C 00001A1C    50109120        ST      1,  288(  0,  9)



C 00001A20    47FA0000        BC     15,    0( 10,  0)


   545            12:      Q=Q+1; I=CC(Q)

C 00001A24    41100001        LA      1,    1(  0,  0)
C 00001A28    5A109114        A       1,  276(  0,  9)
C 00001A2C    50109114        ST      1,  276(  0,  9)



C 00001A30    58109114        L       1,  276(  0,  9)
C 00001A34    413092BC        LA      3,  700(  0,  9)
C 00001A38    45F0C05C        BAL    15,   92(  0, 12)
C 00001A3C    4311F000        IC      1,    0(  1, 15)
C 00001A40    5410D018        N       1,   24(  0, 13)
C 00001A44    5010904C        ST      1,   76(  0,  9)


   546                     -> 101 %UNLESS 'A'<=I<='Z' %OR '0'<=I<='9'

C 00001A48    5810904C        L       1,   76(  0,  9)
C 00001A4C    41200041        LA      2,   65(  0,  0)
C 00001A50    1921            CR      2,  1
C 00001A52    473A00CA        BC      3,  202( 10,  0)
C 00001A56    4120005A        LA      2,   90(  0,  0)
C 00001A5A    1912            CR      1,  2
C 00001A5C    47CA00E2        BC     12,  226( 10,  0)
C 00001A60    5810904C        L       1,   76(  0,  9)
C 00001A64    41200030        LA      2,   48(  0,  0)
C 00001A68    1921            CR      2,  1
C 00001A6A    473A0000        BC      3,    0( 10,  0)
C 00001A6E    41200039        LA      2,   57(  0,  0)
C 00001A72    1912            CR      1,  2
C 00001A74    473A0000        BC      3,    0( 10,  0)


   547                     T=T+1; S=S+1

C 00001A78    41100001        LA      1,    1(  0,  0)
C 00001A7C    5A109120        A       1,  288(  0,  9)
C 00001A80    50109120        ST      1,  288(  0,  9)



C 00001A84    41100001        LA      1,    1(  0,  0)
C 00001A88    5A10911C        A       1,  284(  0,  9)
C 00001A8C    5010911C        ST      1,  284(  0,  9)


   548            10:      LETT(NEXT+T)=I; ->12

C 00001A90    5840904C        L       4,   76(  0,  9)
C 00001A94    581090FC        L       1,  252(  0,  9)
C 00001A98    5A109120        A       1,  288(  0,  9)
C 00001A9C    413092DC        LA      3,  732(  0,  9)
C 00001AA0    45F0C05C        BAL    15,   92(  0, 12)
C 00001AA4    4241F000        STC     4,    0(  1, 15)
C 00001AA8    5540D018        CL      4,   24(  0, 13)
C 00001AAC    472C0058        BC      2,   88( 12,  0)



C 00001AB0    47F0A08E        BC     15,  142(  0, 10)


   549            101:     LETT(NEXT)=T;                 ! INSERT LENGTH

C 00001AB4    58409120        L       4,  288(  0,  9)
C 00001AB8    581090FC        L       1,  252(  0,  9)
C 00001ABC    413092DC        LA      3,  732(  0,  9)
C 00001AC0    45F0C05C        BAL    15,   92(  0, 12)
C 00001AC4    4241F000        STC     4,    0(  1, 15)
C 00001AC8    5540D018        CL      4,   24(  0, 13)
C 00001ACC    472C0058        BC      2,   88( 12,  0)


   550                     FAULT(108) %IF NEXT+S>DSIZE;  !DICTIONARY OVERFLOW

C 00001AD0    581090FC        L       1,  252(  0,  9)
C 00001AD4    5A10911C        A       1,  284(  0,  9)
C 00001AD8    49109060        CH      1,   96(  0,  9)
C 00001ADC    47DA0156        BC     13,  342( 10,  0)
C 00001AE0    926CB043        MVI     67( 11), 108
C 00001AE4    5810D228        L       1,  552(  0, 13)
C 00001AE8    45F0D074        BAL    15,  116(  0, 13)


   551                     JJ=HASH(ADDR(LETT(NEXT)));    !PREPARE TO LOOK UP

C 00001AEC    581090FC        L       1,  252(  0,  9)
C 00001AF0    413092DC        LA      3,  732(  0,  9)
C 00001AF4    45F0C05C        BAL    15,   92(  0, 12)
C 00001AF8    4111F000        LA      1,    0(  1, 15)
C 00001AFC    5010B040        ST      1,   64(  0, 11)
C 00001B00    5810D298        L       1,  664(  0, 13)
C 00001B04    45F0D074        BAL    15,  116(  0, 13)
C 00001B08    50108040        ST      1,   64(  0,  8)


   552                     %CYCLE NUM=JJ,1,JJ+NNAMES

C 00001B0C    4140908C        LA      4,  140(  0,  9)
C 00001B10    41200001        LA      2,    1(  0,  0)
C 00001B14    5020804C        ST      2,   76(  0,  8)
C 00001B18    58308040        L       3,   64(  0,  8)
C 00001B1C    5A309068        A       3,  104(  0,  9)
C 00001B20    90348050        STM     3,  4,   80(  8)
C 00001B24    58108040        L       1,   64(  0,  8)
C 00001B28    50104000        ST      1,    0(  0,  4)


   553                     KK=NUM&NNAMES;                ! TREAT DICTIONARY AS CYCLIC

C 00001B2C    5810908C        L       1,  140(  0,  9)
C 00001B30    54109068        N       1,  104(  0,  9)
C 00001B34    50108044        ST      1,   68(  0,  8)


   554                     LL=WORD(KK)

C 00001B38    58108044        L       1,   68(  0,  8)
C 00001B3C    4130930C        LA      3,  780(  0,  9)
C 00001B40    45F0C05C        BAL    15,   92(  0, 12)
C 00001B44    4811F000        LH      1,    0(  1, 15)
C 00001B48    50108048        ST      1,   72(  0,  8)


   555                     -> 2 %IF LL=0;                ! NAME NOT KNOWN

C 00001B4C    58108048        L       1,   72(  0,  8)
C 00001B50    1211            LTR     1,  1
C 00001B52    478A0000        BC      8,    0( 10,  0)


   556                     %CYCLE JJ=1,1,LETT(LL)

C 00001B56    41408040        LA      4,   64(  0,  8)
C 00001B5A    41200001        LA      2,    1(  0,  0)
C 00001B5E    50208058        ST      2,   88(  0,  8)
C 00001B62    58108048        L       1,   72(  0,  8)
C 00001B66    413092DC        LA      3,  732(  0,  9)
C 00001B6A    45F0C05C        BAL    15,   92(  0, 12)
C 00001B6E    1F33            SLR     3,  3
C 00001B70    4331F000        IC      3,    0(  1, 15)
C 00001B74    9034805C        STM     3,  4,   92(  8)
C 00001B78    41100001        LA      1,    1(  0,  0)
C 00001B7C    50104000        ST      1,    0(  0,  4)


   557                     -> FAIL %UNLESS LETT(NEXT+JJ)=LETT(LL+JJ)

C 00001B80    581090FC        L       1,  252(  0,  9)
C 00001B84    5A108040        A       1,   64(  0,  8)
C 00001B88    413092DC        LA      3,  732(  0,  9)
C 00001B8C    45F0C05C        BAL    15,   92(  0, 12)
C 00001B90    4311F000        IC      1,    0(  1, 15)
C 00001B94    5410D018        N       1,   24(  0, 13)
C 00001B98    1851            LR      5,  1
C 00001B9A    58108048        L       1,   72(  0,  8)
C 00001B9E    5A108040        A       1,   64(  0,  8)
C 00001BA2    413092DC        LA      3,  732(  0,  9)
C 00001BA6    45F0C05C        BAL    15,   92(  0, 12)
C 00001BAA    4311F000        IC      1,    0(  1, 15)
C 00001BAE    5410D018        N       1,   24(  0, 13)
C 00001BB2    1915            CR      1,  5
C 00001BB4    477A0000        BC      7,    0( 10,  0)


   558                     %REPEAT; -> 41;               ! NAME FOUND

C 00001BB8    98248058        LM      2,  4,   88(  8)
C 00001BBC    58104000        L       1,    0(  0,  4)
C 00001BC0    8712A1E6        BXLE    1,  2,  486( 10)



C 00001BC4    47FA0000        BC     15,    0( 10,  0)


   559            FAIL:    %REPEAT

C 00001BC8    9824804C        LM      2,  4,   76(  8)
C 00001BCC    58104000        L       1,    0(  0,  4)
C 00001BD0    8712A192        BXLE    1,  2,  402( 10)


   560                     FAULT(104);                   ! TOO MANY NAMES

C 00001BD4    9268B043        MVI     67( 11), 104
C 00001BD8    5810D228        L       1,  552(  0, 13)
C 00001BDC    45F0D074        BAL    15,  116(  0, 13)


   561            2:       WORD(KK)=NEXT; NEXT=NEXT+S

C 00001BE0    584090FC        L       4,  252(  0,  9)
C 00001BE4    58108044        L       1,   68(  0,  8)
C 00001BE8    4130930C        LA      3,  780(  0,  9)
C 00001BEC    45F0C05C        BAL    15,   92(  0, 12)
C 00001BF0    4041F000        STH     4,    0(  1, 15)
C 00001BF4    494F1000        CH      4,    0( 15,  1)
C 00001BF8    477C0058        BC      7,   88( 12,  0)



C 00001BFC    581090FC        L       1,  252(  0,  9)
C 00001C00    5A10911C        A       1,  284(  0,  9)
C 00001C04    501090FC        ST      1,  252(  0,  9)


   562            41:      A(R)=KK; HIT=1

C 00001C08    58408044        L       4,   68(  0,  8)
C 00001C0C    58109118        L       1,  280(  0,  9)
C 00001C10    413092FC        LA      3,  764(  0,  9)
C 00001C14    45F0C05C        BAL    15,   92(  0, 12)
C 00001C18    4041F000        STH     4,    0(  1, 15)
C 00001C1C    494F1000        CH      4,    0( 15,  1)
C 00001C20    477C0058        BC      7,   88( 12,  0)



C 00001C24    920190CE        MVI    206(  9),  1


   563            3:       %END
D 000000D4    C2 C2 C2 C2 02 1A 08 05 50 4E 41 4D 45 00 00 44 01 80 48 02 4C 4C 00 08 01 80 44 02 4B 4B A6 E8 01 80 40 02 4A 4A A6 F0 FF FF FF FF


C 00001C28    D203D0148000    MVC     20(  4, 13),    0(  8)
C 00001C2E    984F8010        LM      4, 15,   16(  8)
C 00001C32    07FF            BCR    15, 15


   564                 %ROUTINE     CONST(%BYTEINTEGER MODE)

C 00001C34    0000
C 00001C36    0000
C 00001C38    47FA0000        BC     15,    0( 10,  0)
C 00001C3C    50F0B03C        ST     15,   60(  0, 11)
C 00001C40    D203B000D014    MVC      0(  4, 11),   20( 13)
C 00001C46    41000234        LA      0,  564(  0,  0)
C 00001C4A    4000D014        STH     0,   20(  0, 13)
C 00001C4E    188B            LR      8, 11
C 00001C50    41BB0000        LA     11,    0( 11,  0)
C 00001C54    41000004        LA      0,    4(  0,  0)
C 00001C58    59BD0044        C      11,   68( 13,  0)
C 00001C5C    4720C054        BC      2,   84(  0, 12)
C 00001C60    05A0            BALR   10,  0


   565                     %COMMENT MODE=0 FOR NORMAL  MODE=2 FOR EXPONENT ETC
   566                     %INTEGER Z
   567                     %LONGREAL X
   568                     CVALUE=0; I=CC(Q)

C 00001C62    6860D028        LD      6,   40(  0, 13)
C 00001C66    606090E0        STD     6,  224(  0,  9)



C 00001C6A    58109114        L       1,  276(  0,  9)
C 00001C6E    413092BC        LA      3,  700(  0,  9)
C 00001C72    45F0C05C        BAL    15,   92(  0, 12)
C 00001C76    4311F000        IC      1,    0(  1, 15)
C 00001C7A    5410D018        N       1,   24(  0, 13)
C 00001C7E    5010904C        ST      1,   76(  0,  9)


   569                     %SHORTROUTINE
   570                           S=0; -> N %IF M'0'<=I<=M'9'

C 00001C82    1F11            SLR     1,  1
C 00001C84    5010911C        ST      1,  284(  0,  9)



C 00001C88    5810904C        L       1,   76(  0,  9)
C 00001C8C    41200030        LA      2,   48(  0,  0)
C 00001C90    1921            CR      2,  1
C 00001C92    473A003E        BC      3,   62( 10,  0)
C 00001C96    41200039        LA      2,   57(  0,  0)
C 00001C9A    1912            CR      1,  2
C 00001C9C    47CA0000        BC     12,    0( 10,  0)


   571                     ->DOT %IF I='.' %AND MODE=0 %AND '0'<=CC(Q+1)<='9';! 1 DIDT MIN

C 00001CA0    4110002E        LA      1,   46(  0,  0)
C 00001CA4    5910904C        C       1,   76(  0,  9)
C 00001CA8    477A007E        BC      7,  126( 10,  0)
C 00001CAC    95008043        CLI     67(  8),  0
C 00001CB0    477A007E        BC      7,  126( 10,  0)
C 00001CB4    41100001        LA      1,    1(  0,  0)
C 00001CB8    5A109114        A       1,  276(  0,  9)
C 00001CBC    413092BC        LA      3,  700(  0,  9)
C 00001CC0    45F0C05C        BAL    15,   92(  0, 12)
C 00001CC4    4311F000        IC      1,    0(  1, 15)
C 00001CC8    5410D018        N       1,   24(  0, 13)
C 00001CCC    41200030        LA      2,   48(  0,  0)
C 00001CD0    1921            CR      2,  1
C 00001CD2    473A007E        BC      3,  126( 10,  0)
C 00001CD6    41200039        LA      2,   57(  0,  0)
C 00001CDA    1912            CR      1,  2
C 00001CDC    47CA0000        BC     12,    0( 10,  0)


   572                     -> PI %IF I='$' %AND MODE=0

C 00001CE0    41100024        LA      1,   36(  0,  0)
C 00001CE4    5910904C        C       1,   76(  0,  9)
C 00001CE8    477A0092        BC      7,  146( 10,  0)
C 00001CEC    95008043        CLI     67(  8),  0
C 00001CF0    478A0000        BC      8,    0( 10,  0)


   573                     ->101 %IF I=M''''

C 00001CF4    41100027        LA      1,   39(  0,  0)
C 00001CF8    5910904C        C       1,   76(  0,  9)
C 00001CFC    478A0000        BC      8,    0( 10,  0)


   574                     ->150 %UNLESS CC(Q+1)=M''''; Q=Q+2

C 00001D00    41100001        LA      1,    1(  0,  0)
C 00001D04    5A109114        A       1,  276(  0,  9)
C 00001D08    413092BC        LA      3,  700(  0,  9)
C 00001D0C    45F0C05C        BAL    15,   92(  0, 12)
C 00001D10    4311F000        IC      1,    0(  1, 15)
C 00001D14    5410D018        N       1,   24(  0, 13)
C 00001D18    41200027        LA      2,   39(  0,  0)
C 00001D1C    1912            CR      1,  2
C 00001D1E    477A0000        BC      7,    0( 10,  0)



C 00001D22    41100002        LA      1,    2(  0,  0)
C 00001D26    5A109114        A       1,  276(  0,  9)
C 00001D2A    50109114        ST      1,  276(  0,  9)


   575                     ->102 %IF I='X'; ->MULT %IF I='M'

C 00001D2E    41100058        LA      1,   88(  0,  0)
C 00001D32    5910904C        C       1,   76(  0,  9)
C 00001D36    478A0000        BC      8,    0( 10,  0)



C 00001D3A    4110004D        LA      1,   77(  0,  0)
C 00001D3E    5910904C        C       1,   76(  0,  9)
C 00001D42    478A0000        BC      8,    0( 10,  0)


   576                     ->104 %IF I=M'B'

C 00001D46    41100042        LA      1,   66(  0,  0)
C 00001D4A    5910904C        C       1,   76(  0,  9)
C 00001D4E    478A0000        BC      8,    0( 10,  0)


   577                     Q=Q-2; ->150

C 00001D52    58109114        L       1,  276(  0,  9)
C 00001D56    0610            BCTR    1,  0
C 00001D58    0610            BCTR    1,  0
C 00001D5A    50109114        ST      1,  276(  0,  9)



C 00001D5E    47FA0000        BC     15,    0( 10,  0)


   578            PI:
   579                     CVALUE=3.14159 26535 89793 23846; Q=Q+1; ->40

C 00001D62    6860D2A0        LD      6,  672(  0, 13)
C 00001D66    606090E0        STD     6,  224(  0,  9)



C 00001D6A    41100001        LA      1,    1(  0,  0)
C 00001D6E    5A109114        A       1,  276(  0,  9)
C 00001D72    50109114        ST      1,  276(  0,  9)



C 00001D76    47FA0000        BC     15,    0( 10,  0)


   580            101:     S=R; A(R)=5; R=R+1

C 00001D7A    D203911C9118    MVC    284(  4,  9),  280(  9)



C 00001D80    41400005        LA      4,    5(  0,  0)
C 00001D84    58109118        L       1,  280(  0,  9)
C 00001D88    413092FC        LA      3,  764(  0,  9)
C 00001D8C    45F0C05C        BAL    15,   92(  0, 12)
C 00001D90    4041F000        STH     4,    0(  1, 15)
C 00001D94    494F1000        CH      4,    0( 15,  1)
C 00001D98    477C0058        BC      7,   88( 12,  0)



C 00001D9C    41100001        LA      1,    1(  0,  0)
C 00001DA0    5A109118        A       1,  280(  0,  9)
C 00001DA4    50109118        ST      1,  280(  0,  9)


   581                     TEXTTEXT

C 00001DA8    5810D210        L       1,  528(  0, 13)
C 00001DAC    45F0D074        BAL    15,  116(  0, 13)


   582                     ->24 %IF A(S+1)=0;            ! NULL STRING

C 00001DB0    41100001        LA      1,    1(  0,  0)
C 00001DB4    5A10911C        A       1,  284(  0,  9)
C 00001DB8    413092FC        LA      3,  764(  0,  9)
C 00001DBC    45F0C05C        BAL    15,   92(  0, 12)
C 00001DC0    4811F000        LH      1,    0(  1, 15)
C 00001DC4    1211            LTR     1,  1
C 00001DC6    478A0000        BC      8,    0( 10,  0)


   583                     ->27 %IF A(S+1)=1;            ! SINGLE CHAR CONSTANT

C 00001DCA    41100001        LA      1,    1(  0,  0)
C 00001DCE    5A10911C        A       1,  284(  0,  9)
C 00001DD2    413092FC        LA      3,  764(  0,  9)
C 00001DD6    45F0C05C        BAL    15,   92(  0, 12)
C 00001DDA    4811F000        LH      1,    0(  1, 15)
C 00001DDE    41200001        LA      2,    1(  0,  0)
C 00001DE2    1912            CR      1,  2
C 00001DE4    478A0000        BC      8,    0( 10,  0)


   584                     CTYPE=5; %RETURN

C 00001DE8    920590D8        MVI    216(  9),  5



C 00001DEC    D203D0148000    MVC     20(  4, 13),    0(  8)
C 00001DF2    984F8010        LM      4, 15,   16(  8)
C 00001DF6    07FF            BCR    15, 15


   585            24:      R=S; S=0; ->99

C 00001DF8    D2039118911C    MVC    280(  4,  9),  284(  9)



C 00001DFE    1F11            SLR     1,  1
C 00001E00    5010911C        ST      1,  284(  0,  9)



C 00001E04    47FA0000        BC     15,    0( 10,  0)


   586            27:      R=S; S=A(S+2); ->99

C 00001E08    D2039118911C    MVC    280(  4,  9),  284(  9)



C 00001E0E    41100002        LA      1,    2(  0,  0)
C 00001E12    5A10911C        A       1,  284(  0,  9)
C 00001E16    413092FC        LA      3,  764(  0,  9)
C 00001E1A    45F0C05C        BAL    15,   92(  0, 12)
C 00001E1E    4811F000        LH      1,    0(  1, 15)
C 00001E22    5010911C        ST      1,  284(  0,  9)



C 00001E26    47FA0000        BC     15,    0( 10,  0)


   587            102:     I=CC(Q); Q=Q+1;               ! HEX CONSTANTS

C 00001E2A    58109114        L       1,  276(  0,  9)
C 00001E2E    413092BC        LA      3,  700(  0,  9)
C 00001E32    45F0C05C        BAL    15,   92(  0, 12)
C 00001E36    4311F000        IC      1,    0(  1, 15)
C 00001E3A    5410D018        N       1,   24(  0, 13)
C 00001E3E    5010904C        ST      1,   76(  0,  9)



C 00001E42    41100001        LA      1,    1(  0,  0)
C 00001E46    5A109114        A       1,  276(  0,  9)
C 00001E4A    50109114        ST      1,  276(  0,  9)


   588                     ->99 %IF I=M''''

C 00001E4E    41100027        LA      1,   39(  0,  0)
C 00001E52    5910904C        C       1,   76(  0,  9)
C 00001E56    478A0000        BC      8,    0( 10,  0)


   589                           ->5 %IF M'0'<=I<=M'9'

C 00001E5A    5810904C        L       1,   76(  0,  9)
C 00001E5E    41200030        LA      2,   48(  0,  0)
C 00001E62    1921            CR      2,  1
C 00001E64    473A0210        BC      3,  528( 10,  0)
C 00001E68    41200039        LA      2,   57(  0,  0)
C 00001E6C    1912            CR      1,  2
C 00001E6E    47CA0000        BC     12,    0( 10,  0)


   590                     ->150 %UNLESS M'A'<=I<=M'F'

C 00001E72    5810904C        L       1,   76(  0,  9)
C 00001E76    41200041        LA      2,   65(  0,  0)
C 00001E7A    1921            CR      2,  1
C 00001E7C    473A0000        BC      3,    0( 10,  0)
C 00001E80    41200046        LA      2,   70(  0,  0)
C 00001E84    1912            CR      1,  2
C 00001E86    473A0000        BC      3,    0( 10,  0)


   591                     S=S<<4!(I-'A'+10); ->102

C 00001E8A    5810904C        L       1,   76(  0,  9)
C 00001E8E    41200041        LA      2,   65(  0,  0)
C 00001E92    1B12            SR      1,  2
C 00001E94    4120000A        LA      2,   10(  0,  0)
C 00001E98    1A12            AR      1,  2
C 00001E9A    1851            LR      5,  1
C 00001E9C    5810911C        L       1,  284(  0,  9)
C 00001EA0    89100004        SLL     1,    4(  0)
C 00001EA4    1615            OR      1,  5
C 00001EA6    5010911C        ST      1,  284(  0,  9)



C 00001EAA    47F0A1C8        BC     15,  456(  0, 10)


   592            5:       S=S<<4!(I-'0'); ->102

C 00001EAE    5810904C        L       1,   76(  0,  9)
C 00001EB2    41200030        LA      2,   48(  0,  0)
C 00001EB6    1B12            SR      1,  2
C 00001EB8    1851            LR      5,  1
C 00001EBA    5810911C        L       1,  284(  0,  9)
C 00001EBE    89100004        SLL     1,    4(  0)
C 00001EC2    1615            OR      1,  5
C 00001EC4    5010911C        ST      1,  284(  0,  9)



C 00001EC8    47F0A1C8        BC     15,  456(  0, 10)


   593            MULT:          T=0;                    ! MULTIPLE CONSTANTS

C 00001ECC    1F11            SLR     1,  1
C 00001ECE    50109120        ST      1,  288(  0,  9)


   594            28:            I=CC(Q); Q=Q+1; ->22 %IF I=M''''

C 00001ED2    58109114        L       1,  276(  0,  9)
C 00001ED6    413092BC        LA      3,  700(  0,  9)
C 00001EDA    45F0C05C        BAL    15,   92(  0, 12)
C 00001EDE    4311F000        IC      1,    0(  1, 15)
C 00001EE2    5410D018        N       1,   24(  0, 13)
C 00001EE6    5010904C        ST      1,   76(  0,  9)



C 00001EEA    41100001        LA      1,    1(  0,  0)
C 00001EEE    5A109114        A       1,  276(  0,  9)
C 00001EF2    50109114        ST      1,  276(  0,  9)



C 00001EF6    41100027        LA      1,   39(  0,  0)
C 00001EFA    5910904C        C       1,   76(  0,  9)
C 00001EFE    478A0000        BC      8,    0( 10,  0)


   595            29:      S=S<<8!I; T=T+1; ->150 %IF T>=5; ->28

C 00001F02    5810911C        L       1,  284(  0,  9)
C 00001F06    89100008        SLL     1,    8(  0)
C 00001F0A    5610904C        O       1,   76(  0,  9)
C 00001F0E    5010911C        ST      1,  284(  0,  9)



C 00001F12    41100001        LA      1,    1(  0,  0)
C 00001F16    5A109120        A       1,  288(  0,  9)
C 00001F1A    50109120        ST      1,  288(  0,  9)



C 00001F1E    41100005        LA      1,    5(  0,  0)
C 00001F22    59109120        C       1,  288(  0,  9)
C 00001F26    47CA0000        BC     12,    0( 10,  0)



C 00001F2A    47F0A270        BC     15,  624(  0, 10)


   596            22:      ->99 %UNLESS CC(Q)=M''''; Q=Q+1; ->29

C 00001F2E    58109114        L       1,  276(  0,  9)
C 00001F32    413092BC        LA      3,  700(  0,  9)
C 00001F36    45F0C05C        BAL    15,   92(  0, 12)
C 00001F3A    4311F000        IC      1,    0(  1, 15)
C 00001F3E    5410D018        N       1,   24(  0, 13)
C 00001F42    41200027        LA      2,   39(  0,  0)
C 00001F46    1912            CR      1,  2
C 00001F48    477A0000        BC      7,    0( 10,  0)



C 00001F4C    41100001        LA      1,    1(  0,  0)
C 00001F50    5A109114        A       1,  276(  0,  9)
C 00001F54    50109114        ST      1,  276(  0,  9)



C 00001F58    47F0A2A0        BC     15,  672(  0, 10)


   597            104:     T=Q;                          ! BINARY CONST

C 00001F5C    D20391209114    MVC    288(  4,  9),  276(  9)


   598            32:            I=CC(Q); Q=Q+1

C 00001F62    58109114        L       1,  276(  0,  9)
C 00001F66    413092BC        LA      3,  700(  0,  9)
C 00001F6A    45F0C05C        BAL    15,   92(  0, 12)
C 00001F6E    4311F000        IC      1,    0(  1, 15)
C 00001F72    5410D018        N       1,   24(  0, 13)
C 00001F76    5010904C        ST      1,   76(  0,  9)



C 00001F7A    41100001        LA      1,    1(  0,  0)
C 00001F7E    5A109114        A       1,  276(  0,  9)
C 00001F82    50109114        ST      1,  276(  0,  9)


   599                           ->31 %IF M'1'#I#M'0'

C 00001F86    5810904C        L       1,   76(  0,  9)
C 00001F8A    41200031        LA      2,   49(  0,  0)
C 00001F8E    1921            CR      2,  1
C 00001F90    478A033C        BC      8,  828( 10,  0)
C 00001F94    41200030        LA      2,   48(  0,  0)
C 00001F98    1912            CR      1,  2
C 00001F9A    477A0000        BC      7,    0( 10,  0)


   600                           S=S<<1!(I-'0')

C 00001F9E    5810904C        L       1,   76(  0,  9)
C 00001FA2    41200030        LA      2,   48(  0,  0)
C 00001FA6    1B12            SR      1,  2
C 00001FA8    1851            LR      5,  1
C 00001FAA    5810911C        L       1,  284(  0,  9)
C 00001FAE    89100001        SLL     1,    1(  0)
C 00001FB2    1615            OR      1,  5
C 00001FB4    5010911C        ST      1,  284(  0,  9)


   601                     ->150 %IF Q-T>=33; ->32

C 00001FB8    58109114        L       1,  276(  0,  9)
C 00001FBC    5B109120        S       1,  288(  0,  9)
C 00001FC0    41200021        LA      2,   33(  0,  0)
C 00001FC4    1912            CR      1,  2
C 00001FC6    47AA0000        BC     10,    0( 10,  0)



C 00001FCA    47F0A300        BC     15,  768(  0, 10)


   602            31:      ->99 %IF I=M''''; ->150

C 00001FCE    41100027        LA      1,   39(  0,  0)
C 00001FD2    5910904C        C       1,   76(  0,  9)
C 00001FD6    478A0000        BC      8,    0( 10,  0)



C 00001FDA    47FA0000        BC     15,    0( 10,  0)


   603            N:       I=I&15; CVALUE=10*CVALUE+I

C 00001FDE    4110000F        LA      1,   15(  0,  0)
C 00001FE2    5410904C        N       1,   76(  0,  9)
C 00001FE6    5010904C        ST      1,   76(  0,  9)



C 00001FEA    6860D2A8        LD      6,  680(  0, 13)
C 00001FEE    6C6090E0        MD      6,  224(  0,  9)
C 00001FF2    5810904C        L       1,   76(  0,  9)
C 00001FF6    45F0C0AC        BAL    15,  172(  0, 12)
C 00001FFA    2A60            ADR     6,  0
C 00001FFC    606090E0        STD     6,  224(  0,  9)


   604                     Q=Q+1; I=CC(Q)

C 00002000    41100001        LA      1,    1(  0,  0)
C 00002004    5A109114        A       1,  276(  0,  9)
C 00002008    50109114        ST      1,  276(  0,  9)



C 0000200C    58109114        L       1,  276(  0,  9)
C 00002010    413092BC        LA      3,  700(  0,  9)
C 00002014    45F0C05C        BAL    15,   92(  0, 12)
C 00002018    4311F000        IC      1,    0(  1, 15)
C 0000201C    5410D018        N       1,   24(  0, 13)
C 00002020    5010904C        ST      1,   76(  0,  9)


   605                     ->N %IF M'0'<=I<=M'9'

C 00002024    5810904C        L       1,   76(  0,  9)
C 00002028    41200030        LA      2,   48(  0,  0)
C 0000202C    1921            CR      2,  1
C 0000202E    473A03DA        BC      3,  986( 10,  0)
C 00002032    41200039        LA      2,   57(  0,  0)
C 00002036    1912            CR      1,  2
C 00002038    47C0A37C        BC     12,  892(  0, 10)


   606                     -> ALPHA %UNLESS MODE=0 %AND I='.'

C 0000203C    95008043        CLI     67(  8),  0
C 00002040    477A0000        BC      7,    0( 10,  0)
C 00002044    4110002E        LA      1,   46(  0,  0)
C 00002048    5910904C        C       1,   76(  0,  9)
C 0000204C    477A0000        BC      7,    0( 10,  0)


   607            DOT:     Q=Q+1; X=10

C 00002050    41100001        LA      1,    1(  0,  0)
C 00002054    5A109114        A       1,  276(  0,  9)
C 00002058    50109114        ST      1,  276(  0,  9)



C 0000205C    6860D2B0        LD      6,  688(  0, 13)
C 00002060    60608048        STD     6,   72(  0,  8)


   608            45:      I=CC(Q); -> ALPHA %UNLESS M'0'<=I<=M'9'

C 00002064    58109114        L       1,  276(  0,  9)
C 00002068    413092BC        LA      3,  700(  0,  9)
C 0000206C    45F0C05C        BAL    15,   92(  0, 12)
C 00002070    4311F000        IC      1,    0(  1, 15)
C 00002074    5410D018        N       1,   24(  0, 13)
C 00002078    5010904C        ST      1,   76(  0,  9)



C 0000207C    5810904C        L       1,   76(  0,  9)
C 00002080    41200030        LA      2,   48(  0,  0)
C 00002084    1921            CR      2,  1
C 00002086    473A0000        BC      3,    0( 10,  0)
C 0000208A    41200039        LA      2,   57(  0,  0)
C 0000208E    1912            CR      1,  2
C 00002090    473A0000        BC      3,    0( 10,  0)


   609                     I=I&15; CVALUE=CVALUE+I/X

C 00002094    4110000F        LA      1,   15(  0,  0)
C 00002098    5410904C        N       1,   76(  0,  9)
C 0000209C    5010904C        ST      1,   76(  0,  9)



C 000020A0    5810904C        L       1,   76(  0,  9)
C 000020A4    45F0C0AC        BAL    15,  172(  0, 12)
C 000020A8    2860            LDR     6,  0
C 000020AA    6D608048        DD      6,   72(  0,  8)
C 000020AE    6A6090E0        AD      6,  224(  0,  9)
C 000020B2    606090E0        STD     6,  224(  0,  9)


   610                     X=10*X

C 000020B6    6860D2B8        LD      6,  696(  0, 13)
C 000020BA    6C608048        MD      6,   72(  0,  8)
C 000020BE    60608048        STD     6,   72(  0,  8)


   611                     Q=Q+1; ->45

C 000020C2    41100001        LA      1,    1(  0,  0)
C 000020C6    5A109114        A       1,  276(  0,  9)
C 000020CA    50109114        ST      1,  276(  0,  9)



C 000020CE    47F0A402        BC     15, 1026(  0, 10)


   612            ALPHA:   %COMMENT TEST FOR EXPONENT
   613                     -> FIX %UNLESS MODE=0 %AND CC(Q)='@'

C 000020D2    95008043        CLI     67(  8),  0
C 000020D6    477A0000        BC      7,    0( 10,  0)
C 000020DA    58109114        L       1,  276(  0,  9)
C 000020DE    413092BC        LA      3,  700(  0,  9)
C 000020E2    45F0C05C        BAL    15,   92(  0, 12)
C 000020E6    4311F000        IC      1,    0(  1, 15)
C 000020EA    5410D018        N       1,   24(  0, 13)
C 000020EE    41200040        LA      2,   64(  0,  0)
C 000020F2    1912            CR      1,  2
C 000020F4    477A0000        BC      7,    0( 10,  0)


   614                     Q=Q+1; X=CVALUE

C 000020F8    41100001        LA      1,    1(  0,  0)
C 000020FC    5A109114        A       1,  276(  0,  9)
C 00002100    50109114        ST      1,  276(  0,  9)



C 00002104    686090E0        LD      6,  224(  0,  9)
C 00002108    60608048        STD     6,   72(  0,  8)


   615                     Z=1; ->39 %IF '+'#CC(Q)#'-'

C 0000210C    41100001        LA      1,    1(  0,  0)
C 00002110    50108044        ST      1,   68(  0,  8)



C 00002114    58109114        L       1,  276(  0,  9)
C 00002118    413092BC        LA      3,  700(  0,  9)
C 0000211C    45F0C05C        BAL    15,   92(  0, 12)
C 00002120    4311F000        IC      1,    0(  1, 15)
C 00002124    5410D018        N       1,   24(  0, 13)
C 00002128    4120002B        LA      2,   43(  0,  0)
C 0000212C    1921            CR      2,  1
C 0000212E    478A04DA        BC      8, 1242( 10,  0)
C 00002132    4120002D        LA      2,   45(  0,  0)
C 00002136    1912            CR      1,  2
C 00002138    477A0000        BC      7,    0( 10,  0)


   616                     Z=-1 %IF CC(Q)='-'; Q=Q+1

C 0000213C    58109114        L       1,  276(  0,  9)
C 00002140    413092BC        LA      3,  700(  0,  9)
C 00002144    45F0C05C        BAL    15,   92(  0, 12)
C 00002148    4311F000        IC      1,    0(  1, 15)
C 0000214C    5410D018        N       1,   24(  0, 13)
C 00002150    4120002D        LA      2,   45(  0,  0)
C 00002154    1912            CR      1,  2
C 00002156    477A0500        BC      7, 1280( 10,  0)
C 0000215A    5810D010        L       1,   16(  0, 13)
C 0000215E    50108044        ST      1,   68(  0,  8)



C 00002162    41100001        LA      1,    1(  0,  0)
C 00002166    5A109114        A       1,  276(  0,  9)
C 0000216A    50109114        ST      1,  276(  0,  9)


   617            39:      CONST(2); ->150 %IF HIT=0; S=S*Z

C 0000216E    9202B043        MVI     67( 11),  2
C 00002172    5810D208        L       1,  520(  0, 13)
C 00002176    45F0D074        BAL    15,  116(  0, 13)



C 0000217A    950090CE        CLI    206(  9),  0
C 0000217E    478A0000        BC      8,    0( 10,  0)



C 00002182    5810911C        L       1,  284(  0,  9)
C 00002186    5C008044        M       0,   68(  0,  8)
C 0000218A    5010911C        ST      1,  284(  0,  9)


   618                     %IF S=-99 %THEN CVALUE=0 %ELSE CVALUE=X*10**S

C 0000218E    41100063        LA      1,   99(  0,  0)
C 00002192    1311            LCR     1,  1
C 00002194    5910911C        C       1,  284(  0,  9)
C 00002198    477A0546        BC      7, 1350( 10,  0)
C 0000219C    6860D028        LD      6,   40(  0, 13)
C 000021A0    606090E0        STD     6,  224(  0,  9)
C 000021A4    47FA055E        BC     15, 1374( 10,  0)
C 000021A8    6860D2C0        LD      6,  704(  0, 13)
C 000021AC    2806            LDR     0,  6
C 000021AE    5810911C        L       1,  284(  0,  9)
C 000021B2    45F0C090        BAL    15,  144(  0, 12)
C 000021B6    2860            LDR     6,  0
C 000021B8    6C608048        MD      6,   72(  0,  8)
C 000021BC    606090E0        STD     6,  224(  0,  9)


   619            FIX:     %COMMENT SEE IF IT IS INTEGER
   620                     ->40 %IF CVALUE>IMAX;         ! TOO BIG

C 000021C0    686090E8        LD      6,  232(  0,  9)
C 000021C4    696090E0        CD      6,  224(  0,  9)
C 000021C8    474A0000        BC      4,    0( 10,  0)


   621                     ->41 %IF FRACPT(CVALUE)=0

C 000021CC    686090E0        LD      6,  224(  0,  9)
C 000021D0    0510            BALR    1,  0
C 000021D2    2826            LDR     2,  6
C 000021D4    6E6D0048        AW      6,   72( 13,  0)
C 000021D8    6A6D0028        AD      6,   40( 13,  0)
C 000021DC    2B26            SDR     2,  6
C 000021DE    47B01014        BC     11,   20(  0,  1)
C 000021E2    6A2D0030        AD      2,   48( 13,  0)
C 000021E6    2222            LTDR    2,  2
C 000021E8    478A0000        BC      8,    0( 10,  0)


   622            40:      CTYPE=2; HIT=1; %RETURN

C 000021EC    920290D8        MVI    216(  9),  2



C 000021F0    920190CE        MVI    206(  9),  1



C 000021F4    D203D0148000    MVC     20(  4, 13),    0(  8)
C 000021FA    984F8010        LM      4, 15,   16(  8)
C 000021FE    07FF            BCR    15, 15


   623            41:      S=INT(CVALUE)

C 00002200    686090E0        LD      6,  224(  0,  9)
C 00002204    2806            LDR     0,  6
C 00002206    45F0C084        BAL    15,  132(  0, 12)
C 0000220A    5010911C        ST      1,  284(  0,  9)


   624            99:      CTYPE=1; HIT=1; %RETURN

C 0000220E    920190D8        MVI    216(  9),  1



C 00002212    920190CE        MVI    206(  9),  1



C 00002216    D203D0148000    MVC     20(  4, 13),    0(  8)
C 0000221C    984F8010        LM      4, 15,   16(  8)
C 00002220    07FF            BCR    15, 15


   625            150:     HIT=0;                        ! FAILURE

C 00002222    920090CE        MVI    206(  9),  0


   626                           %END
D 00000100    C2 C2 C2 C2 02 34 08 05 43 4F 4E 53 54 00 00 10 1A 80 48 01 58 00 00 E0 01 80 44 01 5A 00 00 09 09 80 43 04 4D 4F 44 45 FF FF FF FF


C 00002226    D203D0148000    MVC     20(  4, 13),    0(  8)
C 0000222C    984F8010        LM      4, 15,   16(  8)
C 00002230    07FF            BCR    15, 15


   627                 %ROUTINE CONSTLIST

C 00002232    0000
C 00002234    0000
C 00002236    47FA0000        BC     15,    0( 10,  0)
C 0000223A    50F0B03C        ST     15,   60(  0, 11)
C 0000223E    D203B000D014    MVC      0(  4, 11),   20( 13)
C 00002244    41000273        LA      0,  627(  0,  0)
C 00002248    4000D014        STH     0,   20(  0, 13)
C 0000224C    188B            LR      8, 11
C 0000224E    41BB0000        LA     11,    0( 11,  0)
C 00002252    41000004        LA      0,    4(  0,  0)
C 00002256    59BD0044        C      11,   68( 13,  0)
C 0000225A    4720C054        BC      2,   84(  0, 12)
C 0000225E    05A0            BALR   10,  0


   628                     %SHORTROUTINE
   629                     %INTEGER PRECP,NCONST,RF,J,K,CPW
   630                     %INTEGER KK,SIGN,SP,RQ,VALUE
   631                     %INTEGER TYPEP,ACC,RP,N,JJ
   632                     %LONGREAL C
   633                     VALUE=0; NCONST=0

C 00002260    1F11            SLR     1,  1
C 00002262    50108068        ST      1,  104(  0,  8)



C 00002266    1F11            SLR     1,  1
C 00002268    50108044        ST      1,   68(  0,  8)


   634                     %IF CONSTPTR&1#0 %THEN PSYM(0)

C 0000226C    41100001        LA      1,    1(  0,  0)
C 00002270    541090A0        N       1,  160(  0,  9)
C 00002274    478A0026        BC      8,   38( 10,  0)
C 00002278    1F11            SLR     1,  1
C 0000227A    5010B040        ST      1,   64(  0, 11)
C 0000227E    5810D1FC        L       1,  508(  0, 13)
C 00002282    45F0D074        BAL    15,  116(  0, 13)


   635                     A(R+1)=CONSTPTR

C 00002286    584090A0        L       4,  160(  0,  9)
C 0000228A    41100001        LA      1,    1(  0,  0)
C 0000228E    5A109118        A       1,  280(  0,  9)
C 00002292    413092FC        LA      3,  764(  0,  9)
C 00002296    45F0C05C        BAL    15,   92(  0, 12)
C 0000229A    4041F000        STH     4,    0(  1, 15)
C 0000229E    494F1000        CH      4,    0( 15,  1)
C 000022A2    477C0058        BC      7,   88( 12,  0)


   636                     RP=R; R=R+2; ACC=0; N=24

C 000022A6    D20380749118    MVC    116(  4,  8),  280(  9)



C 000022AC    41100002        LA      1,    2(  0,  0)
C 000022B0    5A109118        A       1,  280(  0,  9)
C 000022B4    50109118        ST      1,  280(  0,  9)



C 000022B8    1F11            SLR     1,  1
C 000022BA    50108070        ST      1,  112(  0,  8)



C 000022BE    41100018        LA      1,   24(  0,  0)
C 000022C2    50108078        ST      1,  120(  0,  8)


   637                     TYPEP=TYPEFLAG(A(2)); PRECP=TYPEP>>3

C 000022C6    41100002        LA      1,    2(  0,  0)
C 000022CA    413092FC        LA      3,  764(  0,  9)
C 000022CE    45F0C05C        BAL    15,   92(  0, 12)
C 000022D2    4811F000        LH      1,    0(  1, 15)
C 000022D6    4130D128        LA      3,  296(  0, 13)
C 000022DA    45F0C05C        BAL    15,   92(  0, 12)
C 000022DE    4311F000        IC      1,    0(  1, 15)
C 000022E2    5410D018        N       1,   24(  0, 13)
C 000022E6    5010806C        ST      1,  108(  0,  8)



C 000022EA    5810806C        L       1,  108(  0,  8)
C 000022EE    88100003        SRL     1,    3(  0)
C 000022F2    50108040        ST      1,   64(  0,  8)


   638                     TYPEP=TYPEP&7

C 000022F6    41100007        LA      1,    7(  0,  0)
C 000022FA    5410806C        N       1,  108(  0,  8)
C 000022FE    5010806C        ST      1,  108(  0,  8)


   639                     %IF TYPEP=5 %THEN ACC=A(4)

C 00002302    41100005        LA      1,    5(  0,  0)
C 00002306    5910806C        C       1,  108(  0,  8)
C 0000230A    477A00C2        BC      7,  194( 10,  0)
C 0000230E    41100004        LA      1,    4(  0,  0)
C 00002312    413092FC        LA      3,  764(  0,  9)
C 00002316    45F0C05C        BAL    15,   92(  0, 12)
C 0000231A    4811F000        LH      1,    0(  1, 15)
C 0000231E    50108070        ST      1,  112(  0,  8)


   640                     PRECP=3 %IF TYPEP=2 %AND ALL LONG=1

C 00002322    41100002        LA      1,    2(  0,  0)
C 00002326    5910806C        C       1,  108(  0,  8)
C 0000232A    477A00DE        BC      7,  222( 10,  0)
C 0000232E    950190D3        CLI    211(  9),  1
C 00002332    477A00DE        BC      7,  222( 10,  0)
C 00002336    41100003        LA      1,    3(  0,  0)
C 0000233A    50108040        ST      1,   64(  0,  8)


   641                     CPW=4//BYTES(PRECP)

C 0000233E    58108040        L       1,   64(  0,  8)
C 00002342    4130D108        LA      3,  264(  0, 13)
C 00002346    45F0C05C        BAL    15,   92(  0, 12)
C 0000234A    1F77            SLR     7,  7
C 0000234C    4371F000        IC      7,    0(  1, 15)
C 00002350    41000004        LA      0,    4(  0,  0)
C 00002354    8E000020        SRDA    0,   32(  0)
C 00002358    1D07            DR      0,  7
C 0000235A    50108054        ST      1,   84(  0,  8)


   642                     CPW=4 %IF TYPEP=5

C 0000235E    41100005        LA      1,    5(  0,  0)
C 00002362    5910806C        C       1,  108(  0,  8)
C 00002366    477A0112        BC      7,  274( 10,  0)
C 0000236A    41100004        LA      1,    4(  0,  0)
C 0000236E    50108054        ST      1,   84(  0,  8)


   643            6:       RQ=Q; I=CC(Q); SIGN=1; ->7 %IF I='-'

C 00002372    D20380649114    MVC    100(  4,  8),  276(  9)



C 00002378    58109114        L       1,  276(  0,  9)
C 0000237C    413092BC        LA      3,  700(  0,  9)
C 00002380    45F0C05C        BAL    15,   92(  0, 12)
C 00002384    4311F000        IC      1,    0(  1, 15)
C 00002388    5410D018        N       1,   24(  0, 13)
C 0000238C    5010904C        ST      1,   76(  0,  9)



C 00002390    41100001        LA      1,    1(  0,  0)
C 00002394    5010805C        ST      1,   92(  0,  8)



C 00002398    4110002D        LA      1,   45(  0,  0)
C 0000239C    5910904C        C       1,   76(  0,  9)
C 000023A0    478A0000        BC      8,    0( 10,  0)


   644                     ->8 %IF I='+'; ->9

C 000023A4    4110002B        LA      1,   43(  0,  0)
C 000023A8    5910904C        C       1,   76(  0,  9)
C 000023AC    478A0000        BC      8,    0( 10,  0)



C 000023B0    47FA0000        BC     15,    0( 10,  0)


   645            7:       SIGN=-1; ->99 %IF CPW=4

C 000023B4    5810D010        L       1,   16(  0, 13)
C 000023B8    5010805C        ST      1,   92(  0,  8)



C 000023BC    41100004        LA      1,    4(  0,  0)
C 000023C0    59108054        C       1,   84(  0,  8)
C 000023C4    478A0000        BC      8,    0( 10,  0)


   646            8:       Q=Q+1; I=CC(Q)

C 000023C8    41100001        LA      1,    1(  0,  0)
C 000023CC    5A109114        A       1,  276(  0,  9)
C 000023D0    50109114        ST      1,  276(  0,  9)



C 000023D4    58109114        L       1,  276(  0,  9)
C 000023D8    413092BC        LA      3,  700(  0,  9)
C 000023DC    45F0C05C        BAL    15,   92(  0, 12)
C 000023E0    4311F000        IC      1,    0(  1, 15)
C 000023E4    5410D018        N       1,   24(  0, 13)
C 000023E8    5010904C        ST      1,   76(  0,  9)


   647            9:       CONST(0); RF=1

C 000023EC    9200B043        MVI     67( 11),  0
C 000023F0    5810D208        L       1,  520(  0, 13)
C 000023F4    45F0D074        BAL    15,  116(  0, 13)



C 000023F8    41100001        LA      1,    1(  0,  0)
C 000023FC    50108048        ST      1,   72(  0,  8)


   648                     ->98 %IF HIT=0

C 00002400    950090CE        CLI    206(  9),  0
C 00002404    478A0000        BC      8,    0( 10,  0)


   649                     ->1 %UNLESS CC(Q)='('

C 00002408    58109114        L       1,  276(  0,  9)
C 0000240C    413092BC        LA      3,  700(  0,  9)
C 00002410    45F0C05C        BAL    15,   92(  0, 12)
C 00002414    4311F000        IC      1,    0(  1, 15)
C 00002418    5410D018        N       1,   24(  0, 13)
C 0000241C    41200028        LA      2,   40(  0,  0)
C 00002420    1912            CR      1,  2
C 00002422    477A0000        BC      7,    0( 10,  0)


   650                     J=S; Q=Q+1; C=CVALUE

C 00002426    D203804C911C    MVC     76(  4,  8),  284(  9)



C 0000242C    41100001        LA      1,    1(  0,  0)
C 00002430    5A109114        A       1,  276(  0,  9)
C 00002434    50109114        ST      1,  276(  0,  9)



C 00002438    686090E0        LD      6,  224(  0,  9)
C 0000243C    60608080        STD     6,  128(  0,  8)


   651                     CONST(2); ->98 %UNLESS HIT=1 %AND S>0 %AND CC(Q)=')'

C 00002440    9202B043        MVI     67( 11),  2
C 00002444    5810D208        L       1,  520(  0, 13)
C 00002448    45F0D074        BAL    15,  116(  0, 13)



C 0000244C    950190CE        CLI    206(  9),  1
C 00002450    477A0000        BC      7,    0( 10,  0)
C 00002454    5810911C        L       1,  284(  0,  9)
C 00002458    1211            LTR     1,  1
C 0000245A    47DA0000        BC     13,    0( 10,  0)
C 0000245E    58109114        L       1,  276(  0,  9)
C 00002462    413092BC        LA      3,  700(  0,  9)
C 00002466    45F0C05C        BAL    15,   92(  0, 12)
C 0000246A    4311F000        IC      1,    0(  1, 15)
C 0000246E    5410D018        N       1,   24(  0, 13)
C 00002472    41200029        LA      2,   41(  0,  0)
C 00002476    1912            CR      1,  2
C 00002478    477A0000        BC      7,    0( 10,  0)


   652                     Q=Q+1

C 0000247C    41100001        LA      1,    1(  0,  0)
C 00002480    5A109114        A       1,  276(  0,  9)
C 00002484    50109114        ST      1,  276(  0,  9)


   653                     CVALUE=C; RF=S; S=J

C 00002488    68608080        LD      6,  128(  0,  8)
C 0000248C    606090E0        STD     6,  224(  0,  9)



C 00002490    D2038048911C    MVC     72(  4,  8),  284(  9)



C 00002496    D203911C804C    MVC    284(  4,  9),   76(  8)


   654            1:       ->21 %IF TYPEP=2

C 0000249C    41100002        LA      1,    2(  0,  0)
C 000024A0    5910806C        C       1,  108(  0,  8)
C 000024A4    478A0000        BC      8,    0( 10,  0)


   655                     ->51 %IF TYPEP=5

C 000024A8    41100005        LA      1,    5(  0,  0)
C 000024AC    5910806C        C       1,  108(  0,  8)
C 000024B0    478A0000        BC      8,    0( 10,  0)


   656                     ->99 %IF CPW=4 %AND S>255

C 000024B4    41100004        LA      1,    4(  0,  0)
C 000024B8    59108054        C       1,   84(  0,  8)
C 000024BC    477A026C        BC      7,  620( 10,  0)
C 000024C0    411000FF        LA      1,  255(  0,  0)
C 000024C4    5910911C        C       1,  284(  0,  9)
C 000024C8    474A0000        BC      4,    0( 10,  0)


   657                     ->99 %IF CPW=2 %AND !S!>>16#0;! SHORT TOO LARGE

C 000024CC    41100002        LA      1,    2(  0,  0)
C 000024D0    59108054        C       1,   84(  0,  8)
C 000024D4    477A028A        BC      7,  650( 10,  0)
C 000024D8    5810911C        L       1,  284(  0,  9)
C 000024DC    1011            LPR     1,  1
C 000024DE    1851            LR      5,  1
C 000024E0    88500010        SRL     5,   16(  0)
C 000024E4    1255            LTR     5,  5
C 000024E6    477A0000        BC      7,    0( 10,  0)


   658                     S=S*SIGN

C 000024EA    5810911C        L       1,  284(  0,  9)
C 000024EE    5C00805C        M       0,   92(  0,  8)
C 000024F2    5010911C        ST      1,  284(  0,  9)


   659                     S=S&X'FFFF' %IF CPW=2

C 000024F6    41100002        LA      1,    2(  0,  0)
C 000024FA    59108054        C       1,   84(  0,  8)
C 000024FE    477A02AE        BC      7,  686( 10,  0)
C 00002502    5810911C        L       1,  284(  0,  9)
C 00002506    5410D2CC        N       1,  716(  0, 13)
C 0000250A    5010911C        ST      1,  284(  0,  9)


   660                      %CYCLE KK=1,1,RF

C 0000250E    41408058        LA      4,   88(  0,  8)
C 00002512    41200001        LA      2,    1(  0,  0)
C 00002516    58308048        L       3,   72(  0,  8)
C 0000251A    90248088        STM     2,  4,  136(  8)
C 0000251E    41100001        LA      1,    1(  0,  0)
C 00002522    50104000        ST      1,    0(  0,  4)


   661                     J=NCONST//CPW

C 00002526    58008044        L       0,   68(  0,  8)
C 0000252A    8E000020        SRDA    0,   32(  0)
C 0000252E    5D008054        D       0,   84(  0,  8)
C 00002532    5010804C        ST      1,   76(  0,  8)


   662                     K=NCONST-CPW*J

C 00002536    58108054        L       1,   84(  0,  8)
C 0000253A    5C00804C        M       0,   76(  0,  8)
C 0000253E    58208044        L       2,   68(  0,  8)
C 00002542    1B21            SR      2,  1
C 00002544    50208050        ST      2,   80(  0,  8)


   663                     SP=S<<(32*(CPW-K-1)//CPW)

C 00002548    58108054        L       1,   84(  0,  8)
C 0000254C    5B108050        S       1,   80(  0,  8)
C 00002550    0610            BCTR    1,  0
C 00002552    1851            LR      5,  1
C 00002554    41100020        LA      1,   32(  0,  0)
C 00002558    1C41            MR      4,  1
C 0000255A    1805            LR      0,  5
C 0000255C    8E000020        SRDA    0,   32(  0)
C 00002560    5D008054        D       0,   84(  0,  8)
C 00002564    1851            LR      5,  1
C 00002566    5810911C        L       1,  284(  0,  9)
C 0000256A    89105000        SLL     1,    0(  5)
C 0000256E    50108060        ST      1,   96(  0,  8)


   664                     VALUE=SP!VALUE

C 00002572    58108060        L       1,   96(  0,  8)
C 00002576    56108068        O       1,  104(  0,  8)
C 0000257A    50108068        ST      1,  104(  0,  8)


   665                     NCONST=NCONST+1

C 0000257E    41100001        LA      1,    1(  0,  0)
C 00002582    5A108044        A       1,   68(  0,  8)
C 00002586    50108044        ST      1,   68(  0,  8)


   666                     ->5 %UNLESS (CPW-1)&NCONST=0

C 0000258A    58108054        L       1,   84(  0,  8)
C 0000258E    0610            BCTR    1,  0
C 00002590    1851            LR      5,  1
C 00002592    54508044        N       5,   68(  0,  8)
C 00002596    477A0000        BC      7,    0( 10,  0)


   667                     PSYM(VALUE); VALUE=0

C 0000259A    D203B0408068    MVC     64(  4, 11),  104(  8)
C 000025A0    5810D1FC        L       1,  508(  0, 13)
C 000025A4    45F0D074        BAL    15,  116(  0, 13)



C 000025A8    1F11            SLR     1,  1
C 000025AA    50108068        ST      1,  104(  0,  8)


   668            5:       %REPEAT

C 000025AE    98248088        LM      2,  4,  136(  8)
C 000025B2    58104000        L       1,    0(  0,  4)
C 000025B6    8712A2C2        BXLE    1,  2,  706( 10)


   669                     11:   ->99 %UNLESS CC(Q)=','; Q=Q+1

C 000025BA    58109114        L       1,  276(  0,  9)
C 000025BE    413092BC        LA      3,  700(  0,  9)
C 000025C2    45F0C05C        BAL    15,   92(  0, 12)
C 000025C6    4311F000        IC      1,    0(  1, 15)
C 000025CA    5410D018        N       1,   24(  0, 13)
C 000025CE    4120002C        LA      2,   44(  0,  0)
C 000025D2    1912            CR      1,  2
C 000025D4    477A0000        BC      7,    0( 10,  0)



C 000025D8    41100001        LA      1,    1(  0,  0)
C 000025DC    5A109114        A       1,  276(  0,  9)
C 000025E0    50109114        ST      1,  276(  0,  9)


   670                     ->6 %UNLESS CC(Q)=10

C 000025E4    58109114        L       1,  276(  0,  9)
C 000025E8    413092BC        LA      3,  700(  0,  9)
C 000025EC    45F0C05C        BAL    15,   92(  0, 12)
C 000025F0    4311F000        IC      1,    0(  1, 15)
C 000025F4    5410D018        N       1,   24(  0, 13)
C 000025F8    4120000A        LA      2,   10(  0,  0)
C 000025FC    1912            CR      1,  2
C 000025FE    4770A112        BC      7,  274(  0, 10)


   671                     READLINE(0); Q=1; ->6

C 00002602    9200B043        MVI     67( 11),  0
C 00002606    5810D250        L       1,  592(  0, 13)
C 0000260A    45F0D074        BAL    15,  116(  0, 13)



C 0000260E    41100001        LA      1,    1(  0,  0)
C 00002612    50109114        ST      1,  276(  0,  9)



C 00002616    47F0A112        BC     15,  274(  0, 10)


   672            21:      %IF CTYPE=1 %THEN CVALUE=S

C 0000261A    950190D8        CLI    216(  9),  1
C 0000261E    477A03D0        BC      7,  976( 10,  0)
C 00002622    5810911C        L       1,  284(  0,  9)
C 00002626    45F0C0AC        BAL    15,  172(  0, 12)
C 0000262A    2860            LDR     6,  0
C 0000262C    606090E0        STD     6,  224(  0,  9)


   673                     CVALUE=SIGN*CVALUE

C 00002630    5810805C        L       1,   92(  0,  8)
C 00002634    45F0C0AC        BAL    15,  172(  0, 12)
C 00002638    2860            LDR     6,  0
C 0000263A    6C6090E0        MD      6,  224(  0,  9)
C 0000263E    606090E0        STD     6,  224(  0,  9)


   674                     J=INTEGER(ADDR(CVALUE))

C 00002642    411090E0        LA      1,  224(  0,  9)
C 00002646    58101000        L       1,    0(  0,  1)
C 0000264A    5010804C        ST      1,   76(  0,  8)


   675                     K=INTEGER(ADDR(CVALUE)+4)

C 0000264E    417090E0        LA      7,  224(  0,  9)
C 00002652    41100004        LA      1,    4(  0,  0)
C 00002656    1A71            AR      7,  1
C 00002658    58107000        L       1,    0(  0,  7)
C 0000265C    50108050        ST      1,   80(  0,  8)


   676                     %CYCLE KK=1,1,RF; NCONST=NCONST+1

C 00002660    41408058        LA      4,   88(  0,  8)
C 00002664    41200001        LA      2,    1(  0,  0)
C 00002668    58308048        L       3,   72(  0,  8)
C 0000266C    90248094        STM     2,  4,  148(  8)
C 00002670    41100001        LA      1,    1(  0,  0)
C 00002674    50104000        ST      1,    0(  0,  4)



C 00002678    41100001        LA      1,    1(  0,  0)
C 0000267C    5A108044        A       1,   68(  0,  8)
C 00002680    50108044        ST      1,   68(  0,  8)


   677                     PSYM(J); PSYM(K) %IF PRECP=3

C 00002684    D203B040804C    MVC     64(  4, 11),   76(  8)
C 0000268A    5810D1FC        L       1,  508(  0, 13)
C 0000268E    45F0D074        BAL    15,  116(  0, 13)



C 00002692    41100003        LA      1,    3(  0,  0)
C 00002696    59108040        C       1,   64(  0,  8)
C 0000269A    477A044C        BC      7, 1100( 10,  0)
C 0000269E    D203B0408050    MVC     64(  4, 11),   80(  8)
C 000026A4    5810D1FC        L       1,  508(  0, 13)
C 000026A8    45F0D074        BAL    15,  116(  0, 13)


   678                     %REPEAT; ->11

C 000026AC    98248094        LM      2,  4,  148(  8)
C 000026B0    58104000        L       1,    0(  0,  4)
C 000026B4    8712A414        BXLE    1,  2, 1044( 10)



C 000026B8    47F0A35A        BC     15,  858(  0, 10)


   679            51:      ->52 %IF CTYPE=5

C 000026BC    950590D8        CLI    216(  9),  5
C 000026C0    478A0000        BC      8,    0( 10,  0)


   680                     ->98 %UNLESS CTYPE=1 %AND S<=127

C 000026C4    950190D8        CLI    216(  9),  1
C 000026C8    477A0000        BC      7,    0( 10,  0)
C 000026CC    4110007F        LA      1,  127(  0,  0)
C 000026D0    5910911C        C       1,  284(  0,  9)
C 000026D4    475A0000        BC      5,    0( 10,  0)


   681                     A(RP+3)=1; A(RP+4)=S

C 000026D8    41400001        LA      4,    1(  0,  0)
C 000026DC    41100003        LA      1,    3(  0,  0)
C 000026E0    5A108074        A       1,  116(  0,  8)
C 000026E4    413092FC        LA      3,  764(  0,  9)
C 000026E8    45F0C05C        BAL    15,   92(  0, 12)
C 000026EC    4041F000        STH     4,    0(  1, 15)
C 000026F0    494F1000        CH      4,    0( 15,  1)
C 000026F4    477C0058        BC      7,   88( 12,  0)



C 000026F8    5840911C        L       4,  284(  0,  9)
C 000026FC    41100004        LA      1,    4(  0,  0)
C 00002700    5A108074        A       1,  116(  0,  8)
C 00002704    413092FC        LA      3,  764(  0,  9)
C 00002708    45F0C05C        BAL    15,   92(  0, 12)
C 0000270C    4041F000        STH     4,    0(  1, 15)
C 00002710    494F1000        CH      4,    0( 15,  1)
C 00002714    477C0058        BC      7,   88( 12,  0)


   682            52:      ->98 %UNLESS SIGN=1 %AND ACC>=A(RP+3)

C 00002718    41100001        LA      1,    1(  0,  0)
C 0000271C    5910805C        C       1,   92(  0,  8)
C 00002720    477A0000        BC      7,    0( 10,  0)
C 00002724    41100003        LA      1,    3(  0,  0)
C 00002728    5A108074        A       1,  116(  0,  8)
C 0000272C    413092FC        LA      3,  764(  0,  9)
C 00002730    45F0C05C        BAL    15,   92(  0, 12)
C 00002734    4811F000        LH      1,    0(  1, 15)
C 00002738    59108070        C       1,  112(  0,  8)
C 0000273C    473A0000        BC      3,    0( 10,  0)


   683                     %CYCLE KK=1,1,RF

C 00002740    41408058        LA      4,   88(  0,  8)
C 00002744    41200001        LA      2,    1(  0,  0)
C 00002748    58308048        L       3,   72(  0,  8)
C 0000274C    902480A0        STM     2,  4,  160(  8)
C 00002750    41100001        LA      1,    1(  0,  0)
C 00002754    50104000        ST      1,    0(  0,  4)


   684                     %CYCLE JJ=0,1,ACC

C 00002758    4140807C        LA      4,  124(  0,  8)
C 0000275C    41200001        LA      2,    1(  0,  0)
C 00002760    58308070        L       3,  112(  0,  8)
C 00002764    902480AC        STM     2,  4,  172(  8)
C 00002768    1F11            SLR     1,  1
C 0000276A    50104000        ST      1,    0(  0,  4)


   685                     S=A(RP+JJ+3)&127

C 0000276E    58108074        L       1,  116(  0,  8)
C 00002772    5A10807C        A       1,  124(  0,  8)
C 00002776    41200003        LA      2,    3(  0,  0)
C 0000277A    1A12            AR      1,  2
C 0000277C    413092FC        LA      3,  764(  0,  9)
C 00002780    45F0C05C        BAL    15,   92(  0, 12)
C 00002784    4871F000        LH      7,    0(  1, 15)
C 00002788    4110007F        LA      1,  127(  0,  0)
C 0000278C    1471            NR      7,  1
C 0000278E    5070911C        ST      7,  284(  0,  9)


   686                     SP=S<<N

C 00002792    5810911C        L       1,  284(  0,  9)
C 00002796    58208078        L       2,  120(  0,  8)
C 0000279A    89102000        SLL     1,    0(  2)
C 0000279E    50108060        ST      1,   96(  0,  8)


   687                     VALUE=SP!VALUE; N=N-8

C 000027A2    58108060        L       1,   96(  0,  8)
C 000027A6    56108068        O       1,  104(  0,  8)
C 000027AA    50108068        ST      1,  104(  0,  8)



C 000027AE    58108078        L       1,  120(  0,  8)
C 000027B2    41200008        LA      2,    8(  0,  0)
C 000027B6    1B12            SR      1,  2
C 000027B8    50108078        ST      1,  120(  0,  8)


   688                     ->55 %UNLESS N<0

C 000027BC    58108078        L       1,  120(  0,  8)
C 000027C0    1211            LTR     1,  1
C 000027C2    47BA0000        BC     11,    0( 10,  0)


   689                     PSYM(VALUE); N=24; VALUE=0

C 000027C6    D203B0408068    MVC     64(  4, 11),  104(  8)
C 000027CC    5810D1FC        L       1,  508(  0, 13)
C 000027D0    45F0D074        BAL    15,  116(  0, 13)



C 000027D4    41100018        LA      1,   24(  0,  0)
C 000027D8    50108078        ST      1,  120(  0,  8)



C 000027DC    1F11            SLR     1,  1
C 000027DE    50108068        ST      1,  104(  0,  8)


   690            55:      %REPEAT

C 000027E2    982480AC        LM      2,  4,  172(  8)
C 000027E6    58104000        L       1,    0(  0,  4)
C 000027EA    8712A50A        BXLE    1,  2, 1290( 10)


   691                     NCONST=NCONST+1

C 000027EE    41100001        LA      1,    1(  0,  0)
C 000027F2    5A108044        A       1,   68(  0,  8)
C 000027F6    50108044        ST      1,   68(  0,  8)


   692                     %REPEAT; R=RP+2; ->11

C 000027FA    982480A0        LM      2,  4,  160(  8)
C 000027FE    58104000        L       1,    0(  0,  4)
C 00002802    8712A4F4        BXLE    1,  2, 1268( 10)



C 00002806    41100002        LA      1,    2(  0,  0)
C 0000280A    5A108074        A       1,  116(  0,  8)
C 0000280E    50109118        ST      1,  280(  0,  9)



C 00002812    47F0A35A        BC     15,  858(  0, 10)


   693            98:      Q=RQ

C 00002816    D20391148064    MVC    276(  4,  9),  100(  8)


   694            99:      R=RP; A(R)=NCONST

C 0000281C    D20391188074    MVC    280(  4,  9),  116(  8)



C 00002822    58408044        L       4,   68(  0,  8)
C 00002826    58109118        L       1,  280(  0,  9)
C 0000282A    413092FC        LA      3,  764(  0,  9)
C 0000282E    45F0C05C        BAL    15,   92(  0, 12)
C 00002832    4041F000        STH     4,    0(  1, 15)
C 00002836    494F1000        CH      4,    0( 15,  1)
C 0000283A    477C0058        BC      7,   88( 12,  0)


   695            PSYM(VALUE) %IF(TYPEP=5%AND N#24)%OR(TYPEP#5 %AND(CPW-1)&NCONST#0)

C 0000283E    41100005        LA      1,    5(  0,  0)
C 00002842    5910806C        C       1,  108(  0,  8)
C 00002846    477A05F6        BC      7, 1526( 10,  0)
C 0000284A    41100018        LA      1,   24(  0,  0)
C 0000284E    59108078        C       1,  120(  0,  8)
C 00002852    477A0612        BC      7, 1554( 10,  0)
C 00002856    41100005        LA      1,    5(  0,  0)
C 0000285A    5910806C        C       1,  108(  0,  8)
C 0000285E    478A0620        BC      8, 1568( 10,  0)
C 00002862    58108054        L       1,   84(  0,  8)
C 00002866    0610            BCTR    1,  0
C 00002868    1851            LR      5,  1
C 0000286A    54508044        N       5,   68(  0,  8)
C 0000286E    478A0620        BC      8, 1568( 10,  0)
C 00002872    D203B0408068    MVC     64(  4, 11),  104(  8)
C 00002878    5810D1FC        L       1,  508(  0, 13)
C 0000287C    45F0D074        BAL    15,  116(  0, 13)


   696                     %END
D 0000012C    C2 C2 C2 C2 02 73 08 09 43 4F 4E 53 54 4C 49 53 54 00 00 00 1A 80 80 01 43 FE A7 40 01 80 7C 02 4A 4A 00 08 01 80 78 01 4E FE A7 64 01 80 74 02 52 50 00 08 01 80 70 03 41 43 43 01 01 80 6C 05 54 59 50 45 50 00 00 01 01 80 68 05 56 41 4C 55 45 FE A5 FC 01 80 64 02 52 51 A6 04 01 80 60 02 53 50 A6 0C 01 80 5C 04 53 49 47 4E 01 80 58 02 4B 4B 00 03 01 80 54 03 43 50 57 05 01 80 50 01 4B 00 00 01 01 80 4C 01 4A FE A7 B0 01 80 48 02 52 46 A7 50 01 80 44 06 4E 43 4F 4E 53 54 00 01 01 80 40 05 50 52 45 43 50 00 00 00 FF FF FF FF


C 00002880    D203D0148000    MVC     20(  4, 13),    0(  8)
C 00002886    984F8010        LM      4, 15,   16(  8)
C 0000288A    07FF            BCR    15, 15


   697                 %ROUTINE TEXTTEXT

C 0000288C    0000
C 0000288E    0000
C 00002890    47FA0000        BC     15,    0( 10,  0)
C 00002894    50F0B03C        ST     15,   60(  0, 11)
C 00002898    D203B000D014    MVC      0(  4, 11),   20( 13)
C 0000289E    410002B9        LA      0,  697(  0,  0)
C 000028A2    4000D014        STH     0,   20(  0, 13)
C 000028A6    188B            LR      8, 11
C 000028A8    41BB0000        LA     11,    0( 11,  0)
C 000028AC    41000004        LA      0,    4(  0,  0)
C 000028B0    59BD0044        C      11,   68( 13,  0)
C 000028B4    4720C054        BC      2,   84(  0, 12)
C 000028B8    05A0            BALR   10,  0


   698                     %SHORTROUTINE
   699                     %INTEGER S,J
   700                     S=R; R=R+1

C 000028BA    D20380409118    MVC     64(  4,  8),  280(  9)



C 000028C0    41100001        LA      1,    1(  0,  0)
C 000028C4    5A109118        A       1,  280(  0,  9)
C 000028C8    50109118        ST      1,  280(  0,  9)


   701                     ->98 %UNLESS I=M''''          ;!FAIL UNLESS  INITIAL QUOTE

C 000028CC    41100027        LA      1,   39(  0,  0)
C 000028D0    5910904C        C       1,   76(  0,  9)
C 000028D4    477A0000        BC      7,    0( 10,  0)


   702                     Q=Q+1

C 000028D8    41100001        LA      1,    1(  0,  0)
C 000028DC    5A109114        A       1,  276(  0,  9)
C 000028E0    50109114        ST      1,  276(  0,  9)


   703            1:       I=CC(Q);A(R)=I;R=R+1

C 000028E4    58109114        L       1,  276(  0,  9)
C 000028E8    413092BC        LA      3,  700(  0,  9)
C 000028EC    45F0C05C        BAL    15,   92(  0, 12)
C 000028F0    4311F000        IC      1,    0(  1, 15)
C 000028F4    5410D018        N       1,   24(  0, 13)
C 000028F8    5010904C        ST      1,   76(  0,  9)



C 000028FC    5840904C        L       4,   76(  0,  9)
C 00002900    58109118        L       1,  280(  0,  9)
C 00002904    413092FC        LA      3,  764(  0,  9)
C 00002908    45F0C05C        BAL    15,   92(  0, 12)
C 0000290C    4041F000        STH     4,    0(  1, 15)
C 00002910    494F1000        CH      4,    0( 15,  1)
C 00002914    477C0058        BC      7,   88( 12,  0)



C 00002918    41100001        LA      1,    1(  0,  0)
C 0000291C    5A109118        A       1,  280(  0,  9)
C 00002920    50109118        ST      1,  280(  0,  9)


   704                     ->31 %IF I=M''''

C 00002924    41100027        LA      1,   39(  0,  0)
C 00002928    5910904C        C       1,   76(  0,  9)
C 0000292C    478A0000        BC      8,    0( 10,  0)


   705                     ->32 %IF I=10

C 00002930    4110000A        LA      1,   10(  0,  0)
C 00002934    5910904C        C       1,   76(  0,  9)
C 00002938    478A0000        BC      8,    0( 10,  0)


   706                     Q=Q+1;FAULT(106) %IF R-S>256

C 0000293C    41100001        LA      1,    1(  0,  0)
C 00002940    5A109114        A       1,  276(  0,  9)
C 00002944    50109114        ST      1,  276(  0,  9)



C 00002948    58109118        L       1,  280(  0,  9)
C 0000294C    5B108040        S       1,   64(  0,  8)
C 00002950    41200100        LA      2,  256(  0,  0)
C 00002954    1912            CR      1,  2
C 00002956    47DA00AC        BC     13,  172( 10,  0)
C 0000295A    926AB043        MVI     67( 11), 106
C 0000295E    5810D228        L       1,  552(  0, 13)
C 00002962    45F0D074        BAL    15,  116(  0, 13)


   707                     ->1

C 00002966    47F0A02A        BC     15,   42(  0, 10)


   708            32:      READ LINE(1);Q=1;->1

C 0000296A    9201B043        MVI     67( 11),  1
C 0000296E    5810D250        L       1,  592(  0, 13)
C 00002972    45F0D074        BAL    15,  116(  0, 13)



C 00002976    41100001        LA      1,    1(  0,  0)
C 0000297A    50109114        ST      1,  276(  0,  9)



C 0000297E    47F0A02A        BC     15,   42(  0, 10)


   709            31:      ->35 %UNLESS CC(Q+1)=M''''

C 00002982    41100001        LA      1,    1(  0,  0)
C 00002986    5A109114        A       1,  276(  0,  9)
C 0000298A    413092BC        LA      3,  700(  0,  9)
C 0000298E    45F0C05C        BAL    15,   92(  0, 12)
C 00002992    4311F000        IC      1,    0(  1, 15)
C 00002996    5410D018        N       1,   24(  0, 13)
C 0000299A    41200027        LA      2,   39(  0,  0)
C 0000299E    1912            CR      1,  2
C 000029A0    477A0000        BC      7,    0( 10,  0)


   710                     Q=Q+2;->1

C 000029A4    41100002        LA      1,    2(  0,  0)
C 000029A8    5A109114        A       1,  276(  0,  9)
C 000029AC    50109114        ST      1,  276(  0,  9)



C 000029B0    47F0A02A        BC     15,   42(  0, 10)


   711            35:      R=R-2;J=R-S;->36 %UNLESS J&1=0

C 000029B4    58109118        L       1,  280(  0,  9)
C 000029B8    0610            BCTR    1,  0
C 000029BA    0610            BCTR    1,  0
C 000029BC    50109118        ST      1,  280(  0,  9)



C 000029C0    58109118        L       1,  280(  0,  9)
C 000029C4    5B108040        S       1,   64(  0,  8)
C 000029C8    50108044        ST      1,   68(  0,  8)



C 000029CC    41100001        LA      1,    1(  0,  0)
C 000029D0    54108044        N       1,   68(  0,  8)
C 000029D4    477A0000        BC      7,    0( 10,  0)


   712                     R=R+1;A(R)=0

C 000029D8    41100001        LA      1,    1(  0,  0)
C 000029DC    5A109118        A       1,  280(  0,  9)
C 000029E0    50109118        ST      1,  280(  0,  9)



C 000029E4    1F44            SLR     4,  4
C 000029E6    58109118        L       1,  280(  0,  9)
C 000029EA    413092FC        LA      3,  764(  0,  9)
C 000029EE    45F0C05C        BAL    15,   92(  0, 12)
C 000029F2    4041F000        STH     4,    0(  1, 15)
C 000029F6    494F1000        CH      4,    0( 15,  1)
C 000029FA    477C0058        BC      7,   88( 12,  0)


   713            36:      A(S)=J;Q=Q+1;HIT=1;->99

C 000029FE    58408044        L       4,   68(  0,  8)
C 00002A02    58108040        L       1,   64(  0,  8)
C 00002A06    413092FC        LA      3,  764(  0,  9)
C 00002A0A    45F0C05C        BAL    15,   92(  0, 12)
C 00002A0E    4041F000        STH     4,    0(  1, 15)
C 00002A12    494F1000        CH      4,    0( 15,  1)
C 00002A16    477C0058        BC      7,   88( 12,  0)



C 00002A1A    41100001        LA      1,    1(  0,  0)
C 00002A1E    5A109114        A       1,  276(  0,  9)
C 00002A22    50109114        ST      1,  276(  0,  9)



C 00002A26    920190CE        MVI    206(  9),  1



C 00002A2A    47FA0000        BC     15,    0( 10,  0)


   714            98:      HIT=0

C 00002A2E    920090CE        MVI    206(  9),  0


   715            99:      %END
D 000001DC    C2 C2 C2 C2 02 B9 08 08 54 45 58 54 54 45 58 54 01 80 44 01 4A 00 00 09 01 80 40 01 53 FE A6 E8 FF FF FF FF


C 00002A32    D203D0148000    MVC     20(  4, 13),    0(  8)
C 00002A38    984F8010        LM      4, 15,   16(  8)
C 00002A3C    07FF            BCR    15, 15


   716                 %ROUTINE SET UP LIST

C 00002A3E    0000
C 00002A40    0000
C 00002A42    47FA0000        BC     15,    0( 10,  0)
C 00002A46    50F0B03C        ST     15,   60(  0, 11)
C 00002A4A    D203B000D014    MVC      0(  4, 11),   20( 13)
C 00002A50    410002CC        LA      0,  716(  0,  0)
C 00002A54    4000D014        STH     0,   20(  0, 13)
C 00002A58    188B            LR      8, 11
C 00002A5A    41BB0000        LA     11,    0( 11,  0)
C 00002A5E    41000004        LA      0,    4(  0,  0)
C 00002A62    59BD0044        C      11,   68( 13,  0)
C 00002A66    4720C054        BC      2,   84(  0, 12)
C 00002A6A    05A0            BALR   10,  0


   717                     %SHORTROUTINE
   718                     %INTEGER J,K
   719                     %CYCLE J=0,8,ASL-16

C 00002A6C    41408040        LA      4,   64(  0,  8)
C 00002A70    41200008        LA      2,    8(  0,  0)
C 00002A74    50208048        ST      2,   72(  0,  8)
C 00002A78    58309064        L       3,  100(  0,  9)
C 00002A7C    41100010        LA      1,   16(  0,  0)
C 00002A80    1B31            SR      3,  1
C 00002A82    9034804C        STM     3,  4,   76(  8)
C 00002A86    1F11            SLR     1,  1
C 00002A88    50104000        ST      1,    0(  0,  4)


   720                     SHORT INTEGER(ADDR(ASLIST(J))+14)=J

C 00002A8C    58408040        L       4,   64(  0,  8)
C 00002A90    58108040        L       1,   64(  0,  8)
C 00002A94    413092CC        LA      3,  716(  0,  9)
C 00002A98    45F0C05C        BAL    15,   92(  0, 12)
C 00002A9C    4171F000        LA      7,    0(  1, 15)
C 00002AA0    4110000E        LA      1,   14(  0,  0)
C 00002AA4    1A71            AR      7,  1
C 00002AA6    40407000        STH     4,    0(  0,  7)
C 00002AAA    49470000        CH      4,    0(  7,  0)
C 00002AAE    477C0058        BC      7,   88( 12,  0)


   721                     %REPEAT

C 00002AB2    98248048        LM      2,  4,   72(  8)
C 00002AB6    58104000        L       1,    0(  0,  4)
C 00002ABA    8712A01C        BXLE    1,  2,   28( 10)


   722                     INTEGER(ADDR(ASLIST(0)))=-1;  !   INITIALISE BOTTOM CELL

C 00002ABE    5840D010        L       4,   16(  0, 13)
C 00002AC2    1F11            SLR     1,  1
C 00002AC4    413092CC        LA      3,  716(  0,  9)
C 00002AC8    45F0C05C        BAL    15,   92(  0, 12)
C 00002ACC    4111F000        LA      1,    0(  1, 15)
C 00002AD0    50401000        ST      4,    0(  0,  1)


   723                     INTEGER(ADDR(ASLIST(4)))=X'FFFF0000'

C 00002AD4    5840D2D4        L       4,  724(  0, 13)
C 00002AD8    41100004        LA      1,    4(  0,  0)
C 00002ADC    413092CC        LA      3,  716(  0,  9)
C 00002AE0    45F0C05C        BAL    15,   92(  0, 12)
C 00002AE4    4111F000        LA      1,    0(  1, 15)
C 00002AE8    50401000        ST      4,    0(  0,  1)


   724                     ASL=ASL-8

C 00002AEC    58109064        L       1,  100(  0,  9)
C 00002AF0    41200008        LA      2,    8(  0,  0)
C 00002AF4    1B12            SR      1,  2
C 00002AF6    50109064        ST      1,  100(  0,  9)


   725                     %END
D 00000200    C2 C2 C2 C2 02 CC 08 09 53 45 54 55 50 4C 49 53 54 01 EE 38 01 80 44 01 4B 00 00 00 01 80 40 01 4A 01 89 D0 FF FF FF FF


C 00002AFA    D203D0148000    MVC     20(  4, 13),    0(  8)
C 00002B00    984F8010        LM      4, 15,   16(  8)
C 00002B04    07FF            BCR    15, 15


   726        %ROUTINE INITIALISE

C 00002B06    0000
C 00002B08    0000
C 00002B0A    47FA0000        BC     15,    0( 10,  0)
C 00002B0E    50F0B03C        ST     15,   60(  0, 11)
C 00002B12    D203B000D014    MVC      0(  4, 11),   20( 13)
C 00002B18    410002D6        LA      0,  726(  0,  0)
C 00002B1C    4000D014        STH     0,   20(  0, 13)
C 00002B20    188B            LR      8, 11
C 00002B22    41BB0000        LA     11,    0( 11,  0)
C 00002B26    41000004        LA      0,    4(  0,  0)
C 00002B2A    59BD0044        C      11,   68( 13,  0)
C 00002B2E    4720C054        BC      2,   84(  0, 12)
C 00002B32    05A0            BALR   10,  0


   727                     %SHORTROUTINE
   728                     %OWNBYTEINTEGERARRAY ILETT(1:320)=11,
K 00000C1C    00 00 00 00
   729                           'S','E','L','E','C','T','I','N','P','U','T',
K 00000C20    0B 53 45 4C
K 00000C24    45 43 54 49
K 00000C28    4E 50 55 54
   730                           12,'S','E','L','E','C','T','O','U','T','P','U','T',
K 00000C2C    0C 53 45 4C
K 00000C30    45 43 54 4F
K 00000C34    55 54 50 55
   731                           7,'N','E','W','L','I','N','E',
K 00000C38    54 07 4E 45
K 00000C3C    57 4C 49 4E
   732                           5,'S','P','A','C','E',
K 00000C40    45 05 53 50
   733                           10,'S','K','I','P','S','Y','M','B','O','L',
K 00000C44    41 43 45 0A
K 00000C48    53 4B 49 50
K 00000C4C    53 59 4D 42
   734                           6,'R','U','N','O','U','T',
K 00000C50    4F 4C 06 52
K 00000C54    55 4E 4F 55
   735                           8,'N','E','W','L','I','N','E','S',
K 00000C58    54 08 4E 45
K 00000C5C    57 4C 49 4E
   736                           6,'S','P','A','C','E','S',
K 00000C60    45 53 06 53
K 00000C64    50 41 43 45
   737                           10,'N','E','X','T','S','Y','M','B','O','L',
K 00000C68    53 0A 4E 45
K 00000C6C    58 54 53 59
K 00000C70    4D 42 4F 4C
   738                           11,'P','R','I','N','T','S','Y','M','B','O','L',
K 00000C74    0B 50 52 49
K 00000C78    4E 54 53 59
K 00000C7C    4D 42 4F 4C
   739                           10,'R','E','A','D','S','Y','M','B','O','L',
K 00000C80    0A 52 45 41
K 00000C84    44 53 59 4D
   740                           4,'R','E','A','D',
K 00000C88    42 4F 4C 04
K 00000C8C    52 45 41 44
   741                           5,'W','R','I','T','E',
K 00000C90    05 57 52 49
   742                           7,'N','E','W','P','A','G','E',
K 00000C94    54 45 07 4E
K 00000C98    45 57 50 41
   743                           4,'A','D','D','R',
K 00000C9C    47 45 04 41
   744                           6,'A','R','C','S','I','N',
K 00000CA0    44 44 52 06
K 00000CA4    41 52 43 53
   745                           3,'I','N','T',
K 00000CA8    49 4E 03 49
   746                           5,'I','N','T','P','T',
K 00000CAC    4E 54 05 49
K 00000CB0    4E 54 50 54
   747                           6,'F','R','A','C','P','T',
K 00000CB4    06 46 52 41
   748                           5,'P','R','I','N','T',
K 00000CB8    43 50 54 05
K 00000CBC    50 52 49 4E
   749                           7,'P','R','I','N','T','F','L',
K 00000CC0    54 07 50 52
K 00000CC4    49 4E 54 46
   750                           4,'R','E','A','L',
K 00000CC8    4C 04 52 45
   751                           7,'I','N','T','E','G','E','R',
K 00000CCC    41 4C 07 49
K 00000CD0    4E 54 45 47
   752                           3,'M','O','D',
K 00000CD4    45 52 03 4D
   753                           6,'A','R','C','C','O','S',
K 00000CD8    4F 44 06 41
K 00000CDC    52 43 43 4F
   754                           4,'S','Q','R','T',
K 00000CE0    53 04 53 51
   755                           3,'L','O','G',
K 00000CE4    52 54 03 4C
   756                           3,'S','I','N',
K 00000CE8    4F 47 03 53
   757                           3,'C','O','S',
K 00000CEC    49 4E 03 43
   758                           3,'T','A','N',
K 00000CF0    4F 53 03 54
   759                           3,'E','X','P',
K 00000CF4    41 4E 03 45
   760                           9,'M','A','P','R','E','C','O','R','D' ,
K 00000CF8    58 50 09 4D
K 00000CFC    41 50 52 45
K 00000D00    43 4F 52 44
   761                           11,'B','Y','T','E','I','N','T','E','G','E','R',
K 00000D04    0B 42 59 54
K 00000D08    45 49 4E 54
K 00000D0C    45 47 45 52
   762                           12,'S','H','O','R','T','I','N','T','E','G','E','R',
K 00000D10    0C 53 48 4F
K 00000D14    52 54 49 4E
K 00000D18    54 45 47 45
   763                           6,'R','A','D','I','U','S',
K 00000D1C    52 06 52 41
K 00000D20    44 49 55 53
   764                           6,'A','R','C','T','A','N',
K 00000D24    06 41 52 43
   765                           6,'P','A','R','I','T','Y',
K 00000D28    54 41 4E 06
K 00000D2C    50 41 52 49
   766                          11,'P','R','I','N','T','S','T','R','I','N','G',
K 00000D30    54 59 0B 50
K 00000D34    52 49 4E 54
K 00000D38    53 54 52 49
   767                           2,'N','L',
K 00000D3C    4E 47 02 4E
   768                           8,'L','O','N','G','R','E','A','L',
K 00000D40    4C 08 4C 4F
K 00000D44    4E 47 52 45
   769                           7,'P','R','I','N','T','C','H',
K 00000D48    41 4C 07 50
K 00000D4C    52 49 4E 54
   770                           6,'R','E','A','D','C','H',
K 00000D50    43 48 06 52
K 00000D54    45 41 44 43
   771                     6,'S','T','R','I','N','G'
K 00000D58    48 06 53 54
K 00000D5C    52 49 4E 47
K 00000D60    00 01 00 01
K 00000D64    00 00 00 01
K 00000D68    00 00 01 40
   772                     %OWNSHORTINTEGERARRAY IWORD(0:42)=1,
K 00000D6C    00 00 00 00
   773                           13,26,34,40,51,58,67,74,85,97,
K 00000D70    00 01 00 0D
K 00000D74    00 1A 00 22
K 00000D78    00 28 00 33
K 00000D7C    00 3A 00 43
K 00000D80    00 4A 00 55
   774                           108,113,119,127,132,139,143,149,156,162,
K 00000D84    00 61 00 6C
K 00000D88    00 71 00 77
K 00000D8C    00 7F 00 84
K 00000D90    00 8B 00 8F
K 00000D94    00 95 00 9C
   775                           170,175,183,187,194,199,203,207,211,215,
K 00000D98    00 A2 00 AA
K 00000D9C    00 AF 00 B7
K 00000DA0    00 BB 00 C2
K 00000DA4    00 C7 00 CB
K 00000DA8    00 CF 00 D3
   776                           219,229,241,254,261,268,275,287,290,299,307,
K 00000DAC    00 D7 00 DB
K 00000DB0    00 E5 00 F1
K 00000DB4    00 FE 01 05
K 00000DB8    01 0C 01 13
K 00000DBC    01 1F 01 22
K 00000DC0    01 2B 01 33
   777                     314
K 00000DC4    01 3A 00 00
K 00000DC8    00 01 00 02
K 00000DCC    00 00 00 00
K 00000DD0    00 00 00 2A
   778                     %INTEGER I
   779                     CABUF=0; PPCURR=0; QPREAL=0; OLDLINE=0

C 00002B34    1F11            SLR     1,  1
C 00002B36    5010906C        ST      1,  108(  0,  9)



C 00002B3A    1F11            SLR     1,  1
C 00002B3C    50109070        ST      1,  112(  0,  9)



C 00002B40    1F11            SLR     1,  1
C 00002B42    50109074        ST      1,  116(  0,  9)



C 00002B46    1F11            SLR     1,  1
C 00002B48    50109078        ST      1,  120(  0,  9)


   780                     LINE=0; RLEVEL=0; NMAX=0; CONSTPTR=0

C 00002B4C    1F11            SLR     1,  1
C 00002B4E    5010907C        ST      1,  124(  0,  9)



C 00002B52    1F11            SLR     1,  1
C 00002B54    50109094        ST      1,  148(  0,  9)



C 00002B58    1F11            SLR     1,  1
C 00002B5A    50109098        ST      1,  152(  0,  9)



C 00002B5E    1F11            SLR     1,  1
C 00002B60    501090A0        ST      1,  160(  0,  9)


   781                     LEVEL=0; CA=0; AFLAG=0; FFLAG=0; SBFLAG=0

C 00002B64    1F11            SLR     1,  1
C 00002B66    501090A8        ST      1,  168(  0,  9)



C 00002B6A    1F11            SLR     1,  1
C 00002B6C    501090AC        ST      1,  172(  0,  9)



C 00002B70    920090C8        MVI    200(  9),  0



C 00002B74    920090C9        MVI    201(  9),  0



C 00002B78    920090CB        MVI    203(  9),  0


   782                     FAULTY=0; PERM=0; MCSWITCH=0; ALL LONG=0

C 00002B7C    920090CC        MVI    204(  9),  0



C 00002B80    920090D0        MVI    208(  9),  0



C 00002B84    920090D1        MVI    209(  9),  0



C 00002B88    920090D3        MVI    211(  9),  0


   783                     DCOMP=0; COMPILER=0; CPRMODE=0; PRINT MAP=0

C 00002B8C    920090D9        MVI    217(  9),  0



C 00002B90    920090DA        MVI    218(  9),  0



C 00002B94    920090DB        MVI    219(  9),  0



C 00002B98    920090DD        MVI    221(  9),  0


   784                     NEXT=1; NR=0; LDPTR=0; NEPS=0; EPLINK=0

C 00002B9C    41100001        LA      1,    1(  0,  0)
C 00002BA0    501090FC        ST      1,  252(  0,  9)



C 00002BA4    1F11            SLR     1,  1
C 00002BA6    50109104        ST      1,  260(  0,  9)



C 00002BAA    1F11            SLR     1,  1
C 00002BAC    50109138        ST      1,  312(  0,  9)



C 00002BB0    1F11            SLR     1,  1
C 00002BB2    4010913C        STH     1,  316(  0,  9)
C 00002BB6    4919013C        CH      1,  316(  9,  0)
C 00002BBA    477C0058        BC      7,   88( 12,  0)



C 00002BBE    1F11            SLR     1,  1
C 00002BC0    4010913E        STH     1,  318(  0,  9)
C 00002BC4    4919013E        CH      1,  318(  9,  0)
C 00002BC8    477C0058        BC      7,   88( 12,  0)


   785                     RBASE=0; STRINST=0

C 00002BCC    1F11            SLR     1,  1
C 00002BCE    501090F4        ST      1,  244(  0,  9)



C 00002BD2    1F11            SLR     1,  1
C 00002BD4    5010910C        ST      1,  268(  0,  9)


   786                     IMAX=(-1)>>1;PLABEL=24999

C 00002BD8    5810D010        L       1,   16(  0, 13)
C 00002BDC    1851            LR      5,  1
C 00002BDE    88500001        SRL     5,    1(  0)
C 00002BE2    1815            LR      1,  5
C 00002BE4    45F0C0AC        BAL    15,  172(  0, 12)
C 00002BE8    2860            LDR     6,  0
C 00002BEA    606090E8        STD     6,  232(  0,  9)



C 00002BEE    5810D2F8        L       1,  760(  0, 13)
C 00002BF2    501090A4        ST      1,  164(  0,  9)


   787                     SSTL=0; STMTS=0; SNUM=0

C 00002BF6    1F11            SLR     1,  1
C 00002BF8    50109140        ST      1,  320(  0,  9)



C 00002BFC    1F11            SLR     1,  1
C 00002BFE    50109148        ST      1,  328(  0,  9)



C 00002C02    1F11            SLR     1,  1
C 00002C04    50109090        ST      1,  144(  0,  9)


   788                     LABSET=3<<30;LETT(0)=0

C 00002C08    41100003        LA      1,    3(  0,  0)
C 00002C0C    8910001E        SLL     1,   30(  0)
C 00002C10    501090B8        ST      1,  184(  0,  9)



C 00002C14    1F44            SLR     4,  4
C 00002C16    1F11            SLR     1,  1
C 00002C18    413092DC        LA      3,  732(  0,  9)
C 00002C1C    45F0C05C        BAL    15,   92(  0, 12)
C 00002C20    4241F000        STC     4,    0(  1, 15)
C 00002C24    5540D018        CL      4,   24(  0, 13)
C 00002C28    472C0058        BC      2,   88( 12,  0)


   789                     N0=41; N=12

C 00002C2C    41100029        LA      1,   41(  0,  0)
C 00002C30    50109088        ST      1,  136(  0,  9)



C 00002C34    4110000C        LA      1,   12(  0,  0)
C 00002C38    50109100        ST      1,  256(  0,  9)


   790                     CHECKSP=1 ;  CHECKS=1

C 00002C3C    920190D7        MVI    215(  9),  1



C 00002C40    920190CA        MVI    202(  9),  1


   791                     LINENOS=1; DIAGS1=1; QU=1; MONE=1

C 00002C44    920190D4        MVI    212(  9),  1



C 00002C48    920190D5        MVI    213(  9),  1



C 00002C4C    920190CF        MVI    207(  9),  1



C 00002C50    920190CD        MVI    205(  9),  1


   792                     LIST=1; SFLABEL=20999; UNASS=1

C 00002C54    920190D2        MVI    210(  9),  1



C 00002C58    5810D2FC        L       1,  764(  0, 13)
C 00002C5C    501090F8        ST      1,  248(  0,  9)



C 00002C60    920190DC        MVI    220(  9),  1


   793                     OWNLINK=0; XREFLINK=136

C 00002C64    1F11            SLR     1,  1
C 00002C66    5010909C        ST      1,  156(  0,  9)



C 00002C6A    41100088        LA      1,  136(  0,  0)
C 00002C6E    50109134        ST      1,  308(  0,  9)


   794                     I=COM(24)

C 00002C72    41100018        LA      1,   24(  0,  0)
C 00002C76    5010B040        ST      1,   64(  0, 11)
C 00002C7A    904EB010        STM     4, 14,   16( 11)
C 00002C7E    98CED15C        LM     12, 14,  348( 13)
C 00002C82    05FE            BALR   15, 14
C 00002C84    50108040        ST      1,   64(  0,  8)


   795                     LIST=0 %IF I&2#0

C 00002C88    41100002        LA      1,    2(  0,  0)
C 00002C8C    54108040        N       1,   64(  0,  8)
C 00002C90    478A0164        BC      8,  356( 10,  0)
C 00002C94    920090D2        MVI    210(  9),  0


   796                     LINENOS=0 %IF I&4#0

C 00002C98    41100004        LA      1,    4(  0,  0)
C 00002C9C    54108040        N       1,   64(  0,  8)
C 00002CA0    478A0174        BC      8,  372( 10,  0)
C 00002CA4    920090D4        MVI    212(  9),  0


   797                     UNASS=0 %IF I&16#0

C 00002CA8    41100010        LA      1,   16(  0,  0)
C 00002CAC    54108040        N       1,   64(  0,  8)
C 00002CB0    478A0184        BC      8,  388( 10,  0)
C 00002CB4    920090DC        MVI    220(  9),  0


   798                     CHECKS=0 %IF I&32#0

C 00002CB8    41100020        LA      1,   32(  0,  0)
C 00002CBC    54108040        N       1,   64(  0,  8)
C 00002CC0    478A0194        BC      8,  404( 10,  0)
C 00002CC4    920090CA        MVI    202(  9),  0


   799                     PRINTMAP=1 %IF I&X'8000'#0

C 00002CC8    58108040        L       1,   64(  0,  8)
C 00002CCC    5410D300        N       1,  768(  0, 13)
C 00002CD0    478A01A4        BC      8,  420( 10,  0)
C 00002CD4    920190DD        MVI    221(  9),  1


   800                     DIAGS1=0 %IF I&64#0

C 00002CD8    41100040        LA      1,   64(  0,  0)
C 00002CDC    54108040        N       1,   64(  0,  8)
C 00002CE0    478A01B4        BC      8,  436( 10,  0)
C 00002CE4    920090D5        MVI    213(  9),  0


   801                     %CYCLE I=0,1,MAXLEVELS

C 00002CE8    41408040        LA      4,   64(  0,  8)
C 00002CEC    41200001        LA      2,    1(  0,  0)
C 00002CF0    4830D142        LH      3,  322(  0, 13)
C 00002CF4    90248044        STM     2,  4,   68(  8)
C 00002CF8    1F11            SLR     1,  1
C 00002CFA    50104000        ST      1,    0(  0,  4)


   802                     SET(I)=0; CODEBASE(I)=0; FREG(I)=0; RAL(I)=0

C 00002CFE    1F44            SLR     4,  4
C 00002D00    58108040        L       1,   64(  0,  8)
C 00002D04    4130916C        LA      3,  364(  0,  9)
C 00002D08    45F0C05C        BAL    15,   92(  0, 12)
C 00002D0C    5041F000        ST      4,    0(  1, 15)



C 00002D10    1F44            SLR     4,  4
C 00002D12    58108040        L       1,   64(  0,  8)
C 00002D16    4130917C        LA      3,  380(  0,  9)
C 00002D1A    45F0C05C        BAL    15,   92(  0, 12)
C 00002D1E    5041F000        ST      4,    0(  1, 15)



C 00002D22    1F44            SLR     4,  4
C 00002D24    58108040        L       1,   64(  0,  8)
C 00002D28    4130918C        LA      3,  396(  0,  9)
C 00002D2C    45F0C05C        BAL    15,   92(  0, 12)
C 00002D30    5041F000        ST      4,    0(  1, 15)



C 00002D34    1F44            SLR     4,  4
C 00002D36    58108040        L       1,   64(  0,  8)
C 00002D3A    4130919C        LA      3,  412(  0,  9)
C 00002D3E    45F0C05C        BAL    15,   92(  0, 12)
C 00002D42    5041F000        ST      4,    0(  1, 15)


   803                     LWSP(I)=0; MDARR(I)=0; RNEXT(I)=0; STRWSP(I)=0

C 00002D46    1F44            SLR     4,  4
C 00002D48    58108040        L       1,   64(  0,  8)
C 00002D4C    4130923C        LA      3,  572(  0,  9)
C 00002D50    45F0C05C        BAL    15,   92(  0, 12)
C 00002D54    4041F000        STH     4,    0(  1, 15)
C 00002D58    494F1000        CH      4,    0( 15,  1)
C 00002D5C    477C0058        BC      7,   88( 12,  0)



C 00002D60    1F44            SLR     4,  4
C 00002D62    58108040        L       1,   64(  0,  8)
C 00002D66    4130924C        LA      3,  588(  0,  9)
C 00002D6A    45F0C05C        BAL    15,   92(  0, 12)
C 00002D6E    4041F000        STH     4,    0(  1, 15)
C 00002D72    494F1000        CH      4,    0( 15,  1)
C 00002D76    477C0058        BC      7,   88( 12,  0)



C 00002D7A    1F44            SLR     4,  4
C 00002D7C    58108040        L       1,   64(  0,  8)
C 00002D80    4130925C        LA      3,  604(  0,  9)
C 00002D84    45F0C05C        BAL    15,   92(  0, 12)
C 00002D88    4041F000        STH     4,    0(  1, 15)
C 00002D8C    494F1000        CH      4,    0( 15,  1)
C 00002D90    477C0058        BC      7,   88( 12,  0)



C 00002D94    1F44            SLR     4,  4
C 00002D96    58108040        L       1,   64(  0,  8)
C 00002D9A    4130927C        LA      3,  636(  0,  9)
C 00002D9E    45F0C05C        BAL    15,   92(  0, 12)
C 00002DA2    4041F000        STH     4,    0(  1, 15)
C 00002DA6    494F1000        CH      4,    0( 15,  1)
C 00002DAA    477C0058        BC      7,   88( 12,  0)


   804                     CYCLE(I)=0; JUMP(I)=0; NAME(I)=0

C 00002DAE    1F44            SLR     4,  4
C 00002DB0    58108040        L       1,   64(  0,  8)
C 00002DB4    413091AC        LA      3,  428(  0,  9)
C 00002DB8    45F0C05C        BAL    15,   92(  0, 12)
C 00002DBC    4041F000        STH     4,    0(  1, 15)
C 00002DC0    494F1000        CH      4,    0( 15,  1)
C 00002DC4    477C0058        BC      7,   88( 12,  0)



C 00002DC8    1F44            SLR     4,  4
C 00002DCA    58108040        L       1,   64(  0,  8)
C 00002DCE    413091BC        LA      3,  444(  0,  9)
C 00002DD2    45F0C05C        BAL    15,   92(  0, 12)
C 00002DD6    4041F000        STH     4,    0(  1, 15)
C 00002DDA    494F1000        CH      4,    0( 15,  1)
C 00002DDE    477C0058        BC      7,   88( 12,  0)



C 00002DE2    1F44            SLR     4,  4
C 00002DE4    58108040        L       1,   64(  0,  8)
C 00002DE8    413091CC        LA      3,  460(  0,  9)
C 00002DEC    45F0C05C        BAL    15,   92(  0, 12)
C 00002DF0    4041F000        STH     4,    0(  1, 15)
C 00002DF4    494F1000        CH      4,    0( 15,  1)
C 00002DF8    477C0058        BC      7,   88( 12,  0)


   805                     LABEL(I)=0; FLAG(I)=0; SBR(I)=0; WSP(I)=0

C 00002DFC    1F44            SLR     4,  4
C 00002DFE    58108040        L       1,   64(  0,  8)
C 00002E02    413091DC        LA      3,  476(  0,  9)
C 00002E06    45F0C05C        BAL    15,   92(  0, 12)
C 00002E0A    4041F000        STH     4,    0(  1, 15)
C 00002E0E    494F1000        CH      4,    0( 15,  1)
C 00002E12    477C0058        BC      7,   88( 12,  0)



C 00002E16    1F44            SLR     4,  4
C 00002E18    58108040        L       1,   64(  0,  8)
C 00002E1C    413091EC        LA      3,  492(  0,  9)
C 00002E20    45F0C05C        BAL    15,   92(  0, 12)
C 00002E24    4041F000        STH     4,    0(  1, 15)
C 00002E28    494F1000        CH      4,    0( 15,  1)
C 00002E2C    477C0058        BC      7,   88( 12,  0)



C 00002E30    1F44            SLR     4,  4
C 00002E32    58108040        L       1,   64(  0,  8)
C 00002E36    413091FC        LA      3,  508(  0,  9)
C 00002E3A    45F0C05C        BAL    15,   92(  0, 12)
C 00002E3E    4041F000        STH     4,    0(  1, 15)
C 00002E42    494F1000        CH      4,    0( 15,  1)
C 00002E46    477C0058        BC      7,   88( 12,  0)



C 00002E4A    1F44            SLR     4,  4
C 00002E4C    58108040        L       1,   64(  0,  8)
C 00002E50    4130920C        LA      3,  524(  0,  9)
C 00002E54    45F0C05C        BAL    15,   92(  0, 12)
C 00002E58    4041F000        STH     4,    0(  1, 15)
C 00002E5C    494F1000        CH      4,    0( 15,  1)
C 00002E60    477C0058        BC      7,   88( 12,  0)


   806                     %REPEAT

C 00002E64    98248044        LM      2,  4,   68(  8)
C 00002E68    58104000        L       1,    0(  0,  4)
C 00002E6C    8712A1C6        BXLE    1,  2,  454( 10)


   807                     %CYCLE I=0,1,50

C 00002E70    41408040        LA      4,   64(  0,  8)
C 00002E74    41200001        LA      2,    1(  0,  0)
C 00002E78    41300032        LA      3,   50(  0,  0)
C 00002E7C    90248050        STM     2,  4,   80(  8)
C 00002E80    1F11            SLR     1,  1
C 00002E82    50104000        ST      1,    0(  0,  4)


   808                     ST(I)=0; PAGENOS(I)=0

C 00002E86    1F44            SLR     4,  4
C 00002E88    58108040        L       1,   64(  0,  8)
C 00002E8C    4130915C        LA      3,  348(  0,  9)
C 00002E90    45F0C05C        BAL    15,   92(  0, 12)
C 00002E94    5041F000        ST      4,    0(  1, 15)



C 00002E98    1F44            SLR     4,  4
C 00002E9A    58108040        L       1,   64(  0,  8)
C 00002E9E    4130929C        LA      3,  668(  0,  9)
C 00002EA2    45F0C05C        BAL    15,   92(  0, 12)
C 00002EA6    4041F000        STH     4,    0(  1, 15)
C 00002EAA    494F1000        CH      4,    0( 15,  1)
C 00002EAE    477C0058        BC      7,   88( 12,  0)


   809                     REGISTER(I)=0 %IF I<16

C 00002EB2    41100010        LA      1,   16(  0,  0)
C 00002EB6    59108040        C       1,   64(  0,  8)
C 00002EBA    47DA039C        BC     13,  924( 10,  0)
C 00002EBE    1F44            SLR     4,  4
C 00002EC0    58108040        L       1,   64(  0,  8)
C 00002EC4    4130914C        LA      3,  332(  0,  9)
C 00002EC8    45F0C05C        BAL    15,   92(  0, 12)
C 00002ECC    5041F000        ST      4,    0(  1, 15)


   810                     UVARREG(I)=0 %IF 5<=I<=8

C 00002ED0    58108040        L       1,   64(  0,  8)
C 00002ED4    41200005        LA      2,    5(  0,  0)
C 00002ED8    1921            CR      2,  1
C 00002EDA    473A03C6        BC      3,  966( 10,  0)
C 00002EDE    41200008        LA      2,    8(  0,  0)
C 00002EE2    1912            CR      1,  2
C 00002EE4    473A03C6        BC      3,  966( 10,  0)
C 00002EE8    1F44            SLR     4,  4
C 00002EEA    58108040        L       1,   64(  0,  8)
C 00002EEE    413092AC        LA      3,  684(  0,  9)
C 00002EF2    45F0C05C        BAL    15,   92(  0, 12)
C 00002EF6    5041F000        ST      4,    0(  1, 15)


   811                     %REPEAT; PAGENOS(1)=10

C 00002EFA    98248050        LM      2,  4,   80(  8)
C 00002EFE    58104000        L       1,    0(  0,  4)
C 00002F02    8712A34E        BXLE    1,  2,  846( 10)



C 00002F06    4140000A        LA      4,   10(  0,  0)
C 00002F0A    41100001        LA      1,    1(  0,  0)
C 00002F0E    4130929C        LA      3,  668(  0,  9)
C 00002F12    45F0C05C        BAL    15,   92(  0, 12)
C 00002F16    4041F000        STH     4,    0(  1, 15)
C 00002F1A    494F1000        CH      4,    0( 15,  1)
C 00002F1E    477C0058        BC      7,   88( 12,  0)


   812                     %CYCLE I=0,1,NNAMES

C 00002F22    41408040        LA      4,   64(  0,  8)
C 00002F26    41200001        LA      2,    1(  0,  0)
C 00002F2A    58309068        L       3,  104(  0,  9)
C 00002F2E    9024805C        STM     2,  4,   92(  8)
C 00002F32    1F11            SLR     1,  1
C 00002F34    50104000        ST      1,    0(  0,  4)


   813                     WORD(I)=0; TAGS(I)=0

C 00002F38    1F44            SLR     4,  4
C 00002F3A    58108040        L       1,   64(  0,  8)
C 00002F3E    4130930C        LA      3,  780(  0,  9)
C 00002F42    45F0C05C        BAL    15,   92(  0, 12)
C 00002F46    4041F000        STH     4,    0(  1, 15)
C 00002F4A    494F1000        CH      4,    0( 15,  1)
C 00002F4E    477C0058        BC      7,   88( 12,  0)



C 00002F52    1F44            SLR     4,  4
C 00002F54    58108040        L       1,   64(  0,  8)
C 00002F58    4130931C        LA      3,  796(  0,  9)
C 00002F5C    45F0C05C        BAL    15,   92(  0, 12)
C 00002F60    4041F000        STH     4,    0(  1, 15)
C 00002F64    494F1000        CH      4,    0( 15,  1)
C 00002F68    477C0058        BC      7,   88( 12,  0)


   814                     %REPEAT

C 00002F6C    9824805C        LM      2,  4,   92(  8)
C 00002F70    58104000        L       1,    0(  0,  4)
C 00002F74    8712A400        BXLE    1,  2, 1024( 10)


   815                     SET UP LIST

C 00002F78    5810D2D0        L       1,  720(  0, 13)
C 00002F7C    45F0D074        BAL    15,  116(  0, 13)


   816                     PCLOD(0);                     !  ST 12,28(GLA)--L 12,92(GLA)

C 00002F80    1F11            SLR     1,  1
C 00002F82    5010B040        ST      1,   64(  0, 11)
C 00002F86    5810D1C8        L       1,  456(  0, 13)
C 00002F8A    45F0D074        BAL    15,  116(  0, 13)


   817                     PCLOD(5);                     !  ST 15,60(11)--BAL 15,RTI

C 00002F8E    41100005        LA      1,    5(  0,  0)
C 00002F92    5010B040        ST      1,   64(  0, 11)
C 00002F96    5810D1C8        L       1,  456(  0, 13)
C 00002F9A    45F0D074        BAL    15,  116(  0, 13)


   818                     A(1)=28

C 00002F9E    4140001C        LA      4,   28(  0,  0)
C 00002FA2    41100001        LA      1,    1(  0,  0)
C 00002FA6    413092FC        LA      3,  764(  0,  9)
C 00002FAA    45F0C05C        BAL    15,   92(  0, 12)
C 00002FAE    4041F000        STH     4,    0(  1, 15)
C 00002FB2    494F1000        CH      4,    0( 15,  1)
C 00002FB6    477C0058        BC      7,   88( 12,  0)


   819                     %CYCLE I=0,1,42

C 00002FBA    41408040        LA      4,   64(  0,  8)
C 00002FBE    41200001        LA      2,    1(  0,  0)
C 00002FC2    4130002A        LA      3,   42(  0,  0)
C 00002FC6    90248068        STM     2,  4,  104(  8)
C 00002FCA    1F11            SLR     1,  1
C 00002FCC    50104000        ST      1,    0(  0,  4)


   820                     J=IWORD(I)

C 00002FD0    58108040        L       1,   64(  0,  8)
C 00002FD4    4130D2E8        LA      3,  744(  0, 13)
C 00002FD8    45F0C05C        BAL    15,   92(  0, 12)
C 00002FDC    4811F000        LH      1,    0(  1, 15)
C 00002FE0    50109050        ST      1,   80(  0,  9)


   821                     %CYCLE K=1,1,ILETT(J)

C 00002FE4    41409054        LA      4,   84(  0,  9)
C 00002FE8    41200001        LA      2,    1(  0,  0)
C 00002FEC    50208074        ST      2,  116(  0,  8)
C 00002FF0    58109050        L       1,   80(  0,  9)
C 00002FF4    4130D2D8        LA      3,  728(  0, 13)
C 00002FF8    45F0C05C        BAL    15,   92(  0, 12)
C 00002FFC    1F33            SLR     3,  3
C 00002FFE    4331F000        IC      3,    0(  1, 15)
C 00003002    90348078        STM     3,  4,  120(  8)
C 00003006    41100001        LA      1,    1(  0,  0)
C 0000300A    50104000        ST      1,    0(  0,  4)


   822                     CC(K)=ILETT(J+K);             ! COPY SPECIAL NAMES TO SOURCE

C 0000300E    58109050        L       1,   80(  0,  9)
C 00003012    5A109054        A       1,   84(  0,  9)
C 00003016    4130D2D8        LA      3,  728(  0, 13)
C 0000301A    45F0C05C        BAL    15,   92(  0, 12)
C 0000301E    1F44            SLR     4,  4
C 00003020    4341F000        IC      4,    0(  1, 15)
C 00003024    58109054        L       1,   84(  0,  9)
C 00003028    413092BC        LA      3,  700(  0,  9)
C 0000302C    45F0C05C        BAL    15,   92(  0, 12)
C 00003030    4241F000        STC     4,    0(  1, 15)
C 00003034    5540D018        CL      4,   24(  0, 13)
C 00003038    472C0058        BC      2,   88( 12,  0)


   823                     %REPEAT; CC(K+1)=';'

C 0000303C    98248074        LM      2,  4,  116(  8)
C 00003040    58104000        L       1,    0(  0,  4)
C 00003044    8712A4D6        BXLE    1,  2, 1238( 10)



C 00003048    4140003B        LA      4,   59(  0,  0)
C 0000304C    41100001        LA      1,    1(  0,  0)
C 00003050    5A109054        A       1,   84(  0,  9)
C 00003054    413092BC        LA      3,  700(  0,  9)
C 00003058    45F0C05C        BAL    15,   92(  0, 12)
C 0000305C    4241F000        STC     4,    0(  1, 15)
C 00003060    5540D018        CL      4,   24(  0, 13)
C 00003064    472C0058        BC      2,   88( 12,  0)


   824                     R=2;Q=1; PNAME;               ! SPECIAL NAME TO DICTIONARY

C 00003068    41100002        LA      1,    2(  0,  0)
C 0000306C    50109118        ST      1,  280(  0,  9)



C 00003070    41100001        LA      1,    1(  0,  0)
C 00003074    50109114        ST      1,  276(  0,  9)



C 00003078    5810D204        L       1,  516(  0, 13)
C 0000307C    45F0D074        BAL    15,  116(  0, 13)


   825                     CSS(1); %REPEAT;              ! AND COMPILED

C 00003080    41100001        LA      1,    1(  0,  0)
C 00003084    5010B040        ST      1,   64(  0, 11)
C 00003088    5810D224        L       1,  548(  0, 13)
C 0000308C    45F0D074        BAL    15,  116(  0, 13)



C 00003090    98248068        LM      2,  4,  104(  8)
C 00003094    58104000        L       1,    0(  0,  4)
C 00003098    8712A498        BXLE    1,  2, 1176( 10)


   826                     A(1)=12; CSS(1);              ! COMPILE A BEGIN

C 0000309C    4140000C        LA      4,   12(  0,  0)
C 000030A0    41100001        LA      1,    1(  0,  0)
C 000030A4    413092FC        LA      3,  764(  0,  9)
C 000030A8    45F0C05C        BAL    15,   92(  0, 12)
C 000030AC    4041F000        STH     4,    0(  1, 15)
C 000030B0    494F1000        CH      4,    0( 15,  1)
C 000030B4    477C0058        BC      7,   88( 12,  0)



C 000030B8    41100001        LA      1,    1(  0,  0)
C 000030BC    5010B040        ST      1,   64(  0, 11)
C 000030C0    5810D224        L       1,  548(  0, 13)
C 000030C4    45F0D074        BAL    15,  116(  0, 13)


   827                     %END
D 00000228    C2 C2 C2 C2 02 D6 08 0A 49 4E 49 54 49 41 4C 49 53 45 00 00 01 80 40 01 49 FE A7 40 FF FF FF FF


C 000030C8    D203D0148000    MVC     20(  4, 13),    0(  8)
C 000030CE    984F8010        LM      4, 15,   16(  8)
C 000030D2    07FF            BCR    15, 15


   828        !
   829                 %COMMENT THE NEXT 4 ROUTINES CAN BE MACROISED USING MVC
   830        !
   831                 %ROUTINE     TOAR4(%INTEGER PTR,VALUE)

C 000030D4    0000
C 000030D6    0000
C 000030D8    47FA0000        BC     15,    0( 10,  0)
C 000030DC    50F0B03C        ST     15,   60(  0, 11)
C 000030E0    D203B000D014    MVC      0(  4, 11),   20( 13)
C 000030E6    4100033F        LA      0,  831(  0,  0)
C 000030EA    4000D014        STH     0,   20(  0, 13)
C 000030EE    188B            LR      8, 11
C 000030F0    41BB0000        LA     11,    0( 11,  0)
C 000030F4    41000004        LA      0,    4(  0,  0)
C 000030F8    59BD0044        C      11,   68( 13,  0)
C 000030FC    4720C054        BC      2,   84(  0, 12)
C 00003100    05A0            BALR   10,  0


   832                     %INTEGER AD; AD=ADDR(VALUE)

C 00003102    41108044        LA      1,   68(  0,  8)
C 00003106    50108048        ST      1,   72(  0,  8)


   833                     A(PTR)<-SHORT INTEGER(AD)

C 0000310A    58108048        L       1,   72(  0,  8)
C 0000310E    48401000        LH      4,    0(  0,  1)
C 00003112    58108040        L       1,   64(  0,  8)
C 00003116    413092FC        LA      3,  764(  0,  9)
C 0000311A    45F0C05C        BAL    15,   92(  0, 12)
C 0000311E    4041F000        STH     4,    0(  1, 15)


   834                     A(PTR+1)<-SHORT INTEGER (AD+2)

C 00003122    41100002        LA      1,    2(  0,  0)
C 00003126    5A108048        A       1,   72(  0,  8)
C 0000312A    48401000        LH      4,    0(  0,  1)
C 0000312E    41100001        LA      1,    1(  0,  0)
C 00003132    5A108040        A       1,   64(  0,  8)
C 00003136    413092FC        LA      3,  764(  0,  9)
C 0000313A    45F0C05C        BAL    15,   92(  0, 12)
C 0000313E    4041F000        STH     4,    0(  1, 15)


   835                     %END
D 00000248    C2 C2 C2 C2 03 3F 08 05 54 4F 41 52 34 00 00 5A 01 80 48 02 41 44 00 00 01 80 44 05 56 41 4C 55 45 FE A7 48 01 80 40 03 50 54 52 E8 FF FF FF FF


C 00003142    D203D0148000    MVC     20(  4, 13),    0(  8)
C 00003148    984F8010        LM      4, 15,   16(  8)
C 0000314C    07FF            BCR    15, 15


   836                 %ROUTINE     TOAR8(%INTEGER PTR,%LONGREAL VALUE)

C 0000314E    0000
C 00003150    0000
C 00003152    47FA0000        BC     15,    0( 10,  0)
C 00003156    50F0B03C        ST     15,   60(  0, 11)
C 0000315A    D203B000D014    MVC      0(  4, 11),   20( 13)
C 00003160    41000344        LA      0,  836(  0,  0)
C 00003164    4000D014        STH     0,   20(  0, 13)
C 00003168    188B            LR      8, 11
C 0000316A    41BB0000        LA     11,    0( 11,  0)
C 0000316E    41000004        LA      0,    4(  0,  0)
C 00003172    59BD0044        C      11,   68( 13,  0)
C 00003176    4720C054        BC      2,   84(  0, 12)
C 0000317A    05A0            BALR   10,  0


   837                     %INTEGER AD; AD=ADDR(VALUE)

C 0000317C    41108048        LA      1,   72(  0,  8)
C 00003180    50108050        ST      1,   80(  0,  8)


   838                     A(PTR)<-SHORT INTEGER(AD)

C 00003184    58108050        L       1,   80(  0,  8)
C 00003188    48401000        LH      4,    0(  0,  1)
C 0000318C    58108040        L       1,   64(  0,  8)
C 00003190    413092FC        LA      3,  764(  0,  9)
C 00003194    45F0C05C        BAL    15,   92(  0, 12)
C 00003198    4041F000        STH     4,    0(  1, 15)


   839                     A(PTR+1)<-SHORT INTEGER(AD+2)

C 0000319C    41100002        LA      1,    2(  0,  0)
C 000031A0    5A108050        A       1,   80(  0,  8)
C 000031A4    48401000        LH      4,    0(  0,  1)
C 000031A8    41100001        LA      1,    1(  0,  0)
C 000031AC    5A108040        A       1,   64(  0,  8)
C 000031B0    413092FC        LA      3,  764(  0,  9)
C 000031B4    45F0C05C        BAL    15,   92(  0, 12)
C 000031B8    4041F000        STH     4,    0(  1, 15)


   840                     A(PTR+2)<-SHORT INTEGER(AD+4)

C 000031BC    41100004        LA      1,    4(  0,  0)
C 000031C0    5A108050        A       1,   80(  0,  8)
C 000031C4    48401000        LH      4,    0(  0,  1)
C 000031C8    41100002        LA      1,    2(  0,  0)
C 000031CC    5A108040        A       1,   64(  0,  8)
C 000031D0    413092FC        LA      3,  764(  0,  9)
C 000031D4    45F0C05C        BAL    15,   92(  0, 12)
C 000031D8    4041F000        STH     4,    0(  1, 15)


   841                     A(PTR+3)<-SHORT INTEGER(AD+6)

C 000031DC    41100006        LA      1,    6(  0,  0)
C 000031E0    5A108050        A       1,   80(  0,  8)
C 000031E4    48401000        LH      4,    0(  0,  1)
C 000031E8    41100003        LA      1,    3(  0,  0)
C 000031EC    5A108040        A       1,   64(  0,  8)
C 000031F0    413092FC        LA      3,  764(  0,  9)
C 000031F4    45F0C05C        BAL    15,   92(  0, 12)
C 000031F8    4041F000        STH     4,    0(  1, 15)


   842                     %END
D 00000278    C2 C2 C2 C2 03 44 08 05 54 4F 41 52 38 00 00 5A 01 80 50 02 41 44 00 00 1A 80 48 05 56 41 4C 55 45 FE A7 48 01 80 40 03 50 54 52 E8 FF FF FF FF


C 000031FC    D203D0148000    MVC     20(  4, 13),    0(  8)
C 00003202    984F8010        LM      4, 15,   16(  8)
C 00003206    07FF            BCR    15, 15


   843                 %ROUTINE     FROMAR4(%INTEGER PTR,%INTEGERNAME VALUE)

C 00003208    0000
C 0000320A    0000
C 0000320C    47FA0000        BC     15,    0( 10,  0)
C 00003210    50F0B03C        ST     15,   60(  0, 11)
C 00003214    D203B000D014    MVC      0(  4, 11),   20( 13)
C 0000321A    4100034B        LA      0,  843(  0,  0)
C 0000321E    4000D014        STH     0,   20(  0, 13)
C 00003222    188B            LR      8, 11
C 00003224    41BB0000        LA     11,    0( 11,  0)
C 00003228    41000004        LA      0,    4(  0,  0)
C 0000322C    59BD0044        C      11,   68( 13,  0)
C 00003230    4720C054        BC      2,   84(  0, 12)
C 00003234    05A0            BALR   10,  0


   844                     %INTEGER AD; AD=ADDR(VALUE)

C 00003236    58108044        L       1,   68(  0,  8)
C 0000323A    50108048        ST      1,   72(  0,  8)


   845                     SHORT INTEGER(AD)<- A(PTR)

C 0000323E    58108040        L       1,   64(  0,  8)
C 00003242    413092FC        LA      3,  764(  0,  9)
C 00003246    45F0C05C        BAL    15,   92(  0, 12)
C 0000324A    4841F000        LH      4,    0(  1, 15)
C 0000324E    58108048        L       1,   72(  0,  8)
C 00003252    40401000        STH     4,    0(  0,  1)


   846                     SHORT INTEGER(AD+2)<- A(PTR+1)

C 00003256    41100001        LA      1,    1(  0,  0)
C 0000325A    5A108040        A       1,   64(  0,  8)
C 0000325E    413092FC        LA      3,  764(  0,  9)
C 00003262    45F0C05C        BAL    15,   92(  0, 12)
C 00003266    4841F000        LH      4,    0(  1, 15)
C 0000326A    41100002        LA      1,    2(  0,  0)
C 0000326E    5A108048        A       1,   72(  0,  8)
C 00003272    40401000        STH     4,    0(  0,  1)


   847                     %END
D 000002A8    C2 C2 C2 C2 03 4B 08 07 46 52 4F 4D 41 52 34 00 01 80 48 03 50 54 52 08 41 80 44 05 56 41 4C 55 45 FE A6 E0 01 80 40 03 50 54 52 01 FF FF FF FF


C 00003276    D203D0148000    MVC     20(  4, 13),    0(  8)
C 0000327C    984F8010        LM      4, 15,   16(  8)
C 00003280    07FF            BCR    15, 15


   848                 %ROUTINE     FROMAR8(%INTEGER PTR,%LONGREALNAME VALUE)

C 00003282    0000
C 00003284    0000
C 00003286    47FA0000        BC     15,    0( 10,  0)
C 0000328A    50F0B03C        ST     15,   60(  0, 11)
C 0000328E    D203B000D014    MVC      0(  4, 11),   20( 13)
C 00003294    41000350        LA      0,  848(  0,  0)
C 00003298    4000D014        STH     0,   20(  0, 13)
C 0000329C    188B            LR      8, 11
C 0000329E    41BB0000        LA     11,    0( 11,  0)
C 000032A2    41000004        LA      0,    4(  0,  0)
C 000032A6    59BD0044        C      11,   68( 13,  0)
C 000032AA    4720C054        BC      2,   84(  0, 12)
C 000032AE    05A0            BALR   10,  0


   849                     %INTEGER AD; AD=ADDR(VALUE)

C 000032B0    58108044        L       1,   68(  0,  8)
C 000032B4    50108048        ST      1,   72(  0,  8)


   850                     SHORT INTEGER(AD)<- A(PTR)

C 000032B8    58108040        L       1,   64(  0,  8)
C 000032BC    413092FC        LA      3,  764(  0,  9)
C 000032C0    45F0C05C        BAL    15,   92(  0, 12)
C 000032C4    4841F000        LH      4,    0(  1, 15)
C 000032C8    58108048        L       1,   72(  0,  8)
C 000032CC    40401000        STH     4,    0(  0,  1)


   851                     SHORT INTEGER(AD+2)<- A(PTR+1)

C 000032D0    41100001        LA      1,    1(  0,  0)
C 000032D4    5A108040        A       1,   64(  0,  8)
C 000032D8    413092FC        LA      3,  764(  0,  9)
C 000032DC    45F0C05C        BAL    15,   92(  0, 12)
C 000032E0    4841F000        LH      4,    0(  1, 15)
C 000032E4    41100002        LA      1,    2(  0,  0)
C 000032E8    5A108048        A       1,   72(  0,  8)
C 000032EC    40401000        STH     4,    0(  0,  1)


   852                     SHORT INTEGER(AD+4)<- A(PTR+2)

C 000032F0    41100002        LA      1,    2(  0,  0)
C 000032F4    5A108040        A       1,   64(  0,  8)
C 000032F8    413092FC        LA      3,  764(  0,  9)
C 000032FC    45F0C05C        BAL    15,   92(  0, 12)
C 00003300    4841F000        LH      4,    0(  1, 15)
C 00003304    41100004        LA      1,    4(  0,  0)
C 00003308    5A108048        A       1,   72(  0,  8)
C 0000330C    40401000        STH     4,    0(  0,  1)


   853                     SHORT INTEGER(AD+6)<- A(PTR+3)

C 00003310    41100003        LA      1,    3(  0,  0)
C 00003314    5A108040        A       1,   64(  0,  8)
C 00003318    413092FC        LA      3,  764(  0,  9)
C 0000331C    45F0C05C        BAL    15,   92(  0, 12)
C 00003320    4841F000        LH      4,    0(  1, 15)
C 00003324    41100006        LA      1,    6(  0,  0)
C 00003328    5A108048        A       1,   72(  0,  8)
C 0000332C    40401000        STH     4,    0(  0,  1)


   854                     %END
D 000002D8    C2 C2 C2 C2 03 50 08 07 46 52 4F 4D 41 52 38 00 01 80 48 03 50 54 52 08 5A 80 44 05 56 41 4C 55 45 FE A6 E0 01 80 40 03 50 54 52 01 FF FF FF FF


C 00003330    D203D0148000    MVC     20(  4, 13),    0(  8)
C 00003336    984F8010        LM      4, 15,   16(  8)
C 0000333A    07FF            BCR    15, 15


   855                       %ROUTINE PRINTNAME (%INTEGER N)

C 0000333C    0000
C 0000333E    0000
C 00003340    47FA0000        BC     15,    0( 10,  0)
C 00003344    50F0B03C        ST     15,   60(  0, 11)
C 00003348    D203B000D014    MVC      0(  4, 11),   20( 13)
C 0000334E    41000357        LA      0,  855(  0,  0)
C 00003352    4000D014        STH     0,   20(  0, 13)
C 00003356    188B            LR      8, 11
C 00003358    41BB0000        LA     11,    0( 11,  0)
C 0000335C    41000004        LA      0,    4(  0,  0)
C 00003360    59BD0044        C      11,   68( 13,  0)
C 00003364    4720C054        BC      2,   84(  0, 12)
C 00003368    05A0            BALR   10,  0


   856                     %SHORTROUTINE
   857                     %INTEGER J,V
   858                     ->4 %IF N>=0; N=-N

C 0000336A    58108040        L       1,   64(  0,  8)
C 0000336E    1211            LTR     1,  1
C 00003370    47AA0000        BC     10,    0( 10,  0)



C 00003374    58108040        L       1,   64(  0,  8)
C 00003378    1311            LCR     1,  1
C 0000337A    50108040        ST      1,   64(  0,  8)


   859                     ->5 %UNLESS 16384<=N<=16384+NNAMES

C 0000337E    5810D308        L       1,  776(  0, 13)
C 00003382    1851            LR      5,  1
C 00003384    58108040        L       1,   64(  0,  8)
C 00003388    1915            CR      1,  5
C 0000338A    475A0000        BC      5,    0( 10,  0)
C 0000338E    1851            LR      5,  1
C 00003390    5810D30C        L       1,  780(  0, 13)
C 00003394    5A109068        A       1,  104(  0,  9)
C 00003398    1915            CR      1,  5
C 0000339A    475A0000        BC      5,    0( 10,  0)


   860                     N=N-16384; ->4

C 0000339E    58108040        L       1,   64(  0,  8)
C 000033A2    5B10D310        S       1,  784(  0, 13)
C 000033A6    50108040        ST      1,   64(  0,  8)



C 000033AA    47FA0000        BC     15,    0( 10,  0)


   861            5:       WRITE(N,1); ->3

C 000033AE    58108040        L       1,   64(  0,  8)
C 000033B2    41200001        LA      2,    1(  0,  0)
C 000033B6    45F0C010        BAL    15,   16(  0, 12)



C 000033BA    47FA0000        BC     15,    0( 10,  0)


   862            4:       SPACE; V=WORD(N)

C 000033BE    41100020        LA      1,   32(  0,  0)
C 000033C2    45F0C00C        BAL    15,   12(  0, 12)



C 000033C6    58108040        L       1,   64(  0,  8)
C 000033CA    4130930C        LA      3,  780(  0,  9)
C 000033CE    45F0C05C        BAL    15,   92(  0, 12)
C 000033D2    4811F000        LH      1,    0(  1, 15)
C 000033D6    50108048        ST      1,   72(  0,  8)


   863                     %CYCLE J=1,1,LETT(V)

C 000033DA    41408044        LA      4,   68(  0,  8)
C 000033DE    41200001        LA      2,    1(  0,  0)
C 000033E2    5020804C        ST      2,   76(  0,  8)
C 000033E6    58108048        L       1,   72(  0,  8)
C 000033EA    413092DC        LA      3,  732(  0,  9)
C 000033EE    45F0C05C        BAL    15,   92(  0, 12)
C 000033F2    1F33            SLR     3,  3
C 000033F4    4331F000        IC      3,    0(  1, 15)
C 000033F8    90348050        STM     3,  4,   80(  8)
C 000033FC    41100001        LA      1,    1(  0,  0)
C 00003400    50104000        ST      1,    0(  0,  4)


   864                     PRINT SYMBOL(LETT(V+J))

C 00003404    58108048        L       1,   72(  0,  8)
C 00003408    5A108044        A       1,   68(  0,  8)
C 0000340C    413092DC        LA      3,  732(  0,  9)
C 00003410    45F0C05C        BAL    15,   92(  0, 12)
C 00003414    4311F000        IC      1,    0(  1, 15)
C 00003418    5410D018        N       1,   24(  0, 13)
C 0000341C    41000003        LA      0,    3(  0,  0)
C 00003420    9041B010        STM     4,  1,   16( 11)
C 00003424    98CED08C        LM     12, 14,  140( 13)
C 00003428    05FE            BALR   15, 14


   865                     %REPEAT

C 0000342A    9824804C        LM      2,  4,   76(  8)
C 0000342E    58104000        L       1,    0(  0,  4)
C 00003432    8712A096        BXLE    1,  2,  150( 10)


   866            3:             %END
D 00000308    C2 C2 C2 C2 03 57 08 09 50 52 49 4E 54 4E 41 4D 45 00 00 00 01 80 48 01 56 FE A7 40 01 80 44 01 4A FE A6 E0 01 80 40 01 4E 00 00 02 FF FF FF FF


C 00003436    D203D0148000    MVC     20(  4, 13),    0(  8)
C 0000343C    984F8010        LM      4, 15,   16(  8)
C 00003440    07FF            BCR    15, 15


   867                 %ROUTINE     PCLOD(%INTEGER PTR)

C 00003442    0000
C 00003444    0000
C 00003446    47FA0000        BC     15,    0( 10,  0)
C 0000344A    50F0B03C        ST     15,   60(  0, 11)
C 0000344E    D203B000D014    MVC      0(  4, 11),   20( 13)
C 00003454    41000363        LA      0,  867(  0,  0)
C 00003458    4000D014        STH     0,   20(  0, 13)
C 0000345C    188B            LR      8, 11
C 0000345E    41BB0000        LA     11,    0( 11,  0)
C 00003462    41000004        LA      0,    4(  0,  0)
C 00003466    59BD0044        C      11,   68( 13,  0)
C 0000346A    4720C054        BC      2,   84(  0, 12)
C 0000346E    05A0            BALR   10,  0


   868                     %INTEGER I
   869                     %CYCLE I=PTR+1,1,PTR+CLODS(PTR)

C 00003470    41408044        LA      4,   68(  0,  8)
C 00003474    41200001        LA      2,    1(  0,  0)
C 00003478    50208048        ST      2,   72(  0,  8)
C 0000347C    58108040        L       1,   64(  0,  8)
C 00003480    4130D0E8        LA      3,  232(  0, 13)
C 00003484    45F0C05C        BAL    15,   92(  0, 12)
C 00003488    4871F000        LH      7,    0(  1, 15)
C 0000348C    5A708040        A       7,   64(  0,  8)
C 00003490    1837            LR      3,  7
C 00003492    9034804C        STM     3,  4,   76(  8)
C 00003496    41100001        LA      1,    1(  0,  0)
C 0000349A    5A108040        A       1,   64(  0,  8)
C 0000349E    50104000        ST      1,    0(  0,  4)


   870                     PLANT(CLODS(I))

C 000034A2    58108044        L       1,   68(  0,  8)
C 000034A6    4130D0E8        LA      3,  232(  0, 13)
C 000034AA    45F0C05C        BAL    15,   92(  0, 12)
C 000034AE    4811F000        LH      1,    0(  1, 15)
C 000034B2    5010B040        ST      1,   64(  0, 11)
C 000034B6    5810D1CC        L       1,  460(  0, 13)
C 000034BA    45F0D074        BAL    15,  116(  0, 13)


   871                     %REPEAT

C 000034BE    98248048        LM      2,  4,   72(  8)
C 000034C2    58104000        L       1,    0(  0,  4)
C 000034C6    8712A02E        BXLE    1,  2,   46( 10)


   872                     %END
D 00000338    C2 C2 C2 C2 03 63 08 05 50 43 4C 4F 44 FE A6 B8 01 80 44 01 49 80 48 01 01 80 40 03 50 54 52 01 FF FF FF FF


C 000034CA    D203D0148000    MVC     20(  4, 13),    0(  8)
C 000034D0    984F8010        LM      4, 15,   16(  8)
C 000034D4    07FF            BCR    15, 15


   873                 %ROUTINE     PACLOD(%INTEGER PTR,AT,VALUE)

C 000034D6    0000
C 000034D8    0000
C 000034DA    47FA0000        BC     15,    0( 10,  0)
C 000034DE    50F0B03C        ST     15,   60(  0, 11)
C 000034E2    D203B000D014    MVC      0(  4, 11),   20( 13)
C 000034E8    41000369        LA      0,  873(  0,  0)
C 000034EC    4000D014        STH     0,   20(  0, 13)
C 000034F0    188B            LR      8, 11
C 000034F2    41BB0000        LA     11,    0( 11,  0)
C 000034F6    41000004        LA      0,    4(  0,  0)
C 000034FA    59BD0044        C      11,   68( 13,  0)
C 000034FE    4720C054        BC      2,   84(  0, 12)
C 00003502    05A0            BALR   10,  0


   874                     %INTEGER I,J,K
   875                     J=CLODS(PTR); AT=AT+PTR

C 00003504    58108040        L       1,   64(  0,  8)
C 00003508    4130D0E8        LA      3,  232(  0, 13)
C 0000350C    45F0C05C        BAL    15,   92(  0, 12)
C 00003510    4811F000        LH      1,    0(  1, 15)
C 00003514    50108050        ST      1,   80(  0,  8)



C 00003518    58108044        L       1,   68(  0,  8)
C 0000351C    5A108040        A       1,   64(  0,  8)
C 00003520    50108044        ST      1,   68(  0,  8)


   876                     %CYCLE I=PTR+1,1,PTR+J

C 00003524    4140804C        LA      4,   76(  0,  8)
C 00003528    41200001        LA      2,    1(  0,  0)
C 0000352C    50208058        ST      2,   88(  0,  8)
C 00003530    58308040        L       3,   64(  0,  8)
C 00003534    5A308050        A       3,   80(  0,  8)
C 00003538    9034805C        STM     3,  4,   92(  8)
C 0000353C    41100001        LA      1,    1(  0,  0)
C 00003540    5A108040        A       1,   64(  0,  8)
C 00003544    50104000        ST      1,    0(  0,  4)


   877                     K=CLODS(I)

C 00003548    5810804C        L       1,   76(  0,  8)
C 0000354C    4130D0E8        LA      3,  232(  0, 13)
C 00003550    45F0C05C        BAL    15,   92(  0, 12)
C 00003554    4811F000        LH      1,    0(  1, 15)
C 00003558    50108054        ST      1,   84(  0,  8)


   878                     K=K!VALUE %IF I=AT

C 0000355C    D503804C8044    CLC     76(  4,  8),   68(  8)
C 00003562    477A006E        BC      7,  110( 10,  0)
C 00003566    58108054        L       1,   84(  0,  8)
C 0000356A    56108048        O       1,   72(  0,  8)
C 0000356E    50108054        ST      1,   84(  0,  8)


   879                     PLANT(K);%REPEAT

C 00003572    D203B0408054    MVC     64(  4, 11),   84(  8)
C 00003578    5810D1CC        L       1,  460(  0, 13)
C 0000357C    45F0D074        BAL    15,  116(  0, 13)



C 00003580    98248058        LM      2,  4,   88(  8)
C 00003584    58104000        L       1,    0(  0,  4)
C 00003588    8712A040        BXLE    1,  2,   64( 10)


   880                     %END
D 0000035C    C2 C2 C2 C2 03 69 08 06 50 41 43 4C 4F 44 00 4C 01 80 54 01 4B 00 00 08 01 80 50 01 4A FE A6 E8 01 80 4C 01 49 FE A6 F0 01 80 48 05 56 41 4C 55 45 00 01 01 01 80 44 02 41 54 A7 60 01 80 40 03 50 54 52 00 FF FF FF FF


C 0000358C    D203D0148000    MVC     20(  4, 13),    0(  8)
C 00003592    984F8010        LM      4, 15,   16(  8)
C 00003596    07FF            BCR    15, 15


   881                 %ROUTINE     PLANT(%INTEGER VALUE)

C 00003598    0000
C 0000359A    0000
C 0000359C    47FA0000        BC     15,    0( 10,  0)
C 000035A0    50F0B03C        ST     15,   60(  0, 11)
C 000035A4    D203B000D014    MVC      0(  4, 11),   20( 13)
C 000035AA    41000371        LA      0,  881(  0,  0)
C 000035AE    4000D014        STH     0,   20(  0, 13)
C 000035B2    188B            LR      8, 11
C 000035B4    41BB0000        LA     11,    0( 11,  0)
C 000035B8    41000004        LA      0,    4(  0,  0)
C 000035BC    59BD0044        C      11,   68( 13,  0)
C 000035C0    4720C054        BC      2,   84(  0, 12)
C 000035C4    05A0            BALR   10,  0


   882                     %SHORTROUTINE
   883                     CODE(PPCURR)<-VALUE

C 000035C6    58408040        L       4,   64(  0,  8)
C 000035CA    58109070        L       1,  112(  0,  9)
C 000035CE    4130928C        LA      3,  652(  0,  9)
C 000035D2    45F0C05C        BAL    15,   92(  0, 12)
C 000035D6    4041F000        STH     4,    0(  1, 15)


   884               PPCURR=PPCURR+1; CA=CA+2

C 000035DA    41100001        LA      1,    1(  0,  0)
C 000035DE    5A109070        A       1,  112(  0,  9)
C 000035E2    50109070        ST      1,  112(  0,  9)



C 000035E6    41100002        LA      1,    2(  0,  0)
C 000035EA    5A1090AC        A       1,  172(  0,  9)
C 000035EE    501090AC        ST      1,  172(  0,  9)


   885                     %RETURN %UNLESS PPCURR=192

C 000035F2    411000C0        LA      1,  192(  0,  0)
C 000035F6    59109070        C       1,  112(  0,  9)
C 000035FA    478A0044        BC      8,   68( 10,  0)
C 000035FE    D203D0148000    MVC     20(  4, 13),    0(  8)
C 00003604    984F8010        LM      4, 15,   16(  8)
C 00003608    07FF            BCR    15, 15


   886                     LPUT(1,384,CABUF,ADDR(CODE(0)))

C 0000360A    41100001        LA      1,    1(  0,  0)
C 0000360E    5010B040        ST      1,   64(  0, 11)
C 00003612    41B0B048        LA     11,   72(  0, 11)
C 00003616    41100180        LA      1,  384(  0,  0)
C 0000361A    5AB0D050        A      11,   80(  0, 13)
C 0000361E    5010B000        ST      1,    0(  0, 11)
C 00003622    41B0B004        LA     11,    4(  0, 11)
C 00003626    D203B000906C    MVC      0(  4, 11),  108(  9)
C 0000362C    41B0B008        LA     11,    8(  0, 11)
C 00003630    1F11            SLR     1,  1
C 00003632    4130928C        LA      3,  652(  0,  9)
C 00003636    45F0C05C        BAL    15,   92(  0, 12)
C 0000363A    4111F000        LA      1,    0(  1, 15)
C 0000363E    5AB0D050        A      11,   80(  0, 13)
C 00003642    5010B000        ST      1,    0(  0, 11)
C 00003646    4100004C        LA      0,   76(  0,  0)
C 0000364A    1BB0            SR     11,  0
C 0000364C    904EB010        STM     4, 14,   16( 11)
C 00003650    98CED1D8        LM     12, 14,  472( 13)
C 00003654    05FE            BALR   15, 14


   887                     PPCURR=0; CABUF=CA

C 00003656    1F11            SLR     1,  1
C 00003658    50109070        ST      1,  112(  0,  9)



C 0000365C    D203906C90AC    MVC    108(  4,  9),  172(  9)


   888                     %END
D 000003A4    C2 C2 C2 C2 03 71 08 05 50 4C 41 4E 54 44 00 4C 01 80 40 05 56 41 4C 55 45 80 50 01 FF FF FF FF


C 00003662    D203D0148000    MVC     20(  4, 13),    0(  8)
C 00003668    984F8010        LM      4, 15,   16(  8)
C 0000366C    07FF            BCR    15, 15


   889                 %ROUTINE     PRR (%INTEGER OPCODE,R1,R2)

C 0000366E    0000
C 00003670    0000
C 00003672    47FA0000        BC     15,    0( 10,  0)
C 00003676    50F0B03C        ST     15,   60(  0, 11)
C 0000367A    D203B000D014    MVC      0(  4, 11),   20( 13)
C 00003680    41000379        LA      0,  889(  0,  0)
C 00003684    4000D014        STH     0,   20(  0, 13)
C 00003688    188B            LR      8, 11
C 0000368A    41BB0000        LA     11,    0( 11,  0)
C 0000368E    41000004        LA      0,    4(  0,  0)
C 00003692    59BD0044        C      11,   68( 13,  0)
C 00003696    4720C054        BC      2,   84(  0, 12)
C 0000369A    05A0            BALR   10,  0


   890                     PLANT(OPCODE<<8!R1<<4!R2)

C 0000369C    58108040        L       1,   64(  0,  8)
C 000036A0    89100008        SLL     1,    8(  0)
C 000036A4    58208044        L       2,   68(  0,  8)
C 000036A8    89200004        SLL     2,    4(  0)
C 000036AC    1612            OR      1,  2
C 000036AE    56108048        O       1,   72(  0,  8)
C 000036B2    5010B040        ST      1,   64(  0, 11)
C 000036B6    5810D1CC        L       1,  460(  0, 13)
C 000036BA    45F0D074        BAL    15,  116(  0, 13)


   891                     %END
D 000003C4    C2 C2 C2 C2 03 79 08 03 50 52 52 4E 01 80 48 02 52 32 40 05 01 80 44 02 52 31 50 01 01 80 40 06 4F 50 43 4F 44 45 00 15 FF FF FF FF


C 000036BE    D203D0148000    MVC     20(  4, 13),    0(  8)
C 000036C4    984F8010        LM      4, 15,   16(  8)
C 000036C8    07FF            BCR    15, 15


   892                 %ROUTINE     PRX(%INTEGER OPCODE,R1,R2,BASE,DISP)

C 000036CA    0000
C 000036CC    0000
C 000036CE    47FA0000        BC     15,    0( 10,  0)
C 000036D2    50F0B03C        ST     15,   60(  0, 11)
C 000036D6    D203B000D014    MVC      0(  4, 11),   20( 13)
C 000036DC    4100037C        LA      0,  892(  0,  0)
C 000036E0    4000D014        STH     0,   20(  0, 13)
C 000036E4    188B            LR      8, 11
C 000036E6    41BB0000        LA     11,    0( 11,  0)
C 000036EA    41000004        LA      0,    4(  0,  0)
C 000036EE    59BD0044        C      11,   68( 13,  0)
C 000036F2    4720C054        BC      2,   84(  0, 12)
C 000036F6    05A0            BALR   10,  0


   893                     PLANT(OPCODE<<8!R1<<4!R2)

C 000036F8    58108040        L       1,   64(  0,  8)
C 000036FC    89100008        SLL     1,    8(  0)
C 00003700    58208044        L       2,   68(  0,  8)
C 00003704    89200004        SLL     2,    4(  0)
C 00003708    1612            OR      1,  2
C 0000370A    56108048        O       1,   72(  0,  8)
C 0000370E    5010B040        ST      1,   64(  0, 11)
C 00003712    5810D1CC        L       1,  460(  0, 13)
C 00003716    45F0D074        BAL    15,  116(  0, 13)


   894                     PLANT(BASE<<12!DISP)

C 0000371A    5810804C        L       1,   76(  0,  8)
C 0000371E    8910000C        SLL     1,   12(  0)
C 00003722    56108050        O       1,   80(  0,  8)
C 00003726    5010B040        ST      1,   64(  0, 11)
C 0000372A    5810D1CC        L       1,  460(  0, 13)
C 0000372E    45F0D074        BAL    15,  116(  0, 13)


   895                     %END
D 000003F0    C2 C2 C2 C2 03 7C 08 03 50 52 58 4E 01 80 50 04 44 49 53 50 01 80 4C 04 42 41 53 45 01 80 48 02 52 32 43 4F 01 80 44 02 52 31 FF FF 01 80 40 06 4F 50 43 4F 44 45 02 8C FF FF FF FF


C 00003732    D203D0148000    MVC     20(  4, 13),    0(  8)
C 00003738    984F8010        LM      4, 15,   16(  8)
C 0000373C    07FF            BCR    15, 15


   896                 %ROUTINE     PSI(%INTEGER OPCODE,J,BASE,DISP)

C 0000373E    0000
C 00003740    0000
C 00003742    47FA0000        BC     15,    0( 10,  0)
C 00003746    50F0B03C        ST     15,   60(  0, 11)
C 0000374A    D203B000D014    MVC      0(  4, 11),   20( 13)
C 00003750    41000380        LA      0,  896(  0,  0)
C 00003754    4000D014        STH     0,   20(  0, 13)
C 00003758    188B            LR      8, 11
C 0000375A    41BB0000        LA     11,    0( 11,  0)
C 0000375E    41000004        LA      0,    4(  0,  0)
C 00003762    59BD0044        C      11,   68( 13,  0)
C 00003766    4720C054        BC      2,   84(  0, 12)
C 0000376A    05A0            BALR   10,  0


   897                     PLANT(OPCODE<<8!J)

C 0000376C    58108040        L       1,   64(  0,  8)
C 00003770    89100008        SLL     1,    8(  0)
C 00003774    56108044        O       1,   68(  0,  8)
C 00003778    5010B040        ST      1,   64(  0, 11)
C 0000377C    5810D1CC        L       1,  460(  0, 13)
C 00003780    45F0D074        BAL    15,  116(  0, 13)


   898                     PLANT(BASE<<12!DISP)

C 00003784    58108048        L       1,   72(  0,  8)
C 00003788    8910000C        SLL     1,   12(  0)
C 0000378C    5610804C        O       1,   76(  0,  8)
C 00003790    5010B040        ST      1,   64(  0, 11)
C 00003794    5810D1CC        L       1,  460(  0, 13)
C 00003798    45F0D074        BAL    15,  116(  0, 13)


   899                     %END
D 0000042C    C2 C2 C2 C2 03 80 08 03 50 53 49 4E 01 80 4C 04 44 49 53 50 01 80 48 04 42 41 53 45 01 80 44 01 4A 32 43 4F 01 80 40 06 4F 50 43 4F 44 45 40 06 FF FF FF FF


C 0000379C    D203D0148000    MVC     20(  4, 13),    0(  8)
C 000037A2    984F8010        LM      4, 15,   16(  8)
C 000037A6    07FF            BCR    15, 15


   900                 %ROUTINE     PSS(%INTEGER OPCODE,N,BASE,DISP,P,Q)

C 000037A8    0000
C 000037AA    0000
C 000037AC    47FA0000        BC     15,    0( 10,  0)
C 000037B0    50F0B03C        ST     15,   60(  0, 11)
C 000037B4    D203B000D014    MVC      0(  4, 11),   20( 13)
C 000037BA    41000384        LA      0,  900(  0,  0)
C 000037BE    4000D014        STH     0,   20(  0, 13)
C 000037C2    188B            LR      8, 11
C 000037C4    41BB0000        LA     11,    0( 11,  0)
C 000037C8    41000004        LA      0,    4(  0,  0)
C 000037CC    59BD0044        C      11,   68( 13,  0)
C 000037D0    4720C054        BC      2,   84(  0, 12)
C 000037D4    05A0            BALR   10,  0


   901                     PLANT(OPCODE<<8!(N-1))

C 000037D6    58108044        L       1,   68(  0,  8)
C 000037DA    0610            BCTR    1,  0
C 000037DC    1851            LR      5,  1
C 000037DE    58108040        L       1,   64(  0,  8)
C 000037E2    89100008        SLL     1,    8(  0)
C 000037E6    1615            OR      1,  5
C 000037E8    5010B040        ST      1,   64(  0, 11)
C 000037EC    5810D1CC        L       1,  460(  0, 13)
C 000037F0    45F0D074        BAL    15,  116(  0, 13)


   902                     PLANT(BASE<<12!DISP)

C 000037F4    58108048        L       1,   72(  0,  8)
C 000037F8    8910000C        SLL     1,   12(  0)
C 000037FC    5610804C        O       1,   76(  0,  8)
C 00003800    5010B040        ST      1,   64(  0, 11)
C 00003804    5810D1CC        L       1,  460(  0, 13)
C 00003808    45F0D074        BAL    15,  116(  0, 13)


   903                     PLANT(P<<12!Q)

C 0000380C    58108050        L       1,   80(  0,  8)
C 00003810    8910000C        SLL     1,   12(  0)
C 00003814    56108054        O       1,   84(  0,  8)
C 00003818    5010B040        ST      1,   64(  0, 11)
C 0000381C    5810D1CC        L       1,  460(  0, 13)
C 00003820    45F0D074        BAL    15,  116(  0, 13)


   904                     %END
D 00000460    C2 C2 C2 C2 03 84 08 03 50 53 53 4E 01 80 54 01 51 49 53 50 01 80 50 01 50 41 53 45 01 80 4C 04 44 49 53 50 01 80 48 04 42 41 53 45 01 80 44 01 4E 00 00 00 01 80 40 06 4F 50 43 4F 44 45 A7 78 FF FF FF FF


C 00003824    D203D0148000    MVC     20(  4, 13),    0(  8)
C 0000382A    984F8010        LM      4, 15,   16(  8)
C 0000382E    07FF            BCR    15, 15


   905                 %ROUTINE     PCONST(%INTEGER X)

C 00003830    0000
C 00003832    0000
C 00003834    47FA0000        BC     15,    0( 10,  0)
C 00003838    50F0B03C        ST     15,   60(  0, 11)
C 0000383C    D203B000D014    MVC      0(  4, 11),   20( 13)
C 00003842    41000389        LA      0,  905(  0,  0)
C 00003846    4000D014        STH     0,   20(  0, 13)
C 0000384A    188B            LR      8, 11
C 0000384C    41BB0000        LA     11,    0( 11,  0)
C 00003850    41000004        LA      0,    4(  0,  0)
C 00003854    59BD0044        C      11,   68( 13,  0)
C 00003858    4720C054        BC      2,   84(  0, 12)
C 0000385C    05A0            BALR   10,  0


   906                     PLANT(X>>16); PLANT(X&X'FFFF')

C 0000385E    58108040        L       1,   64(  0,  8)
C 00003862    88100010        SRL     1,   16(  0)
C 00003866    5010B040        ST      1,   64(  0, 11)
C 0000386A    5810D1CC        L       1,  460(  0, 13)
C 0000386E    45F0D074        BAL    15,  116(  0, 13)



C 00003872    58108040        L       1,   64(  0,  8)
C 00003876    5410D314        N       1,  788(  0, 13)
C 0000387A    5010B040        ST      1,   64(  0, 11)
C 0000387E    5810D1CC        L       1,  460(  0, 13)
C 00003882    45F0D074        BAL    15,  116(  0, 13)


   907                     %END
D 000004A4    C2 C2 C2 C2 03 89 08 06 50 43 4F 4E 53 54 54 01 01 80 40 01 58 80 50 01 FF FF FF FF


C 00003886    D203D0148000    MVC     20(  4, 13),    0(  8)
C 0000388C    984F8010        LM      4, 15,   16(  8)
C 00003890    07FF            BCR    15, 15


   908                 %ROUTINE     CNOP(%INTEGER I,J)

C 00003892    0000
C 00003894    0000
C 00003896    47FA0000        BC     15,    0( 10,  0)
C 0000389A    50F0B03C        ST     15,   60(  0, 11)
C 0000389E    D203B000D014    MVC      0(  4, 11),   20( 13)
C 000038A4    4100038C        LA      0,  908(  0,  0)
C 000038A8    4000D014        STH     0,   20(  0, 13)
C 000038AC    188B            LR      8, 11
C 000038AE    41BB0000        LA     11,    0( 11,  0)
C 000038B2    41000004        LA      0,    4(  0,  0)
C 000038B6    59BD0044        C      11,   68( 13,  0)
C 000038BA    4720C054        BC      2,   84(  0, 12)
C 000038BE    05A0            BALR   10,  0


   909                     J=J-1

C 000038C0    58108044        L       1,   68(  0,  8)
C 000038C4    0610            BCTR    1,  0
C 000038C6    50108044        ST      1,   68(  0,  8)


   910            1:       ->9 %IF CA&J=I; PLANT(X'0700'); ->1

C 000038CA    581090AC        L       1,  172(  0,  9)
C 000038CE    54108044        N       1,   68(  0,  8)
C 000038D2    59108040        C       1,   64(  0,  8)
C 000038D6    0000
C 000038D8    0000
C 000038DA    478A0000        BC      8,    0( 10,  0)



C 000038DE    41100700        LA      1, 1792(  0,  0)
C 000038E2    5010B040        ST      1,   64(  0, 11)
C 000038E6    5810D1CC        L       1,  460(  0, 13)
C 000038EA    45F0D074        BAL    15,  116(  0, 13)



C 000038EE    47F0A00A        BC     15,   10(  0, 10)


   911            9:       %END
D 000004C0    C2 C2 C2 C2 03 8C 08 04 43 4E 4F 50 01 80 44 01 4A 80 40 01 01 80 40 01 49 FF FF FF FF FF FF FF


C 000038F2    D203D0148000    MVC     20(  4, 13),    0(  8)
C 000038F8    984F8010        LM      4, 15,   16(  8)
C 000038FC    07FF            BCR    15, 15


   912                 %ROUTINE     PSYM(%INTEGER X)

C 000038FE    0000
C 00003900    0000
C 00003902    47FA0000        BC     15,    0( 10,  0)
C 00003906    50F0B03C        ST     15,   60(  0, 11)
C 0000390A    D203B000D014    MVC      0(  4, 11),   20( 13)
C 00003910    41000390        LA      0,  912(  0,  0)
C 00003914    4000D014        STH     0,   20(  0, 13)
C 00003918    188B            LR      8, 11
C 0000391A    41BB0000        LA     11,    0( 11,  0)
C 0000391E    41000004        LA      0,    4(  0,  0)
C 00003922    59BD0044        C      11,   68( 13,  0)
C 00003926    4720C054        BC      2,   84(  0, 12)
C 0000392A    05A0            BALR   10,  0


   913                     LPUT(5,4,CONSTPTR<<2,ADDR(X))

C 0000392C    41100005        LA      1,    5(  0,  0)
C 00003930    5010B040        ST      1,   64(  0, 11)
C 00003934    41B0B048        LA     11,   72(  0, 11)
C 00003938    41100004        LA      1,    4(  0,  0)
C 0000393C    5AB0D050        A      11,   80(  0, 13)
C 00003940    5010B000        ST      1,    0(  0, 11)
C 00003944    41B0B004        LA     11,    4(  0, 11)
C 00003948    581090A0        L       1,  160(  0,  9)
C 0000394C    89100002        SLL     1,    2(  0)
C 00003950    5010B000        ST      1,    0(  0, 11)
C 00003954    41B0B008        LA     11,    8(  0, 11)
C 00003958    41108040        LA      1,   64(  0,  8)
C 0000395C    5AB0D050        A      11,   80(  0, 13)
C 00003960    5010B000        ST      1,    0(  0, 11)
C 00003964    4100004C        LA      0,   76(  0,  0)
C 00003968    1BB0            SR     11,  0
C 0000396A    904EB010        STM     4, 14,   16( 11)
C 0000396E    98CED1D8        LM     12, 14,  472( 13)
C 00003972    05FE            BALR   15, 14


   914                     CONSTPTR=CONSTPTR+1

C 00003974    41100001        LA      1,    1(  0,  0)
C 00003978    5A1090A0        A       1,  160(  0,  9)
C 0000397C    501090A0        ST      1,  160(  0,  9)


   915                     %END
D 000004E0    C2 C2 C2 C2 03 90 08 04 50 53 59 4D 01 80 40 01 58 80 40 01 FF FF FF FF


C 00003980    D203D0148000    MVC     20(  4, 13),    0(  8)
C 00003986    984F8010        LM      4, 15,   16(  8)
C 0000398A    07FF            BCR    15, 15


   916                 %ROUTINE     PLUG(%INTEGER J,K)

C 0000398C    0000
C 0000398E    0000
C 00003990    47FA0000        BC     15,    0( 10,  0)
C 00003994    50F0B03C        ST     15,   60(  0, 11)
C 00003998    D203B000D014    MVC      0(  4, 11),   20( 13)
C 0000399E    41000394        LA      0,  916(  0,  0)
C 000039A2    4000D014        STH     0,   20(  0, 13)
C 000039A6    188B            LR      8, 11
C 000039A8    41BB0000        LA     11,    0( 11,  0)
C 000039AC    41000004        LA      0,    4(  0,  0)
C 000039B0    59BD0044        C      11,   68( 13,  0)
C 000039B4    4720C054        BC      2,   84(  0, 12)
C 000039B8    05A0            BALR   10,  0


   917                     %SHORTROUTINE
   918                     ->INBUF %IF J>=CABUF

C 000039BA    5810906C        L       1,  108(  0,  9)
C 000039BE    59108040        C       1,   64(  0,  8)
C 000039C2    47CA0000        BC     12,    0( 10,  0)


   919                     LPUT(1,2,J,ADDR(K)+2)    ; ->99

C 000039C6    41100001        LA      1,    1(  0,  0)
C 000039CA    5010B040        ST      1,   64(  0, 11)
C 000039CE    41B0B048        LA     11,   72(  0, 11)
C 000039D2    41100002        LA      1,    2(  0,  0)
C 000039D6    5AB0D050        A      11,   80(  0, 13)
C 000039DA    5010B000        ST      1,    0(  0, 11)
C 000039DE    41B0B004        LA     11,    4(  0, 11)
C 000039E2    D203B0008040    MVC      0(  4, 11),   64(  8)
C 000039E8    41B0B008        LA     11,    8(  0, 11)
C 000039EC    41708044        LA      7,   68(  0,  8)
C 000039F0    41100002        LA      1,    2(  0,  0)
C 000039F4    1A71            AR      7,  1
C 000039F6    5AB0D050        A      11,   80(  0, 13)
C 000039FA    5070B000        ST      7,    0(  0, 11)
C 000039FE    4100004C        LA      0,   76(  0,  0)
C 00003A02    1BB0            SR     11,  0
C 00003A04    904EB010        STM     4, 14,   16( 11)
C 00003A08    98CED1D8        LM     12, 14,  472( 13)
C 00003A0C    05FE            BALR   15, 14



C 00003A0E    47FA0000        BC     15,    0( 10,  0)


   920            INBUF:   CODE((J-CABUF)>>1)<-K

C 00003A12    58408044        L       4,   68(  0,  8)
C 00003A16    58108040        L       1,   64(  0,  8)
C 00003A1A    5B10906C        S       1,  108(  0,  9)
C 00003A1E    1851            LR      5,  1
C 00003A20    88500001        SRL     5,    1(  0)
C 00003A24    1815            LR      1,  5
C 00003A26    4130928C        LA      3,  652(  0,  9)
C 00003A2A    45F0C05C        BAL    15,   92(  0, 12)
C 00003A2E    4041F000        STH     4,    0(  1, 15)


   921            99:      %END
D 000004F8    C2 C2 C2 C2 03 94 08 04 50 4C 55 47 01 80 44 01 4B 80 40 01 01 80 40 01 4A FE A7 40 FF FF FF FF


C 00003A32    D203D0148000    MVC     20(  4, 13),    0(  8)
C 00003A38    984F8010        LM      4, 15,   16(  8)
C 00003A3C    07FF            BCR    15, 15


   922                 %ROUTINE     PRHEX(%INTEGER VALUE,PLACES)

C 00003A3E    0000
C 00003A40    0000
C 00003A42    47FA0000        BC     15,    0( 10,  0)
C 00003A46    50F0B03C        ST     15,   60(  0, 11)
C 00003A4A    D203B000D014    MVC      0(  4, 11),   20( 13)
C 00003A50    4100039A        LA      0,  922(  0,  0)
C 00003A54    4000D014        STH     0,   20(  0, 13)
C 00003A58    188B            LR      8, 11
C 00003A5A    41BB0000        LA     11,    0( 11,  0)
C 00003A5E    41000004        LA      0,    4(  0,  0)
C 00003A62    59BD0044        C      11,   68( 13,  0)
C 00003A66    4720C054        BC      2,   84(  0, 12)
C 00003A6A    05A0            BALR   10,  0


   923                     %OWNBYTEINTEGERARRAY HEX(0:15)='0','1','2','3','4',
K 00000DD4    00 00 00 00
K 00000DD8    30 31 32 33
   924                           '5','6','7','8','9','A','B','C','D','E','F';
K 00000DDC    34 35 36 37
K 00000DE0    38 39 41 42
K 00000DE4    43 44 45 46
K 00000DE8    00 01 00 01
K 00000DEC    00 00 00 00
K 00000DF0    00 00 00 0F
   925                     %INTEGER I
   926                     %CYCLE I=PLACES<<2-4,-4,0

C 00003A6C    41408048        LA      4,   72(  0,  8)
C 00003A70    41200004        LA      2,    4(  0,  0)
C 00003A74    1322            LCR     2,  2
C 00003A76    1F33            SLR     3,  3
C 00003A78    9024804C        STM     2,  4,   76(  8)
C 00003A7C    58108044        L       1,   68(  0,  8)
C 00003A80    89100002        SLL     1,    2(  0)
C 00003A84    41200004        LA      2,    4(  0,  0)
C 00003A88    1B12            SR      1,  2
C 00003A8A    50104000        ST      1,    0(  0,  4)


   927                     PRINT SYMBOL(HEX(VALUE>>I&15))

C 00003A8E    58108040        L       1,   64(  0,  8)
C 00003A92    58208048        L       2,   72(  0,  8)
C 00003A96    88102000        SRL     1,    0(  2)
C 00003A9A    4120000F        LA      2,   15(  0,  0)
C 00003A9E    1412            NR      1,  2
C 00003AA0    4130D318        LA      3,  792(  0, 13)
C 00003AA4    45F0C05C        BAL    15,   92(  0, 12)
C 00003AA8    4311F000        IC      1,    0(  1, 15)
C 00003AAC    5410D018        N       1,   24(  0, 13)
C 00003AB0    41000003        LA      0,    3(  0,  0)
C 00003AB4    9041B010        STM     4,  1,   16( 11)
C 00003AB8    98CED08C        LM     12, 14,  140( 13)
C 00003ABC    05FE            BALR   15, 14


   928                     %REPEAT

C 00003ABE    9824804C        LM      2,  4,   76(  8)
C 00003AC2    58104000        L       1,    0(  0,  4)
C 00003AC6    1A12            AR      1,  2
C 00003AC8    59304000        C       3,    0(  0,  4)
C 00003ACC    4770A01E        BC      7,   30(  0, 10)


   929                     %END
D 00000518    C2 C2 C2 C2 03 9A 08 05 50 52 48 45 58 FE A6 B8 01 80 48 01 49 FE AB A0 01 80 44 06 50 4C 41 43 45 53 00 2A 01 80 40 05 56 41 4C 55 45 FE A9 38 FF FF FF FF


C 00003AD0    D203D0148000    MVC     20(  4, 13),    0(  8)
C 00003AD6    984F8010        LM      4, 15,   16(  8)
C 00003ADA    07FF            BCR    15, 15


   930                 %ROUTINE SIZES

C 00003ADC    0000
C 00003ADE    0000
C 00003AE0    47FA0000        BC     15,    0( 10,  0)
C 00003AE4    50F0B03C        ST     15,   60(  0, 11)
C 00003AE8    D203B000D014    MVC      0(  4, 11),   20( 13)
C 00003AEE    410003A2        LA      0,  930(  0,  0)
C 00003AF2    4000D014        STH     0,   20(  0, 13)
C 00003AF6    188B            LR      8, 11
C 00003AF8    41BB0000        LA     11,    0( 11,  0)
C 00003AFC    41000004        LA      0,    4(  0,  0)
C 00003B00    59BD0044        C      11,   68( 13,  0)
C 00003B04    4720C054        BC      2,   84(  0, 12)
C 00003B08    05A0            BALR   10,  0


   931                     %SHORTROUTINE
   932                     %ROUTINESPEC SUM(%INTEGER I)
   933                     %INTEGER I,J,FREE,TOTAL
   934                     I=COM(2)

C 00003B0A    41100002        LA      1,    2(  0,  0)
C 00003B0E    5010B040        ST      1,   64(  0, 11)
C 00003B12    904EB010        STM     4, 14,   16( 11)
C 00003B16    98CED15C        LM     12, 14,  348( 13)
C 00003B1A    05FE            BALR   15, 14
C 00003B1C    50108040        ST      1,   64(  0,  8)


   935                     FREE=INTEGER(I+4);            !TOP OF STORE

C 00003B20    41100004        LA      1,    4(  0,  0)
C 00003B24    5A108040        A       1,   64(  0,  8)
C 00003B28    58101000        L       1,    0(  0,  1)
C 00003B2C    50108048        ST      1,   72(  0,  8)


   936                     FREE=FREE-ADDR(TOTAL)-10000

C 00003B30    4170804C        LA      7,   76(  0,  8)
C 00003B34    58108048        L       1,   72(  0,  8)
C 00003B38    1B17            SR      1,  7
C 00003B3A    5B10D32C        S       1,  812(  0, 13)
C 00003B3E    50108048        ST      1,   72(  0,  8)


   937                     ! TOTAL IS CURRENT TOP OF STACK - 10K FOR COMPARE
   938                     %CYCLE J=0,1,5; SUM(J)

C 00003B42    41408044        LA      4,   68(  0,  8)
C 00003B46    41200001        LA      2,    1(  0,  0)
C 00003B4A    41300005        LA      3,    5(  0,  0)
C 00003B4E    90248050        STM     2,  4,   80(  8)
C 00003B52    1F11            SLR     1,  1
C 00003B54    50104000        ST      1,    0(  0,  4)



C 00003B58    D203B0408044    MVC     64(  4, 11),   68(  8)
C 00003B5E    5810D328        L       1,  808(  0, 13)
C 00003B62    45F0D074        BAL    15,  116(  0, 13)


   939                     ->1 %IF TOTAL>FREE

C 00003B66    58108048        L       1,   72(  0,  8)
C 00003B6A    5910804C        C       1,   76(  0,  8)
C 00003B6E    474A0000        BC      4,    0( 10,  0)


   940                     %REPEAT

C 00003B72    98248050        LM      2,  4,   80(  8)
C 00003B76    58104000        L       1,    0(  0,  4)
C 00003B7A    8712A04A        BXLE    1,  2,   74( 10)


   941                     %RETURN

C 00003B7E    D203D0148000    MVC     20(  4, 13),    0(  8)
C 00003B84    984F8010        LM      4, 15,   16(  8)
C 00003B88    07FF            BCR    15, 15


   942            1:       ->2 %UNLESS J=0

C 00003B8A    58108044        L       1,   68(  0,  8)
C 00003B8E    1211            LTR     1,  1
C 00003B90    477A0000        BC      7,    0( 10,  0)


   943                     %PRINTTEXT'NOT ENOUGH CORE ALLOCATED FOR IMP'

C 00003B94    45F0C078        BAL    15,  120(  0, 12)
C 00003B98    214E            LNDR    4, 14
C 00003B9A    4F542045        CVB     5,   69(  4,  2)
C 00003B9E    4E4F5547        CVD     4, 1351( 15,  5)
C 00003BA2    4820434F        LH      2,  847(  0,  4)
C 00003BA6    5245
C 00003BA8    2041            LPDR    4,  1
C 00003BAA    4C4C4F43        MH      4, 3907( 12,  4)
C 00003BAE    41544544        LA      5, 1348(  4,  4)
C 00003BB2    2046            LPDR    4,  6
C 00003BB4    4F522049        CVB     5,   73(  2,  2)
C 00003BB8    4D50


   944                     %MONITORSTOP

C 00003BBA    45F0C030        BAL    15,   48(  0, 12)


   945            2:       SUM(J-1)

C 00003BBE    58108044        L       1,   68(  0,  8)
C 00003BC2    0610            BCTR    1,  0
C 00003BC4    5010B040        ST      1,   64(  0, 11)
C 00003BC8    5810D328        L       1,  808(  0, 13)
C 00003BCC    45F0D074        BAL    15,  116(  0, 13)


   946                     %RETURN

C 00003BD0    D203D0148000    MVC     20(  4, 13),    0(  8)
C 00003BD6    984F8010        LM      4, 15,   16(  8)
C 00003BDA    07FF            BCR    15, 15


   947                     %ROUTINE     SUM(%INTEGER I)

C 00003BDC    47FA0000        BC     15,    0( 10,  0)
C 00003BE0    50F0B03C        ST     15,   60(  0, 11)
C 00003BE4    D203B000D014    MVC      0(  4, 11),   20( 13)
C 00003BEA    410003B3        LA      0,  947(  0,  0)
C 00003BEE    4000D014        STH     0,   20(  0, 13)
C 00003BF2    187B            LR      7, 11
C 00003BF4    41BB0000        LA     11,    0( 11,  0)
C 00003BF8    41000004        LA      0,    4(  0,  0)
C 00003BFC    59BD0044        C      11,   68( 13,  0)
C 00003C00    4720C054        BC      2,   84(  0, 12)
C 00003C04    05A0            BALR   10,  0


   948                         NNAMES=128*2**I-1

C 00003C06    41100002        LA      1,    2(  0,  0)
C 00003C0A    5010D020        ST      1,   32(  0, 13)
C 00003C0E    58107040        L       1,   64(  0,  7)
C 00003C12    5010D024        ST      1,   36(  0, 13)
C 00003C16    45F0C03C        BAL    15,   60(  0, 12)
C 00003C1A    1810            LR      1,  0
C 00003C1C    41200080        LA      2,  128(  0,  0)
C 00003C20    1C02            MR      0,  2
C 00003C22    0610            BCTR    1,  0
C 00003C24    50109068        ST      1,  104(  0,  9)


   949                         CCSIZE=200+40*I

C 00003C28    41100028        LA      1,   40(  0,  0)
C 00003C2C    5C007040        M       0,   64(  0,  7)
C 00003C30    412000C8        LA      2,  200(  0,  0)
C 00003C34    1A12            AR      1,  2
C 00003C36    4010905C        STH     1,   92(  0,  9)
C 00003C3A    4919005C        CH      1,   92(  9,  0)
C 00003C3E    477C0058        BC      7,   88( 12,  0)


   950                         NROUTS=NNAMES//2

C 00003C42    58009068        L       0,  104(  0,  9)
C 00003C46    8E000020        SRDA    0,   32(  0)
C 00003C4A    41200002        LA      2,    2(  0,  0)
C 00003C4E    1D02            DR      0,  2
C 00003C50    40109062        STH     1,   98(  0,  9)
C 00003C54    49190062        CH      1,   98(  9,  0)
C 00003C58    477C0058        BC      7,   88( 12,  0)


   951                         ASL   =24*NNAMES

C 00003C5C    41100018        LA      1,   24(  0,  0)
C 00003C60    5C009068        M       0,  104(  0,  9)
C 00003C64    50109064        ST      1,  100(  0,  9)


   952                         ASL=32760 %IF ASL>32760;      ! MAX FOR 16BIT LINKS

C 00003C68    5810D330        L       1,  816(  0, 13)
C 00003C6C    59109064        C       1,  100(  0,  9)
C 00003C70    47BA0076        BC     11,  118( 10,  0)
C 00003C74    5810D334        L       1,  820(  0, 13)
C 00003C78    50109064        ST      1,  100(  0,  9)


   953                         ARSIZE=300+50*I

C 00003C7C    41100032        LA      1,   50(  0,  0)
C 00003C80    5C007040        M       0,   64(  0,  7)
C 00003C84    4120012C        LA      2,  300(  0,  0)
C 00003C88    1A12            AR      1,  2
C 00003C8A    4010905E        STH     1,   94(  0,  9)
C 00003C8E    4919005E        CH      1,   94(  9,  0)
C 00003C92    477C0058        BC      7,   88( 12,  0)


   954                         DSIZE= 6*NNAMES

C 00003C96    41100006        LA      1,    6(  0,  0)
C 00003C9A    5C009068        M       0,  104(  0,  9)
C 00003C9E    40109060        STH     1,   96(  0,  9)
C 00003CA2    49190060        CH      1,   96(  9,  0)
C 00003CA6    477C0058        BC      7,   88( 12,  0)


   955                         TOTAL=CCSIZE+ASL+2*(NROUTS+ARSIZE+DSIZE)

C 00003CAA    48109062        LH      1,   98(  0,  9)
C 00003CAE    4A10905E        AH      1,   94(  0,  9)
C 00003CB2    4A109060        AH      1,   96(  0,  9)
C 00003CB6    1851            LR      5,  1
C 00003CB8    4810905C        LH      1,   92(  0,  9)
C 00003CBC    5A109064        A       1,  100(  0,  9)
C 00003CC0    1A55            AR      5,  5
C 00003CC2    1A15            AR      1,  5
C 00003CC4    5010804C        ST      1,   76(  0,  8)


   956                         %END
D 0000054C    C2 C2 C2 C2 03 B3 07 03 53 55 4D 45 01 70 40 01 49 00 00 01 FF FF FF FF


C 00003CC8    D203D0147000    MVC     20(  4, 13),    0(  7)
C 00003CCE    984F7010        LM      4, 15,   16(  7)
C 00003CD2    07FF            BCR    15, 15


   957                     %END
D 00000564    C2 C2 C2 C2 03 A2 08 05 53 49 5A 45 53 70 40 01 01 80 4C 05 54 4F 54 41 4C 00 00 00 01 80 48 04 46 52 45 45 01 80 44 01 4A FE A6 E8 01 80 40 01 49 00 01 01 FF FF FF FF


C 00003CD4    D203D0148000    MVC     20(  4, 13),    0(  8)
C 00003CDA    984F8010        LM      4, 15,   16(  8)
C 00003CDE    07FF            BCR    15, 15


   958        !
   959                 %ROUTINE CSS (%INTEGER P)

C 00003CE0    0000
C 00003CE2    0000
C 00003CE4    47FA0000        BC     15,    0( 10,  0)
C 00003CE8    50F0B03C        ST     15,   60(  0, 11)
C 00003CEC    D203B000D014    MVC      0(  4, 11),   20( 13)
C 00003CF2    410003BF        LA      0,  959(  0,  0)
C 00003CF6    4000D014        STH     0,   20(  0, 13)
C 00003CFA    188B            LR      8, 11
C 00003CFC    41BB0000        LA     11,    0( 11,  0)
C 00003D00    41000004        LA      0,    4(  0,  0)
C 00003D04    59BD0044        C      11,   68( 13,  0)
C 00003D08    4720C054        BC      2,   84(  0, 12)
C 00003D0C    05A0            BALR   10,  0


   960                   %ROUTINESPEC REDEFINE EP(%INTEGER TYPEP,%INTEGERARRAYNAME PARAMS)
   961                     %ROUTINESPEC CIOCP(%INTEGER N)
   962                     %ROUTINESPEC DEFINE EP(%INTEGER MODE, NAME, ADDR)
   963                     %ROUTINESPEC LOAD DATA
   964                     %ROUTINESPEC P LOCAL JUMP(%INTEGER MASK,LAB)
   965                     %ROUTINESPEC FILL LOCAL JUMPS
   966                     %ROUTINESPEC CLEAR LIST (%SHORTINTEGERNAME OPHEAD)
   967                     %ROUTINESPEC STORE STRING(%INTEGER Z,FROM,TO,BML,DML)
   968                     %ROUTINESPEC CEND(%INTEGER KKK)
   969                     %ROUTINESPEC CBPAIR(%INTEGERNAME LB,UB)
   970                     %ROUTINESPEC UNDCRF (%SHORTINTEGERNAME OPHEAD)
   971                      %ROUTINESPEC CCOND(%INTEGER IU,REG,ADDR)
   972                     %ROUTINESPEC FILL JUMPS(%INTEGER LEVEL)
   973                           %ROUTINESPEC SET LINE
   974                     %ROUTINESPEC CUI(%BYTEINTEGER CODE)
   975                     %ROUTINESPEC SET80(%INTEGER WHERE,N)
   976                     %ROUTINESPEC CVDECLN
   977                     %ROUTINESPEC CSEXP(%INTEGER REG,%BYTEINTEGER MODE)
   978                     %ROUTINESPEC CSTREXP(%INTEGER REG)
   979                           %ROUTINESPEC CHECK RF
   980                     %ROUTINESPEC ASSIGN (%INTEGER P1,P2)
   981                     %INTEGERFNSPEC COPY RECORD TAG
   982                     %INTEGERFNSPEC COUNT APS
   983                     %INTEGERFNSPEC DISPLACEMENT(%INTEGER LINK)
   984                     %ROUTINESPEC LOADAD(%INTEGER REG,BASE,X,DISP)
   985                            %ROUTINESPEC SKIP APP
   986                     %ROUTINESPEC CQUERY(%INTEGER REG)
   987                     %ROUTINESPEC CRFORMAT
   988                     %ROUTINESPEC CADCLN(%BYTEINTEGER MODE)
   989                     %ROUTINESPEC CQN(%INTEGER P)
   990                     %ROUTINESPEC CLT
   991                           %ROUTINESPEC MOVE R(%INTEGER R,N)
   992                     %INTEGERFNSPEC GET ARR WSP
   993                     %INTEGERFNSPEC GET DBLE WRD
   994                     %ROUTINESPEC CRCALL (%INTEGER CLINK)
   995                     %ROUTINESPEC CNAME(%INTEGER Z,REG)
   996                     %ROUTINESPEC CRNAME(%INTEGER Z,MODE,CLINK,BS,DP)
   997                     %ROUTINESPEC CANAME(%INTEGER Z,BS,DP,LINK,BSRF,DPRF)
   998                     %ROUTINESPEC CENAME(%INTEGER Z,MODE,BS,DP)
   999                     %ROUTINESPEC INSERTAFTER(%SHORTINTEGERNAME STAD,%INTEGER S1,S2)
  1000                     %ROUTINESPEC FROM LIST(%INTEGER CELL,%INTEGERNAME S1,S2)
  1001                     %ROUTINESPEC POP(%SHORTINTEGERNAME CELL,%INTEGERNAME S1,S2)
  1002                     %ROUTINESPEC PUSH(%SHORTINTEGERNAME CELL,%INTEGER S1,S2)
  1003                     %INTEGERFNSPEC FIND(%INTEGER LAB,LIST)
  1004                     %ROUTINESPEC MLINK(%INTEGERNAME CELL)
  1005                     %ROUTINESPEC REPLACE2(%INTEGER CELL,S2)
  1006                     %ROUTINESPEC REPLACE1(%INTEGER CELL,S1)
  1007                     %ROUTINESPEC REPLACE BOTH(%INTEGER CELL,S1,S2)
  1008                     %ROUTINESPEC FROM2(%INTEGER CELL,%INTEGERNAME S2)
  1009                     %ROUTINESPEC FROM1(%INTEGER CELL,%INTEGERNAME S1)
  1010                     %ROUTINESPEC CRES(%INTEGER MODE,LAB)
  1011                           %INTEGERFNSPEC NEWCELL
  1012                           %ROUTINESPEC COPY TAG (%INTEGER KK)
  1013                     %ROUTINESPEC CSNAME(%INTEGER Z,REG)
  1014                           %ROUTINESPEC REPLACE TAG (%INTEGER KK)
  1015                           %INTEGERFNSPEC PARK(%INTEGER REG)
  1016                     %INTEGERFN %SPEC PARKF (%INTEGER REG,PREC)
  1017                     %INTEGERFNSPEC  CLAIMABLE REG
  1018                           %INTEGERFNSPEC       FIND PP
  1019                     %INTEGERFNSPEC GET STR WSP
  1020                     %ROUTINESPEC SETEX
  1021                     %ROUTINESPEC GXREF(%INTEGER NAME,HASH)
  1022                     %ROUTINESPEC UNPARK(%INTEGER OPCODE,REG,Q)
  1023                     %ROUTINESPEC STORE TAG(%INTEGER KK,SLINK)
  1024                     %INTEGERFNSPEC PAGENO(%INTEGER N)
  1025                           %ROUTINESPEC TESTNST
  1026                           %ROUTINESPEC CUCI
  1027                           %ROUTINESPEC SKIP EXP
  1028                           %ROUTINESPEC UNPACK
  1029                     %INTEGERFNSPEC SORT CONST(%INTEGER P,LONG,TYPE)
  1030                     %ROUTINESPEC PACK(%INTEGERNAME PTYPE)
  1031                     %ROUTINESPEC CRSPEC (%BYTEINTEGER M)
  1032                     %ROUTINESPEC DUMP(%INTEGER CODE,REG,DIS,X,LEVEL)
  1033                     %ROUTINESPEC RHEAD(%INTEGER KK)
  1034                     %ROUTINESPEC TEST ASS(%INTEGER REG)
  1035                           %ROUTINESPEC PJ(%INTEGER MASK,STAD)
  1036                     %ROUTINESPEC COMPILE FORMAL PARAMETER
  1037                     %ROUTINESPEC PPJ(%BYTEINTEGER N)
  1038                           %ROUTINESPEC PLAB(%INTEGER M)
  1039                     %ROUTINESPEC CHECK CAPACITY(%INTEGER REG,DIS,X,LEVEL)
  1040                           %INTEGERFNSPEC TSEXP(%INTEGERNAME CODE)
  1041                     %SWITCH SW(1:45)

C 00003D0E    0700            BCR     0,  0
C 00003D10    0000
C 00003D12    0000
C 00003D14    47FA0000        BC     15,    0( 10,  0)
C 00003D18    0000
C 00003D1A    0001
C 00003D1C    0000
C 00003D1E    002D
C 00003D20    0000
C 00003D22    0000
C 00003D24    0000
C 00003D26    0000
C 00003D28    0000
C 00003D2A    0000
C 00003D2C    0000
C 00003D2E    0000
C 00003D30    0000
C 00003D32    0000
C 00003D34    0000
C 00003D36    0000
C 00003D38    0000
C 00003D3A    0000
C 00003D3C    0000
C 00003D3E    0000
C 00003D40    0000
C 00003D42    0000
C 00003D44    0000
C 00003D46    0000
C 00003D48    0000
C 00003D4A    0000
C 00003D4C    0000
C 00003D4E    0000
C 00003D50    0000
C 00003D52    0000
C 00003D54    0000
C 00003D56    0000
C 00003D58    0000
C 00003D5A    0000
C 00003D5C    0000
C 00003D5E    0000
C 00003D60    0000
C 00003D62    0000
C 00003D64    0000
C 00003D66    0000
C 00003D68    0000
C 00003D6A    0000
C 00003D6C    0000
C 00003D6E    0000
C 00003D70    0000
C 00003D72    0000
C 00003D74    0000
C 00003D76    0000
C 00003D78    0000
C 00003D7A    0000
C 00003D7C    0000
C 00003D7E    0000
C 00003D80    0000
C 00003D82    0000
C 00003D84    0000
C 00003D86    0000
C 00003D88    0000
C 00003D8A    0000
C 00003D8C    0000
C 00003D8E    0000
C 00003D90    0000
C 00003D92    0000
C 00003D94    0000
C 00003D96    0000
C 00003D98    0000
C 00003D9A    0000
C 00003D9C    0000
C 00003D9E    0000
C 00003DA0    0000
C 00003DA2    0000
C 00003DA4    0000
C 00003DA6    0000
C 00003DA8    0000
C 00003DAA    0000
C 00003DAC    0000
C 00003DAE    0000
C 00003DB0    0000
C 00003DB2    0000
C 00003DB4    0000
C 00003DB6    0000
C 00003DB8    0000
C 00003DBA    0000
C 00003DBC    0000
C 00003DBE    0000
C 00003DC0    0000
C 00003DC2    0000
C 00003DC4    0000
C 00003DC6    0000
C 00003DC8    0000
C 00003DCA    0000
C 00003DCC    0000
C 00003DCE    0000
C 00003DD0    0000
C 00003DD2    0000


  1042                     %INTEGER INC,INCP,BXLE,ACC
  1043                     %SHORTINTEGER OPHEAD
  1044                     %INTEGER JJ,JJJ,KK,KKK,Q,QQ,EXTRN
  1045                     %INTEGER BASE,DISP,VALUE,INDEX
  1046                     %INTEGER LOCAL BASE, LOCAL ADDR
  1047                     %SHORTINTEGER LOCAL JUMP,LOCAL LABEL
  1048                     %BYTEINTEGER ROUT,NAM,ARR,PREC,TYPE,PRECP
  1049                     %INTEGER PTYPE,I,J,K,OLDI,INREG
  1050                     %INTEGER PTYPEP,SAVE13,CHNGE13
  1051                     LOCAL JUMP=0;LOCAL LABEL=0

C 00003DD4    1F11            SLR     1,  1
C 00003DD6    4010808C        STH     1,  140(  0,  8)
C 00003DDA    4918008C        CH      1,  140(  8,  0)
C 00003DDE    477C0058        BC      7,   88( 12,  0)



C 00003DE2    1F11            SLR     1,  1
C 00003DE4    4010808E        STH     1,  142(  0,  8)
C 00003DE8    4918008E        CH      1,  142(  8,  0)
C 00003DEC    477C0058        BC      7,   88( 12,  0)


  1052                     LOCAL BASE=0

C 00003DF0    1F11            SLR     1,  1
C 00003DF2    50108084        ST      1,  132(  0,  8)


  1053                     OLDI=0; ->SW(A(P))

C 00003DF6    1F11            SLR     1,  1
C 00003DF8    501080A8        ST      1,  168(  0,  8)



C 00003DFC    58108040        L       1,   64(  0,  8)
C 00003E00    413092FC        LA      3,  764(  0,  9)
C 00003E04    45F0C05C        BAL    15,   92(  0, 12)
C 00003E08    4811F000        LH      1,    0(  1, 15)
C 00003E0C    89100002        SLL     1,    2(  0)
C 00003E10    5811A00E        L       1,   14(  1, 10)
C 00003E14    47F1A000        BC     15,    0(  1, 10)


  1054            SW(1):   MARKER2=P+1+A(P+1); SET LINE

C 00003E18    41100001        LA      1,    1(  0,  0)
C 00003E1C    5A108040        A       1,   64(  0,  8)
C 00003E20    413092FC        LA      3,  764(  0,  9)
C 00003E24    45F0C05C        BAL    15,   92(  0, 12)
C 00003E28    4871F000        LH      7,    0(  1, 15)
C 00003E2C    41100001        LA      1,    1(  0,  0)
C 00003E30    5A108040        A       1,   64(  0,  8)
C 00003E34    1A17            AR      1,  7
C 00003E36    501090B4        ST      1,  180(  0,  9)



C 00003E3A    5810D36C        L       1,  876(  0, 13)
C 00003E3E    45F0D074        BAL    15,  116(  0, 13)


  1055                     P=P+2; ->101 %IF A(MARKER2)=2

C 00003E42    41100002        LA      1,    2(  0,  0)
C 00003E46    5A108040        A       1,   64(  0,  8)
C 00003E4A    50108040        ST      1,   64(  0,  8)



C 00003E4E    581090B4        L       1,  180(  0,  9)
C 00003E52    413092FC        LA      3,  764(  0,  9)
C 00003E56    45F0C05C        BAL    15,   92(  0, 12)
C 00003E5A    4811F000        LH      1,    0(  1, 15)
C 00003E5E    41200002        LA      2,    2(  0,  0)
C 00003E62    1912            CR      1,  2
C 00003E64    0000
C 00003E66    0000
C 00003E68    478A0000        BC      8,    0( 10,  0)


  1056                     MASK=15; CUI(0); ->1

C 00003E6C    4110000F        LA      1,   15(  0,  0)
C 00003E70    501090F0        ST      1,  240(  0,  9)



C 00003E74    9200B043        MVI     67( 11),  0
C 00003E78    5810D370        L       1,  880(  0, 13)
C 00003E7C    45F0D074        BAL    15,  116(  0, 13)



C 00003E80    0000
C 00003E82    0000
C 00003E84    47FA0000        BC     15,    0( 10,  0)


  1057            101:     Q=P

C 00003E88    D20380688040    MVC    104(  4,  8),   64(  8)


  1058                     FAULT(54) %IF A(P)=9;         ! START

C 00003E8E    58108040        L       1,   64(  0,  8)
C 00003E92    413092FC        LA      3,  764(  0,  9)
C 00003E96    45F0C05C        BAL    15,   92(  0, 12)
C 00003E9A    4811F000        LH      1,    0(  1, 15)
C 00003E9E    41200009        LA      2,    9(  0,  0)
C 00003EA2    1912            CR      1,  2
C 00003EA4    477A01A6        BC      7,  422( 10,  0)
C 00003EA8    9236B043        MVI     67( 11), 54
C 00003EAC    5810D228        L       1,  552(  0, 13)
C 00003EB0    45F0D074        BAL    15,  116(  0, 13)


  1059                     SAVE13=R13; CHNGE13=0

C 00003EB4    D20380B490BC    MVC    180(  4,  8),  188(  9)



C 00003EBA    1F11            SLR     1,  1
C 00003EBC    501080B8        ST      1,  184(  0,  8)


  1060                     ->103 %IF A(P)=3;   ! UI =JUMP

C 00003EC0    58108040        L       1,   64(  0,  8)
C 00003EC4    413092FC        LA      3,  764(  0,  9)
C 00003EC8    45F0C05C        BAL    15,   92(  0, 12)
C 00003ECC    4811F000        LH      1,    0(  1, 15)
C 00003ED0    41200003        LA      2,    3(  0,  0)
C 00003ED4    1912            CR      1,  2
C 00003ED6    0000
C 00003ED8    0000
C 00003EDA    478A0000        BC      8,    0( 10,  0)


  1061                     PLABEL=PLABEL-2; JJJ=PLABEL+1

C 00003EDE    581090A4        L       1,  164(  0,  9)
C 00003EE2    0610            BCTR    1,  0
C 00003EE4    0610            BCTR    1,  0
C 00003EE6    501090A4        ST      1,  164(  0,  9)



C 00003EEA    41100001        LA      1,    1(  0,  0)
C 00003EEE    5A1090A4        A       1,  164(  0,  9)
C 00003EF2    5010805C        ST      1,   92(  0,  8)


  1062                     KKK=PLABEL; P=MARKER2+2

C 00003EF6    D203806490A4    MVC    100(  4,  8),  164(  9)



C 00003EFC    41100002        LA      1,    2(  0,  0)
C 00003F00    5A1090B4        A       1,  180(  0,  9)
C 00003F04    50108040        ST      1,   64(  0,  8)


  1063                     CCOND(A(P-1)-1,JJJ,KKK)

C 00003F08    58108040        L       1,   64(  0,  8)
C 00003F0C    0610            BCTR    1,  0
C 00003F0E    413092FC        LA      3,  764(  0,  9)
C 00003F12    45F0C05C        BAL    15,   92(  0, 12)
C 00003F16    4871F000        LH      7,    0(  1, 15)
C 00003F1A    0670            BCTR    7,  0
C 00003F1C    5070B040        ST      7,   64(  0, 11)
C 00003F20    D203B044805C    MVC     68(  4, 11),   92(  8)
C 00003F26    D203B0488064    MVC     72(  4, 11),  100(  8)
C 00003F2C    5810D364        L       1,  868(  0, 13)
C 00003F30    45F0D074        BAL    15,  116(  0, 13)


  1064                     PLOCAL JUMP(MASK,KKK)

C 00003F34    D203B04090F0    MVC     64(  4, 11),  240(  9)
C 00003F3A    D203B0448064    MVC     68(  4, 11),  100(  8)
C 00003F40    5810D348        L       1,  840(  0, 13)
C 00003F44    45F0D074        BAL    15,  116(  0, 13)


  1065                     R13=0 %UNLESS R13=SAVE13 %AND CHNGE13=0

C 00003F48    D50390BC80B4    CLC    188(  4,  9),  180(  8)
C 00003F4E    477A024E        BC      7,  590( 10,  0)
C 00003F52    581080B8        L       1,  184(  0,  8)
C 00003F56    1211            LTR     1,  1
C 00003F58    478A0254        BC      8,  596( 10,  0)
C 00003F5C    1F11            SLR     1,  1
C 00003F5E    501090BC        ST      1,  188(  0,  9)


  1066                     PUSH(LOCAL LABEL,CA,JJJ)

C 00003F62    4110808E        LA      1,  142(  0,  8)
C 00003F66    5010B040        ST      1,   64(  0, 11)
C 00003F6A    D203B04490AC    MVC     68(  4, 11),  172(  9)
C 00003F70    D203B048805C    MVC     72(  4, 11),   92(  8)
C 00003F76    5810D3E0        L       1,  992(  0, 13)
C 00003F7A    45F0D074        BAL    15,  116(  0, 13)


  1067                     P=Q; CUI(1)

C 00003F7E    D20380408068    MVC     64(  4,  8),  104(  8)



C 00003F84    9201B043        MVI     67( 11),  1
C 00003F88    5810D370        L       1,  880(  0, 13)
C 00003F8C    45F0D074        BAL    15,  116(  0, 13)


  1068            104:     PUSH(LOCAL LABEL,CA,KKK)

C 00003F90    4110808E        LA      1,  142(  0,  8)
C 00003F94    5010B040        ST      1,   64(  0, 11)
C 00003F98    D203B04490AC    MVC     68(  4, 11),  172(  9)
C 00003F9E    D203B0488064    MVC     72(  4, 11),  100(  8)
C 00003FA4    5810D3E0        L       1,  992(  0, 13)
C 00003FA8    45F0D074        BAL    15,  116(  0, 13)


  1069                     R13=0 %UNLESS R13=SAVE13 %AND CHNGE13=0

C 00003FAC    D50390BC80B4    CLC    188(  4,  9),  180(  8)
C 00003FB2    477A02B2        BC      7,  690( 10,  0)
C 00003FB6    581080B8        L       1,  184(  0,  8)
C 00003FBA    1211            LTR     1,  1
C 00003FBC    478A02B8        BC      8,  696( 10,  0)
C 00003FC0    1F11            SLR     1,  1
C 00003FC2    501090BC        ST      1,  188(  0,  9)


  1070            102:     REGISTER(LOCAL BASE)=0 %UNLESS LOCAL BASE=10 %OR LOCALBASE=0

C 00003FC6    4110000A        LA      1,   10(  0,  0)
C 00003FCA    59108084        C       1,  132(  0,  8)
C 00003FCE    478A02E0        BC      8,  736( 10,  0)
C 00003FD2    58108084        L       1,  132(  0,  8)
C 00003FD6    1211            LTR     1,  1
C 00003FD8    478A02E0        BC      8,  736( 10,  0)
C 00003FDC    1F44            SLR     4,  4
C 00003FDE    58108084        L       1,  132(  0,  8)
C 00003FE2    4130914C        LA      3,  332(  0,  9)
C 00003FE6    45F0C05C        BAL    15,   92(  0, 12)
C 00003FEA    5041F000        ST      4,    0(  1, 15)


  1071                     FILL LOCAL JUMPS; ->1

C 00003FEE    5810D34C        L       1,  844(  0, 13)
C 00003FF2    45F0D074        BAL    15,  116(  0, 13)



C 00003FF6    0000
C 00003FF8    0000
C 00003FFA    47FA0000        BC     15,    0( 10,  0)


  1072            103:     PLABEL=PLABEL-1; JJJ=PLABEL

C 00003FFE    581090A4        L       1,  164(  0,  9)
C 00004002    0610            BCTR    1,  0
C 00004004    501090A4        ST      1,  164(  0,  9)



C 00004008    D203805C90A4    MVC     92(  4,  8),  164(  9)


  1073                     NMDECS(LEVEL)=1

C 0000400E    41400001        LA      4,    1(  0,  0)
C 00004012    581090A8        L       1,  168(  0,  9)
C 00004016    4130926C        LA      3,  620(  0,  9)
C 0000401A    45F0C05C        BAL    15,   92(  0, 12)
C 0000401E    4041F000        STH     4,    0(  1, 15)
C 00004022    494F1000        CH      4,    0( 15,  1)
C 00004026    477C0058        BC      7,   88( 12,  0)


  1074                     KKK=A(P+2)+(A(P+1)-1)<<14

C 0000402A    41100002        LA      1,    2(  0,  0)
C 0000402E    5A108040        A       1,   64(  0,  8)
C 00004032    413092FC        LA      3,  764(  0,  9)
C 00004036    45F0C05C        BAL    15,   92(  0, 12)
C 0000403A    4871F000        LH      7,    0(  1, 15)
C 0000403E    41100001        LA      1,    1(  0,  0)
C 00004042    5A108040        A       1,   64(  0,  8)
C 00004046    413092FC        LA      3,  764(  0,  9)
C 0000404A    45F0C05C        BAL    15,   92(  0, 12)
C 0000404E    4861F000        LH      6,    0(  1, 15)
C 00004052    0660            BCTR    6,  0
C 00004054    1856            LR      5,  6
C 00004056    8950000E        SLL     5,   14(  0)
C 0000405A    1A75            AR      7,  5
C 0000405C    50708064        ST      7,  100(  0,  8)


  1075                     P=MARKER2+2; CCOND(2-A(P-1),JJJ,KKK)

C 00004060    41100002        LA      1,    2(  0,  0)
C 00004064    5A1090B4        A       1,  180(  0,  9)
C 00004068    50108040        ST      1,   64(  0,  8)



C 0000406C    58108040        L       1,   64(  0,  8)
C 00004070    0610            BCTR    1,  0
C 00004072    413092FC        LA      3,  764(  0,  9)
C 00004076    45F0C05C        BAL    15,   92(  0, 12)
C 0000407A    4871F000        LH      7,    0(  1, 15)
C 0000407E    41100002        LA      1,    2(  0,  0)
C 00004082    1B17            SR      1,  7
C 00004084    5010B040        ST      1,   64(  0, 11)
C 00004088    D203B044805C    MVC     68(  4, 11),   92(  8)
C 0000408E    D203B0488064    MVC     72(  4, 11),  100(  8)
C 00004094    5810D364        L       1,  868(  0, 13)
C 00004098    45F0D074        BAL    15,  116(  0, 13)


  1076                     PLOCAL JUMP(MASK,KKK)

C 0000409C    D203B04090F0    MVC     64(  4, 11),  240(  9)
C 000040A2    D203B0448064    MVC     68(  4, 11),  100(  8)
C 000040A8    5810D348        L       1,  840(  0, 13)
C 000040AC    45F0D074        BAL    15,  116(  0, 13)


  1077                     R13=0 %UNLESS R13=SAVE13 %AND CHNGE13=0

C 000040B0    D50390BC80B4    CLC    188(  4,  9),  180(  8)
C 000040B6    477A03B6        BC      7,  950( 10,  0)
C 000040BA    581080B8        L       1,  184(  0,  8)
C 000040BE    1211            LTR     1,  1
C 000040C0    478A03BC        BC      8,  956( 10,  0)
C 000040C4    1F11            SLR     1,  1
C 000040C6    501090BC        ST      1,  188(  0,  9)


  1078                     PUSH(LOCAL LABEL,CA,JJJ); ->102

C 000040CA    4110808E        LA      1,  142(  0,  8)
C 000040CE    5010B040        ST      1,   64(  0, 11)
C 000040D2    D203B04490AC    MVC     68(  4, 11),  172(  9)
C 000040D8    D203B048805C    MVC     72(  4, 11),   92(  8)
C 000040DE    5810D3E0        L       1,  992(  0, 13)
C 000040E2    45F0D074        BAL    15,  116(  0, 13)



C 000040E6    47F0A2B8        BC     15,  696(  0, 10)


  1079            !
  1080            SW(2):   SET LINE;P=P+1; BXLE=0; CNAME(3,4)

C 000040EA    5810D36C        L       1,  876(  0, 13)
C 000040EE    45F0D074        BAL    15,  116(  0, 13)



C 000040F2    41100001        LA      1,    1(  0,  0)
C 000040F6    5A108040        A       1,   64(  0,  8)
C 000040FA    50108040        ST      1,   64(  0,  8)



C 000040FE    1F11            SLR     1,  1
C 00004100    5010804C        ST      1,   76(  0,  8)



C 00004104    41100003        LA      1,    3(  0,  0)
C 00004108    5010B040        ST      1,   64(  0, 11)
C 0000410C    41100004        LA      1,    4(  0,  0)
C 00004110    5010B044        ST      1,   68(  0, 11)
C 00004114    5810D3C4        L       1,  964(  0, 13)
C 00004118    45F0D074        BAL    15,  116(  0, 13)


  1081                     INC=N; N=N+12

C 0000411C    D20380449100    MVC     68(  4,  8),  256(  9)



C 00004122    4110000C        LA      1,   12(  0,  0)
C 00004126    5A109100        A       1,  256(  0,  9)
C 0000412A    50109100        ST      1,  256(  0,  9)


  1082                           FAULT(25) %UNLESS TYPE=1 %AND PREC=0

C 0000412E    95018094        CLI    148(  8),  1
C 00004132    477A0430        BC      7, 1072( 10,  0)
C 00004136    95008093        CLI    147(  8),  0
C 0000413A    478A043C        BC      8, 1084( 10,  0)
C 0000413E    9219B043        MVI     67( 11), 25
C 00004142    5810D228        L       1,  552(  0, 13)
C 00004146    45F0D074        BAL    15,  116(  0, 13)


  1083                     Q=P; SKIP EXP; REGISTER(4)=1

C 0000414A    D20380688040    MVC    104(  4,  8),   64(  8)



C 00004150    5810D444        L       1, 1092(  0, 13)
C 00004154    45F0D074        BAL    15,  116(  0, 13)



C 00004158    41400001        LA      4,    1(  0,  0)
C 0000415C    41100004        LA      1,    4(  0,  0)
C 00004160    4130914C        LA      3,  332(  0,  9)
C 00004164    45F0C05C        BAL    15,   92(  0, 12)
C 00004168    5041F000        ST      4,    0(  1, 15)


  1084                     JJ=P; BXLE=1 %IF 3900>CA-CODEBASE(LEVEL)%AND 1<=TSEXP(JJJ)<=2

C 0000416C    D20380588040    MVC     88(  4,  8),   64(  8)



C 00004172    581090A8        L       1,  168(  0,  9)
C 00004176    4130917C        LA      3,  380(  0,  9)
C 0000417A    45F0C05C        BAL    15,   92(  0, 12)
C 0000417E    5871F000        L       7,    0(  1, 15)
C 00004182    581090AC        L       1,  172(  0,  9)
C 00004186    1B17            SR      1,  7
C 00004188    41200F3C        LA      2, 3900(  0,  0)
C 0000418C    1921            CR      2,  1
C 0000418E    47DA04B0        BC     13, 1200( 10,  0)
C 00004192    4110805C        LA      1,   92(  0,  8)
C 00004196    5010B040        ST      1,   64(  0, 11)
C 0000419A    5810D478        L       1, 1144(  0, 13)
C 0000419E    45F0D074        BAL    15,  116(  0, 13)
C 000041A2    41200001        LA      2,    1(  0,  0)
C 000041A6    1921            CR      2,  1
C 000041A8    473A04B0        BC      3, 1200( 10,  0)
C 000041AC    41200002        LA      2,    2(  0,  0)
C 000041B0    1912            CR      1,  2
C 000041B2    473A04B0        BC      3, 1200( 10,  0)
C 000041B6    41100001        LA      1,    1(  0,  0)
C 000041BA    5010804C        ST      1,   76(  0,  8)


  1085                     P=JJ; CSEXP(2,1);             ! INTEGER TO REG2

C 000041BE    D20380408058    MVC     64(  4,  8),   88(  8)



C 000041C4    41100002        LA      1,    2(  0,  0)
C 000041C8    5010B040        ST      1,   64(  0, 11)
C 000041CC    9201B047        MVI     71( 11),  1
C 000041D0    5810D37C        L       1,  892(  0, 13)
C 000041D4    45F0D074        BAL    15,  116(  0, 13)


  1086                     JJJ=P; KKK=TSEXP(QQ); P=JJJ

C 000041D8    D203805C8040    MVC     92(  4,  8),   64(  8)



C 000041DE    4110806C        LA      1,  108(  0,  8)
C 000041E2    5010B040        ST      1,   64(  0, 11)
C 000041E6    5810D478        L       1, 1144(  0, 13)
C 000041EA    45F0D074        BAL    15,  116(  0, 13)
C 000041EE    50108064        ST      1,  100(  0,  8)



C 000041F2    D2038040805C    MVC     64(  4,  8),   92(  8)


  1087                     DUMP(1,2,INC,0,RBASE) %IF KKK=0

C 000041F8    58108064        L       1,  100(  0,  8)
C 000041FC    1211            LTR     1,  1
C 000041FE    477A051E        BC      7, 1310( 10,  0)
C 00004202    41100001        LA      1,    1(  0,  0)
C 00004206    5010B040        ST      1,   64(  0, 11)
C 0000420A    41100002        LA      1,    2(  0,  0)
C 0000420E    5010B044        ST      1,   68(  0, 11)
C 00004212    D203B0488044    MVC     72(  4, 11),   68(  8)
C 00004218    1F11            SLR     1,  1
C 0000421A    5010B04C        ST      1,   76(  0, 11)
C 0000421E    D203B05090F4    MVC     80(  4, 11),  244(  9)
C 00004224    5810D458        L       1, 1112(  0, 13)
C 00004228    45F0D074        BAL    15,  116(  0, 13)


  1088                     CSEXP(3,1)

C 0000422C    41100003        LA      1,    3(  0,  0)
C 00004230    5010B040        ST      1,   64(  0, 11)
C 00004234    9201B047        MVI     71( 11),  1
C 00004238    5810D37C        L       1,  892(  0, 13)
C 0000423C    45F0D074        BAL    15,  116(  0, 13)


  1089                     %IF KKK=0 %THEN PRX(X'90',3,4,RBASE,INC+4) %ELSE PRX(X'90',2,4,RBASE,INC)

C 00004240    58108064        L       1,  100(  0,  8)
C 00004244    1211            LTR     1,  1
C 00004246    477A0572        BC      7, 1394( 10,  0)
C 0000424A    41100090        LA      1,  144(  0,  0)
C 0000424E    5010B040        ST      1,   64(  0, 11)
C 00004252    41100003        LA      1,    3(  0,  0)
C 00004256    5010B044        ST      1,   68(  0, 11)
C 0000425A    41100004        LA      1,    4(  0,  0)
C 0000425E    5010B048        ST      1,   72(  0, 11)
C 00004262    D203B04C90F4    MVC     76(  4, 11),  244(  9)
C 00004268    41100004        LA      1,    4(  0,  0)
C 0000426C    5A108044        A       1,   68(  0,  8)
C 00004270    5010B050        ST      1,   80(  0, 11)
C 00004274    5810D1C0        L       1,  448(  0, 13)
C 00004278    45F0D074        BAL    15,  116(  0, 13)
C 0000427C    47FA059E        BC     15, 1438( 10,  0)
C 00004280    41100090        LA      1,  144(  0,  0)
C 00004284    5010B040        ST      1,   64(  0, 11)
C 00004288    41100002        LA      1,    2(  0,  0)
C 0000428C    5010B044        ST      1,   68(  0, 11)
C 00004290    41100004        LA      1,    4(  0,  0)
C 00004294    5010B048        ST      1,   72(  0, 11)
C 00004298    D203B04C90F4    MVC     76(  4, 11),  244(  9)
C 0000429E    D203B0508044    MVC     80(  4, 11),   68(  8)
C 000042A4    5810D1C0        L       1,  448(  0, 13)
C 000042A8    45F0D074        BAL    15,  116(  0, 13)


  1090                     P=Q; CSEXP(1,1)

C 000042AC    D20380408068    MVC     64(  4,  8),  104(  8)



C 000042B2    41100001        LA      1,    1(  0,  0)
C 000042B6    5010B040        ST      1,   64(  0, 11)
C 000042BA    9201B047        MVI     71( 11),  1
C 000042BE    5810D37C        L       1,  892(  0, 13)
C 000042C2    45F0D074        BAL    15,  116(  0, 13)


  1091                     ->202 %IF CHECKSP=0

C 000042C6    950090D7        CLI    215(  9),  0
C 000042CA    0000
C 000042CC    0000
C 000042CE    478A0000        BC      8,    0( 10,  0)


  1092                     DUMP(0,2,INC,0,RBASE); PPJ(17)

C 000042D2    1F11            SLR     1,  1
C 000042D4    5010B040        ST      1,   64(  0, 11)
C 000042D8    41100002        LA      1,    2(  0,  0)
C 000042DC    5010B044        ST      1,   68(  0, 11)
C 000042E0    D203B0488044    MVC     72(  4, 11),   68(  8)
C 000042E6    1F11            SLR     1,  1
C 000042E8    5010B04C        ST      1,   76(  0, 11)
C 000042EC    D203B05090F4    MVC     80(  4, 11),  244(  9)
C 000042F2    5810D458        L       1, 1112(  0, 13)
C 000042F6    45F0D074        BAL    15,  116(  0, 13)



C 000042FA    9211B043        MVI     67( 11), 17
C 000042FE    5810D46C        L       1, 1132(  0, 13)
C 00004302    45F0D074        BAL    15,  116(  0, 13)


  1093            202:     PLAB(-1); REGISTER(4)=0

C 00004306    5810D010        L       1,   16(  0, 13)
C 0000430A    5010B040        ST      1,   64(  0, 11)
C 0000430E    5810D470        L       1, 1136(  0, 13)
C 00004312    45F0D074        BAL    15,  116(  0, 13)



C 00004316    1F44            SLR     4,  4
C 00004318    41100004        LA      1,    4(  0,  0)
C 0000431C    4130914C        LA      3,  332(  0,  9)
C 00004320    45F0C05C        BAL    15,   92(  0, 12)
C 00004324    5041F000        ST      4,    0(  1, 15)


  1094                     DUMP(1,1,0,0,4)

C 00004328    41100001        LA      1,    1(  0,  0)
C 0000432C    5010B040        ST      1,   64(  0, 11)
C 00004330    41100001        LA      1,    1(  0,  0)
C 00004334    5010B044        ST      1,   68(  0, 11)
C 00004338    1F11            SLR     1,  1
C 0000433A    5010B048        ST      1,   72(  0, 11)
C 0000433E    1F11            SLR     1,  1
C 00004340    5010B04C        ST      1,   76(  0, 11)
C 00004344    41100004        LA      1,    4(  0,  0)
C 00004348    5010B050        ST      1,   80(  0, 11)
C 0000434C    5810D458        L       1, 1112(  0, 13)
C 00004350    45F0D074        BAL    15,  116(  0, 13)


  1095                     PUSH(CYCLE(LEVEL),K,INC+4096*BXLE)

C 00004354    581090A8        L       1,  168(  0,  9)
C 00004358    413091AC        LA      3,  428(  0,  9)
C 0000435C    45F0C05C        BAL    15,   92(  0, 12)
C 00004360    4111F000        LA      1,    0(  1, 15)
C 00004364    5010B040        ST      1,   64(  0, 11)
C 00004368    D203B04480A4    MVC     68(  4, 11),  164(  8)
C 0000436E    5810D47C        L       1, 1148(  0, 13)
C 00004372    5C00804C        M       0,   76(  0,  8)
C 00004376    5A108044        A       1,   68(  0,  8)
C 0000437A    5010B048        ST      1,   72(  0, 11)
C 0000437E    5810D3E0        L       1,  992(  0, 13)
C 00004382    45F0D074        BAL    15,  116(  0, 13)


  1096                     ->1

C 00004386    0000
C 00004388    0000
C 0000438A    47FA0000        BC     15,    0( 10,  0)


  1097            !
  1098             SW(3):        !REPEAT
  1099                     SET LINE

C 0000438E    5810D36C        L       1,  876(  0, 13)
C 00004392    45F0D074        BAL    15,  116(  0, 13)


  1100                           POP(CYCLE(LEVEL),J,K)

C 00004396    581090A8        L       1,  168(  0,  9)
C 0000439A    413091AC        LA      3,  428(  0,  9)
C 0000439E    45F0C05C        BAL    15,   92(  0, 12)
C 000043A2    4111F000        LA      1,    0(  1, 15)
C 000043A6    5010B040        ST      1,   64(  0, 11)
C 000043AA    411080A0        LA      1,  160(  0,  8)
C 000043AE    5010B044        ST      1,   68(  0, 11)
C 000043B2    411080A4        LA      1,  164(  0,  8)
C 000043B6    5010B048        ST      1,   72(  0, 11)
C 000043BA    5810D3DC        L       1,  988(  0, 13)
C 000043BE    45F0D074        BAL    15,  116(  0, 13)


  1101                     ->302 %UNLESS J=-1

C 000043C2    5810D010        L       1,   16(  0, 13)
C 000043C6    591080A0        C       1,  160(  0,  8)
C 000043CA    0000
C 000043CC    0000
C 000043CE    477A0000        BC      7,    0( 10,  0)


  1102                     FAULT(1); ->1

C 000043D2    9201B043        MVI     67( 11),  1
C 000043D6    5810D228        L       1,  552(  0, 13)
C 000043DA    45F0D074        BAL    15,  116(  0, 13)



C 000043DE    0000
C 000043E0    0000
C 000043E2    47FA0000        BC     15,    0( 10,  0)


  1103            302:     BXLE=K>>12; K=K&4095

C 000043E6    581080A4        L       1,  164(  0,  8)
C 000043EA    8810000C        SRL     1,   12(  0)
C 000043EE    5010804C        ST      1,   76(  0,  8)



C 000043F2    41100FFF        LA      1, 4095(  0,  0)
C 000043F6    541080A4        N       1,  164(  0,  8)
C 000043FA    501080A4        ST      1,  164(  0,  8)


  1104                     PRX(X'98',2,4,RBASE,K);       ! LM 2,4,?

C 000043FE    41100098        LA      1,  152(  0,  0)
C 00004402    5010B040        ST      1,   64(  0, 11)
C 00004406    41100002        LA      1,    2(  0,  0)
C 0000440A    5010B044        ST      1,   68(  0, 11)
C 0000440E    41100004        LA      1,    4(  0,  0)
C 00004412    5010B048        ST      1,   72(  0, 11)
C 00004416    D203B04C90F4    MVC     76(  4, 11),  244(  9)
C 0000441C    D203B05080A4    MVC     80(  4, 11),  164(  8)
C 00004422    5810D1C0        L       1,  448(  0, 13)
C 00004426    45F0D074        BAL    15,  116(  0, 13)


  1105                     DUMP(2,1,0,0,4); ->301 %IF BXLE=1

C 0000442A    41100002        LA      1,    2(  0,  0)
C 0000442E    5010B040        ST      1,   64(  0, 11)
C 00004432    41100001        LA      1,    1(  0,  0)
C 00004436    5010B044        ST      1,   68(  0, 11)
C 0000443A    1F11            SLR     1,  1
C 0000443C    5010B048        ST      1,   72(  0, 11)
C 00004440    1F11            SLR     1,  1
C 00004442    5010B04C        ST      1,   76(  0, 11)
C 00004446    41100004        LA      1,    4(  0,  0)
C 0000444A    5010B050        ST      1,   80(  0, 11)
C 0000444E    5810D458        L       1, 1112(  0, 13)
C 00004452    45F0D074        BAL    15,  116(  0, 13)



C 00004456    41100001        LA      1,    1(  0,  0)
C 0000445A    5910804C        C       1,   76(  0,  8)
C 0000445E    0000
C 00004460    0000
C 00004462    478A0000        BC      8,    0( 10,  0)


  1106                     PLANT(X'1A12');               ! AR 1,2

C 00004466    5810D480        L       1, 1152(  0, 13)
C 0000446A    5010B040        ST      1,   64(  0, 11)
C 0000446E    5810D1CC        L       1,  460(  0, 13)
C 00004472    45F0D074        BAL    15,  116(  0, 13)


  1107                     PCONST(X'59304000');          !  C 3,0(4)

C 00004476    5810D484        L       1, 1156(  0, 13)
C 0000447A    5010B040        ST      1,   64(  0, 11)
C 0000447E    5810D1B4        L       1,  436(  0, 13)
C 00004482    45F0D074        BAL    15,  116(  0, 13)


  1108                     K=J; PJ(7,K); ->1

C 00004486    D20380A480A0    MVC    164(  4,  8),  160(  8)



C 0000448C    41100007        LA      1,    7(  0,  0)
C 00004490    5010B040        ST      1,   64(  0, 11)
C 00004494    D203B04480A4    MVC     68(  4, 11),  164(  8)
C 0000449A    5810D464        L       1, 1124(  0, 13)
C 0000449E    45F0D074        BAL    15,  116(  0, 13)



C 000044A2    0000
C 000044A4    0000
C 000044A6    47FA0000        BC     15,    0( 10,  0)


  1109            301:     I=FIND(J,LABEL(LEVEL))

C 000044AA    D203B04080A0    MVC     64(  4, 11),  160(  8)
C 000044B0    581090A8        L       1,  168(  0,  9)
C 000044B4    413091DC        LA      3,  476(  0,  9)
C 000044B8    45F0C05C        BAL    15,   92(  0, 12)
C 000044BC    4811F000        LH      1,    0(  1, 15)
C 000044C0    5010B044        ST      1,   68(  0, 11)
C 000044C4    5810D3E4        L       1,  996(  0, 13)
C 000044C8    45F0D074        BAL    15,  116(  0, 13)
C 000044CC    5010809C        ST      1,  156(  0,  8)


  1110                     PRX(X'87',1,2,10,I-CODEBASE(LEVEL)); ->1;! BXLE 1,2,ADDR

C 000044D0    41100087        LA      1,  135(  0,  0)
C 000044D4    5010B040        ST      1,   64(  0, 11)
C 000044D8    41100001        LA      1,    1(  0,  0)
C 000044DC    5010B044        ST      1,   68(  0, 11)
C 000044E0    41100002        LA      1,    2(  0,  0)
C 000044E4    5010B048        ST      1,   72(  0, 11)
C 000044E8    4110000A        LA      1,   10(  0,  0)
C 000044EC    5010B04C        ST      1,   76(  0, 11)
C 000044F0    581090A8        L       1,  168(  0,  9)
C 000044F4    4130917C        LA      3,  380(  0,  9)
C 000044F8    45F0C05C        BAL    15,   92(  0, 12)
C 000044FC    5871F000        L       7,    0(  1, 15)
C 00004500    5810809C        L       1,  156(  0,  8)
C 00004504    1B17            SR      1,  7
C 00004506    5010B050        ST      1,   80(  0, 11)
C 0000450A    5810D1C0        L       1,  448(  0, 13)
C 0000450E    45F0D074        BAL    15,  116(  0, 13)



C 00004512    0000
C 00004514    0000
C 00004516    47FA0000        BC     15,    0( 10,  0)


  1111            SW(4):                                 ! (LABEL)':'
  1112                     K=A(P+2)+(A(P+1)-1)<<14

C 0000451A    41100002        LA      1,    2(  0,  0)
C 0000451E    5A108040        A       1,   64(  0,  8)
C 00004522    413092FC        LA      3,  764(  0,  9)
C 00004526    45F0C05C        BAL    15,   92(  0, 12)
C 0000452A    4871F000        LH      7,    0(  1, 15)
C 0000452E    41100001        LA      1,    1(  0,  0)
C 00004532    5A108040        A       1,   64(  0,  8)
C 00004536    413092FC        LA      3,  764(  0,  9)
C 0000453A    45F0C05C        BAL    15,   92(  0, 12)
C 0000453E    4861F000        LH      6,    0(  1, 15)
C 00004542    0660            BCTR    6,  0
C 00004544    1856            LR      5,  6
C 00004546    8950000E        SLL     5,   14(  0)
C 0000454A    1A75            AR      7,  5
C 0000454C    507080A4        ST      7,  164(  0,  8)


  1113                    ->402 %IF FIND(K,LABEL(LEVEL))=-1

C 00004550    D203B04080A4    MVC     64(  4, 11),  164(  8)
C 00004556    581090A8        L       1,  168(  0,  9)
C 0000455A    413091DC        LA      3,  476(  0,  9)
C 0000455E    45F0C05C        BAL    15,   92(  0, 12)
C 00004562    4811F000        LH      1,    0(  1, 15)
C 00004566    5010B044        ST      1,   68(  0, 11)
C 0000456A    5810D3E4        L       1,  996(  0, 13)
C 0000456E    45F0D074        BAL    15,  116(  0, 13)
C 00004572    1851            LR      5,  1
C 00004574    5810D010        L       1,   16(  0, 13)
C 00004578    1915            CR      1,  5
C 0000457A    0000
C 0000457C    0000
C 0000457E    478A0000        BC      8,    0( 10,  0)


  1114                     FAULT(2); ->1

C 00004582    9202B043        MVI     67( 11),  2
C 00004586    5810D228        L       1,  552(  0, 13)
C 0000458A    45F0D074        BAL    15,  116(  0, 13)



C 0000458E    0000
C 00004590    0000
C 00004592    47FA0000        BC     15,    0( 10,  0)


  1115            402:     PLAB(K); ->1

C 00004596    D203B04080A4    MVC     64(  4, 11),  164(  8)
C 0000459C    5810D470        L       1, 1136(  0, 13)
C 000045A0    45F0D074        BAL    15,  116(  0, 13)



C 000045A4    0000
C 000045A6    0000
C 000045A8    47FA0000        BC     15,    0( 10,  0)


  1116            SW(5):   Q=P+1; MARKER2=P+3+A (P+2);

C 000045AC    41100001        LA      1,    1(  0,  0)
C 000045B0    5A108040        A       1,   64(  0,  8)
C 000045B4    50108068        ST      1,  104(  0,  8)



C 000045B8    41100002        LA      1,    2(  0,  0)
C 000045BC    5A108040        A       1,   64(  0,  8)
C 000045C0    413092FC        LA      3,  764(  0,  9)
C 000045C4    45F0C05C        BAL    15,   92(  0, 12)
C 000045C8    4871F000        LH      7,    0(  1, 15)
C 000045CC    41100003        LA      1,    3(  0,  0)
C 000045D0    5A108040        A       1,   64(  0,  8)
C 000045D4    1A17            AR      1,  7
C 000045D6    501090B4        ST      1,  180(  0,  9)


  1117                     SET LINE; P=MARKER2

C 000045DA    5810D36C        L       1,  876(  0, 13)
C 000045DE    45F0D074        BAL    15,  116(  0, 13)



C 000045E2    D203804090B4    MVC     64(  4,  8),  180(  9)


  1118                     SAVE13=R13; CHNGE13=0

C 000045E8    D20380B490BC    MVC    180(  4,  8),  188(  9)



C 000045EE    1F11            SLR     1,  1
C 000045F0    501080B8        ST      1,  184(  0,  8)


  1119                     ->510 %IF A(P)=3;   ! UI=JUMP

C 000045F4    58108040        L       1,   64(  0,  8)
C 000045F8    413092FC        LA      3,  764(  0,  9)
C 000045FC    45F0C05C        BAL    15,   92(  0, 12)
C 00004600    4811F000        LH      1,    0(  1, 15)
C 00004604    41200003        LA      2,    3(  0,  0)
C 00004608    1912            CR      1,  2
C 0000460A    0000
C 0000460C    0000
C 0000460E    478A0000        BC      8,    0( 10,  0)


  1120                     ->520 %IF A(P)=9;   ! UI =START

C 00004612    58108040        L       1,   64(  0,  8)
C 00004616    413092FC        LA      3,  764(  0,  9)
C 0000461A    45F0C05C        BAL    15,   92(  0, 12)
C 0000461E    4811F000        LH      1,    0(  1, 15)
C 00004622    41200009        LA      2,    9(  0,  0)
C 00004626    1912            CR      1,  2
C 00004628    0000
C 0000462A    0000
C 0000462C    478A0000        BC      8,    0( 10,  0)


  1121                     PLABEL=PLABEL-2; JJJ=PLABEL+1; KKK=PLABEL

C 00004630    581090A4        L       1,  164(  0,  9)
C 00004634    0610            BCTR    1,  0
C 00004636    0610            BCTR    1,  0
C 00004638    501090A4        ST      1,  164(  0,  9)



C 0000463C    41100001        LA      1,    1(  0,  0)
C 00004640    5A1090A4        A       1,  164(  0,  9)
C 00004644    5010805C        ST      1,   92(  0,  8)



C 00004648    D203806490A4    MVC    100(  4,  8),  164(  9)


  1122                     P=Q+2; CCOND(A(Q)-1,JJJ,KKK)

C 0000464E    41100002        LA      1,    2(  0,  0)
C 00004652    5A108068        A       1,  104(  0,  8)
C 00004656    50108040        ST      1,   64(  0,  8)



C 0000465A    58108068        L       1,  104(  0,  8)
C 0000465E    413092FC        LA      3,  764(  0,  9)
C 00004662    45F0C05C        BAL    15,   92(  0, 12)
C 00004666    4871F000        LH      7,    0(  1, 15)
C 0000466A    0670            BCTR    7,  0
C 0000466C    5070B040        ST      7,   64(  0, 11)
C 00004670    D203B044805C    MVC     68(  4, 11),   92(  8)
C 00004676    D203B0488064    MVC     72(  4, 11),  100(  8)
C 0000467C    5810D364        L       1,  868(  0, 13)
C 00004680    45F0D074        BAL    15,  116(  0, 13)


  1123                     P LOCAL JUMP(MASK,KKK)

C 00004684    D203B04090F0    MVC     64(  4, 11),  240(  9)
C 0000468A    D203B0448064    MVC     68(  4, 11),  100(  8)
C 00004690    5810D348        L       1,  840(  0, 13)
C 00004694    45F0D074        BAL    15,  116(  0, 13)


  1124                     R13=0 %UNLESS R13=SAVE13 %AND CHNGE13=0

C 00004698    D50390BC80B4    CLC    188(  4,  9),  180(  8)
C 0000469E    477A099E        BC      7, 2462( 10,  0)
C 000046A2    581080B8        L       1,  184(  0,  8)
C 000046A6    1211            LTR     1,  1
C 000046A8    478A09A4        BC      8, 2468( 10,  0)
C 000046AC    1F11            SLR     1,  1
C 000046AE    501090BC        ST      1,  188(  0,  9)


  1125                     PUSH(LOCAL LABEL,CA,JJJ)

C 000046B2    4110808E        LA      1,  142(  0,  8)
C 000046B6    5010B040        ST      1,   64(  0, 11)
C 000046BA    D203B04490AC    MVC     68(  4, 11),  172(  9)
C 000046C0    D203B048805C    MVC     72(  4, 11),   92(  8)
C 000046C6    5810D3E0        L       1,  992(  0, 13)
C 000046CA    45F0D074        BAL    15,  116(  0, 13)


  1126                     P=MARKER2; CUI(1)

C 000046CE    D203804090B4    MVC     64(  4,  8),  180(  9)



C 000046D4    9201B043        MVI     67( 11),  1
C 000046D8    5810D370        L       1,  880(  0, 13)
C 000046DC    45F0D074        BAL    15,  116(  0, 13)


  1127                     ->104 %UNLESS A(P)=1;         ! %ELSE FOLLOWS

C 000046E0    58108040        L       1,   64(  0,  8)
C 000046E4    413092FC        LA      3,  764(  0,  9)
C 000046E8    45F0C05C        BAL    15,   92(  0, 12)
C 000046EC    4811F000        LH      1,    0(  1, 15)
C 000046F0    41200001        LA      2,    1(  0,  0)
C 000046F4    1912            CR      1,  2
C 000046F6    4770A282        BC      7,  642(  0, 10)


  1128                     P=P+1; ->107 %IF A(P)=9;      ! UI=START

C 000046FA    41100001        LA      1,    1(  0,  0)
C 000046FE    5A108040        A       1,   64(  0,  8)
C 00004702    50108040        ST      1,   64(  0,  8)



C 00004706    58108040        L       1,   64(  0,  8)
C 0000470A    413092FC        LA      3,  764(  0,  9)
C 0000470E    45F0C05C        BAL    15,   92(  0, 12)
C 00004712    4811F000        LH      1,    0(  1, 15)
C 00004716    41200009        LA      2,    9(  0,  0)
C 0000471A    1912            CR      1,  2
C 0000471C    0000
C 0000471E    0000
C 00004720    478A0000        BC      8,    0( 10,  0)


  1129                     PLABEL=PLABEL-1; JJJ=PLABEL

C 00004724    581090A4        L       1,  164(  0,  9)
C 00004728    0610            BCTR    1,  0
C 0000472A    501090A4        ST      1,  164(  0,  9)



C 0000472E    D203805C90A4    MVC     92(  4,  8),  164(  9)


  1130                     P LOCAL JUMP(15,JJJ)

C 00004734    4110000F        LA      1,   15(  0,  0)
C 00004738    5010B040        ST      1,   64(  0, 11)
C 0000473C    D203B044805C    MVC     68(  4, 11),   92(  8)
C 00004742    5810D348        L       1,  840(  0, 13)
C 00004746    45F0D074        BAL    15,  116(  0, 13)


  1131                     PUSH(LOCAL LABEL,CA,KKK)

C 0000474A    4110808E        LA      1,  142(  0,  8)
C 0000474E    5010B040        ST      1,   64(  0, 11)
C 00004752    D203B04490AC    MVC     68(  4, 11),  172(  9)
C 00004758    D203B0488064    MVC     72(  4, 11),  100(  8)
C 0000475E    5810D3E0        L       1,  992(  0, 13)
C 00004762    45F0D074        BAL    15,  116(  0, 13)


  1132                     R13=0 %UNLESS R13=SAVE13 %AND CHNGE13=0

C 00004766    D50390BC80B4    CLC    188(  4,  9),  180(  8)
C 0000476C    477A0A6C        BC      7, 2668( 10,  0)
C 00004770    581080B8        L       1,  184(  0,  8)
C 00004774    1211            LTR     1,  1
C 00004776    478A0A72        BC      8, 2674( 10,  0)
C 0000477A    1F11            SLR     1,  1
C 0000477C    501090BC        ST      1,  188(  0,  9)


  1133                     MASK=15; CUI(2); KKK=JJJ; ->104

C 00004780    4110000F        LA      1,   15(  0,  0)
C 00004784    501090F0        ST      1,  240(  0,  9)



C 00004788    9202B043        MVI     67( 11),  2
C 0000478C    5810D370        L       1,  880(  0, 13)
C 00004790    45F0D074        BAL    15,  116(  0, 13)



C 00004794    D2038064805C    MVC    100(  4,  8),   92(  8)



C 0000479A    47F0A282        BC     15,  642(  0, 10)


  1134            107:     PJ(15,SFLABEL-1)

C 0000479E    4110000F        LA      1,   15(  0,  0)
C 000047A2    5010B040        ST      1,   64(  0, 11)
C 000047A6    581090F8        L       1,  248(  0,  9)
C 000047AA    0610            BCTR    1,  0
C 000047AC    5010B044        ST      1,   68(  0, 11)
C 000047B0    5810D464        L       1, 1124(  0, 13)
C 000047B4    45F0D074        BAL    15,  116(  0, 13)


  1135                     CUI(2); ->104

C 000047B8    9202B043        MVI     67( 11),  2
C 000047BC    5810D370        L       1,  880(  0, 13)
C 000047C0    45F0D074        BAL    15,  116(  0, 13)



C 000047C4    47F0A282        BC     15,  642(  0, 10)


  1136            510:     PLABEL=PLABEL-1; JJJ=PLABEL

C 000047C8    581090A4        L       1,  164(  0,  9)
C 000047CC    0610            BCTR    1,  0
C 000047CE    501090A4        ST      1,  164(  0,  9)



C 000047D2    D203805C90A4    MVC     92(  4,  8),  164(  9)


  1137                     NMDECS(LEVEL)=1

C 000047D8    41400001        LA      4,    1(  0,  0)
C 000047DC    581090A8        L       1,  168(  0,  9)
C 000047E0    4130926C        LA      3,  620(  0,  9)
C 000047E4    45F0C05C        BAL    15,   92(  0, 12)
C 000047E8    4041F000        STH     4,    0(  1, 15)
C 000047EC    494F1000        CH      4,    0( 15,  1)
C 000047F0    477C0058        BC      7,   88( 12,  0)


  1138                     KKK=A(P+2)+(A(P+1)-1)<<14

C 000047F4    41100002        LA      1,    2(  0,  0)
C 000047F8    5A108040        A       1,   64(  0,  8)
C 000047FC    413092FC        LA      3,  764(  0,  9)
C 00004800    45F0C05C        BAL    15,   92(  0, 12)
C 00004804    4871F000        LH      7,    0(  1, 15)
C 00004808    41100001        LA      1,    1(  0,  0)
C 0000480C    5A108040        A       1,   64(  0,  8)
C 00004810    413092FC        LA      3,  764(  0,  9)
C 00004814    45F0C05C        BAL    15,   92(  0, 12)
C 00004818    4861F000        LH      6,    0(  1, 15)
C 0000481C    0660            BCTR    6,  0
C 0000481E    1856            LR      5,  6
C 00004820    8950000E        SLL     5,   14(  0)
C 00004824    1A75            AR      7,  5
C 00004826    50708064        ST      7,  100(  0,  8)


  1139                     P=Q+2; CCOND(2-A(Q),JJJ,KKK)

C 0000482A    41100002        LA      1,    2(  0,  0)
C 0000482E    5A108068        A       1,  104(  0,  8)
C 00004832    50108040        ST      1,   64(  0,  8)



C 00004836    58108068        L       1,  104(  0,  8)
C 0000483A    413092FC        LA      3,  764(  0,  9)
C 0000483E    45F0C05C        BAL    15,   92(  0, 12)
C 00004842    4871F000        LH      7,    0(  1, 15)
C 00004846    41100002        LA      1,    2(  0,  0)
C 0000484A    1B17            SR      1,  7
C 0000484C    5010B040        ST      1,   64(  0, 11)
C 00004850    D203B044805C    MVC     68(  4, 11),   92(  8)
C 00004856    D203B0488064    MVC     72(  4, 11),  100(  8)
C 0000485C    5810D364        L       1,  868(  0, 13)
C 00004860    45F0D074        BAL    15,  116(  0, 13)


  1140                     PLOCAL JUMP(MASK,KKK)

C 00004864    D203B04090F0    MVC     64(  4, 11),  240(  9)
C 0000486A    D203B0448064    MVC     68(  4, 11),  100(  8)
C 00004870    5810D348        L       1,  840(  0, 13)
C 00004874    45F0D074        BAL    15,  116(  0, 13)


  1141                     R13=0 %UNLESS R13=SAVE13 %AND CHNGE13=0

C 00004878    D50390BC80B4    CLC    188(  4,  9),  180(  8)
C 0000487E    477A0B7E        BC      7, 2942( 10,  0)
C 00004882    581080B8        L       1,  184(  0,  8)
C 00004886    1211            LTR     1,  1
C 00004888    478A0B84        BC      8, 2948( 10,  0)
C 0000488C    1F11            SLR     1,  1
C 0000488E    501090BC        ST      1,  188(  0,  9)


  1142                     PUSH(LOCAL LABEL,CA,JJJ)

C 00004892    4110808E        LA      1,  142(  0,  8)
C 00004896    5010B040        ST      1,   64(  0, 11)
C 0000489A    D203B04490AC    MVC     68(  4, 11),  172(  9)
C 000048A0    D203B048805C    MVC     72(  4, 11),   92(  8)
C 000048A6    5810D3E0        L       1,  992(  0, 13)
C 000048AA    45F0D074        BAL    15,  116(  0, 13)


  1143                     P=MARKER2+3; ->102 %UNLESS A(P)=1

C 000048AE    41100003        LA      1,    3(  0,  0)
C 000048B2    5A1090B4        A       1,  180(  0,  9)
C 000048B6    50108040        ST      1,   64(  0,  8)



C 000048BA    58108040        L       1,   64(  0,  8)
C 000048BE    413092FC        LA      3,  764(  0,  9)
C 000048C2    45F0C05C        BAL    15,   92(  0, 12)
C 000048C6    4811F000        LH      1,    0(  1, 15)
C 000048CA    41200001        LA      2,    1(  0,  0)
C 000048CE    1912            CR      1,  2
C 000048D0    4770A2B8        BC      7,  696(  0, 10)


  1144                     P=P+1; MASK=15; CUI(0); ->102

C 000048D4    41100001        LA      1,    1(  0,  0)
C 000048D8    5A108040        A       1,   64(  0,  8)
C 000048DC    50108040        ST      1,   64(  0,  8)



C 000048E0    4110000F        LA      1,   15(  0,  0)
C 000048E4    501090F0        ST      1,  240(  0,  9)



C 000048E8    9200B043        MVI     67( 11),  0
C 000048EC    5810D370        L       1,  880(  0, 13)
C 000048F0    45F0D074        BAL    15,  116(  0, 13)



C 000048F4    47F0A2B8        BC     15,  696(  0, 10)


  1145            520:     PLABEL=PLABEL-1; JJJ=PLABEL

C 000048F8    581090A4        L       1,  164(  0,  9)
C 000048FC    0610            BCTR    1,  0
C 000048FE    501090A4        ST      1,  164(  0,  9)



C 00004902    D203805C90A4    MVC     92(  4,  8),  164(  9)


  1146                    KKK=SFLABEL-1

C 00004908    581090F8        L       1,  248(  0,  9)
C 0000490C    0610            BCTR    1,  0
C 0000490E    50108064        ST      1,  100(  0,  8)


  1147                     P=Q+2; CCOND(A(Q)-1,JJJ,KKK)

C 00004912    41100002        LA      1,    2(  0,  0)
C 00004916    5A108068        A       1,  104(  0,  8)
C 0000491A    50108040        ST      1,   64(  0,  8)



C 0000491E    58108068        L       1,  104(  0,  8)
C 00004922    413092FC        LA      3,  764(  0,  9)
C 00004926    45F0C05C        BAL    15,   92(  0, 12)
C 0000492A    4871F000        LH      7,    0(  1, 15)
C 0000492E    0670            BCTR    7,  0
C 00004930    5070B040        ST      7,   64(  0, 11)
C 00004934    D203B044805C    MVC     68(  4, 11),   92(  8)
C 0000493A    D203B0488064    MVC     72(  4, 11),  100(  8)
C 00004940    5810D364        L       1,  868(  0, 13)
C 00004944    45F0D074        BAL    15,  116(  0, 13)


  1148                     P LOCAL JUMP(MASK,KKK)

C 00004948    D203B04090F0    MVC     64(  4, 11),  240(  9)
C 0000494E    D203B0448064    MVC     68(  4, 11),  100(  8)
C 00004954    5810D348        L       1,  840(  0, 13)
C 00004958    45F0D074        BAL    15,  116(  0, 13)


  1149                     R13=0 %UNLESS R13=SAVE13 %AND CHNGE13=0

C 0000495C    D50390BC80B4    CLC    188(  4,  9),  180(  8)
C 00004962    0570            BALR    7,  0
C 00004964    4777000E        BC      7,   14(  7,  0)
C 00004968    581080B8        L       1,  184(  0,  8)
C 0000496C    1211            LTR     1,  1
C 0000496E    47870014        BC      8,   20(  7,  0)
C 00004972    1F11            SLR     1,  1
C 00004974    501090BC        ST      1,  188(  0,  9)


  1150                     PUSH(LOCAL LABEL,CA,JJJ)

C 00004978    4110808E        LA      1,  142(  0,  8)
C 0000497C    5010B040        ST      1,   64(  0, 11)
C 00004980    D203B04490AC    MVC     68(  4, 11),  172(  9)
C 00004986    D203B048805C    MVC     72(  4, 11),   92(  8)
C 0000498C    5810D3E0        L       1,  992(  0, 13)
C 00004990    45F0D074        BAL    15,  116(  0, 13)


  1151                     P=MARKER2; CUI(1); P=P+1

C 00004994    D203804090B4    MVC     64(  4,  8),  180(  9)



C 0000499A    9201B043        MVI     67( 11),  1
C 0000499E    5810D370        L       1,  880(  0, 13)
C 000049A2    45F0D074        BAL    15,  116(  0, 13)



C 000049A6    41100001        LA      1,    1(  0,  0)
C 000049AA    5A108040        A       1,   64(  0,  8)
C 000049AE    50108040        ST      1,   64(  0,  8)


  1152                     FAULT(53) %IF A(P)=1; ->102

C 000049B2    58108040        L       1,   64(  0,  8)
C 000049B6    413092FC        LA      3,  764(  0,  9)
C 000049BA    45F0C05C        BAL    15,   92(  0, 12)
C 000049BE    4811F000        LH      1,    0(  1, 15)
C 000049C2    41200001        LA      2,    1(  0,  0)
C 000049C6    1912            CR      1,  2
C 000049C8    0570            BALR    7,  0
C 000049CA    47770010        BC      7,   16(  7,  0)
C 000049CE    9235B043        MVI     67( 11), 53
C 000049D2    5810D228        L       1,  552(  0, 13)
C 000049D6    45F0D074        BAL    15,  116(  0, 13)



C 000049DA    47F0A2B8        BC     15,  696(  0, 10)


  1153            SW(6):1:                               ! %COMMENT
  1154                     %RETURN

C 000049DE    D203D0148000    MVC     20(  4, 13),    0(  8)
C 000049E4    984F8010        LM      4, 15,   16(  8)
C 000049E8    07FF            BCR    15, 15


  1155            SW(7):                                 ! SIMPLE DECLN
  1156                     FAULT(57) %UNLESS LEVEL>=2

C 000049EA    41100002        LA      1,    2(  0,  0)
C 000049EE    591090A8        C       1,  168(  0,  9)
C 000049F2    0570            BALR    7,  0
C 000049F4    47C70010        BC     12,   16(  7,  0)
C 000049F8    9239B043        MVI     67( 11), 57
C 000049FC    5810D228        L       1,  552(  0, 13)
C 00004A00    45F0D074        BAL    15,  116(  0, 13)


  1157                     FAULT(40) %IF NMDECS(LEVEL)#0

C 00004A04    581090A8        L       1,  168(  0,  9)
C 00004A08    4130926C        LA      3,  620(  0,  9)
C 00004A0C    45F0C05C        BAL    15,   92(  0, 12)
C 00004A10    4811F000        LH      1,    0(  1, 15)
C 00004A14    1211            LTR     1,  1
C 00004A16    0570            BALR    7,  0
C 00004A18    47870010        BC      8,   16(  7,  0)
C 00004A1C    9228B043        MVI     67( 11), 40
C 00004A20    5810D228        L       1,  552(  0, 13)
C 00004A24    45F0D074        BAL    15,  116(  0, 13)


  1158                     P=P+1;CLT;ROUT=0

C 00004A28    41100001        LA      1,    1(  0,  0)
C 00004A2C    5A108040        A       1,   64(  0,  8)
C 00004A30    50108040        ST      1,   64(  0,  8)



C 00004A34    5810D3B0        L       1,  944(  0, 13)
C 00004A38    45F0D074        BAL    15,  116(  0, 13)



C 00004A3C    92008090        MVI    144(  8),  0


  1159                     FAULT(70) %IF TYPE=5 %AND ACC=0

C 00004A40    95058094        CLI    148(  8),  5
C 00004A44    0570            BALR    7,  0
C 00004A46    4777001A        BC      7,   26(  7,  0)
C 00004A4A    58108050        L       1,   80(  0,  8)
C 00004A4E    1211            LTR     1,  1
C 00004A50    4777001A        BC      7,   26(  7,  0)
C 00004A54    9246B043        MVI     67( 11), 70
C 00004A58    5810D228        L       1,  552(  0, 13)
C 00004A5C    45F0D074        BAL    15,  116(  0, 13)


  1160                     ->SCALAR %IF A(P)=1

C 00004A60    58108040        L       1,   64(  0,  8)
C 00004A64    413092FC        LA      3,  764(  0,  9)
C 00004A68    45F0C05C        BAL    15,   92(  0, 12)
C 00004A6C    4811F000        LH      1,    0(  1, 15)
C 00004A70    41200001        LA      2,    1(  0,  0)
C 00004A74    1912            CR      1,  2
C 00004A76    0000
C 00004A78    0000
C 00004A7A    478A0000        BC      8,    0( 10,  0)


  1161                     ->VECTOR %IF A(P)=3

C 00004A7E    58108040        L       1,   64(  0,  8)
C 00004A82    413092FC        LA      3,  764(  0,  9)
C 00004A86    45F0C05C        BAL    15,   92(  0, 12)
C 00004A8A    4811F000        LH      1,    0(  1, 15)
C 00004A8E    41200003        LA      2,    3(  0,  0)
C 00004A92    1912            CR      1,  2
C 00004A94    0000
C 00004A96    0000
C 00004A98    478A0000        BC      8,    0( 10,  0)


  1162                     ARR=1; NAM=(2-A(P+1))<<1;     ! NAME ARRAY BIT

C 00004A9C    92018092        MVI    146(  8),  1



C 00004AA0    41100001        LA      1,    1(  0,  0)
C 00004AA4    5A108040        A       1,   64(  0,  8)
C 00004AA8    413092FC        LA      3,  764(  0,  9)
C 00004AAC    45F0C05C        BAL    15,   92(  0, 12)
C 00004AB0    4871F000        LH      7,    0(  1, 15)
C 00004AB4    41100002        LA      1,    2(  0,  0)
C 00004AB8    1B17            SR      1,  7
C 00004ABA    1851            LR      5,  1
C 00004ABC    89500001        SLL     5,    1(  0)
C 00004AC0    42508091        STC     5,  145(  0,  8)
C 00004AC4    5550D018        CL      5,   24(  0, 13)
C 00004AC8    472C0058        BC      2,   88( 12,  0)


  1163                     PACK(PTYPE); P=P+2; SET LINE

C 00004ACC    41108098        LA      1,  152(  0,  8)
C 00004AD0    5010B040        ST      1,   64(  0, 11)
C 00004AD4    5810D450        L       1, 1104(  0, 13)
C 00004AD8    45F0D074        BAL    15,  116(  0, 13)



C 00004ADC    41100002        LA      1,    2(  0,  0)
C 00004AE0    5A108040        A       1,   64(  0,  8)
C 00004AE4    50108040        ST      1,   64(  0,  8)



C 00004AE8    5810D36C        L       1,  876(  0, 13)
C 00004AEC    45F0D074        BAL    15,  116(  0, 13)


  1164                     ACC=4 %IF NAM#0;CADCLN(0);->1

C 00004AF0    95008091        CLI    145(  8),  0
C 00004AF4    0570            BALR    7,  0
C 00004AF6    4787000C        BC      8,   12(  7,  0)
C 00004AFA    41100004        LA      1,    4(  0,  0)
C 00004AFE    50108050        ST      1,   80(  0,  8)



C 00004B02    9200B043        MVI     67( 11),  0
C 00004B06    5810D3A8        L       1,  936(  0, 13)
C 00004B0A    45F0D074        BAL    15,  116(  0, 13)



C 00004B0E    47F0ACD0        BC     15, 3280(  0, 10)


  1165            VECTOR:  ARR=2; NAM=0; PACK(PTYPE)

C 00004B12    92028092        MVI    146(  8),  2



C 00004B16    92008091        MVI    145(  8),  0



C 00004B1A    41108098        LA      1,  152(  0,  8)
C 00004B1E    5010B040        ST      1,   64(  0, 11)
C 00004B22    5810D450        L       1, 1104(  0, 13)
C 00004B26    45F0D074        BAL    15,  116(  0, 13)


  1166                     P=P+1; SET LINE; CVDECLN; ->1

C 00004B2A    41100001        LA      1,    1(  0,  0)
C 00004B2E    5A108040        A       1,   64(  0,  8)
C 00004B32    50108040        ST      1,   64(  0,  8)



C 00004B36    5810D36C        L       1,  876(  0, 13)
C 00004B3A    45F0D074        BAL    15,  116(  0, 13)



C 00004B3E    5810D378        L       1,  888(  0, 13)
C 00004B42    45F0D074        BAL    15,  116(  0, 13)



C 00004B46    47F0ACD0        BC     15, 3280(  0, 10)


  1167            SCALAR:  J=0;ROUT=0;CQN(P+1);P=P+2

C 00004B4A    1F11            SLR     1,  1
C 00004B4C    501080A0        ST      1,  160(  0,  8)



C 00004B50    92008090        MVI    144(  8),  0



C 00004B54    41100001        LA      1,    1(  0,  0)
C 00004B58    5A108040        A       1,   64(  0,  8)
C 00004B5C    5010B040        ST      1,   64(  0, 11)
C 00004B60    5810D3AC        L       1,  940(  0, 13)
C 00004B64    45F0D074        BAL    15,  116(  0, 13)



C 00004B68    41100002        LA      1,    2(  0,  0)
C 00004B6C    5A108040        A       1,   64(  0,  8)
C 00004B70    50108040        ST      1,   64(  0,  8)


  1168                     INC=N

C 00004B74    D20380449100    MVC     68(  4,  8),  256(  9)


  1169                     QQ=ACC;ACC=4 %IF TYPE=5;JJ=0

C 00004B7A    D203806C8050    MVC    108(  4,  8),   80(  8)



C 00004B80    95058094        CLI    148(  8),  5
C 00004B84    0570            BALR    7,  0
C 00004B86    4777000C        BC      7,   12(  7,  0)
C 00004B8A    41100004        LA      1,    4(  0,  0)
C 00004B8E    50108050        ST      1,   80(  0,  8)



C 00004B92    1F11            SLR     1,  1
C 00004B94    50108058        ST      1,   88(  0,  8)


  1170                     ->701 %UNLESS ACC=8 %AND N&7#0

C 00004B98    41100008        LA      1,    8(  0,  0)
C 00004B9C    59108050        C       1,   80(  0,  8)
C 00004BA0    0000
C 00004BA2    0000
C 00004BA4    477A0000        BC      7,    0( 10,  0)
C 00004BA8    41100007        LA      1,    7(  0,  0)
C 00004BAC    54109100        N       1,  256(  0,  9)
C 00004BB0    0000
C 00004BB2    0000
C 00004BB4    478A0000        BC      8,    0( 10,  0)


  1171                     PUSH(WSP(LEVEL),0,N);N=N+4    ;!DOUBLE WORD BOUNDARY

C 00004BB8    581090A8        L       1,  168(  0,  9)
C 00004BBC    4130920C        LA      3,  524(  0,  9)
C 00004BC0    45F0C05C        BAL    15,   92(  0, 12)
C 00004BC4    4111F000        LA      1,    0(  1, 15)
C 00004BC8    5010B040        ST      1,   64(  0, 11)
C 00004BCC    1F11            SLR     1,  1
C 00004BCE    5010B044        ST      1,   68(  0, 11)
C 00004BD2    D203B0489100    MVC     72(  4, 11),  256(  9)
C 00004BD8    5810D3E0        L       1,  992(  0, 13)
C 00004BDC    45F0D074        BAL    15,  116(  0, 13)



C 00004BE0    41100004        LA      1,    4(  0,  0)
C 00004BE4    5A109100        A       1,  256(  0,  9)
C 00004BE8    50109100        ST      1,  256(  0,  9)


  1172            701:     SET LINE %IF TYPE=5

C 00004BEC    95058094        CLI    148(  8),  5
C 00004BF0    0570            BALR    7,  0
C 00004BF2    4777000C        BC      7,   12(  7,  0)
C 00004BF6    5810D36C        L       1,  876(  0, 13)
C 00004BFA    45F0D074        BAL    15,  116(  0, 13)


  1173                     PACK(PTYPE)

C 00004BFE    41108098        LA      1,  152(  0,  8)
C 00004C02    5010B040        ST      1,   64(  0, 11)
C 00004C06    5810D450        L       1, 1104(  0, 13)
C 00004C0A    45F0D074        BAL    15,  116(  0, 13)


  1174                     %CYCLE KK=1,1,A(P)

C 00004C0E    41408060        LA      4,   96(  0,  8)
C 00004C12    41200001        LA      2,    1(  0,  0)
C 00004C16    502080BC        ST      2,  188(  0,  8)
C 00004C1A    58108040        L       1,   64(  0,  8)
C 00004C1E    413092FC        LA      3,  764(  0,  9)
C 00004C22    45F0C05C        BAL    15,   92(  0, 12)
C 00004C26    4831F000        LH      3,    0(  1, 15)
C 00004C2A    903480C0        STM     3,  4,  192(  8)
C 00004C2E    41100001        LA      1,    1(  0,  0)
C 00004C32    50104000        ST      1,    0(  0,  4)


  1175                     K=A(P+KK);TESTNST

C 00004C36    58108040        L       1,   64(  0,  8)
C 00004C3A    5A108060        A       1,   96(  0,  8)
C 00004C3E    413092FC        LA      3,  764(  0,  9)
C 00004C42    45F0C05C        BAL    15,   92(  0, 12)
C 00004C46    4811F000        LH      1,    0(  1, 15)
C 00004C4A    501080A4        ST      1,  164(  0,  8)



C 00004C4E    5810D43C        L       1, 1084(  0, 13)
C 00004C52    45F0D074        BAL    15,  116(  0, 13)


  1176                     STORE TAG(K,N)

C 00004C56    D203B04080A4    MVC     64(  4, 11),  164(  8)
C 00004C5C    D203B0449100    MVC     68(  4, 11),  256(  9)
C 00004C62    5810D434        L       1, 1076(  0, 13)
C 00004C66    45F0D074        BAL    15,  116(  0, 13)


  1177                     ->705 %UNLESS TYPE=5

C 00004C6A    95058094        CLI    148(  8),  5
C 00004C6E    0000
C 00004C70    0000
C 00004C72    477A0000        BC      7,    0( 10,  0)


  1178                     JJ=JJ+QQ

C 00004C76    58108058        L       1,   88(  0,  8)
C 00004C7A    5A10806C        A       1,  108(  0,  8)
C 00004C7E    50108058        ST      1,   88(  0,  8)


  1179                     PSS(X'D2',2,WSPR,0,GLA,128) %IF UNASS=1

C 00004C82    950190DC        CLI    220(  9),  1
C 00004C86    0570            BALR    7,  0
C 00004C88    47770036        BC      7,   54(  7,  0)
C 00004C8C    411000D2        LA      1,  210(  0,  0)
C 00004C90    5010B040        ST      1,   64(  0, 11)
C 00004C94    41100002        LA      1,    2(  0,  0)
C 00004C98    5010B044        ST      1,   68(  0, 11)
C 00004C9C    D203B048D14C    MVC     72(  4, 11),  332( 13)
C 00004CA2    1F11            SLR     1,  1
C 00004CA4    5010B04C        ST      1,   76(  0, 11)
C 00004CA8    D203B050D150    MVC     80(  4, 11),  336( 13)
C 00004CAE    41100080        LA      1,  128(  0,  0)
C 00004CB2    5010B054        ST      1,   84(  0, 11)
C 00004CB6    5810D1BC        L       1,  444(  0, 13)
C 00004CBA    45F0D074        BAL    15,  116(  0, 13)


  1180                     PRX(X'50',WSPR,RBASE,0,N)     ;!STORE POINTER

C 00004CBE    41100050        LA      1,   80(  0,  0)
C 00004CC2    5010B040        ST      1,   64(  0, 11)
C 00004CC6    D203B044D14C    MVC     68(  4, 11),  332( 13)
C 00004CCC    D203B04890F4    MVC     72(  4, 11),  244(  9)
C 00004CD2    1F11            SLR     1,  1
C 00004CD4    5010B04C        ST      1,   76(  0, 11)
C 00004CD8    D203B0509100    MVC     80(  4, 11),  256(  9)
C 00004CDE    5810D1C0        L       1,  448(  0, 13)
C 00004CE2    45F0D074        BAL    15,  116(  0, 13)


  1181                     PSI(X'92',QQ-1,RBASE,N)       ;!STORE MAX LENGTH

C 00004CE6    41100092        LA      1,  146(  0,  0)
C 00004CEA    5010B040        ST      1,   64(  0, 11)
C 00004CEE    5810806C        L       1,  108(  0,  8)
C 00004CF2    0610            BCTR    1,  0
C 00004CF4    5010B044        ST      1,   68(  0, 11)
C 00004CF8    D203B04890F4    MVC     72(  4, 11),  244(  9)
C 00004CFE    D203B04C9100    MVC     76(  4, 11),  256(  9)
C 00004D04    5810D1B8        L       1,  440(  0, 13)
C 00004D08    45F0D074        BAL    15,  116(  0, 13)


  1182                     %IF KK=A(P) %THEN QQ=QQ+(JJ+7)&(-8)-JJ

C 00004D0C    58108040        L       1,   64(  0,  8)
C 00004D10    413092FC        LA      3,  764(  0,  9)
C 00004D14    45F0C05C        BAL    15,   92(  0, 12)
C 00004D18    4811F000        LH      1,    0(  1, 15)
C 00004D1C    59108060        C       1,   96(  0,  8)
C 00004D20    0570            BALR    7,  0
C 00004D22    47770024        BC      7,   36(  7,  0)
C 00004D26    41100007        LA      1,    7(  0,  0)
C 00004D2A    5A108058        A       1,   88(  0,  8)
C 00004D2E    1851            LR      5,  1
C 00004D30    41100008        LA      1,    8(  0,  0)
C 00004D34    1311            LCR     1,  1
C 00004D36    1861            LR      6,  1
C 00004D38    1456            NR      5,  6
C 00004D3A    5A50806C        A       5,  108(  0,  8)
C 00004D3E    5B508058        S       5,   88(  0,  8)
C 00004D42    5050806C        ST      5,  108(  0,  8)


  1183                     PRX(X'41',WSPR,WSPR,0,QQ)     ;!ADVANCE WORK SPACE

C 00004D46    41100041        LA      1,   65(  0,  0)
C 00004D4A    5010B040        ST      1,   64(  0, 11)
C 00004D4E    D203B044D14C    MVC     68(  4, 11),  332( 13)
C 00004D54    D203B048D14C    MVC     72(  4, 11),  332( 13)
C 00004D5A    1F11            SLR     1,  1
C 00004D5C    5010B04C        ST      1,   76(  0, 11)
C 00004D60    D203B050806C    MVC     80(  4, 11),  108(  8)
C 00004D66    5810D1C0        L       1,  448(  0, 13)
C 00004D6A    45F0D074        BAL    15,  116(  0, 13)


  1184            705:     N=N+ACC;%REPEAT

C 00004D6E    58109100        L       1,  256(  0,  9)
C 00004D72    5A108050        A       1,   80(  0,  8)
C 00004D76    50109100        ST      1,  256(  0,  9)



C 00004D7A    982480BC        LM      2,  4,  188(  8)
C 00004D7E    58104000        L       1,    0(  0,  4)
C 00004D82    8712AF24        BXLE    1,  2, 3876( 10)


  1185                     N=N+3; N=N&(-4)

C 00004D86    41100003        LA      1,    3(  0,  0)
C 00004D8A    5A109100        A       1,  256(  0,  9)
C 00004D8E    50109100        ST      1,  256(  0,  9)



C 00004D92    41100004        LA      1,    4(  0,  0)
C 00004D96    1311            LCR     1,  1
C 00004D98    1851            LR      5,  1
C 00004D9A    54509100        N       5,  256(  0,  9)
C 00004D9E    50509100        ST      5,  256(  0,  9)


  1186                     SET80(INC,N-INC) %IF UNASS=1 %AND TYPE#5

C 00004DA2    950190DC        CLI    220(  9),  1
C 00004DA6    0570            BALR    7,  0
C 00004DA8    47770026        BC      7,   38(  7,  0)
C 00004DAC    95058094        CLI    148(  8),  5
C 00004DB0    47870026        BC      8,   38(  7,  0)
C 00004DB4    D203B0408044    MVC     64(  4, 11),   68(  8)
C 00004DBA    58109100        L       1,  256(  0,  9)
C 00004DBE    5B108044        S       1,   68(  0,  8)
C 00004DC2    5010B044        ST      1,   68(  0, 11)
C 00004DC6    5810D374        L       1,  884(  0, 13)
C 00004DCA    45F0D074        BAL    15,  116(  0, 13)


  1187                     ->1

C 00004DCE    47F0ACD0        BC     15, 3280(  0, 10)


  1188            SW(8):                                 ! %END
  1189                     CEND(FLAG(LEVEL))

C 00004DD2    581090A8        L       1,  168(  0,  9)
C 00004DD6    413091EC        LA      3,  492(  0,  9)
C 00004DDA    45F0C05C        BAL    15,   92(  0, 12)
C 00004DDE    4811F000        LH      1,    0(  1, 15)
C 00004DE2    5010B040        ST      1,   64(  0, 11)
C 00004DE6    5810D358        L       1,  856(  0, 13)
C 00004DEA    45F0D074        BAL    15,  116(  0, 13)


  1190                          ->1

C 00004DEE    47F0ACD0        BC     15, 3280(  0, 10)


  1191            SW(9):   P=P+1; MARKER1=A(P)+P;    !(SEX)(RT)(SPEC')(NAME)(FPP)

C 00004DF2    41100001        LA      1,    1(  0,  0)
C 00004DF6    5A108040        A       1,   64(  0,  8)
C 00004DFA    50108040        ST      1,   64(  0,  8)



C 00004DFE    58108040        L       1,   64(  0,  8)
C 00004E02    413092FC        LA      3,  764(  0,  9)
C 00004E06    45F0C05C        BAL    15,   92(  0, 12)
C 00004E0A    4871F000        LH      7,    0(  1, 15)
C 00004E0E    5A708040        A       7,   64(  0,  8)
C 00004E12    507090B0        ST      7,  176(  0,  9)


  1192            900:     Q=P; KKK=A(MARKER1+1);        !KKK ON NAME

C 00004E16    D20380688040    MVC    104(  4,  8),   64(  8)



C 00004E1C    41100001        LA      1,    1(  0,  0)
C 00004E20    5A1090B0        A       1,  176(  0,  9)
C 00004E24    413092FC        LA      3,  764(  0,  9)
C 00004E28    45F0C05C        BAL    15,   92(  0, 12)
C 00004E2C    4811F000        LH      1,    0(  1, 15)
C 00004E30    50108064        ST      1,  100(  0,  8)


  1193                     EXTRN=A(P+1)

C 00004E34    41100001        LA      1,    1(  0,  0)
C 00004E38    5A108040        A       1,   64(  0,  8)
C 00004E3C    413092FC        LA      3,  764(  0,  9)
C 00004E40    45F0C05C        BAL    15,   92(  0, 12)
C 00004E44    4811F000        LH      1,    0(  1, 15)
C 00004E48    50108070        ST      1,  112(  0,  8)


  1194                     ->902 %IF A(MARKER1)=2

C 00004E4C    581090B0        L       1,  176(  0,  9)
C 00004E50    413092FC        LA      3,  764(  0,  9)
C 00004E54    45F0C05C        BAL    15,   92(  0, 12)
C 00004E58    4811F000        LH      1,    0(  1, 15)
C 00004E5C    41200002        LA      2,    2(  0,  0)
C 00004E60    1912            CR      1,  2
C 00004E62    0000
C 00004E64    0000
C 00004E66    478A0000        BC      8,    0( 10,  0)


  1195                     P=P+1; CRSPEC(0); ->1 %IF EXTRN=3

C 00004E6A    41100001        LA      1,    1(  0,  0)
C 00004E6E    5A108040        A       1,   64(  0,  8)
C 00004E72    50108040        ST      1,   64(  0,  8)



C 00004E76    9200B043        MVI     67( 11),  0
C 00004E7A    5810D454        L       1, 1108(  0, 13)
C 00004E7E    45F0D074        BAL    15,  116(  0, 13)



C 00004E82    41100003        LA      1,    3(  0,  0)
C 00004E86    59108070        C       1,  112(  0,  8)
C 00004E8A    4780ACD0        BC      8, 3280(  0, 10)


  1196                     N0=N0-1; KK='S'*(2-EXTRN)

C 00004E8E    58109088        L       1,  136(  0,  9)
C 00004E92    0610            BCTR    1,  0
C 00004E94    50109088        ST      1,  136(  0,  9)



C 00004E98    41100002        LA      1,    2(  0,  0)
C 00004E9C    5B108070        S       1,  112(  0,  8)
C 00004EA0    1851            LR      5,  1
C 00004EA2    41100053        LA      1,   83(  0,  0)
C 00004EA6    1C41            MR      4,  1
C 00004EA8    50508060        ST      5,   96(  0,  8)


  1197                     GXREF(KKK,KK); JJ=TAGS(KKK)

C 00004EAC    D203B0408064    MVC     64(  4, 11),  100(  8)
C 00004EB2    D203B0448060    MVC     68(  4, 11),   96(  8)
C 00004EB8    5810D42C        L       1, 1068(  0, 13)
C 00004EBC    45F0D074        BAL    15,  116(  0, 13)



C 00004EC0    58108064        L       1,  100(  0,  8)
C 00004EC4    4130931C        LA      3,  796(  0,  9)
C 00004EC8    45F0C05C        BAL    15,   92(  0, 12)
C 00004ECC    4811F000        LH      1,    0(  1, 15)
C 00004ED0    50108058        ST      1,   88(  0,  8)


  1198                     FROM1(JJ,Q)

C 00004ED4    D203B0408058    MVC     64(  4, 11),   88(  8)
C 00004EDA    41108068        LA      1,  104(  0,  8)
C 00004EDE    5010B044        ST      1,   68(  0, 11)
C 00004EE2    5810D3FC        L       1, 1020(  0, 13)
C 00004EE6    45F0D074        BAL    15,  116(  0, 13)


  1199                     REPLACE1(JJ,Q&(-2)); ->1

C 00004EEA    D203B0408058    MVC     64(  4, 11),   88(  8)
C 00004EF0    41100002        LA      1,    2(  0,  0)
C 00004EF4    1311            LCR     1,  1
C 00004EF6    1851            LR      5,  1
C 00004EF8    54508068        N       5,  104(  0,  8)
C 00004EFC    5050B044        ST      5,   68(  0, 11)
C 00004F00    5810D3F0        L       1, 1008(  0, 13)
C 00004F04    45F0D074        BAL    15,  116(  0, 13)



C 00004F08    47F0ACD0        BC     15, 3280(  0, 10)


  1200            902:     FILL JUMPS(LEVEL)

C 00004F0C    D203B04090A8    MVC     64(  4, 11),  168(  9)
C 00004F12    5810D368        L       1,  872(  0, 13)
C 00004F16    45F0D074        BAL    15,  116(  0, 13)


  1201                     KK=KKK

C 00004F1A    D20380608064    MVC     96(  4,  8),  100(  8)


  1202                     COPY TAG(KKK); ->939 %IF OLDI#LEVEL

C 00004F20    D203B0408064    MVC     64(  4, 11),  100(  8)
C 00004F26    5810D408        L       1, 1032(  0, 13)
C 00004F2A    45F0D074        BAL    15,  116(  0, 13)



C 00004F2E    D50380A890A8    CLC    168(  4,  8),  168(  9)
C 00004F34    0000
C 00004F36    0000
C 00004F38    477A0000        BC      7,    0( 10,  0)


  1203                     %UNLESS EXTRN=3 %THEN %START

C 00004F3C    41100003        LA      1,    3(  0,  0)
C 00004F40    59108070        C       1,  112(  0,  8)
C 00004F44    0000
C 00004F46    0000
C 00004F48    478A0000        BC      8,    0( 10,  0)


  1204                     CPRMODE=2 %IF CPRMODE=0

C 00004F4C    950090DB        CLI    219(  9),  0
C 00004F50    0570            BALR    7,  0
C 00004F52    47770008        BC      7,    8(  7,  0)
C 00004F56    920290DB        MVI    219(  9),  2


  1205                           FAULT(55) %UNLESS CPRMODE=2 %AND LEVEL=1

C 00004F5A    950290DB        CLI    219(  9),  2
C 00004F5E    0570            BALR    7,  0
C 00004F60    47770010        BC      7,   16(  7,  0)
C 00004F64    41100001        LA      1,    1(  0,  0)
C 00004F68    591090A8        C       1,  168(  0,  9)
C 00004F6C    4787001C        BC      8,   28(  7,  0)
C 00004F70    9237B043        MVI     67( 11), 55
C 00004F74    5810D228        L       1,  552(  0, 13)
C 00004F78    45F0D074        BAL    15,  116(  0, 13)


  1206                     DEFINE EP(EXTRN,KKK,CA)

C 00004F7C    D203B0408070    MVC     64(  4, 11),  112(  8)
C 00004F82    D203B0448064    MVC     68(  4, 11),  100(  8)
C 00004F88    D203B04890AC    MVC     72(  4, 11),  172(  9)
C 00004F8E    5810D340        L       1,  832(  0, 13)
C 00004F92    45F0D074        BAL    15,  116(  0, 13)


  1207                           PCLOD(0);               !  ST 12,28(GLA)--L 12,=A(PERM)

C 00004F96    1F11            SLR     1,  1
C 00004F98    5010B040        ST      1,   64(  0, 11)
C 00004F9C    5810D1C8        L       1,  456(  0, 13)
C 00004FA0    45F0D074        BAL    15,  116(  0, 13)


  1208                     %FINISH
  1209                     ->908 %IF A(P+2)=1; ROUT=1

C 00004FA4    41100002        LA      1,    2(  0,  0)
C 00004FA8    5A108040        A       1,   64(  0,  8)
C 00004FAC    413092FC        LA      3,  764(  0,  9)
C 00004FB0    45F0C05C        BAL    15,   92(  0, 12)
C 00004FB4    4811F000        LH      1,    0(  1, 15)
C 00004FB8    41200001        LA      2,    1(  0,  0)
C 00004FBC    1912            CR      1,  2
C 00004FBE    0000
C 00004FC0    0000
C 00004FC2    478A0000        BC      8,    0( 10,  0)



C 00004FC6    92018090        MVI    144(  8),  1


  1210                     P=P+3

C 00004FCA    41100003        LA      1,    3(  0,  0)
C 00004FCE    5A108040        A       1,   64(  0,  8)
C 00004FD2    50108040        ST      1,   64(  0,  8)


  1211                     CLT;ARR=0;NAM=(A(P)-1)<<1;    ! SET NAME ARRAY BIT FOR MAPS

C 00004FD6    5810D3B0        L       1,  944(  0, 13)
C 00004FDA    45F0D074        BAL    15,  116(  0, 13)



C 00004FDE    92008092        MVI    146(  8),  0



C 00004FE2    58108040        L       1,   64(  0,  8)
C 00004FE6    413092FC        LA      3,  764(  0,  9)
C 00004FEA    45F0C05C        BAL    15,   92(  0, 12)
C 00004FEE    4871F000        LH      7,    0(  1, 15)
C 00004FF2    0670            BCTR    7,  0
C 00004FF4    1857            LR      5,  7
C 00004FF6    89500001        SLL     5,    1(  0)
C 00004FFA    42508091        STC     5,  145(  0,  8)
C 00004FFE    5550D018        CL      5,   24(  0, 13)
C 00005002    472C0058        BC      2,   88( 12,  0)


  1212                     PACK(KKK); ->909

C 00005006    41108064        LA      1,  100(  0,  8)
C 0000500A    5010B040        ST      1,   64(  0, 11)
C 0000500E    5810D450        L       1, 1104(  0, 13)
C 00005012    45F0D074        BAL    15,  116(  0, 13)



C 00005016    0000
C 00005018    0000
C 0000501A    47FA0000        BC     15,    0( 10,  0)


  1213            908:     KKK=10000

C 0000501E    5810D488        L       1, 1160(  0, 13)
C 00005022    50108064        ST      1,  100(  0,  8)


  1214            909:     ->940 %IF J=15 %AND PTYPE=KKK

C 00005026    4110000F        LA      1,   15(  0,  0)
C 0000502A    591080A0        C       1,  160(  0,  8)
C 0000502E    0570            BALR    7,  0
C 00005030    47770012        BC      7,   18(  7,  0)
C 00005034    D50380988064    CLC    152(  4,  8),  100(  8)
C 0000503A    0000
C 0000503C    0000
C 0000503E    478A0000        BC      8,    0( 10,  0)


  1215                     FNAME=KK; FAULT(7) %UNLESS PTYPE&7=7

C 00005042    D20391308060    MVC    304(  4,  9),   96(  8)



C 00005048    41100007        LA      1,    7(  0,  0)
C 0000504C    54108098        N       1,  152(  0,  8)
C 00005050    41200007        LA      2,    7(  0,  0)
C 00005054    1912            CR      1,  2
C 00005056    0570            BALR    7,  0
C 00005058    47870010        BC      8,   16(  7,  0)
C 0000505C    9207B043        MVI     67( 11),  7
C 00005060    5810D228        L       1,  552(  0, 13)
C 00005064    45F0D074        BAL    15,  116(  0, 13)


  1216            939:     P=Q+1; CRSPEC(0); P=Q; ->900

C 00005068    41100001        LA      1,    1(  0,  0)
C 0000506C    5A108068        A       1,  104(  0,  8)
C 00005070    50108040        ST      1,   64(  0,  8)



C 00005074    9200B043        MVI     67( 11),  0
C 00005078    5810D454        L       1, 1108(  0, 13)
C 0000507C    45F0D074        BAL    15,  116(  0, 13)



C 00005080    D20380408068    MVC     64(  4,  8),  104(  8)



C 00005086    58E0D028        L      14,   40(  0, 13)
C 0000508A    47FEA108        BC     15,  264( 14, 10)


  1217            940:     J=0; REPLACETAG(KK); JJ=K;    ! CHANGE TAGTO ROUT SPECIFIEDAND DESCRIBED

C 0000508E    1F11            SLR     1,  1
C 00005090    501080A0        ST      1,  160(  0,  8)



C 00005094    D203B0408060    MVC     64(  4, 11),   96(  8)
C 0000509A    5810D410        L       1, 1040(  0, 13)
C 0000509E    45F0D074        BAL    15,  116(  0, 13)



C 000050A2    D203805880A4    MVC     88(  4,  8),  164(  8)


  1218                     PLABEL=PLABEL-1

C 000050A8    581090A4        L       1,  164(  0,  9)
C 000050AC    0610            BCTR    1,  0
C 000050AE    501090A4        ST      1,  164(  0,  9)


  1219                     PJ(15,PLABEL) %UNLESS COMPILER=1 %OR(CPRMODE=2 %AND LEVEL=1)

C 000050B2    950190DA        CLI    218(  9),  1
C 000050B6    0570            BALR    7,  0
C 000050B8    4787002E        BC      8,   46(  7,  0)
C 000050BC    950290DB        CLI    219(  9),  2
C 000050C0    47770018        BC      7,   24(  7,  0)
C 000050C4    41100001        LA      1,    1(  0,  0)
C 000050C8    591090A8        C       1,  168(  0,  9)
C 000050CC    4787002E        BC      8,   46(  7,  0)
C 000050D0    4110000F        LA      1,   15(  0,  0)
C 000050D4    5010B040        ST      1,   64(  0, 11)
C 000050D8    D203B04490A4    MVC     68(  4, 11),  164(  9)
C 000050DE    5810D464        L       1, 1124(  0, 13)
C 000050E2    45F0D074        BAL    15,  116(  0, 13)


  1220                     RAL(LEVEL)=NMAX<<16!SBFLAG<<15!N

C 000050E6    58409098        L       4,  152(  0,  9)
C 000050EA    89400010        SLL     4,   16(  0)
C 000050EE    1F11            SLR     1,  1
C 000050F0    431090CB        IC      1,  203(  0,  9)
C 000050F4    8910000F        SLL     1,   15(  0)
C 000050F8    1641            OR      4,  1
C 000050FA    56409100        O       4,  256(  0,  9)
C 000050FE    581090A8        L       1,  168(  0,  9)
C 00005102    4130919C        LA      3,  412(  0,  9)
C 00005106    45F0C05C        BAL    15,   92(  0, 12)
C 0000510A    5041F000        ST      4,    0(  1, 15)


  1221                     RHEAD(KK)

C 0000510E    D203B0408060    MVC     64(  4, 11),   96(  8)
C 00005114    5810D45C        L       1, 1116(  0, 13)
C 00005118    45F0D074        BAL    15,  116(  0, 13)


  1222                     PPJ(40) %UNLESS EXTRN=3;      ! TO RELOCATE OWNS

C 0000511C    41100003        LA      1,    3(  0,  0)
C 00005120    59108070        C       1,  112(  0,  8)
C 00005124    0570            BALR    7,  0
C 00005126    47870010        BC      8,   16(  7,  0)
C 0000512A    9228B043        MVI     67( 11), 40
C 0000512E    5810D46C        L       1, 1132(  0, 13)
C 00005132    45F0D074        BAL    15,  116(  0, 13)


  1223                     FLAG(LEVEL)=PTYPE

C 00005136    58408098        L       4,  152(  0,  8)
C 0000513A    581090A8        L       1,  168(  0,  9)
C 0000513E    413091EC        LA      3,  492(  0,  9)
C 00005142    45F0C05C        BAL    15,   92(  0, 12)
C 00005146    4041F000        STH     4,    0(  1, 15)
C 0000514A    494F1000        CH      4,    0( 15,  1)
C 0000514E    477C0058        BC      7,   88( 12,  0)


  1224                     P=MARKER1+1

C 00005152    41100001        LA      1,    1(  0,  0)
C 00005156    5A1090B0        A       1,  176(  0,  9)
C 0000515A    50108040        ST      1,   64(  0,  8)


  1225                     ->942 %IF A(P+1)=2

C 0000515E    41100001        LA      1,    1(  0,  0)
C 00005162    5A108040        A       1,   64(  0,  8)
C 00005166    413092FC        LA      3,  764(  0,  9)
C 0000516A    45F0C05C        BAL    15,   92(  0, 12)
C 0000516E    4811F000        LH      1,    0(  1, 15)
C 00005172    41200002        LA      2,    2(  0,  0)
C 00005176    1912            CR      1,  2
C 00005178    0000
C 0000517A    0000
C 0000517C    478A0000        BC      8,    0( 10,  0)


  1226            943:     P=P+2; COMPILE FORMAL PARAMETER

C 00005180    41100002        LA      1,    2(  0,  0)
C 00005184    5A108040        A       1,   64(  0,  8)
C 00005188    50108040        ST      1,   64(  0,  8)



C 0000518C    5810D468        L       1, 1128(  0, 13)
C 00005190    45F0D074        BAL    15,  116(  0, 13)


  1227                     %CYCLE BXLE=1,1,A(P)

C 00005194    4140804C        LA      4,   76(  0,  8)
C 00005198    41200001        LA      2,    1(  0,  0)
C 0000519C    502080C8        ST      2,  200(  0,  8)
C 000051A0    58108040        L       1,   64(  0,  8)
C 000051A4    413092FC        LA      3,  764(  0,  9)
C 000051A8    45F0C05C        BAL    15,   92(  0, 12)
C 000051AC    4831F000        LH      3,    0(  1, 15)
C 000051B0    903480CC        STM     3,  4,  204(  8)
C 000051B4    41100001        LA      1,    1(  0,  0)
C 000051B8    50104000        ST      1,    0(  0,  4)


  1228                     MLINK(JJ); -> 945 %UNLESS JJ=0

C 000051BC    41108058        LA      1,   88(  0,  8)
C 000051C0    5010B040        ST      1,   64(  0, 11)
C 000051C4    5810D3E8        L       1, 1000(  0, 13)
C 000051C8    45F0D074        BAL    15,  116(  0, 13)



C 000051CC    58108058        L       1,   88(  0,  8)
C 000051D0    1211            LTR     1,  1
C 000051D2    0000
C 000051D4    0000
C 000051D6    477A0000        BC      7,    0( 10,  0)


  1229                     FAULT(8); ->946

C 000051DA    9208B043        MVI     67( 11),  8
C 000051DE    5810D228        L       1,  552(  0, 13)
C 000051E2    45F0D074        BAL    15,  116(  0, 13)



C 000051E6    0000
C 000051E8    0000
C 000051EA    47FA0000        BC     15,    0( 10,  0)


  1230            945:     FROM LIST(JJ,J,JJJ)

C 000051EE    D203B0408058    MVC     64(  4, 11),   88(  8)
C 000051F4    411080A0        LA      1,  160(  0,  8)
C 000051F8    5010B044        ST      1,   68(  0, 11)
C 000051FC    4110805C        LA      1,   92(  0,  8)
C 00005200    5010B048        ST      1,   72(  0, 11)
C 00005204    5810D3D8        L       1,  984(  0, 13)
C 00005208    45F0D074        BAL    15,  116(  0, 13)


  1231                     ->946 %IF J=PTYPE %AND(PTYPE#5 %OR JJJ=ACC)

C 0000520C    D50380A08098    CLC    160(  4,  8),  152(  8)
C 00005212    0570            BALR    7,  0
C 00005214    47770022        BC      7,   34(  7,  0)
C 00005218    41100005        LA      1,    5(  0,  0)
C 0000521C    59108098        C       1,  152(  0,  8)
C 00005220    0000
C 00005222    0000
C 00005224    477A0000        BC      7,    0( 10,  0)
C 00005228    D503805C8050    CLC     92(  4,  8),   80(  8)
C 0000522E    0000
C 00005230    0000
C 00005232    478A0000        BC      8,    0( 10,  0)


  1232                     FAULT(9); PRINT NAME(A(P+BXLE))

C 00005236    9209B043        MVI     67( 11),  9
C 0000523A    5810D228        L       1,  552(  0, 13)
C 0000523E    45F0D074        BAL    15,  116(  0, 13)



C 00005242    58108040        L       1,   64(  0,  8)
C 00005246    5A10804C        A       1,   76(  0,  8)
C 0000524A    413092FC        LA      3,  764(  0,  9)
C 0000524E    45F0C05C        BAL    15,   92(  0, 12)
C 00005252    4811F000        LH      1,    0(  1, 15)
C 00005256    5010B040        ST      1,   64(  0, 11)
C 0000525A    5810D230        L       1,  560(  0, 13)
C 0000525E    45F0D074        BAL    15,  116(  0, 13)


  1233            946:     K=A(P+BXLE); TESTNST

C 00005262    58108040        L       1,   64(  0,  8)
C 00005266    5A10804C        A       1,   76(  0,  8)
C 0000526A    413092FC        LA      3,  764(  0,  9)
C 0000526E    45F0C05C        BAL    15,   92(  0, 12)
C 00005272    4811F000        LH      1,    0(  1, 15)
C 00005276    501080A4        ST      1,  164(  0,  8)



C 0000527A    5810D43C        L       1, 1084(  0, 13)
C 0000527E    45F0D074        BAL    15,  116(  0, 13)


  1234                     OPHEAD=0; UNPACK

C 00005282    1F11            SLR     1,  1
C 00005284    40108054        STH     1,   84(  0,  8)
C 00005288    49180054        CH      1,   84(  8,  0)
C 0000528C    477C0058        BC      7,   88( 12,  0)



C 00005290    5810D448        L       1, 1096(  0, 13)
C 00005294    45F0D074        BAL    15,  116(  0, 13)


  1235                     ->947 %IF ROUT=1;             ! RT TYPES

C 00005298    95018090        CLI    144(  8),  1
C 0000529C    0000
C 0000529E    0000
C 000052A0    478A0000        BC      8,    0( 10,  0)


  1236                     ->9040 %IF PTYPE=5; J=JJJ

C 000052A4    41100005        LA      1,    5(  0,  0)
C 000052A8    59108098        C       1,  152(  0,  8)
C 000052AC    0000
C 000052AE    0000
C 000052B0    478A0000        BC      8,    0( 10,  0)



C 000052B4    D20380A0805C    MVC    160(  4,  8),   92(  8)


  1237                     ->948 %IF TYPE=3;             !RECORDS

C 000052BA    95038094        CLI    148(  8),  3
C 000052BE    0000
C 000052C0    0000
C 000052C2    478A0000        BC      8,    0( 10,  0)


  1238                     R=N; ->950 %IF ARR=1

C 000052C6    D20391189100    MVC    280(  4,  9),  256(  9)



C 000052CC    95018092        CLI    146(  8),  1
C 000052D0    0000
C 000052D2    0000
C 000052D4    478A0000        BC      8,    0( 10,  0)


  1239                     ->949 %IF PREC=3 %AND NAM=0;  ! LONG

C 000052D8    95038093        CLI    147(  8),  3
C 000052DC    0570            BALR    7,  0
C 000052DE    47770010        BC      7,   16(  7,  0)
C 000052E2    95008091        CLI    145(  8),  0
C 000052E6    0000
C 000052E8    0000
C 000052EA    478A0000        BC      8,    0( 10,  0)


  1240                     N=N+4-ACC; R=N

C 000052EE    41100004        LA      1,    4(  0,  0)
C 000052F2    5A109100        A       1,  256(  0,  9)
C 000052F6    5B108050        S       1,   80(  0,  8)
C 000052FA    50109100        ST      1,  256(  0,  9)



C 000052FE    D20391189100    MVC    280(  4,  9),  256(  9)


  1241            950:     STORE TAG(K,N)

C 00005304    D203B04080A4    MVC     64(  4, 11),  164(  8)
C 0000530A    D203B0449100    MVC     68(  4, 11),  256(  9)
C 00005310    5810D434        L       1, 1076(  0, 13)
C 00005314    45F0D074        BAL    15,  116(  0, 13)


  1242                     N=R+ACC; ->999

C 00005318    58109118        L       1,  280(  0,  9)
C 0000531C    5A108050        A       1,   80(  0,  8)
C 00005320    50109100        ST      1,  256(  0,  9)



C 00005324    0000
C 00005326    0000
C 00005328    47FA0000        BC     15,    0( 10,  0)


  1243            947:     PUSH(OPHEAD,N,1000);          !SET DUMMY SIDECHAIN FOR RT TYPES

C 0000532C    41108054        LA      1,   84(  0,  8)
C 00005330    5010B040        ST      1,   64(  0, 11)
C 00005334    D203B0449100    MVC     68(  4, 11),  256(  9)
C 0000533A    411003E8        LA      1, 1000(  0,  0)
C 0000533E    5010B048        ST      1,   72(  0, 11)
C 00005342    5810D3E0        L       1,  992(  0, 13)
C 00005346    45F0D074        BAL    15,  116(  0, 13)


  1244                     J=13

C 0000534A    4110000D        LA      1,   13(  0,  0)
C 0000534E    501080A0        ST      1,  160(  0,  8)


  1245            951:     KK=OPHEAD

C 00005352    48108054        LH      1,   84(  0,  8)
C 00005356    50108060        ST      1,   96(  0,  8)


  1246                     R=N; N=KK; ->950

C 0000535A    D20391189100    MVC    280(  4,  9),  256(  9)



C 00005360    D20391008060    MVC    256(  4,  9),   96(  8)



C 00005366    58E0D028        L      14,   40(  0, 13)
C 0000536A    47FEA5F6        BC     15, 1526( 14, 10)


  1247            9040:    PRX(X'41',1,0,RBASE,N+4);     ! STRING VALUE SET PTR

C 0000536E    41100041        LA      1,   65(  0,  0)
C 00005372    5010B040        ST      1,   64(  0, 11)
C 00005376    41100001        LA      1,    1(  0,  0)
C 0000537A    5010B044        ST      1,   68(  0, 11)
C 0000537E    1F11            SLR     1,  1
C 00005380    5010B048        ST      1,   72(  0, 11)
C 00005384    D203B04C90F4    MVC     76(  4, 11),  244(  9)
C 0000538A    41100004        LA      1,    4(  0,  0)
C 0000538E    5A109100        A       1,  256(  0,  9)
C 00005392    5010B050        ST      1,   80(  0, 11)
C 00005396    5810D1C0        L       1,  448(  0, 13)
C 0000539A    45F0D074        BAL    15,  116(  0, 13)


  1248                     PRX(X'50',1,0,RBASE,N)

C 0000539E    41100050        LA      1,   80(  0,  0)
C 000053A2    5010B040        ST      1,   64(  0, 11)
C 000053A6    41100001        LA      1,    1(  0,  0)
C 000053AA    5010B044        ST      1,   68(  0, 11)
C 000053AE    1F11            SLR     1,  1
C 000053B0    5010B048        ST      1,   72(  0, 11)
C 000053B4    D203B04C90F4    MVC     76(  4, 11),  244(  9)
C 000053BA    D203B0509100    MVC     80(  4, 11),  256(  9)
C 000053C0    5810D1C0        L       1,  448(  0, 13)
C 000053C4    45F0D074        BAL    15,  116(  0, 13)


  1249                     PSI(X'92',JJJ-1,RBASE,N)

C 000053C8    41100092        LA      1,  146(  0,  0)
C 000053CC    5010B040        ST      1,   64(  0, 11)
C 000053D0    5810805C        L       1,   92(  0,  8)
C 000053D4    0610            BCTR    1,  0
C 000053D6    5010B044        ST      1,   68(  0, 11)
C 000053DA    D203B04890F4    MVC     72(  4, 11),  244(  9)
C 000053E0    D203B04C9100    MVC     76(  4, 11),  256(  9)
C 000053E6    5810D1B8        L       1,  440(  0, 13)
C 000053EA    45F0D074        BAL    15,  116(  0, 13)


  1250                     STORE TAG(K,N)

C 000053EE    D203B04080A4    MVC     64(  4, 11),  164(  8)
C 000053F4    D203B0449100    MVC     68(  4, 11),  256(  9)
C 000053FA    5810D434        L       1, 1076(  0, 13)
C 000053FE    45F0D074        BAL    15,  116(  0, 13)


  1251                     N=N+(ACC+7)&(-4); ->999

C 00005402    41100007        LA      1,    7(  0,  0)
C 00005406    5A108050        A       1,   80(  0,  8)
C 0000540A    1851            LR      5,  1
C 0000540C    41100004        LA      1,    4(  0,  0)
C 00005410    1311            LCR     1,  1
C 00005412    1861            LR      6,  1
C 00005414    1456            NR      5,  6
C 00005416    5A509100        A       5,  256(  0,  9)
C 0000541A    50509100        ST      5,  256(  0,  9)



C 0000541E    0000
C 00005420    0000
C 00005422    47FA0000        BC     15,    0( 10,  0)


  1252            948:     PUSH(OPHEAD,0,N); J=0; ->951; ! DUMMY SIDECHAIN FOR RECORD

C 00005426    41108054        LA      1,   84(  0,  8)
C 0000542A    5010B040        ST      1,   64(  0, 11)
C 0000542E    1F11            SLR     1,  1
C 00005430    5010B044        ST      1,   68(  0, 11)
C 00005434    D203B0489100    MVC     72(  4, 11),  256(  9)
C 0000543A    5810D3E0        L       1,  992(  0, 13)
C 0000543E    45F0D074        BAL    15,  116(  0, 13)



C 00005442    1F11            SLR     1,  1
C 00005444    501080A0        ST      1,  160(  0,  8)



C 00005448    58E0D028        L      14,   40(  0, 13)
C 0000544C    47FEA644        BC     15, 1604( 14, 10)


  1253            949:     R=N; ->950 %IF N&7=0

C 00005450    D20391189100    MVC    280(  4,  9),  256(  9)



C 00005456    41100007        LA      1,    7(  0,  0)
C 0000545A    54109100        N       1,  256(  0,  9)
C 0000545E    58E0D028        L      14,   40(  0, 13)
C 00005462    478EA5F6        BC      8, 1526( 14, 10)


  1254                     PUSH(WSP(LEVEL),0,N)

C 00005466    581090A8        L       1,  168(  0,  9)
C 0000546A    4130920C        LA      3,  524(  0,  9)
C 0000546E    45F0C05C        BAL    15,   92(  0, 12)
C 00005472    4111F000        LA      1,    0(  1, 15)
C 00005476    5010B040        ST      1,   64(  0, 11)
C 0000547A    1F11            SLR     1,  1
C 0000547C    5010B044        ST      1,   68(  0, 11)
C 00005480    D203B0489100    MVC     72(  4, 11),  256(  9)
C 00005486    5810D3E0        L       1,  992(  0, 13)
C 0000548A    45F0D074        BAL    15,  116(  0, 13)


  1255                     N=N+4; R=N; ->950;            !ALLIGN ON D W BOUNDARY

C 0000548E    41100004        LA      1,    4(  0,  0)
C 00005492    5A109100        A       1,  256(  0,  9)
C 00005496    50109100        ST      1,  256(  0,  9)



C 0000549A    D20391189100    MVC    280(  4,  9),  256(  9)



C 000054A0    58E0D028        L      14,   40(  0, 13)
C 000054A4    47FEA5F6        BC     15, 1526( 14, 10)


  1256            999:     %REPEAT

C 000054A8    982480C8        LM      2,  4,  200(  8)
C 000054AC    58104000        L       1,    0(  0,  4)
C 000054B0    1A12            AR      1,  2
C 000054B2    59304000        C       3,    0(  0,  4)
C 000054B6    58E0D028        L      14,   40(  0, 13)
C 000054BA    477EA4AA        BC      7, 1194( 14, 10)


  1257                     P=P+1+BXLE; ->943 %IF A(P)=1

C 000054BE    41100001        LA      1,    1(  0,  0)
C 000054C2    5A108040        A       1,   64(  0,  8)
C 000054C6    5A10804C        A       1,   76(  0,  8)
C 000054CA    50108040        ST      1,   64(  0,  8)



C 000054CE    58108040        L       1,   64(  0,  8)
C 000054D2    413092FC        LA      3,  764(  0,  9)
C 000054D6    45F0C05C        BAL    15,   92(  0, 12)
C 000054DA    4811F000        LH      1,    0(  1, 15)
C 000054DE    41200001        LA      2,    1(  0,  0)
C 000054E2    1912            CR      1,  2
C 000054E4    58E0D028        L      14,   40(  0, 13)
C 000054E8    478EA472        BC      8, 1138( 14, 10)


  1258            942:     MLINK(JJ); FAULT(10) %UNLESS JJ=0; ->1202

C 000054EC    41108058        LA      1,   88(  0,  8)
C 000054F0    5010B040        ST      1,   64(  0, 11)
C 000054F4    5810D3E8        L       1, 1000(  0, 13)
C 000054F8    45F0D074        BAL    15,  116(  0, 13)



C 000054FC    58108058        L       1,   88(  0,  8)
C 00005500    1211            LTR     1,  1
C 00005502    0570            BALR    7,  0
C 00005504    47870010        BC      8,   16(  7,  0)
C 00005508    920AB043        MVI     67( 11), 10
C 0000550C    5810D228        L       1,  552(  0, 13)
C 00005510    45F0D074        BAL    15,  116(  0, 13)



C 00005514    0000
C 00005516    0000
C 00005518    47FA0000        BC     15,    0( 10,  0)


  1259            !
  1260             SW(10):       ! COMMENT
  1261                           ->1

C 0000551C    47F0ACD0        BC     15, 3280(  0, 10)


  1262            !
  1263            SW(11):                                !REALS(LN)
  1264                     ALL LONG=A(P+1)&1;->1

C 00005520    41100001        LA      1,    1(  0,  0)
C 00005524    5A108040        A       1,   64(  0,  8)
C 00005528    413092FC        LA      3,  764(  0,  9)
C 0000552C    45F0C05C        BAL    15,   92(  0, 12)
C 00005530    4871F000        LH      7,    0(  1, 15)
C 00005534    41100001        LA      1,    1(  0,  0)
C 00005538    1471            NR      7,  1
C 0000553A    427090D3        STC     7,  211(  0,  9)
C 0000553E    5570D018        CL      7,   24(  0, 13)
C 00005542    472C0058        BC      2,   88( 12,  0)



C 00005546    47F0ACD0        BC     15, 3280(  0, 10)


  1265            SW(12):                                !%BEGIN
  1266                     FILL JUMPS(LEVEL)

C 0000554A    D203B04090A8    MVC     64(  4, 11),  168(  9)
C 00005550    5810D368        L       1,  872(  0, 13)
C 00005554    45F0D074        BAL    15,  116(  0, 13)


  1267                     RAL(LEVEL)=SBFLAG<<15!N

C 00005558    1F44            SLR     4,  4
C 0000555A    434090CB        IC      4,  203(  0,  9)
C 0000555E    8940000F        SLL     4,   15(  0)
C 00005562    56409100        O       4,  256(  0,  9)
C 00005566    581090A8        L       1,  168(  0,  9)
C 0000556A    4130919C        LA      3,  412(  0,  9)
C 0000556E    45F0C05C        BAL    15,   92(  0, 12)
C 00005572    5041F000        ST      4,    0(  1, 15)


  1268                     PTYPE=0; RHEAD(-1)

C 00005576    1F11            SLR     1,  1
C 00005578    50108098        ST      1,  152(  0,  8)



C 0000557C    5810D010        L       1,   16(  0, 13)
C 00005580    5010B040        ST      1,   64(  0, 11)
C 00005584    5810D45C        L       1, 1116(  0, 13)
C 00005588    45F0D074        BAL    15,  116(  0, 13)


  1269                     FLAG(LEVEL)=0

C 0000558C    1F44            SLR     4,  4
C 0000558E    581090A8        L       1,  168(  0,  9)
C 00005592    413091EC        LA      3,  492(  0,  9)
C 00005596    45F0C05C        BAL    15,   92(  0, 12)
C 0000559A    4041F000        STH     4,    0(  1, 15)
C 0000559E    494F1000        CH      4,    0( 15,  1)
C 000055A2    477C0058        BC      7,   88( 12,  0)


  1270                     ->1 %IF LEVEL=1=RLEVEL

C 000055A6    41100001        LA      1,    1(  0,  0)
C 000055AA    591090A8        C       1,  168(  0,  9)
C 000055AE    0570            BALR    7,  0
C 000055B0    4777000C        BC      7,   12(  7,  0)
C 000055B4    59109094        C       1,  148(  0,  9)
C 000055B8    4780ACD0        BC      8, 3280(  0, 10)


  1271                     ->1202 %UNLESS LEVEL=2

C 000055BC    41100002        LA      1,    2(  0,  0)
C 000055C0    591090A8        C       1,  168(  0,  9)
C 000055C4    0000
C 000055C6    0000
C 000055C8    477A0000        BC      7,    0( 10,  0)


  1272                     CPRMODE=1 %IF CPRMODE=0

C 000055CC    950090DB        CLI    219(  9),  0
C 000055D0    0570            BALR    7,  0
C 000055D2    47770008        BC      7,    8(  7,  0)
C 000055D6    920190DB        MVI    219(  9),  1


  1273                     DEFINE EP(0,0,0)

C 000055DA    1F11            SLR     1,  1
C 000055DC    5010B040        ST      1,   64(  0, 11)
C 000055E0    1F11            SLR     1,  1
C 000055E2    5010B044        ST      1,   68(  0, 11)
C 000055E6    1F11            SLR     1,  1
C 000055E8    5010B048        ST      1,   72(  0, 11)
C 000055EC    5810D340        L       1,  832(  0, 13)
C 000055F0    45F0D074        BAL    15,  116(  0, 13)


  1274                     FAULT(55) %UNLESS CPRMODE=1

C 000055F4    950190DB        CLI    219(  9),  1
C 000055F8    0570            BALR    7,  0
C 000055FA    47870010        BC      8,   16(  7,  0)
C 000055FE    9237B043        MVI     67( 11), 55
C 00005602    5810D228        L       1,  552(  0, 13)
C 00005606    45F0D074        BAL    15,  116(  0, 13)


  1275            1202:    PLANT(X'05A0'); CODEBASE(LEVEL)=CA; ->1

C 0000560A    411005A0        LA      1, 1440(  0,  0)
C 0000560E    5010B040        ST      1,   64(  0, 11)
C 00005612    5810D1CC        L       1,  460(  0, 13)
C 00005616    45F0D074        BAL    15,  116(  0, 13)



C 0000561A    584090AC        L       4,  172(  0,  9)
C 0000561E    581090A8        L       1,  168(  0,  9)
C 00005622    4130917C        LA      3,  380(  0,  9)
C 00005626    45F0C05C        BAL    15,   92(  0, 12)
C 0000562A    5041F000        ST      4,    0(  1, 15)



C 0000562E    47F0ACD0        BC     15, 3280(  0, 10)


  1276            SW(13):                                ! %ENDOFPROGRAM
  1277                     FAULT(15) %UNLESS LEVEL=2

C 00005632    41100002        LA      1,    2(  0,  0)
C 00005636    591090A8        C       1,  168(  0,  9)
C 0000563A    0570            BALR    7,  0
C 0000563C    47870010        BC      8,   16(  7,  0)
C 00005640    920FB043        MVI     67( 11), 15
C 00005644    5810D228        L       1,  552(  0, 13)
C 00005648    45F0D074        BAL    15,  116(  0, 13)


  1278                     FAULT(56) %UNLESS CPRMODE=1

C 0000564C    950190DB        CLI    219(  9),  1
C 00005650    0570            BALR    7,  0
C 00005652    47870010        BC      8,   16(  7,  0)
C 00005656    9238B043        MVI     67( 11), 56
C 0000565A    5810D228        L       1,  552(  0, 13)
C 0000565E    45F0D074        BAL    15,  116(  0, 13)


  1279                     PERM=0; CEND(1)

C 00005662    920090D0        MVI    208(  9),  0



C 00005666    41100001        LA      1,    1(  0,  0)
C 0000566A    5010B040        ST      1,   64(  0, 11)
C 0000566E    5810D358        L       1,  856(  0, 13)
C 00005672    45F0D074        BAL    15,  116(  0, 13)


  1280                     LOAD DATA; ->1

C 00005676    5810D344        L       1,  836(  0, 13)
C 0000567A    45F0D074        BAL    15,  116(  0, 13)



C 0000567E    47F0ACD0        BC     15, 3280(  0, 10)


  1281            SW(14):  %BEGIN;                       !SWITCH LABEL

C 00005682    90AB80D4        STM    10, 11,  212(  8)
C 00005686    D20380DCD014    MVC    220(  4,  8),   20( 13)
C 0000568C    41000501        LA      0, 1281(  0,  0)
C 00005690    4000D014        STH     0,   20(  0, 13)
C 00005694    05A0            BALR   10,  0


  1282                         %SHORTROUTINE
  1283                         R13=0;MONE=1

C 00005696    1F11            SLR     1,  1
C 00005698    501090BC        ST      1,  188(  0,  9)



C 0000569C    920190CD        MVI    205(  9),  1


  1284                         COPYTAG(A(P+1))

C 000056A0    41100001        LA      1,    1(  0,  0)
C 000056A4    5A108040        A       1,   64(  0,  8)
C 000056A8    413092FC        LA      3,  764(  0,  9)
C 000056AC    45F0C05C        BAL    15,   92(  0, 12)
C 000056B0    4811F000        LH      1,    0(  1, 15)
C 000056B4    5010B040        ST      1,   64(  0, 11)
C 000056B8    5810D408        L       1, 1032(  0, 13)
C 000056BC    45F0D074        BAL    15,  116(  0, 13)


  1285                         ->1401 %IF OLDI=LEVEL %AND TYPE=6

C 000056C0    D50380A890A8    CLC    168(  4,  8),  168(  9)
C 000056C6    477A003C        BC      7,   60( 10,  0)
C 000056CA    95068094        CLI    148(  8),  6
C 000056CE    478A0000        BC      8,    0( 10,  0)


  1286                         FAULT(4); ->1

C 000056D2    9204B043        MVI     67( 11),  4
C 000056D6    5810D228        L       1,  552(  0, 13)
C 000056DA    45F0D074        BAL    15,  116(  0, 13)



C 000056DE    47FA0000        BC     15,    0( 10,  0)


  1287                1401:    FROM LIST(K,ACC,KKK)

C 000056E2    D203B04080A4    MVC     64(  4, 11),  164(  8)
C 000056E8    41108050        LA      1,   80(  0,  8)
C 000056EC    5010B044        ST      1,   68(  0, 11)
C 000056F0    41108064        LA      1,  100(  0,  8)
C 000056F4    5010B048        ST      1,   72(  0, 11)
C 000056F8    5810D3D8        L       1,  984(  0, 13)
C 000056FC    45F0D074        BAL    15,  116(  0, 13)


  1288                         MLINK(K); FROM LIST(K,QQ,KK); ! UB & BIT LIST PART 1

C 00005700    411080A4        LA      1,  164(  0,  8)
C 00005704    5010B040        ST      1,   64(  0, 11)
C 00005708    5810D3E8        L       1, 1000(  0, 13)
C 0000570C    45F0D074        BAL    15,  116(  0, 13)



C 00005710    D203B04080A4    MVC     64(  4, 11),  164(  8)
C 00005716    4110806C        LA      1,  108(  0,  8)
C 0000571A    5010B044        ST      1,   68(  0, 11)
C 0000571E    41108060        LA      1,   96(  0,  8)
C 00005722    5010B048        ST      1,   72(  0, 11)
C 00005726    5810D3D8        L       1,  984(  0, 13)
C 0000572A    45F0D074        BAL    15,  116(  0, 13)


  1289                         ->1411 %UNLESS A(P+3)&7=1

C 0000572E    41100003        LA      1,    3(  0,  0)
C 00005732    5A108040        A       1,   64(  0,  8)
C 00005736    413092FC        LA      3,  764(  0,  9)
C 0000573A    45F0C05C        BAL    15,   92(  0, 12)
C 0000573E    4871F000        LH      7,    0(  1, 15)
C 00005742    41100007        LA      1,    7(  0,  0)
C 00005746    1471            NR      7,  1
C 00005748    41100001        LA      1,    1(  0,  0)
C 0000574C    1971            CR      7,  1
C 0000574E    477A0000        BC      7,    0( 10,  0)


  1290                         %IF A(P+3)=9 %THEN JJ=A(P+4) %ELSE %START

C 00005752    41100003        LA      1,    3(  0,  0)
C 00005756    5A108040        A       1,   64(  0,  8)
C 0000575A    413092FC        LA      3,  764(  0,  9)
C 0000575E    45F0C05C        BAL    15,   92(  0, 12)
C 00005762    4811F000        LH      1,    0(  1, 15)
C 00005766    41200009        LA      2,    9(  0,  0)
C 0000576A    1912            CR      1,  2
C 0000576C    477A00F6        BC      7,  246( 10,  0)
C 00005770    41100004        LA      1,    4(  0,  0)
C 00005774    5A108040        A       1,   64(  0,  8)
C 00005778    413092FC        LA      3,  764(  0,  9)
C 0000577C    45F0C05C        BAL    15,   92(  0, 12)
C 00005780    4811F000        LH      1,    0(  1, 15)
C 00005784    50108058        ST      1,   88(  0,  8)
C 00005788    47FA0000        BC     15,    0( 10,  0)


  1291                         FROMAR4(P+4,JJ); P=P+1; %FINISH

C 0000578C    41100004        LA      1,    4(  0,  0)
C 00005790    5A108040        A       1,   64(  0,  8)
C 00005794    5010B040        ST      1,   64(  0, 11)
C 00005798    41108058        LA      1,   88(  0,  8)
C 0000579C    5010B044        ST      1,   68(  0, 11)
C 000057A0    5810D218        L       1,  536(  0, 13)
C 000057A4    45F0D074        BAL    15,  116(  0, 13)



C 000057A8    41100001        LA      1,    1(  0,  0)
C 000057AC    5A108040        A       1,   64(  0,  8)
C 000057B0    50108040        ST      1,   64(  0,  8)


  1292                         JJ=-JJ %IF A(P+2)=2

C 000057B4    41100002        LA      1,    2(  0,  0)
C 000057B8    5A108040        A       1,   64(  0,  8)
C 000057BC    413092FC        LA      3,  764(  0,  9)
C 000057C0    45F0C05C        BAL    15,   92(  0, 12)
C 000057C4    4811F000        LH      1,    0(  1, 15)
C 000057C8    41200002        LA      2,    2(  0,  0)
C 000057CC    1912            CR      1,  2
C 000057CE    477A0146        BC      7,  326( 10,  0)
C 000057D2    58108058        L       1,   88(  0,  8)
C 000057D6    1311            LCR     1,  1
C 000057D8    50108058        ST      1,   88(  0,  8)


  1293                         ->1402 %IF KKK<=JJ<=KK

C 000057DC    58108058        L       1,   88(  0,  8)
C 000057E0    59108064        C       1,  100(  0,  8)
C 000057E4    475A015A        BC      5,  346( 10,  0)
C 000057E8    59108060        C       1,   96(  0,  8)
C 000057EC    47CA0000        BC     12,    0( 10,  0)


  1294                1411:    FAULT(5); ->1

C 000057F0    9205B043        MVI     67( 11),  5
C 000057F4    5810D228        L       1,  552(  0, 13)
C 000057F8    45F0D074        BAL    15,  116(  0, 13)



C 000057FC    47FA0000        BC     15,    0( 10,  0)


  1295                1402:    Q=JJ-KKK

C 00005800    58108058        L       1,   88(  0,  8)
C 00005804    5B108064        S       1,  100(  0,  8)
C 00005808    50108068        ST      1,  104(  0,  8)


  1296                1404:    ->1403 %IF 31>=Q

C 0000580C    58108068        L       1,  104(  0,  8)
C 00005810    4120001F        LA      2,   31(  0,  0)
C 00005814    1921            CR      2,  1
C 00005816    47AA0000        BC     10,    0( 10,  0)


  1297                         MLINK(K); Q=Q-32

C 0000581A    411080A4        LA      1,  164(  0,  8)
C 0000581E    5010B040        ST      1,   64(  0, 11)
C 00005822    5810D3E8        L       1, 1000(  0, 13)
C 00005826    45F0D074        BAL    15,  116(  0, 13)



C 0000582A    58108068        L       1,  104(  0,  8)
C 0000582E    41200020        LA      2,   32(  0,  0)
C 00005832    1B12            SR      1,  2
C 00005834    50108068        ST      1,  104(  0,  8)


  1298                         FROM LIST(K,QQ,JJJ); ->1404

C 00005838    D203B04080A4    MVC     64(  4, 11),  164(  8)
C 0000583E    4110806C        LA      1,  108(  0,  8)
C 00005842    5010B044        ST      1,   68(  0, 11)
C 00005846    4110805C        LA      1,   92(  0,  8)
C 0000584A    5010B048        ST      1,   72(  0, 11)
C 0000584E    5810D3D8        L       1,  984(  0, 13)
C 00005852    45F0D074        BAL    15,  116(  0, 13)



C 00005856    47F0A176        BC     15,  374(  0, 10)


  1299                1403:    JJJ=1<<Q; FAULT(6) %UNLESS JJJ&QQ=0

C 0000585A    41100001        LA      1,    1(  0,  0)
C 0000585E    58208068        L       2,  104(  0,  8)
C 00005862    89102000        SLL     1,    0(  2)
C 00005866    5010805C        ST      1,   92(  0,  8)



C 0000586A    5810805C        L       1,   92(  0,  8)
C 0000586E    5410806C        N       1,  108(  0,  8)
C 00005872    478A01EC        BC      8,  492( 10,  0)
C 00005876    9206B043        MVI     67( 11),  6
C 0000587A    5810D228        L       1,  552(  0, 13)
C 0000587E    45F0D074        BAL    15,  116(  0, 13)


  1300                         REPLACE1(K,QQ!JJJ);           ! UPDATE BIT LIST

C 00005882    D203B04080A4    MVC     64(  4, 11),  164(  8)
C 00005888    5810806C        L       1,  108(  0,  8)
C 0000588C    5610805C        O       1,   92(  0,  8)
C 00005890    5010B044        ST      1,   68(  0, 11)
C 00005894    5810D3F0        L       1, 1008(  0, 13)
C 00005898    45F0D074        BAL    15,  116(  0, 13)


  1301                         Q=CA-CODEBASE(LEVEL)

C 0000589C    581090A8        L       1,  168(  0,  9)
C 000058A0    4130917C        LA      3,  380(  0,  9)
C 000058A4    45F0C05C        BAL    15,   92(  0, 12)
C 000058A8    5871F000        L       7,    0(  1, 15)
C 000058AC    581090AC        L       1,  172(  0,  9)
C 000058B0    1B17            SR      1,  7
C 000058B2    50108068        ST      1,  104(  0,  8)


  1302                         ->1407 %IF PREC#0

C 000058B6    95008093        CLI    147(  8),  0
C 000058BA    477A0000        BC      7,    0( 10,  0)


  1303                         QQ=ACC+8+(JJ-KKK)<<2;         ! WHERE TO PLUG

C 000058BE    58108058        L       1,   88(  0,  8)
C 000058C2    5B108064        S       1,  100(  0,  8)
C 000058C6    1851            LR      5,  1
C 000058C8    41100008        LA      1,    8(  0,  0)
C 000058CC    5A108050        A       1,   80(  0,  8)
C 000058D0    89500002        SLL     5,    2(  0)
C 000058D4    1A15            AR      1,  5
C 000058D6    5010806C        ST      1,  108(  0,  8)


  1304                         PLUG(QQ,Q>>16) %UNLESS Q>>16=0

C 000058DA    58108068        L       1,  104(  0,  8)
C 000058DE    88100010        SRL     1,   16(  0)
C 000058E2    1211            LTR     1,  1
C 000058E4    478A026C        BC      8,  620( 10,  0)
C 000058E8    D203B040806C    MVC     64(  4, 11),  108(  8)
C 000058EE    58108068        L       1,  104(  0,  8)
C 000058F2    88100010        SRL     1,   16(  0)
C 000058F6    5010B044        ST      1,   68(  0, 11)
C 000058FA    5810D1F0        L       1,  496(  0, 13)
C 000058FE    45F0D074        BAL    15,  116(  0, 13)


  1305                1406:    PLUG(QQ+2,Q&X'FFFF'); ->1

C 00005902    41100002        LA      1,    2(  0,  0)
C 00005906    5A10806C        A       1,  108(  0,  8)
C 0000590A    5010B040        ST      1,   64(  0, 11)
C 0000590E    58108068        L       1,  104(  0,  8)
C 00005912    5410D48C        N       1, 1164(  0, 13)
C 00005916    5010B044        ST      1,   68(  0, 11)
C 0000591A    5810D1F0        L       1,  496(  0, 13)
C 0000591E    45F0D074        BAL    15,  116(  0, 13)



C 00005922    47FA0000        BC     15,    0( 10,  0)


  1306                1407:    QQ=ACC+6+(JJ-KKK)<<1

C 00005926    58108058        L       1,   88(  0,  8)
C 0000592A    5B108064        S       1,  100(  0,  8)
C 0000592E    1851            LR      5,  1
C 00005930    41100006        LA      1,    6(  0,  0)
C 00005934    5A108050        A       1,   80(  0,  8)
C 00005938    89500001        SLL     5,    1(  0)
C 0000593C    1A15            AR      1,  5
C 0000593E    5010806C        ST      1,  108(  0,  8)


  1307                         FAULT(99) %IF Q>X'7FFF';->1406

C 00005942    5810D490        L       1, 1168(  0, 13)
C 00005946    59108068        C       1,  104(  0,  8)
C 0000594A    47BA02C4        BC     11,  708( 10,  0)
C 0000594E    9263B043        MVI     67( 11), 99
C 00005952    5810D228        L       1,  552(  0, 13)
C 00005956    45F0D074        BAL    15,  116(  0, 13)



C 0000595A    47F0A26C        BC     15,  620(  0, 10)


  1308                !
  1309                1:       %END;->1
D 0000059C    C2 C2 C2 C2 05 01 08 00 00 00 03 BF FF FF FF FF


C 0000595E    98AB80D4        LM     10, 11,  212(  8)
C 00005962    D203D01480DC    MVC     20(  4, 13),  220(  8)



C 00005968    47F0ACD0        BC     15, 3280(  0, 10)


  1310            SW(15):  %BEGIN;                       !SWITCH (SWITCH LIST)

C 0000596C    90AB80D4        STM    10, 11,  212(  8)
C 00005970    D20380DCD014    MVC    220(  4,  8),   20( 13)
C 00005976    4100051E        LA      0, 1310(  0,  0)
C 0000597A    4000D014        STH     0,   20(  0, 13)
C 0000597E    05A0            BALR   10,  0


  1311                         %SHORTROUTINE
  1312                         %INTEGER BP,QQQ
  1313                         Q=P;CNOP(0,4);PJ(15,PLABEL-1)

C 00005980    D20380688040    MVC    104(  4,  8),   64(  8)



C 00005986    1F11            SLR     1,  1
C 00005988    5010B040        ST      1,   64(  0, 11)
C 0000598C    41100004        LA      1,    4(  0,  0)
C 00005990    5010B044        ST      1,   68(  0, 11)
C 00005994    5810D1B0        L       1,  432(  0, 13)
C 00005998    45F0D074        BAL    15,  116(  0, 13)



C 0000599C    4110000F        LA      1,   15(  0,  0)
C 000059A0    5010B040        ST      1,   64(  0, 11)
C 000059A4    581090A4        L       1,  164(  0,  9)
C 000059A8    0610            BCTR    1,  0
C 000059AA    5010B044        ST      1,   68(  0, 11)
C 000059AE    5810D464        L       1, 1124(  0, 13)
C 000059B2    45F0D074        BAL    15,  116(  0, 13)


  1314                         FAULT(56) %UNLESS LEVEL>=2

C 000059B6    41100002        LA      1,    2(  0,  0)
C 000059BA    591090A8        C       1,  168(  0,  9)
C 000059BE    47CA004E        BC     12,   78( 10,  0)
C 000059C2    9238B043        MVI     67( 11), 56
C 000059C6    5810D228        L       1,  552(  0, 13)
C 000059CA    45F0D074        BAL    15,  116(  0, 13)


  1315                1528:    P=Q+A(Q+1)+2

C 000059CE    41100001        LA      1,    1(  0,  0)
C 000059D2    5A108068        A       1,  104(  0,  8)
C 000059D6    413092FC        LA      3,  764(  0,  9)
C 000059DA    45F0C05C        BAL    15,   92(  0, 12)
C 000059DE    4871F000        LH      7,    0(  1, 15)
C 000059E2    5A708068        A       7,  104(  0,  8)
C 000059E6    41100002        LA      1,    2(  0,  0)
C 000059EA    1A71            AR      7,  1
C 000059EC    50708040        ST      7,   64(  0,  8)


  1316                         CBPAIR(KKK,KK);               ! LB TO KKK, UB TO KK

C 000059F0    41108064        LA      1,  100(  0,  8)
C 000059F4    5010B040        ST      1,   64(  0, 11)
C 000059F8    41108060        LA      1,   96(  0,  8)
C 000059FC    5010B044        ST      1,   68(  0, 11)
C 00005A00    5810D35C        L       1,  860(  0, 13)
C 00005A04    45F0D074        BAL    15,  116(  0, 13)


  1317                         ->1501 %UNLESS !KKK!<X'7FFF'>!KK!

C 00005A08    58108064        L       1,  100(  0,  8)
C 00005A0C    1011            LPR     1,  1
C 00005A0E    1851            LR      5,  1
C 00005A10    5810D494        L       1, 1172(  0, 13)
C 00005A14    1915            CR      1,  5
C 00005A16    47DA0000        BC     13,    0( 10,  0)
C 00005A1A    1851            LR      5,  1
C 00005A1C    58108060        L       1,   96(  0,  8)
C 00005A20    1011            LPR     1,  1
C 00005A22    1915            CR      1,  5
C 00005A24    47BA0000        BC     11,    0( 10,  0)


  1318                         ->1535 %IF KKK<=KK; FAULT(27); KK=KKK

C 00005A28    58108060        L       1,   96(  0,  8)
C 00005A2C    59108064        C       1,  100(  0,  8)
C 00005A30    47AA0000        BC     10,    0( 10,  0)



C 00005A34    921BB043        MVI     67( 11), 27
C 00005A38    5810D228        L       1,  552(  0, 13)
C 00005A3C    45F0D074        BAL    15,  116(  0, 13)



C 00005A40    D20380608064    MVC     96(  4,  8),  100(  8)


  1319                1535:    %CYCLE QQ=1,1,A(Q+1)

C 00005A46    4140806C        LA      4,  108(  0,  8)
C 00005A4A    41200001        LA      2,    1(  0,  0)
C 00005A4E    502080E8        ST      2,  232(  0,  8)
C 00005A52    41100001        LA      1,    1(  0,  0)
C 00005A56    5A108068        A       1,  104(  0,  8)
C 00005A5A    413092FC        LA      3,  764(  0,  9)
C 00005A5E    45F0C05C        BAL    15,   92(  0, 12)
C 00005A62    4831F000        LH      3,    0(  1, 15)
C 00005A66    903480EC        STM     3,  4,  236(  8)
C 00005A6A    41100001        LA      1,    1(  0,  0)
C 00005A6E    50104000        ST      1,    0(  0,  4)


  1320                         K=A(Q+QQ+1);TEST NST

C 00005A72    58108068        L       1,  104(  0,  8)
C 00005A76    5A10806C        A       1,  108(  0,  8)
C 00005A7A    41200001        LA      2,    1(  0,  0)
C 00005A7E    1A12            AR      1,  2
C 00005A80    413092FC        LA      3,  764(  0,  9)
C 00005A84    45F0C05C        BAL    15,   92(  0, 12)
C 00005A88    4811F000        LH      1,    0(  1, 15)
C 00005A8C    501080A4        ST      1,  164(  0,  8)



C 00005A90    5810D43C        L       1, 1084(  0, 13)
C 00005A94    45F0D074        BAL    15,  116(  0, 13)


  1321                         PREC=0

C 00005A98    92008093        MVI    147(  8),  0


  1322                         PREC=2 %IF SBFLAG=1 %OR COMPILER=1

C 00005A9C    950190CB        CLI    203(  9),  1
C 00005AA0    478A012C        BC      8,  300( 10,  0)
C 00005AA4    950190DA        CLI    218(  9),  1
C 00005AA8    477A0130        BC      7,  304( 10,  0)
C 00005AAC    92028093        MVI    147(  8),  2


  1323                         TYPE=6; ROUT=0; NAM=0; ARR=1; PACK(PTYPE)

C 00005AB0    92068094        MVI    148(  8),  6



C 00005AB4    92008090        MVI    144(  8),  0



C 00005AB8    92008091        MVI    145(  8),  0



C 00005ABC    92018092        MVI    146(  8),  1



C 00005AC0    41108098        LA      1,  152(  0,  8)
C 00005AC4    5010B040        ST      1,   64(  0, 11)
C 00005AC8    5810D450        L       1, 1104(  0, 13)
C 00005ACC    45F0D074        BAL    15,  116(  0, 13)


  1324                         OPHEAD=NEWCELL; JJ=OPHEAD

C 00005AD0    5810D404        L       1, 1028(  0, 13)
C 00005AD4    45F0D074        BAL    15,  116(  0, 13)
C 00005AD8    40108054        STH     1,   84(  0,  8)
C 00005ADC    49180054        CH      1,   84(  8,  0)
C 00005AE0    477C0058        BC      7,   88( 12,  0)



C 00005AE4    48108054        LH      1,   84(  0,  8)
C 00005AE8    50108058        ST      1,   88(  0,  8)


  1325                         J=0;STORE TAG(K,OPHEAD);R=KKK

C 00005AEC    1F11            SLR     1,  1
C 00005AEE    501080A0        ST      1,  160(  0,  8)



C 00005AF2    D203B04080A4    MVC     64(  4, 11),  164(  8)
C 00005AF8    48108054        LH      1,   84(  0,  8)
C 00005AFC    5010B044        ST      1,   68(  0, 11)
C 00005B00    5810D434        L       1, 1076(  0, 13)
C 00005B04    45F0D074        BAL    15,  116(  0, 13)



C 00005B08    D20391188064    MVC    280(  4,  9),  100(  8)


  1326                         INSERT AFTER (OPHEAD,0,KK)

C 00005B0E    41108054        LA      1,   84(  0,  8)
C 00005B12    5010B040        ST      1,   64(  0, 11)
C 00005B16    1F11            SLR     1,  1
C 00005B18    5010B044        ST      1,   68(  0, 11)
C 00005B1C    D203B0488060    MVC     72(  4, 11),   96(  8)
C 00005B22    5810D3D4        L       1,  980(  0, 13)
C 00005B26    45F0D074        BAL    15,  116(  0, 13)


  1327                1503:    ->1504 %IF KK-R<32

C 00005B2A    58108060        L       1,   96(  0,  8)
C 00005B2E    5B109118        S       1,  280(  0,  9)
C 00005B32    41200020        LA      2,   32(  0,  0)
C 00005B36    1912            CR      1,  2
C 00005B38    474A0000        BC      4,    0( 10,  0)


  1328                         INSERT AFTER(OPHEAD,0,0)

C 00005B3C    41108054        LA      1,   84(  0,  8)
C 00005B40    5010B040        ST      1,   64(  0, 11)
C 00005B44    1F11            SLR     1,  1
C 00005B46    5010B044        ST      1,   68(  0, 11)
C 00005B4A    1F11            SLR     1,  1
C 00005B4C    5010B048        ST      1,   72(  0, 11)
C 00005B50    5810D3D4        L       1,  980(  0, 13)
C 00005B54    45F0D074        BAL    15,  116(  0, 13)


  1329                         R=R+32; ->1503;               ! SET UP BIT LIST

C 00005B58    41100020        LA      1,   32(  0,  0)
C 00005B5C    5A109118        A       1,  280(  0,  9)
C 00005B60    50109118        ST      1,  280(  0,  9)



C 00005B64    47F0A1AA        BC     15,  426(  0, 10)


  1330                1504:    REPLACE BOTH(JJ,CA,KKK)

C 00005B68    D203B0408058    MVC     64(  4, 11),   88(  8)
C 00005B6E    D203B04490AC    MVC     68(  4, 11),  172(  9)
C 00005B74    D203B0488064    MVC     72(  4, 11),  100(  8)
C 00005B7A    5810D3F4        L       1, 1012(  0, 13)
C 00005B7E    45F0D074        BAL    15,  116(  0, 13)


  1331                         PCONST(KKK&X'FFFFFF'!PREC<<24)

C 00005B82    58108064        L       1,  100(  0,  8)
C 00005B86    5410D498        N       1, 1176(  0, 13)
C 00005B8A    1F22            SLR     2,  2
C 00005B8C    43208093        IC      2,  147(  0,  8)
C 00005B90    89200018        SLL     2,   24(  0)
C 00005B94    1612            OR      1,  2
C 00005B96    5010B040        ST      1,   64(  0, 11)
C 00005B9A    5810D1B4        L       1,  436(  0, 13)
C 00005B9E    45F0D074        BAL    15,  116(  0, 13)


  1332                         PCONST(KK)

C 00005BA2    D203B0408060    MVC     64(  4, 11),   96(  8)
C 00005BA8    5810D1B4        L       1,  436(  0, 13)
C 00005BAC    45F0D074        BAL    15,  116(  0, 13)


  1333                         JJJ=KK-KKK

C 00005BB0    58108060        L       1,   96(  0,  8)
C 00005BB4    5B108064        S       1,  100(  0,  8)
C 00005BB8    5010805C        ST      1,   92(  0,  8)


  1334                         JJJ=(JJJ+1)//2 %IF PREC=2

C 00005BBC    95028093        CLI    147(  8),  2
C 00005BC0    477A025E        BC      7,  606( 10,  0)
C 00005BC4    41100001        LA      1,    1(  0,  0)
C 00005BC8    5A10805C        A       1,   92(  0,  8)
C 00005BCC    1851            LR      5,  1
C 00005BCE    1805            LR      0,  5
C 00005BD0    8E000020        SRDA    0,   32(  0)
C 00005BD4    41200002        LA      2,    2(  0,  0)
C 00005BD8    1D02            DR      0,  2
C 00005BDA    5010805C        ST      1,   92(  0,  8)


  1335                         %CYCLE I=0,1,JJJ

C 00005BDE    4140809C        LA      4,  156(  0,  8)
C 00005BE2    41200001        LA      2,    1(  0,  0)
C 00005BE6    5830805C        L       3,   92(  0,  8)
C 00005BEA    902480F4        STM     2,  4,  244(  8)
C 00005BEE    1F11            SLR     1,  1
C 00005BF0    50104000        ST      1,    0(  0,  4)


  1336                         PCONST(0);%REPEAT

C 00005BF4    1F11            SLR     1,  1
C 00005BF6    5010B040        ST      1,   64(  0, 11)
C 00005BFA    5810D1B4        L       1,  436(  0, 13)
C 00005BFE    45F0D074        BAL    15,  116(  0, 13)



C 00005C02    982480F4        LM      2,  4,  244(  8)
C 00005C06    58104000        L       1,    0(  0,  4)
C 00005C0A    8712A270        BXLE    1,  2,  624( 10)


  1337                         %REPEAT

C 00005C0E    982480E8        LM      2,  4,  232(  8)
C 00005C12    58104000        L       1,    0(  0,  4)
C 00005C16    8712A0EE        BXLE    1,  2,  238( 10)


  1338                         Q=P; ->1528 %UNLESS A(Q)=2

C 00005C1A    D20380688040    MVC    104(  4,  8),   64(  8)



C 00005C20    58108068        L       1,  104(  0,  8)
C 00005C24    413092FC        LA      3,  764(  0,  9)
C 00005C28    45F0C05C        BAL    15,   92(  0, 12)
C 00005C2C    4811F000        LH      1,    0(  1, 15)
C 00005C30    41200002        LA      2,    2(  0,  0)
C 00005C34    1912            CR      1,  2
C 00005C36    4770A04E        BC      7,   78(  0, 10)


  1339                         PLAB(-1); ->1

C 00005C3A    5810D010        L       1,   16(  0, 13)
C 00005C3E    5010B040        ST      1,   64(  0, 11)
C 00005C42    5810D470        L       1, 1136(  0, 13)
C 00005C46    45F0D074        BAL    15,  116(  0, 13)



C 00005C4A    47FA0000        BC     15,    0( 10,  0)


  1340                1501:    FAULT(18); KK=0; KKK=0; ->1535

C 00005C4E    9212B043        MVI     67( 11), 18
C 00005C52    5810D228        L       1,  552(  0, 13)
C 00005C56    45F0D074        BAL    15,  116(  0, 13)



C 00005C5A    1F11            SLR     1,  1
C 00005C5C    50108060        ST      1,   96(  0,  8)



C 00005C60    1F11            SLR     1,  1
C 00005C62    50108064        ST      1,  100(  0,  8)



C 00005C66    47F0A0C6        BC     15,  198(  0, 10)


  1341                1:       %END;->1
D 000005AC    C2 C2 C2 C2 05 1E 08 00 00 00 03 BF 01 80 E4 03 51 51 51 00 01 80 E0 02 42 50 A7 40 FF FF FF FF


C 00005C6A    98AB80D4        LM     10, 11,  212(  8)
C 00005C6E    D203D01480DC    MVC     20(  4, 13),  220(  8)



C 00005C74    47F0ACD0        BC     15, 3280(  0, 10)


  1342            SW(16):  QU=\A(P+1)&1; P=P+2; ->1

C 00005C78    41100001        LA      1,    1(  0,  0)
C 00005C7C    5A108040        A       1,   64(  0,  8)
C 00005C80    413092FC        LA      3,  764(  0,  9)
C 00005C84    45F0C05C        BAL    15,   92(  0, 12)
C 00005C88    4871F000        LH      7,    0(  1, 15)
C 00005C8C    5770D010        X       7,   16(  0, 13)
C 00005C90    41100001        LA      1,    1(  0,  0)
C 00005C94    1471            NR      7,  1
C 00005C96    427090CF        STC     7,  207(  0,  9)
C 00005C9A    5570D018        CL      7,   24(  0, 13)
C 00005C9E    472C0058        BC      2,   88( 12,  0)



C 00005CA2    41100002        LA      1,    2(  0,  0)
C 00005CA6    5A108040        A       1,   64(  0,  8)
C 00005CAA    50108040        ST      1,   64(  0,  8)



C 00005CAE    47F0ACD0        BC     15, 3280(  0, 10)


  1343            !
  1344            SW(17):                                ! '%REGISTER' (NAME)
  1345                     KK=CLAIMABLE REG

C 00005CB2    5810D41C        L       1, 1052(  0, 13)
C 00005CB6    45F0D074        BAL    15,  116(  0, 13)
C 00005CBA    50108060        ST      1,   96(  0,  8)


  1346                     ->1999 %IF KK=0

C 00005CBE    58108060        L       1,   96(  0,  8)
C 00005CC2    1211            LTR     1,  1
C 00005CC4    0000
C 00005CC6    0000
C 00005CC8    478A0000        BC      8,    0( 10,  0)


  1347                     REGISTER(KK)=-LEVEL

C 00005CCC    584090A8        L       4,  168(  0,  9)
C 00005CD0    1344            LCR     4,  4
C 00005CD2    58108060        L       1,   96(  0,  8)
C 00005CD6    4130914C        LA      3,  332(  0,  9)
C 00005CDA    45F0C05C        BAL    15,   92(  0, 12)
C 00005CDE    5041F000        ST      4,    0(  1, 15)


  1348                     UVARREG(KK)=LEVEL

C 00005CE2    584090A8        L       4,  168(  0,  9)
C 00005CE6    58108060        L       1,   96(  0,  8)
C 00005CEA    413092AC        LA      3,  684(  0,  9)
C 00005CEE    45F0C05C        BAL    15,   92(  0, 12)
C 00005CF2    5041F000        ST      4,    0(  1, 15)


  1349                     PTYPE=8; J=0

C 00005CF6    41100008        LA      1,    8(  0,  0)
C 00005CFA    50108098        ST      1,  152(  0,  8)



C 00005CFE    1F11            SLR     1,  1
C 00005D00    501080A0        ST      1,  160(  0,  8)


  1350                     K=A(P+1); TESTNST

C 00005D04    41100001        LA      1,    1(  0,  0)
C 00005D08    5A108040        A       1,   64(  0,  8)
C 00005D0C    413092FC        LA      3,  764(  0,  9)
C 00005D10    45F0C05C        BAL    15,   92(  0, 12)
C 00005D14    4811F000        LH      1,    0(  1, 15)
C 00005D18    501080A4        ST      1,  164(  0,  8)



C 00005D1C    5810D43C        L       1, 1084(  0, 13)
C 00005D20    45F0D074        BAL    15,  116(  0, 13)


  1351                     STORE TAG(K,KK); ->1

C 00005D24    D203B04080A4    MVC     64(  4, 11),  164(  8)
C 00005D2A    D203B0448060    MVC     68(  4, 11),   96(  8)
C 00005D30    5810D434        L       1, 1076(  0, 13)
C 00005D34    45F0D074        BAL    15,  116(  0, 13)



C 00005D38    47F0ACD0        BC     15, 3280(  0, 10)


  1352            SW(18):                                ! '%OWN' (TYPE)(OWNDEC)
  1353                     %BEGIN

C 00005D3C    90AB80D4        STM    10, 11,  212(  8)
C 00005D40    D20380DCD014    MVC    220(  4,  8),   20( 13)
C 00005D46    41000549        LA      0, 1353(  0,  0)
C 00005D4A    4000D014        STH     0,   20(  0, 13)
C 00005D4E    05A0            BALR   10,  0


  1354                         %SHORTROUTINE
  1355                         %INTEGER WSP1,LENGTH,BP,PP,SIGN
  1356                         %INTEGERNAME VAR
  1357                         FAULT(40) %UNLESS NMDECS(LEVEL)=0

C 00005D50    581090A8        L       1,  168(  0,  9)
C 00005D54    4130926C        LA      3,  620(  0,  9)
C 00005D58    45F0C05C        BAL    15,   92(  0, 12)
C 00005D5C    4811F000        LH      1,    0(  1, 15)
C 00005D60    1211            LTR     1,  1
C 00005D62    478A0022        BC      8,   34( 10,  0)
C 00005D66    9228B043        MVI     67( 11), 40
C 00005D6A    5810D228        L       1,  552(  0, 13)
C 00005D6E    45F0D074        BAL    15,  116(  0, 13)


  1358                         P=P+1; CLT

C 00005D72    41100001        LA      1,    1(  0,  0)
C 00005D76    5A108040        A       1,   64(  0,  8)
C 00005D7A    50108040        ST      1,   64(  0,  8)



C 00005D7E    5810D3B0        L       1,  944(  0, 13)
C 00005D82    45F0D074        BAL    15,  116(  0, 13)


  1359                         FAULT(70) %IF TYPE=5 %AND ACC=0

C 00005D86    95058094        CLI    148(  8),  5
C 00005D8A    477A0054        BC      7,   84( 10,  0)
C 00005D8E    58108050        L       1,   80(  0,  8)
C 00005D92    1211            LTR     1,  1
C 00005D94    477A0054        BC      7,   84( 10,  0)
C 00005D98    9246B043        MVI     67( 11), 70
C 00005D9C    5810D228        L       1,  552(  0, 13)
C 00005DA0    45F0D074        BAL    15,  116(  0, 13)


  1360                         NAM=0; ROUT=0; ARR=A(P)-1; PACK(PTYPE)

C 00005DA4    92008091        MVI    145(  8),  0



C 00005DA8    92008090        MVI    144(  8),  0



C 00005DAC    58108040        L       1,   64(  0,  8)
C 00005DB0    413092FC        LA      3,  764(  0,  9)
C 00005DB4    45F0C05C        BAL    15,   92(  0, 12)
C 00005DB8    4871F000        LH      7,    0(  1, 15)
C 00005DBC    0670            BCTR    7,  0
C 00005DBE    42708092        STC     7,  146(  0,  8)
C 00005DC2    5570D018        CL      7,   24(  0, 13)
C 00005DC6    472C0058        BC      2,   88( 12,  0)



C 00005DCA    41108098        LA      1,  152(  0,  8)
C 00005DCE    5010B040        ST      1,   64(  0, 11)
C 00005DD2    5810D450        L       1, 1104(  0, 13)
C 00005DD6    45F0D074        BAL    15,  116(  0, 13)


  1361                         PP=P+1; P=P+2; ->NONSCALAR %UNLESS ARR=0

C 00005DDA    41100001        LA      1,    1(  0,  0)
C 00005DDE    5A108040        A       1,   64(  0,  8)
C 00005DE2    501080EC        ST      1,  236(  0,  8)



C 00005DE6    41100002        LA      1,    2(  0,  0)
C 00005DEA    5A108040        A       1,   64(  0,  8)
C 00005DEE    50108040        ST      1,   64(  0,  8)



C 00005DF2    95008092        CLI    146(  8),  0
C 00005DF6    477A0000        BC      7,    0( 10,  0)


  1362                         ->1801 %UNLESS A(P)=2;        ! NO CONST

C 00005DFA    58108040        L       1,   64(  0,  8)
C 00005DFE    413092FC        LA      3,  764(  0,  9)
C 00005E02    45F0C05C        BAL    15,   92(  0, 12)
C 00005E06    4811F000        LH      1,    0(  1, 15)
C 00005E0A    41200002        LA      2,    2(  0,  0)
C 00005E0E    1912            CR      1,  2
C 00005E10    477A0000        BC      7,    0( 10,  0)


  1363                         A(P+1)=4; A(P+2)=9; A(P+3)=0; ! 0== NULL STRING ALSO

C 00005E14    41400004        LA      4,    4(  0,  0)
C 00005E18    41100001        LA      1,    1(  0,  0)
C 00005E1C    5A108040        A       1,   64(  0,  8)
C 00005E20    413092FC        LA      3,  764(  0,  9)
C 00005E24    45F0C05C        BAL    15,   92(  0, 12)
C 00005E28    4041F000        STH     4,    0(  1, 15)
C 00005E2C    494F1000        CH      4,    0( 15,  1)
C 00005E30    477C0058        BC      7,   88( 12,  0)



C 00005E34    41400009        LA      4,    9(  0,  0)
C 00005E38    41100002        LA      1,    2(  0,  0)
C 00005E3C    5A108040        A       1,   64(  0,  8)
C 00005E40    413092FC        LA      3,  764(  0,  9)
C 00005E44    45F0C05C        BAL    15,   92(  0, 12)
C 00005E48    4041F000        STH     4,    0(  1, 15)
C 00005E4C    494F1000        CH      4,    0( 15,  1)
C 00005E50    477C0058        BC      7,   88( 12,  0)



C 00005E54    1F44            SLR     4,  4
C 00005E56    41100003        LA      1,    3(  0,  0)
C 00005E5A    5A108040        A       1,   64(  0,  8)
C 00005E5E    413092FC        LA      3,  764(  0,  9)
C 00005E62    45F0C05C        BAL    15,   92(  0, 12)
C 00005E66    4041F000        STH     4,    0(  1, 15)
C 00005E6A    494F1000        CH      4,    0( 15,  1)
C 00005E6E    477C0058        BC      7,   88( 12,  0)


  1364                1801:    SIGN=A(P+1); ->1820 %IF TYPE=5;! STRING

C 00005E72    41100001        LA      1,    1(  0,  0)
C 00005E76    5A108040        A       1,   64(  0,  8)
C 00005E7A    413092FC        LA      3,  764(  0,  9)
C 00005E7E    45F0C05C        BAL    15,   92(  0, 12)
C 00005E82    4811F000        LH      1,    0(  1, 15)
C 00005E86    501080F0        ST      1,  240(  0,  8)



C 00005E8A    95058094        CLI    148(  8),  5
C 00005E8E    478A0000        BC      8,    0( 10,  0)


  1365                         JJ= SORT CONST(P+2,PREC&1,TYPE)

C 00005E92    41100002        LA      1,    2(  0,  0)
C 00005E96    5A108040        A       1,   64(  0,  8)
C 00005E9A    5010B040        ST      1,   64(  0, 11)
C 00005E9E    41100001        LA      1,    1(  0,  0)
C 00005EA2    1F22            SLR     2,  2
C 00005EA4    43208093        IC      2,  147(  0,  8)
C 00005EA8    1412            NR      1,  2
C 00005EAA    5010B044        ST      1,   68(  0, 11)
C 00005EAE    1F11            SLR     1,  1
C 00005EB0    43108094        IC      1,  148(  0,  8)
C 00005EB4    5010B048        ST      1,   72(  0, 11)
C 00005EB8    5810D44C        L       1, 1100(  0, 13)
C 00005EBC    45F0D074        BAL    15,  116(  0, 13)
C 00005EC0    50108058        ST      1,   88(  0,  8)


  1366                         ->1810 %IF TYPE=2

C 00005EC4    95028094        CLI    148(  8),  2
C 00005EC8    478A0000        BC      8,    0( 10,  0)


  1367                         VAR==ST(N0-1)

C 00005ECC    58109088        L       1,  136(  0,  9)
C 00005ED0    0610            BCTR    1,  0
C 00005ED2    4130915C        LA      3,  348(  0,  9)
C 00005ED6    45F0C05C        BAL    15,   92(  0, 12)
C 00005EDA    4141F000        LA      4,    0(  1, 15)
C 00005EDE    504080F4        ST      4,  244(  0,  8)


  1368                         FAULT(44)%IF(PREC=1 %AND VAR>255)%OR(PREC=2 %AND !VAR!>>16#0)

C 00005EE2    95018093        CLI    147(  8),  1
C 00005EE6    477A01AC        BC      7,  428( 10,  0)
C 00005EEA    58F080F4        L      15,  244(  0,  8)
C 00005EEE    5810F000        L       1,    0(  0, 15)
C 00005EF2    412000FF        LA      2,  255(  0,  0)
C 00005EF6    1912            CR      1,  2
C 00005EF8    472A01CA        BC      2,  458( 10,  0)
C 00005EFC    95028093        CLI    147(  8),  2
C 00005F00    477A01D6        BC      7,  470( 10,  0)
C 00005F04    58F080F4        L      15,  244(  0,  8)
C 00005F08    5810F000        L       1,    0(  0, 15)
C 00005F0C    1011            LPR     1,  1
C 00005F0E    1851            LR      5,  1
C 00005F10    88500010        SRL     5,   16(  0)
C 00005F14    1255            LTR     5,  5
C 00005F16    478A01D6        BC      8,  470( 10,  0)
C 00005F1A    922CB043        MVI     67( 11), 44
C 00005F1E    5810D228        L       1,  552(  0, 13)
C 00005F22    45F0D074        BAL    15,  116(  0, 13)


  1369                         FAULT(44) %IF A(P+2)&7=2;     ! REAL CONST FOR INTEGER VARIABLE

C 00005F26    41100002        LA      1,    2(  0,  0)
C 00005F2A    5A108040        A       1,   64(  0,  8)
C 00005F2E    413092FC        LA      3,  764(  0,  9)
C 00005F32    45F0C05C        BAL    15,   92(  0, 12)
C 00005F36    4871F000        LH      7,    0(  1, 15)
C 00005F3A    41100007        LA      1,    7(  0,  0)
C 00005F3E    1471            NR      7,  1
C 00005F40    41100002        LA      1,    2(  0,  0)
C 00005F44    1971            CR      7,  1
C 00005F46    477A0206        BC      7,  518( 10,  0)
C 00005F4A    922CB043        MVI     67( 11), 44
C 00005F4E    5810D228        L       1,  552(  0, 13)
C 00005F52    45F0D074        BAL    15,  116(  0, 13)


  1370                         %IF SIGN=2 %THEN VAR=-VAR

C 00005F56    41100002        LA      1,    2(  0,  0)
C 00005F5A    591080F0        C       1,  240(  0,  8)
C 00005F5E    477A0220        BC      7,  544( 10,  0)
C 00005F62    58F080F4        L      15,  244(  0,  8)
C 00005F66    5810F000        L       1,    0(  0, 15)
C 00005F6A    1311            LCR     1,  1
C 00005F6C    5010F000        ST      1,    0(  0, 15)


  1371                         %IF SIGN=3 %THEN VAR=\VAR

C 00005F70    41100003        LA      1,    3(  0,  0)
C 00005F74    591080F0        C       1,  240(  0,  8)
C 00005F78    477A023C        BC      7,  572( 10,  0)
C 00005F7C    58F080F4        L      15,  244(  0,  8)
C 00005F80    5810F000        L       1,    0(  0, 15)
C 00005F84    5710D010        X       1,   16(  0, 13)
C 00005F88    5010F000        ST      1,    0(  0, 15)


  1372                1803:    K=A(PP); TESTNST

C 00005F8C    581080EC        L       1,  236(  0,  8)
C 00005F90    413092FC        LA      3,  764(  0,  9)
C 00005F94    45F0C05C        BAL    15,   92(  0, 12)
C 00005F98    4811F000        LH      1,    0(  1, 15)
C 00005F9C    501080A4        ST      1,  164(  0,  8)



C 00005FA0    5810D43C        L       1, 1084(  0, 13)
C 00005FA4    45F0D074        BAL    15,  116(  0, 13)


  1373                         JJ=JJ+4-BYTES(PREC) %UNLESS PREC=3

C 00005FA8    95038093        CLI    147(  8),  3
C 00005FAC    478A0282        BC      8,  642( 10,  0)
C 00005FB0    1F11            SLR     1,  1
C 00005FB2    43108093        IC      1,  147(  0,  8)
C 00005FB6    4130D108        LA      3,  264(  0, 13)
C 00005FBA    45F0C05C        BAL    15,   92(  0, 12)
C 00005FBE    1F77            SLR     7,  7
C 00005FC0    4371F000        IC      7,    0(  1, 15)
C 00005FC4    41100004        LA      1,    4(  0,  0)
C 00005FC8    5A108058        A       1,   88(  0,  8)
C 00005FCC    1B17            SR      1,  7
C 00005FCE    50108058        ST      1,   88(  0,  8)


  1374                         PUSH(TAGS(K),PTYPE<<16!LEVEL<<8!GLA<<4,JJ)

C 00005FD2    581080A4        L       1,  164(  0,  8)
C 00005FD6    4130931C        LA      3,  796(  0,  9)
C 00005FDA    45F0C05C        BAL    15,   92(  0, 12)
C 00005FDE    4111F000        LA      1,    0(  1, 15)
C 00005FE2    5010B040        ST      1,   64(  0, 11)
C 00005FE6    58108098        L       1,  152(  0,  8)
C 00005FEA    89100010        SLL     1,   16(  0)
C 00005FEE    582090A8        L       2,  168(  0,  9)
C 00005FF2    89200008        SLL     2,    8(  0)
C 00005FF6    1612            OR      1,  2
C 00005FF8    5820D150        L       2,  336(  0, 13)
C 00005FFC    89200004        SLL     2,    4(  0)
C 00006000    1612            OR      1,  2
C 00006002    5010B044        ST      1,   68(  0, 11)
C 00006006    D203B0488058    MVC     72(  4, 11),   88(  8)
C 0000600C    5810D3E0        L       1,  992(  0, 13)
C 00006010    45F0D074        BAL    15,  116(  0, 13)


  1375                         PUSH(NAME(LEVEL),0,K); ->99

C 00006014    581090A8        L       1,  168(  0,  9)
C 00006018    413091CC        LA      3,  460(  0,  9)
C 0000601C    45F0C05C        BAL    15,   92(  0, 12)
C 00006020    4111F000        LA      1,    0(  1, 15)
C 00006024    5010B040        ST      1,   64(  0, 11)
C 00006028    1F11            SLR     1,  1
C 0000602A    5010B044        ST      1,   68(  0, 11)
C 0000602E    D203B04880A4    MVC     72(  4, 11),  164(  8)
C 00006034    5810D3E0        L       1,  992(  0, 13)
C 00006038    45F0D074        BAL    15,  116(  0, 13)



C 0000603C    47FA0000        BC     15,    0( 10,  0)


  1376                1810:    FAULT(44) %IF SIGN=3;         ! \ WITH REAL

C 00006040    41100003        LA      1,    3(  0,  0)
C 00006044    591080F0        C       1,  240(  0,  8)
C 00006048    477A0308        BC      7,  776( 10,  0)
C 0000604C    922CB043        MVI     67( 11), 44
C 00006050    5810D228        L       1,  552(  0, 13)
C 00006054    45F0D074        BAL    15,  116(  0, 13)


  1377                         ->1803 %UNLESS SIGN=2

C 00006058    41100002        LA      1,    2(  0,  0)
C 0000605C    591080F0        C       1,  240(  0,  8)
C 00006060    4770A23C        BC      7,  572(  0, 10)


  1378                         ST(JJ>>2)=ST(JJ>>2)!X'80000000';! OR IN SIGN BIT

C 00006064    58108058        L       1,   88(  0,  8)
C 00006068    88100002        SRL     1,    2(  0)
C 0000606C    4130915C        LA      3,  348(  0,  9)
C 00006070    45F0C05C        BAL    15,   92(  0, 12)
C 00006074    5871F000        L       7,    0(  1, 15)
C 00006078    5670D49C        O       7, 1180(  0, 13)
C 0000607C    1847            LR      4,  7
C 0000607E    58108058        L       1,   88(  0,  8)
C 00006082    88100002        SRL     1,    2(  0)
C 00006086    4130915C        LA      3,  348(  0,  9)
C 0000608A    45F0C05C        BAL    15,   92(  0, 12)
C 0000608E    5041F000        ST      4,    0(  1, 15)


  1379                         ->1803

C 00006092    47F0A23C        BC     15,  572(  0, 10)


  1380                1820:                                  ! STRINGS
  1381                         ->1822 %UNLESS A(P+2)=9 %AND A(P+3)<127

C 00006096    41100002        LA      1,    2(  0,  0)
C 0000609A    5A108040        A       1,   64(  0,  8)
C 0000609E    413092FC        LA      3,  764(  0,  9)
C 000060A2    45F0C05C        BAL    15,   92(  0, 12)
C 000060A6    4811F000        LH      1,    0(  1, 15)
C 000060AA    41200009        LA      2,    9(  0,  0)
C 000060AE    1912            CR      1,  2
C 000060B0    477A0000        BC      7,    0( 10,  0)
C 000060B4    41100003        LA      1,    3(  0,  0)
C 000060B8    5A108040        A       1,   64(  0,  8)
C 000060BC    413092FC        LA      3,  764(  0,  9)
C 000060C0    45F0C05C        BAL    15,   92(  0, 12)
C 000060C4    4811F000        LH      1,    0(  1, 15)
C 000060C8    4120007F        LA      2,  127(  0,  0)
C 000060CC    1912            CR      1,  2
C 000060CE    47BA0000        BC     11,    0( 10,  0)


  1382                         A(P+2)=5; A(P+4)=A(P+3); A(P+3)=1

C 000060D2    41400005        LA      4,    5(  0,  0)
C 000060D6    41100002        LA      1,    2(  0,  0)
C 000060DA    5A108040        A       1,   64(  0,  8)
C 000060DE    413092FC        LA      3,  764(  0,  9)
C 000060E2    45F0C05C        BAL    15,   92(  0, 12)
C 000060E6    4041F000        STH     4,    0(  1, 15)
C 000060EA    494F1000        CH      4,    0( 15,  1)
C 000060EE    477C0058        BC      7,   88( 12,  0)



C 000060F2    41100003        LA      1,    3(  0,  0)
C 000060F6    5A108040        A       1,   64(  0,  8)
C 000060FA    413092FC        LA      3,  764(  0,  9)
C 000060FE    45F0C05C        BAL    15,   92(  0, 12)
C 00006102    4841F000        LH      4,    0(  1, 15)
C 00006106    41100004        LA      1,    4(  0,  0)
C 0000610A    5A108040        A       1,   64(  0,  8)
C 0000610E    413092FC        LA      3,  764(  0,  9)
C 00006112    45F0C05C        BAL    15,   92(  0, 12)
C 00006116    4041F000        STH     4,    0(  1, 15)
C 0000611A    494F1000        CH      4,    0( 15,  1)
C 0000611E    477C0058        BC      7,   88( 12,  0)



C 00006122    41400001        LA      4,    1(  0,  0)
C 00006126    41100003        LA      1,    3(  0,  0)
C 0000612A    5A108040        A       1,   64(  0,  8)
C 0000612E    413092FC        LA      3,  764(  0,  9)
C 00006132    45F0C05C        BAL    15,   92(  0, 12)
C 00006136    4041F000        STH     4,    0(  1, 15)
C 0000613A    494F1000        CH      4,    0( 15,  1)
C 0000613E    477C0058        BC      7,   88( 12,  0)


  1383                1822:    FAULT(44) %UNLESS SIGN=4 %AND A(P+2)=5 %AND A(P+3)<ACC

C 00006142    41100004        LA      1,    4(  0,  0)
C 00006146    591080F0        C       1,  240(  0,  8)
C 0000614A    477A0438        BC      7, 1080( 10,  0)
C 0000614E    41100002        LA      1,    2(  0,  0)
C 00006152    5A108040        A       1,   64(  0,  8)
C 00006156    413092FC        LA      3,  764(  0,  9)
C 0000615A    45F0C05C        BAL    15,   92(  0, 12)
C 0000615E    4811F000        LH      1,    0(  1, 15)
C 00006162    41200005        LA      2,    5(  0,  0)
C 00006166    1912            CR      1,  2
C 00006168    477A0438        BC      7, 1080( 10,  0)
C 0000616C    41100003        LA      1,    3(  0,  0)
C 00006170    5A108040        A       1,   64(  0,  8)
C 00006174    413092FC        LA      3,  764(  0,  9)
C 00006178    45F0C05C        BAL    15,   92(  0, 12)
C 0000617C    4811F000        LH      1,    0(  1, 15)
C 00006180    59108050        C       1,   80(  0,  8)
C 00006184    474A0444        BC      4, 1092( 10,  0)
C 00006188    922CB043        MVI     67( 11), 44
C 0000618C    5810D228        L       1,  552(  0, 13)
C 00006190    45F0D074        BAL    15,  116(  0, 13)


  1384                         QQ=CONSTPTR<<2

C 00006194    581090A0        L       1,  160(  0,  9)
C 00006198    89100002        SLL     1,    2(  0)
C 0000619C    5010806C        ST      1,  108(  0,  8)


  1385                         %CYCLE JJ=0,4,(ACC-1)&(-4)

C 000061A0    41408058        LA      4,   88(  0,  8)
C 000061A4    41200004        LA      2,    4(  0,  0)
C 000061A8    502080F8        ST      2,  248(  0,  8)
C 000061AC    58108050        L       1,   80(  0,  8)
C 000061B0    0610            BCTR    1,  0
C 000061B2    1851            LR      5,  1
C 000061B4    41100004        LA      1,    4(  0,  0)
C 000061B8    1311            LCR     1,  1
C 000061BA    1861            LR      6,  1
C 000061BC    1456            NR      5,  6
C 000061BE    1835            LR      3,  5
C 000061C0    903480FC        STM     3,  4,  252(  8)
C 000061C4    1F11            SLR     1,  1
C 000061C6    50104000        ST      1,    0(  0,  4)


  1386                         WSP1=A(P+JJ+3)<<8!A(P+JJ+4)&255;! COLLECT THE SYMBOLS FROM

C 000061CA    58108040        L       1,   64(  0,  8)
C 000061CE    5A108058        A       1,   88(  0,  8)
C 000061D2    41200003        LA      2,    3(  0,  0)
C 000061D6    1A12            AR      1,  2
C 000061D8    413092FC        LA      3,  764(  0,  9)
C 000061DC    45F0C05C        BAL    15,   92(  0, 12)
C 000061E0    4871F000        LH      7,    0(  1, 15)
C 000061E4    58108040        L       1,   64(  0,  8)
C 000061E8    5A108058        A       1,   88(  0,  8)
C 000061EC    41200004        LA      2,    4(  0,  0)
C 000061F0    1A12            AR      1,  2
C 000061F2    413092FC        LA      3,  764(  0,  9)
C 000061F6    45F0C05C        BAL    15,   92(  0, 12)
C 000061FA    4861F000        LH      6,    0(  1, 15)
C 000061FE    89700008        SLL     7,    8(  0)
C 00006202    411000FF        LA      1,  255(  0,  0)
C 00006206    1461            NR      6,  1
C 00006208    1676            OR      7,  6
C 0000620A    507080E0        ST      7,  224(  0,  8)


  1387                         WSP1=WSP1<<8!A(P+JJ+5)&255;   ! A.R AND ASSEMBLE INTO FOURS

C 0000620E    58108040        L       1,   64(  0,  8)
C 00006212    5A108058        A       1,   88(  0,  8)
C 00006216    41200005        LA      2,    5(  0,  0)
C 0000621A    1A12            AR      1,  2
C 0000621C    413092FC        LA      3,  764(  0,  9)
C 00006220    45F0C05C        BAL    15,   92(  0, 12)
C 00006224    4871F000        LH      7,    0(  1, 15)
C 00006228    581080E0        L       1,  224(  0,  8)
C 0000622C    89100008        SLL     1,    8(  0)
C 00006230    412000FF        LA      2,  255(  0,  0)
C 00006234    1472            NR      7,  2
C 00006236    1617            OR      1,  7
C 00006238    501080E0        ST      1,  224(  0,  8)


  1388                         WSP1=WSP1<<8!A(P+JJ+6)&255

C 0000623C    58108040        L       1,   64(  0,  8)
C 00006240    5A108058        A       1,   88(  0,  8)
C 00006244    41200006        LA      2,    6(  0,  0)
C 00006248    1A12            AR      1,  2
C 0000624A    413092FC        LA      3,  764(  0,  9)
C 0000624E    45F0C05C        BAL    15,   92(  0, 12)
C 00006252    4871F000        LH      7,    0(  1, 15)
C 00006256    581080E0        L       1,  224(  0,  8)
C 0000625A    89100008        SLL     1,    8(  0)
C 0000625E    412000FF        LA      2,  255(  0,  0)
C 00006262    1472            NR      7,  2
C 00006264    1617            OR      1,  7
C 00006266    501080E0        ST      1,  224(  0,  8)


  1389                         PSYM(WSP1);                   ! THEN ADD TO SYMBOL TABLES

C 0000626A    D203B04080E0    MVC     64(  4, 11),  224(  8)
C 00006270    5810D1FC        L       1,  508(  0, 13)
C 00006274    45F0D074        BAL    15,  116(  0, 13)


  1390                         %REPEAT

C 00006278    982480F8        LM      2,  4,  248(  8)
C 0000627C    58104000        L       1,    0(  0,  4)
C 00006280    8712A476        BXLE    1,  2, 1142( 10)


  1391                               PRX(X'58',2,0,GLA,8);   ! BASE OF ST TO REG2

C 00006284    41100058        LA      1,   88(  0,  0)
C 00006288    5010B040        ST      1,   64(  0, 11)
C 0000628C    41100002        LA      1,    2(  0,  0)
C 00006290    5010B044        ST      1,   68(  0, 11)
C 00006294    1F11            SLR     1,  1
C 00006296    5010B048        ST      1,   72(  0, 11)
C 0000629A    D203B04CD150    MVC     76(  4, 11),  336( 13)
C 000062A0    41100008        LA      1,    8(  0,  0)
C 000062A4    5010B050        ST      1,   80(  0, 11)
C 000062A8    5810D1C0        L       1,  448(  0, 13)
C 000062AC    45F0D074        BAL    15,  116(  0, 13)


  1392                               LOADAD(1,2,GLA,QQ);     ! ABSOLUTE ADDR OF STING

C 000062B0    41100001        LA      1,    1(  0,  0)
C 000062B4    5010B040        ST      1,   64(  0, 11)
C 000062B8    41100002        LA      1,    2(  0,  0)
C 000062BC    5010B044        ST      1,   68(  0, 11)
C 000062C0    D203B048D150    MVC     72(  4, 11),  336( 13)
C 000062C6    D203B04C806C    MVC     76(  4, 11),  108(  8)
C 000062CC    5810D398        L       1,  920(  0, 13)
C 000062D0    45F0D074        BAL    15,  116(  0, 13)


  1393                               PRX(X'50',1,0,RBASE,N); ! STUFF IT OFF

C 000062D4    41100050        LA      1,   80(  0,  0)
C 000062D8    5010B040        ST      1,   64(  0, 11)
C 000062DC    41100001        LA      1,    1(  0,  0)
C 000062E0    5010B044        ST      1,   68(  0, 11)
C 000062E4    1F11            SLR     1,  1
C 000062E6    5010B048        ST      1,   72(  0, 11)
C 000062EA    D203B04C90F4    MVC     76(  4, 11),  244(  9)
C 000062F0    D203B0509100    MVC     80(  4, 11),  256(  9)
C 000062F6    5810D1C0        L       1,  448(  0, 13)
C 000062FA    45F0D074        BAL    15,  116(  0, 13)


  1394                               PSI(X'92',ACC-1,RBASE,N);                               !

C 000062FE    41100092        LA      1,  146(  0,  0)
C 00006302    5010B040        ST      1,   64(  0, 11)
C 00006306    58108050        L       1,   80(  0,  8)
C 0000630A    0610            BCTR    1,  0
C 0000630C    5010B044        ST      1,   68(  0, 11)
C 00006310    D203B04890F4    MVC     72(  4, 11),  244(  9)
C 00006316    D203B04C9100    MVC     76(  4, 11),  256(  9)
C 0000631C    5810D1B8        L       1,  440(  0, 13)
C 00006320    45F0D074        BAL    15,  116(  0, 13)


  1395                         K=A(PP); TESTNST

C 00006324    581080EC        L       1,  236(  0,  8)
C 00006328    413092FC        LA      3,  764(  0,  9)
C 0000632C    45F0C05C        BAL    15,   92(  0, 12)
C 00006330    4811F000        LH      1,    0(  1, 15)
C 00006334    501080A4        ST      1,  164(  0,  8)



C 00006338    5810D43C        L       1, 1084(  0, 13)
C 0000633C    45F0D074        BAL    15,  116(  0, 13)


  1396                         J=0;STORE TAG(K,N)

C 00006340    1F11            SLR     1,  1
C 00006342    501080A0        ST      1,  160(  0,  8)



C 00006346    D203B04080A4    MVC     64(  4, 11),  164(  8)
C 0000634C    D203B0449100    MVC     68(  4, 11),  256(  9)
C 00006352    5810D434        L       1, 1076(  0, 13)
C 00006356    45F0D074        BAL    15,  116(  0, 13)


  1397                         N=N+4; ->99

C 0000635A    41100004        LA      1,    4(  0,  0)
C 0000635E    5A109100        A       1,  256(  0,  9)
C 00006362    50109100        ST      1,  256(  0,  9)



C 00006366    47FA0000        BC     15,    0( 10,  0)


  1398                NONSCALAR:CBPAIR(KK,KKK)

C 0000636A    41108060        LA      1,   96(  0,  8)
C 0000636E    5010B040        ST      1,   64(  0, 11)
C 00006372    41108064        LA      1,  100(  0,  8)
C 00006376    5010B044        ST      1,   68(  0, 11)
C 0000637A    5810D35C        L       1,  860(  0, 13)
C 0000637E    45F0D074        BAL    15,  116(  0, 13)


  1399                         %IF TYPE=5 %THEN BP=ACC %ELSE BP=BYTES(PREC)

C 00006382    95058094        CLI    148(  8),  5
C 00006386    477A0644        BC      7, 1604( 10,  0)
C 0000638A    D20380E88050    MVC    232(  4,  8),   80(  8)
C 00006390    47FA065E        BC     15, 1630( 10,  0)
C 00006394    1F11            SLR     1,  1
C 00006396    43108093        IC      1,  147(  0,  8)
C 0000639A    4130D108        LA      3,  264(  0, 13)
C 0000639E    45F0C05C        BAL    15,   92(  0, 12)
C 000063A2    4311F000        IC      1,    0(  1, 15)
C 000063A6    5410D018        N       1,   24(  0, 13)
C 000063AA    501080E8        ST      1,  232(  0,  8)


  1400                         LENGTH=KKK-KK+1

C 000063AE    58108064        L       1,  100(  0,  8)
C 000063B2    5B108060        S       1,   96(  0,  8)
C 000063B6    41200001        LA      2,    1(  0,  0)
C 000063BA    1A12            AR      1,  2
C 000063BC    501080E4        ST      1,  228(  0,  8)


  1401                         %IF A(P+1)=0 %THEN ->3;       ! NO CONSTLIST

C 000063C0    41100001        LA      1,    1(  0,  0)
C 000063C4    5A108040        A       1,   64(  0,  8)
C 000063C8    413092FC        LA      3,  764(  0,  9)
C 000063CC    45F0C05C        BAL    15,   92(  0, 12)
C 000063D0    4811F000        LH      1,    0(  1, 15)
C 000063D4    1211            LTR     1,  1
C 000063D6    478A0000        BC      8,    0( 10,  0)


  1402                1:       FAULT(45) %UNLESS KKK>=KK %AND LENGTH=A(P+1)

C 000063DA    58108060        L       1,   96(  0,  8)
C 000063DE    59108064        C       1,  100(  0,  8)
C 000063E2    473A06B2        BC      3, 1714( 10,  0)
C 000063E6    41100001        LA      1,    1(  0,  0)
C 000063EA    5A108040        A       1,   64(  0,  8)
C 000063EE    413092FC        LA      3,  764(  0,  9)
C 000063F2    45F0C05C        BAL    15,   92(  0, 12)
C 000063F6    4811F000        LH      1,    0(  1, 15)
C 000063FA    591080E4        C       1,  228(  0,  8)
C 000063FE    478A06BE        BC      8, 1726( 10,  0)
C 00006402    922DB043        MVI     67( 11), 45
C 00006406    5810D228        L       1,  552(  0, 13)
C 0000640A    45F0D074        BAL    15,  116(  0, 13)


  1403                         QQ=CONSTPTR<<2

C 0000640E    581090A0        L       1,  160(  0,  9)
C 00006412    89100002        SLL     1,    2(  0)
C 00006416    5010806C        ST      1,  108(  0,  8)


  1404                         JJ=A(P+2)<<2

C 0000641A    41100002        LA      1,    2(  0,  0)
C 0000641E    5A108040        A       1,   64(  0,  8)
C 00006422    413092FC        LA      3,  764(  0,  9)
C 00006426    45F0C05C        BAL    15,   92(  0, 12)
C 0000642A    4871F000        LH      7,    0(  1, 15)
C 0000642E    89700002        SLL     7,    2(  0)
C 00006432    50708058        ST      7,   88(  0,  8)


  1405                         %COMMENT OUTPUT AN ARRAYHEAD RELATIVE TO QQ
  1406                         ST(N0)=JJ-KK*BP

C 00006436    58108060        L       1,   96(  0,  8)
C 0000643A    5C0080E8        M       0,  232(  0,  8)
C 0000643E    58408058        L       4,   88(  0,  8)
C 00006442    1B41            SR      4,  1
C 00006444    58109088        L       1,  136(  0,  9)
C 00006448    4130915C        LA      3,  348(  0,  9)
C 0000644C    45F0C05C        BAL    15,   92(  0, 12)
C 00006450    5041F000        ST      4,    0(  1, 15)


  1407                         ST(N0+1)=JJ

C 00006454    58408058        L       4,   88(  0,  8)
C 00006458    41100001        LA      1,    1(  0,  0)
C 0000645C    5A109088        A       1,  136(  0,  9)
C 00006460    4130915C        LA      3,  348(  0,  9)
C 00006464    45F0C05C        BAL    15,   92(  0, 12)
C 00006468    5041F000        ST      4,    0(  1, 15)


  1408                         ST(N0+2)=QQ

C 0000646C    5840806C        L       4,  108(  0,  8)
C 00006470    41100002        LA      1,    2(  0,  0)
C 00006474    5A109088        A       1,  136(  0,  9)
C 00006478    4130915C        LA      3,  348(  0,  9)
C 0000647C    45F0C05C        BAL    15,   92(  0, 12)
C 00006480    5041F000        ST      4,    0(  1, 15)


  1409                         ST(N0+3)=OWNLINK

C 00006484    5840909C        L       4,  156(  0,  9)
C 00006488    41100003        LA      1,    3(  0,  0)
C 0000648C    5A109088        A       1,  136(  0,  9)
C 00006490    4130915C        LA      3,  348(  0,  9)
C 00006494    45F0C05C        BAL    15,   92(  0, 12)
C 00006498    5041F000        ST      4,    0(  1, 15)


  1410                         %COMMENT NOW OUTPUT DOPE VECTOR
  1411                         PSYM(1<<16!BP)

C 0000649C    41100001        LA      1,    1(  0,  0)
C 000064A0    89100010        SLL     1,   16(  0)
C 000064A4    561080E8        O       1,  232(  0,  8)
C 000064A8    5010B040        ST      1,   64(  0, 11)
C 000064AC    5810D1FC        L       1,  508(  0, 13)
C 000064B0    45F0D074        BAL    15,  116(  0, 13)


  1412                         PSYM(KK)

C 000064B4    D203B0408060    MVC     64(  4, 11),   96(  8)
C 000064BA    5810D1FC        L       1,  508(  0, 13)
C 000064BE    45F0D074        BAL    15,  116(  0, 13)


  1413                         PSYM(KKK)

C 000064C2    D203B0408064    MVC     64(  4, 11),  100(  8)
C 000064C8    5810D1FC        L       1,  508(  0, 13)
C 000064CC    45F0D074        BAL    15,  116(  0, 13)


  1414                         %COMMENT NOW PLANT CODE
  1415                         K=A(PP); J=1; TEST NST

C 000064D0    581080EC        L       1,  236(  0,  8)
C 000064D4    413092FC        LA      3,  764(  0,  9)
C 000064D8    45F0C05C        BAL    15,   92(  0, 12)
C 000064DC    4811F000        LH      1,    0(  1, 15)
C 000064E0    501080A4        ST      1,  164(  0,  8)



C 000064E4    41100001        LA      1,    1(  0,  0)
C 000064E8    501080A0        ST      1,  160(  0,  8)



C 000064EC    5810D43C        L       1, 1084(  0, 13)
C 000064F0    45F0D074        BAL    15,  116(  0, 13)


  1416                         OWNLINK=N0<<2

C 000064F4    58109088        L       1,  136(  0,  9)
C 000064F8    89100002        SLL     1,    2(  0)
C 000064FC    5010909C        ST      1,  156(  0,  9)


  1417                         RBASE=GLA; STORETAG(K,OWNLINK)

C 00006500    D20390F4D150    MVC    244(  4,  9),  336( 13)



C 00006506    D203B04080A4    MVC     64(  4, 11),  164(  8)
C 0000650C    D203B044909C    MVC     68(  4, 11),  156(  9)
C 00006512    5810D434        L       1, 1076(  0, 13)
C 00006516    45F0D074        BAL    15,  116(  0, 13)


  1418                         RBASE=10-RLEVEL; N0=N0+4; ->99

C 0000651A    4110000A        LA      1,   10(  0,  0)
C 0000651E    5B109094        S       1,  148(  0,  9)
C 00006522    501090F4        ST      1,  244(  0,  9)



C 00006526    41100004        LA      1,    4(  0,  0)
C 0000652A    5A109088        A       1,  136(  0,  9)
C 0000652E    50109088        ST      1,  136(  0,  9)



C 00006532    47FA0000        BC     15,    0( 10,  0)


  1419                3:       A(P+2)=CONSTPTR

C 00006536    584090A0        L       4,  160(  0,  9)
C 0000653A    41100002        LA      1,    2(  0,  0)
C 0000653E    5A108040        A       1,   64(  0,  8)
C 00006542    413092FC        LA      3,  764(  0,  9)
C 00006546    45F0C05C        BAL    15,   92(  0, 12)
C 0000654A    4041F000        STH     4,    0(  1, 15)
C 0000654E    494F1000        CH      4,    0( 15,  1)
C 00006552    477C0058        BC      7,   88( 12,  0)


  1420                         A(P+1)=LENGTH; ->1 %IF LENGTH<1

C 00006556    584080E4        L       4,  228(  0,  8)
C 0000655A    41100001        LA      1,    1(  0,  0)
C 0000655E    5A108040        A       1,   64(  0,  8)
C 00006562    413092FC        LA      3,  764(  0,  9)
C 00006566    45F0C05C        BAL    15,   92(  0, 12)
C 0000656A    4041F000        STH     4,    0(  1, 15)
C 0000656E    494F1000        CH      4,    0( 15,  1)
C 00006572    477C0058        BC      7,   88( 12,  0)



C 00006576    41100001        LA      1,    1(  0,  0)
C 0000657A    591080E4        C       1,  228(  0,  8)
C 0000657E    4720A68A        BC      2, 1674(  0, 10)


  1421                         %CYCLE JJ=1,1,(LENGTH*BP+3)//4

C 00006582    41408058        LA      4,   88(  0,  8)
C 00006586    41200001        LA      2,    1(  0,  0)
C 0000658A    50208104        ST      2,  260(  0,  8)
C 0000658E    581080E4        L       1,  228(  0,  8)
C 00006592    5C0080E8        M       0,  232(  0,  8)
C 00006596    41200003        LA      2,    3(  0,  0)
C 0000659A    1A12            AR      1,  2
C 0000659C    1851            LR      5,  1
C 0000659E    1805            LR      0,  5
C 000065A0    8E000020        SRDA    0,   32(  0)
C 000065A4    41300004        LA      3,    4(  0,  0)
C 000065A8    1D03            DR      0,  3
C 000065AA    1831            LR      3,  1
C 000065AC    90348108        STM     3,  4,  264(  8)
C 000065B0    41100001        LA      1,    1(  0,  0)
C 000065B4    50104000        ST      1,    0(  0,  4)


  1422                         PSYM(0); %REPEAT; ->1

C 000065B8    1F11            SLR     1,  1
C 000065BA    5010B040        ST      1,   64(  0, 11)
C 000065BE    5810D1FC        L       1,  508(  0, 13)
C 000065C2    45F0D074        BAL    15,  116(  0, 13)



C 000065C6    98248104        LM      2,  4,  260(  8)
C 000065CA    58104000        L       1,    0(  0,  4)
C 000065CE    8712A864        BXLE    1,  2, 2148( 10)



C 000065D2    47F0A68A        BC     15, 1674(  0, 10)


  1423                99:      %END; ->1
D 000005CC    C2 C2 C2 C2 05 49 08 00 00 00 03 BF 41 80 F4 03 56 41 52 00 01 80 F0 04 53 49 47 4E 01 80 EC 02 50 50 A6 E0 01 80 E8 02 42 50 00 02 01 80 E4 06 4C 45 4E 47 54 48 87 8C 01 80 E0 04 57 53 50 31 FF FF FF FF


C 000065D6    98AB80D4        LM     10, 11,  212(  8)
C 000065DA    D203D01480DC    MVC     20(  4, 13),  220(  8)



C 000065E0    47F0ACD0        BC     15, 3280(  0, 10)


  1424            SW(19):                                ! %CLAIM/RELEASE ETC
  1425                     COPY TAG(A(P+3))

C 000065E4    41100003        LA      1,    3(  0,  0)
C 000065E8    5A108040        A       1,   64(  0,  8)
C 000065EC    413092FC        LA      3,  764(  0,  9)
C 000065F0    45F0C05C        BAL    15,   92(  0, 12)
C 000065F4    4811F000        LH      1,    0(  1, 15)
C 000065F8    5010B040        ST      1,   64(  0, 11)
C 000065FC    5810D408        L       1, 1032(  0, 13)
C 00006600    45F0D074        BAL    15,  116(  0, 13)


  1426                     ->1910 %IF A(P+2)=1;          ! '%ARRAY'

C 00006604    41100002        LA      1,    2(  0,  0)
C 00006608    5A108040        A       1,   64(  0,  8)
C 0000660C    413092FC        LA      3,  764(  0,  9)
C 00006610    45F0C05C        BAL    15,   92(  0, 12)
C 00006614    4811F000        LH      1,    0(  1, 15)
C 00006618    41200001        LA      2,    1(  0,  0)
C 0000661C    1912            CR      1,  2
C 0000661E    0000
C 00006620    0000
C 00006622    478A0000        BC      8,    0( 10,  0)


  1427                     ->1999 %UNLESS ARR=0 %AND TYPE=3

C 00006626    95008092        CLI    146(  8),  0
C 0000662A    0000
C 0000662C    0000
C 0000662E    477A0000        BC      7,    0( 10,  0)
C 00006632    95038094        CLI    148(  8),  3
C 00006636    0000
C 00006638    0000
C 0000663A    477A0000        BC      7,    0( 10,  0)


  1428                     FROM2(K,K); ->1920

C 0000663E    D203B04080A4    MVC     64(  4, 11),  164(  8)
C 00006644    411080A4        LA      1,  164(  0,  8)
C 00006648    5010B044        ST      1,   68(  0, 11)
C 0000664C    5810D3F8        L       1, 1016(  0, 13)
C 00006650    45F0D074        BAL    15,  116(  0, 13)



C 00006654    0000
C 00006656    0000
C 00006658    47FA0000        BC     15,    0( 10,  0)


  1429            1910:    ->1999 %UNLESS ARR=1 %AND TYPE<=3 %AND J<=2

C 0000665C    95018092        CLI    146(  8),  1
C 00006660    0000
C 00006662    0000
C 00006664    477A0000        BC      7,    0( 10,  0)
C 00006668    95038094        CLI    148(  8),  3
C 0000666C    0000
C 0000666E    0000
C 00006670    473A0000        BC      3,    0( 10,  0)
C 00006674    41100002        LA      1,    2(  0,  0)
C 00006678    591080A0        C       1,  160(  0,  8)
C 0000667C    0000
C 0000667E    0000
C 00006680    475A0000        BC      5,    0( 10,  0)


  1430            1920:    ->1930 %IF A(P+1)=2;          ! %RELEASE

C 00006684    41100001        LA      1,    1(  0,  0)
C 00006688    5A108040        A       1,   64(  0,  8)
C 0000668C    413092FC        LA      3,  764(  0,  9)
C 00006690    45F0C05C        BAL    15,   92(  0, 12)
C 00006694    4811F000        LH      1,    0(  1, 15)
C 00006698    41200002        LA      2,    2(  0,  0)
C 0000669C    1912            CR      1,  2
C 0000669E    0000
C 000066A0    0000
C 000066A2    478A0000        BC      8,    0( 10,  0)


  1431                     KK=CLAIMABLE REG; ->1999 %IF KK=0

C 000066A6    5810D41C        L       1, 1052(  0, 13)
C 000066AA    45F0D074        BAL    15,  116(  0, 13)
C 000066AE    50108060        ST      1,   96(  0,  8)



C 000066B2    58108060        L       1,   96(  0,  8)
C 000066B6    1211            LTR     1,  1
C 000066B8    0000
C 000066BA    0000
C 000066BC    478A0000        BC      8,    0( 10,  0)


  1432                     REGISTER(KK)=A(P+3)+1

C 000066C0    41100003        LA      1,    3(  0,  0)
C 000066C4    5A108040        A       1,   64(  0,  8)
C 000066C8    413092FC        LA      3,  764(  0,  9)
C 000066CC    45F0C05C        BAL    15,   92(  0, 12)
C 000066D0    4871F000        LH      7,    0(  1, 15)
C 000066D4    41400001        LA      4,    1(  0,  0)
C 000066D8    1A74            AR      7,  4
C 000066DA    1847            LR      4,  7
C 000066DC    58108060        L       1,   96(  0,  8)
C 000066E0    4130914C        LA      3,  332(  0,  9)
C 000066E4    45F0C05C        BAL    15,   92(  0, 12)
C 000066E8    5041F000        ST      4,    0(  1, 15)


  1433                     PRX(X'58',KK,0,I,K);          ! LOAD THE REGISTER

C 000066EC    41100058        LA      1,   88(  0,  0)
C 000066F0    5010B040        ST      1,   64(  0, 11)
C 000066F4    D203B0448060    MVC     68(  4, 11),   96(  8)
C 000066FA    1F11            SLR     1,  1
C 000066FC    5010B048        ST      1,   72(  0, 11)
C 00006700    D203B04C809C    MVC     76(  4, 11),  156(  8)
C 00006706    D203B05080A4    MVC     80(  4, 11),  164(  8)
C 0000670C    5810D1C0        L       1,  448(  0, 13)
C 00006710    45F0D074        BAL    15,  116(  0, 13)


  1434                     JJ=TAGS(A(P+3))

C 00006714    41100003        LA      1,    3(  0,  0)
C 00006718    5A108040        A       1,   64(  0,  8)
C 0000671C    413092FC        LA      3,  764(  0,  9)
C 00006720    45F0C05C        BAL    15,   92(  0, 12)
C 00006724    4811F000        LH      1,    0(  1, 15)
C 00006728    4130931C        LA      3,  796(  0,  9)
C 0000672C    45F0C05C        BAL    15,   92(  0, 12)
C 00006730    4811F000        LH      1,    0(  1, 15)
C 00006734    50108058        ST      1,   88(  0,  8)


  1435                     FROM1(JJ,JJJ)

C 00006738    D203B0408058    MVC     64(  4, 11),   88(  8)
C 0000673E    4110805C        LA      1,   92(  0,  8)
C 00006742    5010B044        ST      1,   68(  0, 11)
C 00006746    5810D3FC        L       1, 1020(  0, 13)
C 0000674A    45F0D074        BAL    15,  116(  0, 13)


  1436                     JJJ=JJJ!KK<<12

C 0000674E    58108060        L       1,   96(  0,  8)
C 00006752    8910000C        SLL     1,   12(  0)
C 00006756    5610805C        O       1,   92(  0,  8)
C 0000675A    5010805C        ST      1,   92(  0,  8)


  1437            1925:    REPLACE1(JJ,JJJ); ->1

C 0000675E    D203B0408058    MVC     64(  4, 11),   88(  8)
C 00006764    D203B044805C    MVC     68(  4, 11),   92(  8)
C 0000676A    5810D3F0        L       1, 1008(  0, 13)
C 0000676E    45F0D074        BAL    15,  116(  0, 13)



C 00006772    47F0ACD0        BC     15, 3280(  0, 10)


  1438            1930:    ->1999 %UNLESS INREG#0 %AND REGISTER(INREG)=A(P+3)+1

C 00006776    581080AC        L       1,  172(  0,  8)
C 0000677A    1211            LTR     1,  1
C 0000677C    0000
C 0000677E    0000
C 00006780    478A0000        BC      8,    0( 10,  0)
C 00006784    581080AC        L       1,  172(  0,  8)
C 00006788    4130914C        LA      3,  332(  0,  9)
C 0000678C    45F0C05C        BAL    15,   92(  0, 12)
C 00006790    5811F000        L       1,    0(  1, 15)
C 00006794    1851            LR      5,  1
C 00006796    41100003        LA      1,    3(  0,  0)
C 0000679A    5A108040        A       1,   64(  0,  8)
C 0000679E    413092FC        LA      3,  764(  0,  9)
C 000067A2    45F0C05C        BAL    15,   92(  0, 12)
C 000067A6    4871F000        LH      7,    0(  1, 15)
C 000067AA    41100001        LA      1,    1(  0,  0)
C 000067AE    1A71            AR      7,  1
C 000067B0    1975            CR      7,  5
C 000067B2    0000
C 000067B4    0000
C 000067B6    477A0000        BC      7,    0( 10,  0)


  1439                     REGISTER(INREG)=0; JJ=TAGS(A(P+3))

C 000067BA    1F44            SLR     4,  4
C 000067BC    581080AC        L       1,  172(  0,  8)
C 000067C0    4130914C        LA      3,  332(  0,  9)
C 000067C4    45F0C05C        BAL    15,   92(  0, 12)
C 000067C8    5041F000        ST      4,    0(  1, 15)



C 000067CC    41100003        LA      1,    3(  0,  0)
C 000067D0    5A108040        A       1,   64(  0,  8)
C 000067D4    413092FC        LA      3,  764(  0,  9)
C 000067D8    45F0C05C        BAL    15,   92(  0, 12)
C 000067DC    4811F000        LH      1,    0(  1, 15)
C 000067E0    4130931C        LA      3,  796(  0,  9)
C 000067E4    45F0C05C        BAL    15,   92(  0, 12)
C 000067E8    4811F000        LH      1,    0(  1, 15)
C 000067EC    50108058        ST      1,   88(  0,  8)


  1440                     FROM1(JJ,JJJ)

C 000067F0    D203B0408058    MVC     64(  4, 11),   88(  8)
C 000067F6    4110805C        LA      1,   92(  0,  8)
C 000067FA    5010B044        ST      1,   68(  0, 11)
C 000067FE    5810D3FC        L       1, 1020(  0, 13)
C 00006802    45F0D074        BAL    15,  116(  0, 13)


  1441                     JJJ=JJJ&X'FFFF0FFF'; ->1925

C 00006806    5810805C        L       1,   92(  0,  8)
C 0000680A    5410D4A0        N       1, 1184(  0, 13)
C 0000680E    5010805C        ST      1,   92(  0,  8)



C 00006812    58E0D2C8        L      14,  712(  0, 13)
C 00006816    47FEAA50        BC     15, 2640( 14, 10)


  1442            1999:    FAULT(58); ->1

C 0000681A    923AB043        MVI     67( 11), 58
C 0000681E    5810D228        L       1,  552(  0, 13)
C 00006822    45F0D074        BAL    15,  116(  0, 13)



C 00006826    47F0ACD0        BC     15, 3280(  0, 10)


  1443            SW(26):  COMPILER=1; UNASS=0; ->1

C 0000682A    920190DA        MVI    218(  9),  1



C 0000682E    920090DC        MVI    220(  9),  0



C 00006832    47F0ACD0        BC     15, 3280(  0, 10)


  1444            SW(27):                                ! '%SPEC' FPP
  1445                     P=P+1; ->2701 %IF A(P+1)=1

C 00006836    41100001        LA      1,    1(  0,  0)
C 0000683A    5A108040        A       1,   64(  0,  8)
C 0000683E    50108040        ST      1,   64(  0,  8)



C 00006842    41100001        LA      1,    1(  0,  0)
C 00006846    5A108040        A       1,   64(  0,  8)
C 0000684A    413092FC        LA      3,  764(  0,  9)
C 0000684E    45F0C05C        BAL    15,   92(  0, 12)
C 00006852    4811F000        LH      1,    0(  1, 15)
C 00006856    41200001        LA      2,    1(  0,  0)
C 0000685A    1912            CR      1,  2
C 0000685C    0000
C 0000685E    0000
C 00006860    478A0000        BC      8,    0( 10,  0)


  1446                     CRSPEC(2); ->1

C 00006864    9202B043        MVI     67( 11),  2
C 00006868    5810D454        L       1, 1108(  0, 13)
C 0000686C    45F0D074        BAL    15,  116(  0, 13)



C 00006870    47F0ACD0        BC     15, 3280(  0, 10)


  1447            2701:    COPY TAG(A(P))

C 00006874    58108040        L       1,   64(  0,  8)
C 00006878    413092FC        LA      3,  764(  0,  9)
C 0000687C    45F0C05C        BAL    15,   92(  0, 12)
C 00006880    4811F000        LH      1,    0(  1, 15)
C 00006884    5010B040        ST      1,   64(  0, 11)
C 00006888    5810D408        L       1, 1032(  0, 13)
C 0000688C    45F0D074        BAL    15,  116(  0, 13)


  1448                     ->3901 %UNLESS PTYPE=4 %AND A(P+4)=2=A(P+3)

C 00006890    41100004        LA      1,    4(  0,  0)
C 00006894    59108098        C       1,  152(  0,  8)
C 00006898    0000
C 0000689A    0000
C 0000689C    477A0000        BC      7,    0( 10,  0)
C 000068A0    41100004        LA      1,    4(  0,  0)
C 000068A4    5A108040        A       1,   64(  0,  8)
C 000068A8    413092FC        LA      3,  764(  0,  9)
C 000068AC    45F0C05C        BAL    15,   92(  0, 12)
C 000068B0    4811F000        LH      1,    0(  1, 15)
C 000068B4    1851            LR      5,  1
C 000068B6    41100002        LA      1,    2(  0,  0)
C 000068BA    1915            CR      1,  5
C 000068BC    0000
C 000068BE    0000
C 000068C0    477A0000        BC      7,    0( 10,  0)
C 000068C4    1851            LR      5,  1
C 000068C6    41100003        LA      1,    3(  0,  0)
C 000068CA    5A108040        A       1,   64(  0,  8)
C 000068CE    413092FC        LA      3,  764(  0,  9)
C 000068D2    45F0C05C        BAL    15,   92(  0, 12)
C 000068D6    4811F000        LH      1,    0(  1, 15)
C 000068DA    1915            CR      1,  5
C 000068DC    0000
C 000068DE    0000
C 000068E0    477A0000        BC      7,    0( 10,  0)


  1449                     P=P+2; K=DISPLACEMENT(TAGS(A(P-2)))

C 000068E4    41100002        LA      1,    2(  0,  0)
C 000068E8    5A108040        A       1,   64(  0,  8)
C 000068EC    50108040        ST      1,   64(  0,  8)



C 000068F0    58108040        L       1,   64(  0,  8)
C 000068F4    0610            BCTR    1,  0
C 000068F6    0610            BCTR    1,  0
C 000068F8    413092FC        LA      3,  764(  0,  9)
C 000068FC    45F0C05C        BAL    15,   92(  0, 12)
C 00006900    4811F000        LH      1,    0(  1, 15)
C 00006904    4130931C        LA      3,  796(  0,  9)
C 00006908    45F0C05C        BAL    15,   92(  0, 12)
C 0000690C    4811F000        LH      1,    0(  1, 15)
C 00006910    5010B040        ST      1,   64(  0, 11)
C 00006914    5810D394        L       1,  916(  0, 13)
C 00006918    45F0D074        BAL    15,  116(  0, 13)
C 0000691C    501080A4        ST      1,  164(  0,  8)


  1450                     ->1 %IF K=-1; OPHEAD=K;

C 00006920    5810D010        L       1,   16(  0, 13)
C 00006924    591080A4        C       1,  164(  0,  8)
C 00006928    4780ACD0        BC      8, 3280(  0, 10)



C 0000692C    581080A4        L       1,  164(  0,  8)
C 00006930    40108054        STH     1,   84(  0,  8)
C 00006934    49180054        CH      1,   84(  8,  0)
C 00006938    477C0058        BC      7,   88( 12,  0)


  1451                     P=P+2; CRSPEC(3); ->1

C 0000693C    41100002        LA      1,    2(  0,  0)
C 00006940    5A108040        A       1,   64(  0,  8)
C 00006944    50108040        ST      1,   64(  0,  8)



C 00006948    9203B043        MVI     67( 11),  3
C 0000694C    5810D454        L       1, 1108(  0, 13)
C 00006950    45F0D074        BAL    15,  116(  0, 13)



C 00006954    47F0ACD0        BC     15, 3280(  0, 10)


  1452            SW(20):  MCSWITCH=1; PERM=1; ->1;       ! %MCODE

C 00006958    920190D1        MVI    209(  9),  1



C 0000695C    920190D0        MVI    208(  9),  1



C 00006960    47F0ACD0        BC     15, 3280(  0, 10)


  1453            SW(21):  SBFLAG=1; ->1

C 00006964    920190CB        MVI    203(  9),  1



C 00006968    47F0ACD0        BC     15, 3280(  0, 10)


  1454            SW(22):  P=2; CUCI; ->1;                ! *UCI(S)

C 0000696C    41100002        LA      1,    2(  0,  0)
C 00006970    50108040        ST      1,   64(  0,  8)



C 00006974    5810D440        L       1, 1088(  0, 13)
C 00006978    45F0D074        BAL    15,  116(  0, 13)



C 0000697C    47F0ACD0        BC     15, 3280(  0, 10)


  1455            SW(23):                                ! %FAULT FAULTLIST
  1456                     FAULT(26) %UNLESS LEVEL=2 %AND CPRMODE#2

C 00006980    41100002        LA      1,    2(  0,  0)
C 00006984    591090A8        C       1,  168(  0,  9)
C 00006988    0570            BALR    7,  0
C 0000698A    4777000C        BC      7,   12(  7,  0)
C 0000698E    950290DB        CLI    219(  9),  2
C 00006992    47770018        BC      7,   24(  7,  0)
C 00006996    921AB043        MVI     67( 11), 26
C 0000699A    5810D228        L       1,  552(  0, 13)
C 0000699E    45F0D074        BAL    15,  116(  0, 13)


  1457                     P=P+1; Q=P+1

C 000069A2    41100001        LA      1,    1(  0,  0)
C 000069A6    5A108040        A       1,   64(  0,  8)
C 000069AA    50108040        ST      1,   64(  0,  8)



C 000069AE    41100001        LA      1,    1(  0,  0)
C 000069B2    5A108040        A       1,   64(  0,  8)
C 000069B6    50108068        ST      1,  104(  0,  8)


  1458            2302:    %IF A(Q)=2 %THEN ->2303

C 000069BA    58108068        L       1,  104(  0,  8)
C 000069BE    413092FC        LA      3,  764(  0,  9)
C 000069C2    45F0C05C        BAL    15,   92(  0, 12)
C 000069C6    4811F000        LH      1,    0(  1, 15)
C 000069CA    41200002        LA      2,    2(  0,  0)
C 000069CE    1912            CR      1,  2
C 000069D0    0000
C 000069D2    0000
C 000069D4    478A0000        BC      8,    0( 10,  0)


  1459                     Q=Q+2; ->2302

C 000069D8    41100002        LA      1,    2(  0,  0)
C 000069DC    5A108068        A       1,  104(  0,  8)
C 000069E0    50108068        ST      1,  104(  0,  8)



C 000069E4    58E0D2C8        L      14,  712(  0, 13)
C 000069E8    47FEACAC        BC     15, 3244( 14, 10)


  1460            2303:    K=A(Q+2)+(A(Q+1)-1)<<14

C 000069EC    41100002        LA      1,    2(  0,  0)
C 000069F0    5A108068        A       1,  104(  0,  8)
C 000069F4    413092FC        LA      3,  764(  0,  9)
C 000069F8    45F0C05C        BAL    15,   92(  0, 12)
C 000069FC    4871F000        LH      7,    0(  1, 15)
C 00006A00    41100001        LA      1,    1(  0,  0)
C 00006A04    5A108068        A       1,  104(  0,  8)
C 00006A08    413092FC        LA      3,  764(  0,  9)
C 00006A0C    45F0C05C        BAL    15,   92(  0, 12)
C 00006A10    4861F000        LH      6,    0(  1, 15)
C 00006A14    0660            BCTR    6,  0
C 00006A16    1856            LR      5,  6
C 00006A18    8950000E        SLL     5,   14(  0)
C 00006A1C    1A75            AR      7,  5
C 00006A1E    507080A4        ST      7,  164(  0,  8)


  1461                     KKK=A(P);PCONST(X'41100000'!KKK)

C 00006A22    58108040        L       1,   64(  0,  8)
C 00006A26    413092FC        LA      3,  764(  0,  9)
C 00006A2A    45F0C05C        BAL    15,   92(  0, 12)
C 00006A2E    4811F000        LH      1,    0(  1, 15)
C 00006A32    50108064        ST      1,  100(  0,  8)



C 00006A36    5810D4A4        L       1, 1188(  0, 13)
C 00006A3A    56108064        O       1,  100(  0,  8)
C 00006A3E    5010B040        ST      1,   64(  0, 11)
C 00006A42    5810D1B4        L       1,  436(  0, 13)
C 00006A46    45F0D074        BAL    15,  116(  0, 13)


  1462                     FAULT(36) %IF KKK>32 %OR KKK=0 %OR KKK=29 %OR 12<=KKK<=13

C 00006A4A    41100020        LA      1,   32(  0,  0)
C 00006A4E    59108064        C       1,  100(  0,  8)
C 00006A52    0570            BALR    7,  0
C 00006A54    47470032        BC      4,   50(  7,  0)
C 00006A58    58108064        L       1,  100(  0,  8)
C 00006A5C    1211            LTR     1,  1
C 00006A5E    47870032        BC      8,   50(  7,  0)
C 00006A62    4110001D        LA      1,   29(  0,  0)
C 00006A66    59108064        C       1,  100(  0,  8)
C 00006A6A    47870032        BC      8,   50(  7,  0)
C 00006A6E    58108064        L       1,  100(  0,  8)
C 00006A72    4120000C        LA      2,   12(  0,  0)
C 00006A76    1921            CR      2,  1
C 00006A78    4737003E        BC      3,   62(  7,  0)
C 00006A7C    4120000D        LA      2,   13(  0,  0)
C 00006A80    1912            CR      1,  2
C 00006A82    4737003E        BC      3,   62(  7,  0)
C 00006A86    9224B043        MVI     67( 11), 36
C 00006A8A    5810D228        L       1,  552(  0, 13)
C 00006A8E    45F0D074        BAL    15,  116(  0, 13)


  1463                     PPJ(20); QQ=CA

C 00006A92    9214B043        MVI     67( 11), 20
C 00006A96    5810D46C        L       1, 1132(  0, 13)
C 00006A9A    45F0D074        BAL    15,  116(  0, 13)



C 00006A9E    D203806C90AC    MVC    108(  4,  8),  172(  9)


  1464                     PJ(15,K);                     ! JUMP TO LABEL

C 00006AA4    4110000F        LA      1,   15(  0,  0)
C 00006AA8    5010B040        ST      1,   64(  0, 11)
C 00006AAC    D203B04480A4    MVC     68(  4, 11),  164(  8)
C 00006AB2    5810D464        L       1, 1124(  0, 13)
C 00006AB6    45F0D074        BAL    15,  116(  0, 13)


  1465                     PCONST(X'07000700') %UNLESS CA=QQ+8;! JUMP MUST BE 8 BYTES

C 00006ABA    41100008        LA      1,    8(  0,  0)
C 00006ABE    5A10806C        A       1,  108(  0,  8)
C 00006AC2    591090AC        C       1,  172(  0,  9)
C 00006AC6    0570            BALR    7,  0
C 00006AC8    47870014        BC      8,   20(  7,  0)
C 00006ACC    5810D4A8        L       1, 1192(  0, 13)
C 00006AD0    5010B040        ST      1,   64(  0, 11)
C 00006AD4    5810D1B4        L       1,  436(  0, 13)
C 00006AD8    45F0D074        BAL    15,  116(  0, 13)


  1466                     P=P+2; ->2303 %IF A(P-1)=1

C 00006ADC    41100002        LA      1,    2(  0,  0)
C 00006AE0    5A108040        A       1,   64(  0,  8)
C 00006AE4    50108040        ST      1,   64(  0,  8)



C 00006AE8    58108040        L       1,   64(  0,  8)
C 00006AEC    0610            BCTR    1,  0
C 00006AEE    413092FC        LA      3,  764(  0,  9)
C 00006AF2    45F0C05C        BAL    15,   92(  0, 12)
C 00006AF6    4811F000        LH      1,    0(  1, 15)
C 00006AFA    41200001        LA      2,    1(  0,  0)
C 00006AFE    1912            CR      1,  2
C 00006B00    58E0D2C8        L      14,  712(  0, 13)
C 00006B04    478EACDE        BC      8, 3294( 14, 10)


  1467                     ->1 %IF A(P+2)=2

C 00006B08    41100002        LA      1,    2(  0,  0)
C 00006B0C    5A108040        A       1,   64(  0,  8)
C 00006B10    413092FC        LA      3,  764(  0,  9)
C 00006B14    45F0C05C        BAL    15,   92(  0, 12)
C 00006B18    4811F000        LH      1,    0(  1, 15)
C 00006B1C    41200002        LA      2,    2(  0,  0)
C 00006B20    1912            CR      1,  2
C 00006B22    4780ACD0        BC      8, 3280(  0, 10)


  1468                     P=P+3; Q=P+1; ->2302

C 00006B26    41100003        LA      1,    3(  0,  0)
C 00006B2A    5A108040        A       1,   64(  0,  8)
C 00006B2E    50108040        ST      1,   64(  0,  8)



C 00006B32    41100001        LA      1,    1(  0,  0)
C 00006B36    5A108040        A       1,   64(  0,  8)
C 00006B3A    50108068        ST      1,  104(  0,  8)



C 00006B3E    58E0D2C8        L      14,  712(  0, 13)
C 00006B42    47FEACAC        BC     15, 3244( 14, 10)


  1469            SW(24):  FAULT(56) %UNLESS CPRMODE=2 %AND RLEVEL=1

C 00006B46    950290DB        CLI    219(  9),  2
C 00006B4A    0570            BALR    7,  0
C 00006B4C    47770010        BC      7,   16(  7,  0)
C 00006B50    41100001        LA      1,    1(  0,  0)
C 00006B54    59109094        C       1,  148(  0,  9)
C 00006B58    4787001C        BC      8,   28(  7,  0)
C 00006B5C    9238B043        MVI     67( 11), 56
C 00006B60    5810D228        L       1,  552(  0, 13)
C 00006B64    45F0D074        BAL    15,  116(  0, 13)


  1470                     LOAD DATA;FINALISE

C 00006B68    5810D344        L       1,  836(  0, 13)
C 00006B6C    45F0D074        BAL    15,  116(  0, 13)



C 00006B70    5810D22C        L       1,  556(  0, 13)
C 00006B74    45F0D074        BAL    15,  116(  0, 13)


  1471                     %STOP

C 00006B78    45F0C018        BAL    15,   24(  0, 12)


  1472            SW(25):  MCSWITCH=0; PERM=0; ->1;       ! %ENDOFMCODE

C 00006B7C    920090D1        MVI    209(  9),  0



C 00006B80    920090D0        MVI    208(  9),  0



C 00006B84    47F0ACD0        BC     15, 3280(  0, 10)


  1473            SW(28):                                !%NAME - SPECIAL NAME
  1474                     J=0; PTYPE=10006

C 00006B88    1F11            SLR     1,  1
C 00006B8A    501080A0        ST      1,  160(  0,  8)



C 00006B8E    5810D4AC        L       1, 1196(  0, 13)
C 00006B92    50108098        ST      1,  152(  0,  8)


  1475                     STORE TAG(A(P+1),SNUM)

C 00006B96    41100001        LA      1,    1(  0,  0)
C 00006B9A    5A108040        A       1,   64(  0,  8)
C 00006B9E    413092FC        LA      3,  764(  0,  9)
C 00006BA2    45F0C05C        BAL    15,   92(  0, 12)
C 00006BA6    4811F000        LH      1,    0(  1, 15)
C 00006BAA    5010B040        ST      1,   64(  0, 11)
C 00006BAE    D203B0449090    MVC     68(  4, 11),  144(  9)
C 00006BB4    5810D434        L       1, 1076(  0, 13)
C 00006BB8    45F0D074        BAL    15,  116(  0, 13)


  1476                     SNUM=SNUM+1;->1

C 00006BBC    41100001        LA      1,    1(  0,  0)
C 00006BC0    5A109090        A       1,  144(  0,  9)
C 00006BC4    50109090        ST      1,  144(  0,  9)



C 00006BC8    47F0ACD0        BC     15, 3280(  0, 10)


  1477            SW(29):  LIST=1; ->1;                   ! %LIST

C 00006BCC    920190D2        MVI    210(  9),  1



C 00006BD0    47F0ACD0        BC     15, 3280(  0, 10)


  1478            SW(30):   LIST=0; ->1

C 00006BD4    920090D2        MVI    210(  9),  0



C 00006BD8    47F0ACD0        BC     15, 3280(  0, 10)


  1479            SW(31):                      ! %CONTROL CONST
  1480                     %IF A(P+1)=9 %THEN J=A(P+2) %ELSE FROMAR4(P+2,J)

C 00006BDC    41100001        LA      1,    1(  0,  0)
C 00006BE0    5A108040        A       1,   64(  0,  8)
C 00006BE4    413092FC        LA      3,  764(  0,  9)
C 00006BE8    45F0C05C        BAL    15,   92(  0, 12)
C 00006BEC    4811F000        LH      1,    0(  1, 15)
C 00006BF0    41200009        LA      2,    9(  0,  0)
C 00006BF4    1912            CR      1,  2
C 00006BF6    0570            BALR    7,  0
C 00006BF8    47770020        BC      7,   32(  7,  0)
C 00006BFC    41100002        LA      1,    2(  0,  0)
C 00006C00    5A108040        A       1,   64(  0,  8)
C 00006C04    413092FC        LA      3,  764(  0,  9)
C 00006C08    45F0C05C        BAL    15,   92(  0, 12)
C 00006C0C    4811F000        LH      1,    0(  1, 15)
C 00006C10    501080A0        ST      1,  160(  0,  8)
C 00006C14    47F7003C        BC     15,   60(  7,  0)
C 00006C18    41100002        LA      1,    2(  0,  0)
C 00006C1C    5A108040        A       1,   64(  0,  8)
C 00006C20    5010B040        ST      1,   64(  0, 11)
C 00006C24    411080A0        LA      1,  160(  0,  8)
C 00006C28    5010B044        ST      1,   68(  0, 11)
C 00006C2C    5810D218        L       1,  536(  0, 13)
C 00006C30    45F0D074        BAL    15,  116(  0, 13)


  1481                     K=J&15; LINENOS=K %UNLESS K=15

C 00006C34    4110000F        LA      1,   15(  0,  0)
C 00006C38    541080A0        N       1,  160(  0,  8)
C 00006C3C    501080A4        ST      1,  164(  0,  8)



C 00006C40    4110000F        LA      1,   15(  0,  0)
C 00006C44    591080A4        C       1,  164(  0,  8)
C 00006C48    0570            BALR    7,  0
C 00006C4A    47870014        BC      8,   20(  7,  0)
C 00006C4E    581080A4        L       1,  164(  0,  8)
C 00006C52    421090D4        STC     1,  212(  0,  9)
C 00006C56    5510D018        CL      1,   24(  0, 13)
C 00006C5A    472C0058        BC      2,   88( 12,  0)


  1482                     K=J>>4&15; DIAGS1=K %UNLESS K=15

C 00006C5E    581080A0        L       1,  160(  0,  8)
C 00006C62    88100004        SRL     1,    4(  0)
C 00006C66    4120000F        LA      2,   15(  0,  0)
C 00006C6A    1412            NR      1,  2
C 00006C6C    501080A4        ST      1,  164(  0,  8)



C 00006C70    4110000F        LA      1,   15(  0,  0)
C 00006C74    591080A4        C       1,  164(  0,  8)
C 00006C78    0570            BALR    7,  0
C 00006C7A    47870014        BC      8,   20(  7,  0)
C 00006C7E    581080A4        L       1,  164(  0,  8)
C 00006C82    421090D5        STC     1,  213(  0,  9)
C 00006C86    5510D018        CL      1,   24(  0, 13)
C 00006C8A    472C0058        BC      2,   88( 12,  0)


  1483                     K=J>>8&15

C 00006C8E    581080A0        L       1,  160(  0,  8)
C 00006C92    88100008        SRL     1,    8(  0)
C 00006C96    4120000F        LA      2,   15(  0,  0)
C 00006C9A    1412            NR      1,  2
C 00006C9C    501080A4        ST      1,  164(  0,  8)


  1484                     CHECKS=K %UNLESS K=15

C 00006CA0    4110000F        LA      1,   15(  0,  0)
C 00006CA4    591080A4        C       1,  164(  0,  8)
C 00006CA8    0570            BALR    7,  0
C 00006CAA    47870014        BC      8,   20(  7,  0)
C 00006CAE    581080A4        L       1,  164(  0,  8)
C 00006CB2    421090CA        STC     1,  202(  0,  9)
C 00006CB6    5510D018        CL      1,   24(  0, 13)
C 00006CBA    472C0058        BC      2,   88( 12,  0)


  1485                     CHECKSP=K&14 %UNLESS K=15

C 00006CBE    4110000F        LA      1,   15(  0,  0)
C 00006CC2    591080A4        C       1,  164(  0,  8)
C 00006CC6    0570            BALR    7,  0
C 00006CC8    47870018        BC      8,   24(  7,  0)
C 00006CCC    4110000E        LA      1,   14(  0,  0)
C 00006CD0    541080A4        N       1,  164(  0,  8)
C 00006CD4    421090D7        STC     1,  215(  0,  9)
C 00006CD8    5510D018        CL      1,   24(  0, 13)
C 00006CDC    472C0058        BC      2,   88( 12,  0)


  1486                     K=J>>12&15

C 00006CE0    581080A0        L       1,  160(  0,  8)
C 00006CE4    8810000C        SRL     1,   12(  0)
C 00006CE8    4120000F        LA      2,   15(  0,  0)
C 00006CEC    1412            NR      1,  2
C 00006CEE    501080A4        ST      1,  164(  0,  8)


  1487                     UNASS=K %UNLESS K=15

C 00006CF2    4110000F        LA      1,   15(  0,  0)
C 00006CF6    591080A4        C       1,  164(  0,  8)
C 00006CFA    0570            BALR    7,  0
C 00006CFC    47870014        BC      8,   20(  7,  0)
C 00006D00    581080A4        L       1,  164(  0,  8)
C 00006D04    421090DC        STC     1,  220(  0,  9)
C 00006D08    5510D018        CL      1,   24(  0, 13)
C 00006D0C    472C0058        BC      2,   88( 12,  0)


  1488                     K=J>>28

C 00006D10    581080A0        L       1,  160(  0,  8)
C 00006D14    8810001C        SRL     1,   28(  0)
C 00006D18    501080A4        ST      1,  164(  0,  8)


  1489                     DCOMP=K %UNLESS K=15

C 00006D1C    4110000F        LA      1,   15(  0,  0)
C 00006D20    591080A4        C       1,  164(  0,  8)
C 00006D24    0570            BALR    7,  0
C 00006D26    47870014        BC      8,   20(  7,  0)
C 00006D2A    581080A4        L       1,  164(  0,  8)
C 00006D2E    421090D9        STC     1,  217(  0,  9)
C 00006D32    5510D018        CL      1,   24(  0, 13)
C 00006D36    472C0058        BC      2,   88( 12,  0)


  1490                     ->1

C 00006D3A    47F0ACD0        BC     15, 3280(  0, 10)


  1491            SW(32):  POP(SBR(LEVEL),J,K);           ! FINISH (ELSE')

C 00006D3E    581090A8        L       1,  168(  0,  9)
C 00006D42    413091FC        LA      3,  508(  0,  9)
C 00006D46    45F0C05C        BAL    15,   92(  0, 12)
C 00006D4A    4111F000        LA      1,    0(  1, 15)
C 00006D4E    5010B040        ST      1,   64(  0, 11)
C 00006D52    411080A0        LA      1,  160(  0,  8)
C 00006D56    5010B044        ST      1,   68(  0, 11)
C 00006D5A    411080A4        LA      1,  164(  0,  8)
C 00006D5E    5010B048        ST      1,   72(  0, 11)
C 00006D62    5810D3DC        L       1,  988(  0, 13)
C 00006D66    45F0D074        BAL    15,  116(  0, 13)


  1492                     ->321 %UNLESS J=-1; FAULT(51); ->1

C 00006D6A    5810D010        L       1,   16(  0, 13)
C 00006D6E    591080A0        C       1,  160(  0,  8)
C 00006D72    0000
C 00006D74    0000
C 00006D76    477A0000        BC      7,    0( 10,  0)



C 00006D7A    9233B043        MVI     67( 11), 51
C 00006D7E    5810D228        L       1,  552(  0, 13)
C 00006D82    45F0D074        BAL    15,  116(  0, 13)



C 00006D86    47F0ACD0        BC     15, 3280(  0, 10)


  1493            321:     POP(CYCLE(LEVEL),JJ,KK)

C 00006D8A    581090A8        L       1,  168(  0,  9)
C 00006D8E    413091AC        LA      3,  428(  0,  9)
C 00006D92    45F0C05C        BAL    15,   92(  0, 12)
C 00006D96    4111F000        LA      1,    0(  1, 15)
C 00006D9A    5010B040        ST      1,   64(  0, 11)
C 00006D9E    41108058        LA      1,   88(  0,  8)
C 00006DA2    5010B044        ST      1,   68(  0, 11)
C 00006DA6    41108060        LA      1,   96(  0,  8)
C 00006DAA    5010B048        ST      1,   72(  0, 11)
C 00006DAE    5810D3DC        L       1,  988(  0, 13)
C 00006DB2    45F0D074        BAL    15,  116(  0, 13)


  1494                     ->322 %IF 0>=JJ

C 00006DB6    58108058        L       1,   88(  0,  8)
C 00006DBA    1211            LTR     1,  1
C 00006DBC    0000
C 00006DBE    0000
C 00006DC0    47CA0000        BC     12,    0( 10,  0)


  1495                     FAULT(52); ->321

C 00006DC4    9234B043        MVI     67( 11), 52
C 00006DC8    5810D228        L       1,  552(  0, 13)
C 00006DCC    45F0D074        BAL    15,  116(  0, 13)



C 00006DD0    58E0D304        L      14,  772(  0, 13)
C 00006DD4    47FEA07C        BC     15,  124( 14, 10)


  1496            322:     ->402 %UNLESS A(2)=1;         ! ELSE FOLLOWS

C 00006DD8    41100002        LA      1,    2(  0,  0)
C 00006DDC    413092FC        LA      3,  764(  0,  9)
C 00006DE0    45F0C05C        BAL    15,   92(  0, 12)
C 00006DE4    4811F000        LH      1,    0(  1, 15)
C 00006DE8    41200001        LA      2,    1(  0,  0)
C 00006DEC    1912            CR      1,  2
C 00006DEE    4770A888        BC      7, 2184(  0, 10)


  1497                      FAULT(47) %UNLESS J=1

C 00006DF2    41100001        LA      1,    1(  0,  0)
C 00006DF6    591080A0        C       1,  160(  0,  8)
C 00006DFA    0570            BALR    7,  0
C 00006DFC    47870010        BC      8,   16(  7,  0)
C 00006E00    922FB043        MVI     67( 11), 47
C 00006E04    5810D228        L       1,  552(  0, 13)
C 00006E08    45F0D074        BAL    15,  116(  0, 13)


  1498                     P=P+2; KK=K

C 00006E0C    41100002        LA      1,    2(  0,  0)
C 00006E10    5A108040        A       1,   64(  0,  8)
C 00006E14    50108040        ST      1,   64(  0,  8)



C 00006E18    D203806080A4    MVC     96(  4,  8),  164(  8)


  1499                     MONE=0;R13=0;SET LINE         ;!CLEAR AFTER FINISH

C 00006E1E    920090CD        MVI    205(  9),  0



C 00006E22    1F11            SLR     1,  1
C 00006E24    501090BC        ST      1,  188(  0,  9)



C 00006E28    5810D36C        L       1,  876(  0, 13)
C 00006E2C    45F0D074        BAL    15,  116(  0, 13)


  1500                     %IF A(P)=9 %THEN JJ=SFLABEL-1 %ELSE JJ=PLABEL-1

C 00006E30    58108040        L       1,   64(  0,  8)
C 00006E34    413092FC        LA      3,  764(  0,  9)
C 00006E38    45F0C05C        BAL    15,   92(  0, 12)
C 00006E3C    4811F000        LH      1,    0(  1, 15)
C 00006E40    41200009        LA      2,    9(  0,  0)
C 00006E44    1912            CR      1,  2
C 00006E46    0570            BALR    7,  0
C 00006E48    47770012        BC      7,   18(  7,  0)
C 00006E4C    581090F8        L       1,  248(  0,  9)
C 00006E50    0610            BCTR    1,  0
C 00006E52    50108058        ST      1,   88(  0,  8)
C 00006E56    47F7001C        BC     15,   28(  7,  0)
C 00006E5A    581090A4        L       1,  164(  0,  9)
C 00006E5E    0610            BCTR    1,  0
C 00006E60    50108058        ST      1,   88(  0,  8)


  1501                     PJ(15,JJ); PLAB(KK); CUI(2); PLAB(-1); ->1

C 00006E64    4110000F        LA      1,   15(  0,  0)
C 00006E68    5010B040        ST      1,   64(  0, 11)
C 00006E6C    D203B0448058    MVC     68(  4, 11),   88(  8)
C 00006E72    5810D464        L       1, 1124(  0, 13)
C 00006E76    45F0D074        BAL    15,  116(  0, 13)



C 00006E7A    D203B0408060    MVC     64(  4, 11),   96(  8)
C 00006E80    5810D470        L       1, 1136(  0, 13)
C 00006E84    45F0D074        BAL    15,  116(  0, 13)



C 00006E88    9202B043        MVI     67( 11),  2
C 00006E8C    5810D370        L       1,  880(  0, 13)
C 00006E90    45F0D074        BAL    15,  116(  0, 13)



C 00006E94    5810D010        L       1,   16(  0, 13)
C 00006E98    5010B040        ST      1,   64(  0, 11)
C 00006E9C    5810D470        L       1, 1136(  0, 13)
C 00006EA0    45F0D074        BAL    15,  116(  0, 13)



C 00006EA4    47F0ACD0        BC     15, 3280(  0, 10)


  1502            SW(33):                                !RECORD FORMAT
  1503                     FAULT(56) %UNLESS LEVEL>=2

C 00006EA8    41100002        LA      1,    2(  0,  0)
C 00006EAC    591090A8        C       1,  168(  0,  9)
C 00006EB0    0570            BALR    7,  0
C 00006EB2    47C70010        BC     12,   16(  7,  0)
C 00006EB6    9238B043        MVI     67( 11), 56
C 00006EBA    5810D228        L       1,  552(  0, 13)
C 00006EBE    45F0D074        BAL    15,  116(  0, 13)


  1504                     SET LINE; CRFORMAT; ->1

C 00006EC2    5810D36C        L       1,  876(  0, 13)
C 00006EC6    45F0D074        BAL    15,  116(  0, 13)



C 00006ECA    5810D3A4        L       1,  932(  0, 13)
C 00006ECE    45F0D074        BAL    15,  116(  0, 13)



C 00006ED2    47F0ACD0        BC     15, 3280(  0, 10)


  1505            SW(34):                                !RECORDS
  1506                     %BEGIN

C 00006ED6    90AB80D4        STM    10, 11,  212(  8)
C 00006EDA    D20380DCD014    MVC    220(  4,  8),   20( 13)
C 00006EE0    410005E2        LA      0, 1506(  0,  0)
C 00006EE4    4000D014        STH     0,   20(  0, 13)
C 00006EE8    05A0            BALR   10,  0


  1507                         %SHORTROUTINE
  1508                         %ROUTINESPEC TEST AND SET
  1509                         SET LINE; P=P+1; MARKER1=P+A(P)

C 00006EEA    5810D36C        L       1,  876(  0, 13)
C 00006EEE    45F0D074        BAL    15,  116(  0, 13)



C 00006EF2    41100001        LA      1,    1(  0,  0)
C 00006EF6    5A108040        A       1,   64(  0,  8)
C 00006EFA    50108040        ST      1,   64(  0,  8)



C 00006EFE    58108040        L       1,   64(  0,  8)
C 00006F02    413092FC        LA      3,  764(  0,  9)
C 00006F06    45F0C05C        BAL    15,   92(  0, 12)
C 00006F0A    4871F000        LH      7,    0(  1, 15)
C 00006F0E    5A708040        A       7,   64(  0,  8)
C 00006F12    507090B0        ST      7,  176(  0,  9)


  1510                         FAULT(57) %UNLESS LEVEL>=2

C 00006F16    41100002        LA      1,    2(  0,  0)
C 00006F1A    591090A8        C       1,  168(  0,  9)
C 00006F1E    47CA0044        BC     12,   68( 10,  0)
C 00006F22    9239B043        MVI     67( 11), 57
C 00006F26    5810D228        L       1,  552(  0, 13)
C 00006F2A    45F0D074        BAL    15,  116(  0, 13)


  1511                         FAULT(40) %IF NMDECS(LEVEL)#0

C 00006F2E    581090A8        L       1,  168(  0,  9)
C 00006F32    4130926C        LA      3,  620(  0,  9)
C 00006F36    45F0C05C        BAL    15,   92(  0, 12)
C 00006F3A    4811F000        LH      1,    0(  1, 15)
C 00006F3E    1211            LTR     1,  1
C 00006F40    478A0066        BC      8,  102( 10,  0)
C 00006F44    9228B043        MVI     67( 11), 40
C 00006F48    5810D228        L       1,  552(  0, 13)
C 00006F4C    45F0D074        BAL    15,  116(  0, 13)


  1512                         CHECK RF;->1 %IF K=-1

C 00006F50    5810D384        L       1,  900(  0, 13)
C 00006F54    45F0D074        BAL    15,  116(  0, 13)



C 00006F58    5810D010        L       1,   16(  0, 13)
C 00006F5C    591080A4        C       1,  164(  0,  8)
C 00006F60    478A0000        BC      8,    0( 10,  0)


  1513                         TYPE=3;PREC=0;ROUT=0

C 00006F64    92038094        MVI    148(  8),  3



C 00006F68    92008093        MVI    147(  8),  0



C 00006F6C    92008090        MVI    144(  8),  0


  1514                         ->SCALAR %IF A(P+1)=1

C 00006F70    41100001        LA      1,    1(  0,  0)
C 00006F74    5A108040        A       1,   64(  0,  8)
C 00006F78    413092FC        LA      3,  764(  0,  9)
C 00006F7C    45F0C05C        BAL    15,   92(  0, 12)
C 00006F80    4811F000        LH      1,    0(  1, 15)
C 00006F84    41200001        LA      2,    1(  0,  0)
C 00006F88    1912            CR      1,  2
C 00006F8A    478A0000        BC      8,    0( 10,  0)


  1515                         FAULT(41) %UNLESS A(P+2)=2;   ! RECORD NAME ARRAYS FAULTED

C 00006F8E    41100002        LA      1,    2(  0,  0)
C 00006F92    5A108040        A       1,   64(  0,  8)
C 00006F96    413092FC        LA      3,  764(  0,  9)
C 00006F9A    45F0C05C        BAL    15,   92(  0, 12)
C 00006F9E    4811F000        LH      1,    0(  1, 15)
C 00006FA2    41200002        LA      2,    2(  0,  0)
C 00006FA6    1912            CR      1,  2
C 00006FA8    478A00CE        BC      8,  206( 10,  0)
C 00006FAC    9229B043        MVI     67( 11), 41
C 00006FB0    5810D228        L       1,  552(  0, 13)
C 00006FB4    45F0D074        BAL    15,  116(  0, 13)


  1516                         NAM=0; ARR=1; PACK(PTYPE)

C 00006FB8    92008091        MVI    145(  8),  0



C 00006FBC    92018092        MVI    146(  8),  1



C 00006FC0    41108098        LA      1,  152(  0,  8)
C 00006FC4    5010B040        ST      1,   64(  0, 11)
C 00006FC8    5810D450        L       1, 1104(  0, 13)
C 00006FCC    45F0D074        BAL    15,  116(  0, 13)


  1517                         P=P+3

C 00006FD0    41100003        LA      1,    3(  0,  0)
C 00006FD4    5A108040        A       1,   64(  0,  8)
C 00006FD8    50108040        ST      1,   64(  0,  8)


  1518                3401:    QQ=P+1

C 00006FDC    41100001        LA      1,    1(  0,  0)
C 00006FE0    5A108040        A       1,   64(  0,  8)
C 00006FE4    5010806C        ST      1,  108(  0,  8)


  1519                         PSS(X'D2',4,WSPR,0,4,0); ! MVC FOR LENGTH

C 00006FE8    411000D2        LA      1,  210(  0,  0)
C 00006FEC    5010B040        ST      1,   64(  0, 11)
C 00006FF0    41100004        LA      1,    4(  0,  0)
C 00006FF4    5010B044        ST      1,   68(  0, 11)
C 00006FF8    D203B048D14C    MVC     72(  4, 11),  332( 13)
C 00006FFE    1F11            SLR     1,  1
C 00007000    5010B04C        ST      1,   76(  0, 11)
C 00007004    41100004        LA      1,    4(  0,  0)
C 00007008    5010B050        ST      1,   80(  0, 11)
C 0000700C    1F11            SLR     1,  1
C 0000700E    5010B054        ST      1,   84(  0, 11)
C 00007012    5810D1BC        L       1,  444(  0, 13)
C 00007016    45F0D074        BAL    15,  116(  0, 13)


  1520                         CADCLN(2)

C 0000701A    9202B043        MVI     67( 11),  2
C 0000701E    5810D3A8        L       1,  936(  0, 13)
C 00007022    45F0D074        BAL    15,  116(  0, 13)


  1521                         %CYCLE Q=1,1,A(QQ)

C 00007026    41408068        LA      4,  104(  0,  8)
C 0000702A    41200001        LA      2,    1(  0,  0)
C 0000702E    502080E0        ST      2,  224(  0,  8)
C 00007032    5810806C        L       1,  108(  0,  8)
C 00007036    413092FC        LA      3,  764(  0,  9)
C 0000703A    45F0C05C        BAL    15,   92(  0, 12)
C 0000703E    4831F000        LH      3,    0(  1, 15)
C 00007042    903480E4        STM     3,  4,  228(  8)
C 00007046    41100001        LA      1,    1(  0,  0)
C 0000704A    50104000        ST      1,    0(  0,  4)


  1522                         K=A(Q+QQ)

C 0000704E    58108068        L       1,  104(  0,  8)
C 00007052    5A10806C        A       1,  108(  0,  8)
C 00007056    413092FC        LA      3,  764(  0,  9)
C 0000705A    45F0C05C        BAL    15,   92(  0, 12)
C 0000705E    4811F000        LH      1,    0(  1, 15)
C 00007062    501080A4        ST      1,  164(  0,  8)


  1523                         TEST AND SET

C 00007066    5810D4B0        L       1, 1200(  0, 13)
C 0000706A    45F0D074        BAL    15,  116(  0, 13)


  1524                         PPJ(13)

C 0000706E    920DB043        MVI     67( 11), 13
C 00007072    5810D46C        L       1, 1132(  0, 13)
C 00007076    45F0D074        BAL    15,  116(  0, 13)


  1525                         PRX(X'90',0,3,RBASE,N)

C 0000707A    41100090        LA      1,  144(  0,  0)
C 0000707E    5010B040        ST      1,   64(  0, 11)
C 00007082    1F11            SLR     1,  1
C 00007084    5010B044        ST      1,   68(  0, 11)
C 00007088    41100003        LA      1,    3(  0,  0)
C 0000708C    5010B048        ST      1,   72(  0, 11)
C 00007090    D203B04C90F4    MVC     76(  4, 11),  244(  9)
C 00007096    D203B0509100    MVC     80(  4, 11),  256(  9)
C 0000709C    5810D1C0        L       1,  448(  0, 13)
C 000070A0    45F0D074        BAL    15,  116(  0, 13)


  1526                         N=N+16

C 000070A4    41100010        LA      1,   16(  0,  0)
C 000070A8    5A109100        A       1,  256(  0,  9)
C 000070AC    50109100        ST      1,  256(  0,  9)


  1527                         %REPEAT

C 000070B0    982480E0        LM      2,  4,  224(  8)
C 000070B4    58104000        L       1,    0(  0,  4)
C 000070B8    8712A160        BXLE    1,  2,  352( 10)


  1528                         ->1 %IF A(P)=2

C 000070BC    58108040        L       1,   64(  0,  8)
C 000070C0    413092FC        LA      3,  764(  0,  9)
C 000070C4    45F0C05C        BAL    15,   92(  0, 12)
C 000070C8    4811F000        LH      1,    0(  1, 15)
C 000070CC    41200002        LA      2,    2(  0,  0)
C 000070D0    1912            CR      1,  2
C 000070D2    478A0000        BC      8,    0( 10,  0)


  1529                         P=P+1;CHECK RF;->3401

C 000070D6    41100001        LA      1,    1(  0,  0)
C 000070DA    5A108040        A       1,   64(  0,  8)
C 000070DE    50108040        ST      1,   64(  0,  8)



C 000070E2    5810D384        L       1,  900(  0, 13)
C 000070E6    45F0D074        BAL    15,  116(  0, 13)



C 000070EA    47F0A0F2        BC     15,  242(  0, 10)


  1530                SCALAR:  CQN(P+2);P=P+3;J=0

C 000070EE    41100002        LA      1,    2(  0,  0)
C 000070F2    5A108040        A       1,   64(  0,  8)
C 000070F6    5010B040        ST      1,   64(  0, 11)
C 000070FA    5810D3AC        L       1,  940(  0, 13)
C 000070FE    45F0D074        BAL    15,  116(  0, 13)



C 00007102    41100003        LA      1,    3(  0,  0)
C 00007106    5A108040        A       1,   64(  0,  8)
C 0000710A    50108040        ST      1,   64(  0,  8)



C 0000710E    1F11            SLR     1,  1
C 00007110    501080A0        ST      1,  160(  0,  8)


  1531                         PACK(PTYPE)

C 00007114    41108098        LA      1,  152(  0,  8)
C 00007118    5010B040        ST      1,   64(  0, 11)
C 0000711C    5810D450        L       1, 1104(  0, 13)
C 00007120    45F0D074        BAL    15,  116(  0, 13)


  1532                         %CYCLE Q=1,1,A(P)

C 00007124    41408068        LA      4,  104(  0,  8)
C 00007128    41200001        LA      2,    1(  0,  0)
C 0000712C    502080EC        ST      2,  236(  0,  8)
C 00007130    58108040        L       1,   64(  0,  8)
C 00007134    413092FC        LA      3,  764(  0,  9)
C 00007138    45F0C05C        BAL    15,   92(  0, 12)
C 0000713C    4831F000        LH      3,    0(  1, 15)
C 00007140    903480F0        STM     3,  4,  240(  8)
C 00007144    41100001        LA      1,    1(  0,  0)
C 00007148    50104000        ST      1,    0(  0,  4)


  1533                         K=A(P+Q)

C 0000714C    58108040        L       1,   64(  0,  8)
C 00007150    5A108068        A       1,  104(  0,  8)
C 00007154    413092FC        LA      3,  764(  0,  9)
C 00007158    45F0C05C        BAL    15,   92(  0, 12)
C 0000715C    4811F000        LH      1,    0(  1, 15)
C 00007160    501080A4        ST      1,  164(  0,  8)


  1534                         TEST AND SET

C 00007164    5810D4B0        L       1, 1200(  0, 13)
C 00007168    45F0D074        BAL    15,  116(  0, 13)


  1535                         %IF NAM=1 %THEN PSS(X'D2',4,RBASE,N,GLA,128) %ELSE                PACLOD(18,2,RBASE<<12!N)

C 0000716C    95018091        CLI    145(  8),  1
C 00007170    477A02C0        BC      7,  704( 10,  0)
C 00007174    411000D2        LA      1,  210(  0,  0)
C 00007178    5010B040        ST      1,   64(  0, 11)
C 0000717C    41100004        LA      1,    4(  0,  0)
C 00007180    5010B044        ST      1,   68(  0, 11)
C 00007184    D203B04890F4    MVC     72(  4, 11),  244(  9)
C 0000718A    D203B04C9100    MVC     76(  4, 11),  256(  9)
C 00007190    D203B050D150    MVC     80(  4, 11),  336( 13)
C 00007196    41100080        LA      1,  128(  0,  0)
C 0000719A    5010B054        ST      1,   84(  0, 11)
C 0000719E    5810D1BC        L       1,  444(  0, 13)
C 000071A2    45F0D074        BAL    15,  116(  0, 13)
C 000071A6    47FA02E8        BC     15,  744( 10,  0)
C 000071AA    41100012        LA      1,   18(  0,  0)
C 000071AE    5010B040        ST      1,   64(  0, 11)
C 000071B2    41100002        LA      1,    2(  0,  0)
C 000071B6    5010B044        ST      1,   68(  0, 11)
C 000071BA    581090F4        L       1,  244(  0,  9)
C 000071BE    8910000C        SLL     1,   12(  0)
C 000071C2    56109100        O       1,  256(  0,  9)
C 000071C6    5010B048        ST      1,   72(  0, 11)
C 000071CA    5810D1C4        L       1,  452(  0, 13)
C 000071CE    45F0D074        BAL    15,  116(  0, 13)


  1536                %COMMENT = ST WSP,? - AH WSP,LENGTH - LA WSP,7(WSP) - N WSP,=F'-8'
  1537                         N=N+4; %REPEAT; ->1

C 000071D2    41100004        LA      1,    4(  0,  0)
C 000071D6    5A109100        A       1,  256(  0,  9)
C 000071DA    50109100        ST      1,  256(  0,  9)



C 000071DE    982480EC        LM      2,  4,  236(  8)
C 000071E2    58104000        L       1,    0(  0,  4)
C 000071E6    8712A25E        BXLE    1,  2,  606( 10)



C 000071EA    47FA0000        BC     15,    0( 10,  0)


  1538                         %ROUTINE TEST AND SET

C 000071EE    47FA0000        BC     15,    0( 10,  0)
C 000071F2    50F0B03C        ST     15,   60(  0, 11)
C 000071F6    D203B000D014    MVC      0(  4, 11),   20( 13)
C 000071FC    41000602        LA      0, 1538(  0,  0)
C 00007200    4000D014        STH     0,   20(  0, 13)
C 00007204    187B            LR      7, 11
C 00007206    41BB0000        LA     11,    0( 11,  0)
C 0000720A    41000004        LA      0,    4(  0,  0)
C 0000720E    59BD0044        C      11,   68( 13,  0)
C 00007212    4720C054        BC      2,   84(  0, 12)
C 00007216    05A0            BALR   10,  0


  1539                             TEST NST

C 00007218    5810D43C        L       1, 1084(  0, 13)
C 0000721C    45F0D074        BAL    15,  116(  0, 13)


  1540                             JJJ=NEWCELL

C 00007220    5810D404        L       1, 1028(  0, 13)
C 00007224    45F0D074        BAL    15,  116(  0, 13)
C 00007228    5010805C        ST      1,   92(  0,  8)


  1541                             STORE TAG(K,JJJ)

C 0000722C    D203B04080A4    MVC     64(  4, 11),  164(  8)
C 00007232    D203B044805C    MVC     68(  4, 11),   92(  8)
C 00007238    5810D434        L       1, 1076(  0, 13)
C 0000723C    45F0D074        BAL    15,  116(  0, 13)


  1542                             REPLACE BOTH(JJJ,TAGS(A(MARKER1)),N)

C 00007240    D203B040805C    MVC     64(  4, 11),   92(  8)
C 00007246    581090B0        L       1,  176(  0,  9)
C 0000724A    413092FC        LA      3,  764(  0,  9)
C 0000724E    45F0C05C        BAL    15,   92(  0, 12)
C 00007252    4811F000        LH      1,    0(  1, 15)
C 00007256    4130931C        LA      3,  796(  0,  9)
C 0000725A    45F0C05C        BAL    15,   92(  0, 12)
C 0000725E    4811F000        LH      1,    0(  1, 15)
C 00007262    5010B044        ST      1,   68(  0, 11)
C 00007266    D203B0489100    MVC     72(  4, 11),  256(  9)
C 0000726C    5810D3F4        L       1, 1012(  0, 13)
C 00007270    45F0D074        BAL    15,  116(  0, 13)


  1543                             %END
D 00000610    C2 C2 C2 C2 06 02 07 0A 54 45 53 54 41 4E 44 53 45 54 84 00 FF FF FF FF


C 00007274    D203D0147000    MVC     20(  4, 13),    0(  7)
C 0000727A    984F7010        LM      4, 15,   16(  7)
C 0000727E    07FF            BCR    15, 15


  1544                1:       %END;->1
D 00000628    C2 C2 C2 C2 05 E2 08 00 00 00 03 BF FF FF FF FF


C 00007280    98AB80D4        LM     10, 11,  212(  8)
C 00007284    D203D01480DC    MVC     20(  4, 13),  220(  8)



C 0000728A    47F0ACD0        BC     15, 3280(  0, 10)


  1545            SW(35):                                ! (RT)'%NAME'(NAMELIST)
  1546                     P=P+1; MARKER1=P+A(P)

C 0000728E    41100001        LA      1,    1(  0,  0)
C 00007292    5A108040        A       1,   64(  0,  8)
C 00007296    50108040        ST      1,   64(  0,  8)



C 0000729A    58108040        L       1,   64(  0,  8)
C 0000729E    413092FC        LA      3,  764(  0,  9)
C 000072A2    45F0C05C        BAL    15,   92(  0, 12)
C 000072A6    4871F000        LH      7,    0(  1, 15)
C 000072AA    5A708040        A       7,   64(  0,  8)
C 000072AE    507090B0        ST      7,  176(  0,  9)


  1547                     ->3801 %IF A(P+1)=1

C 000072B2    41100001        LA      1,    1(  0,  0)
C 000072B6    5A108040        A       1,   64(  0,  8)
C 000072BA    413092FC        LA      3,  764(  0,  9)
C 000072BE    45F0C05C        BAL    15,   92(  0, 12)
C 000072C2    4811F000        LH      1,    0(  1, 15)
C 000072C6    41200001        LA      2,    1(  0,  0)
C 000072CA    1912            CR      1,  2
C 000072CC    0000
C 000072CE    0000
C 000072D0    478A0000        BC      8,    0( 10,  0)


  1548                     ROUT=1; P=P+2;CLT

C 000072D4    92018090        MVI    144(  8),  1



C 000072D8    41100002        LA      1,    2(  0,  0)
C 000072DC    5A108040        A       1,   64(  0,  8)
C 000072E0    50108040        ST      1,   64(  0,  8)



C 000072E4    5810D3B0        L       1,  944(  0, 13)
C 000072E8    45F0D074        BAL    15,  116(  0, 13)


  1549                     ARR=2-A(P+1);NAM=(A(P+2)-1)<<1

C 000072EC    41100001        LA      1,    1(  0,  0)
C 000072F0    5A108040        A       1,   64(  0,  8)
C 000072F4    413092FC        LA      3,  764(  0,  9)
C 000072F8    45F0C05C        BAL    15,   92(  0, 12)
C 000072FC    4871F000        LH      7,    0(  1, 15)
C 00007300    41100002        LA      1,    2(  0,  0)
C 00007304    1B17            SR      1,  7
C 00007306    42108092        STC     1,  146(  0,  8)
C 0000730A    5510D018        CL      1,   24(  0, 13)
C 0000730E    472C0058        BC      2,   88( 12,  0)



C 00007312    41100002        LA      1,    2(  0,  0)
C 00007316    5A108040        A       1,   64(  0,  8)
C 0000731A    413092FC        LA      3,  764(  0,  9)
C 0000731E    45F0C05C        BAL    15,   92(  0, 12)
C 00007322    4871F000        LH      7,    0(  1, 15)
C 00007326    0670            BCTR    7,  0
C 00007328    1857            LR      5,  7
C 0000732A    89500001        SLL     5,    1(  0)
C 0000732E    42508091        STC     5,  145(  0,  8)
C 00007332    5550D018        CL      5,   24(  0, 13)
C 00007336    472C0058        BC      2,   88( 12,  0)


  1550                     PACK(PTYPE); ->3802

C 0000733A    41108098        LA      1,  152(  0,  8)
C 0000733E    5010B040        ST      1,   64(  0, 11)
C 00007342    5810D450        L       1, 1104(  0, 13)
C 00007346    45F0D074        BAL    15,  116(  0, 13)



C 0000734A    0000
C 0000734C    0000
C 0000734E    47FA0000        BC     15,    0( 10,  0)


  1551            3801:    PTYPE=11000

C 00007352    5810D4B4        L       1, 1204(  0, 13)
C 00007356    50108098        ST      1,  152(  0,  8)


  1552            3802:    J=0;%CYCLE KK=1,1,A(MARKER1)

C 0000735A    1F11            SLR     1,  1
C 0000735C    501080A0        ST      1,  160(  0,  8)



C 00007360    41408060        LA      4,   96(  0,  8)
C 00007364    41200001        LA      2,    1(  0,  0)
C 00007368    502080D4        ST      2,  212(  0,  8)
C 0000736C    581090B0        L       1,  176(  0,  9)
C 00007370    413092FC        LA      3,  764(  0,  9)
C 00007374    45F0C05C        BAL    15,   92(  0, 12)
C 00007378    4831F000        LH      3,    0(  1, 15)
C 0000737C    903480D8        STM     3,  4,  216(  8)
C 00007380    41100001        LA      1,    1(  0,  0)
C 00007384    50104000        ST      1,    0(  0,  4)


  1553                     K=A(MARKER1+KK)

C 00007388    581090B0        L       1,  176(  0,  9)
C 0000738C    5A108060        A       1,   96(  0,  8)
C 00007390    413092FC        LA      3,  764(  0,  9)
C 00007394    45F0C05C        BAL    15,   92(  0, 12)
C 00007398    4811F000        LH      1,    0(  1, 15)
C 0000739C    501080A4        ST      1,  164(  0,  8)


  1554                     TESTNST; OPHEAD=0

C 000073A0    5810D43C        L       1, 1084(  0, 13)
C 000073A4    45F0D074        BAL    15,  116(  0, 13)



C 000073A8    1F11            SLR     1,  1
C 000073AA    40108054        STH     1,   84(  0,  8)
C 000073AE    49180054        CH      1,   84(  8,  0)
C 000073B2    477C0058        BC      7,   88( 12,  0)


  1555                     PUSH(OPHEAD,N,1000);          ! SIDE CHAIN AS RT PARAM

C 000073B6    41108054        LA      1,   84(  0,  8)
C 000073BA    5010B040        ST      1,   64(  0, 11)
C 000073BE    D203B0449100    MVC     68(  4, 11),  256(  9)
C 000073C4    411003E8        LA      1, 1000(  0,  0)
C 000073C8    5010B048        ST      1,   72(  0, 11)
C 000073CC    5810D3E0        L       1,  992(  0, 13)
C 000073D0    45F0D074        BAL    15,  116(  0, 13)


  1556                     STORE TAG(K,OPHEAD);          !LINK IN SIDE CHAIN

C 000073D4    D203B04080A4    MVC     64(  4, 11),  164(  8)
C 000073DA    48108054        LH      1,   84(  0,  8)
C 000073DE    5010B044        ST      1,   68(  0, 11)
C 000073E2    5810D434        L       1, 1076(  0, 13)
C 000073E6    45F0D074        BAL    15,  116(  0, 13)


  1557                     N=N+40; %REPEAT; ->1

C 000073EA    41100028        LA      1,   40(  0,  0)
C 000073EE    5A109100        A       1,  256(  0,  9)
C 000073F2    50109100        ST      1,  256(  0,  9)



C 000073F6    982480D4        LM      2,  4,  212(  8)
C 000073FA    58104000        L       1,    0(  0,  4)
C 000073FE    1A12            AR      1,  2
C 00007400    59304000        C       3,    0(  0,  4)
C 00007404    58E0D304        L      14,  772(  0, 13)
C 00007408    477EA676        BC      7, 1654( 14, 10)



C 0000740C    47F0ACD0        BC     15, 3280(  0, 10)


  1558            SW(36):                                ! RECORD SPEC
  1559                     P=P+1; MARKER1=P+A(P)

C 00007410    41100001        LA      1,    1(  0,  0)
C 00007414    5A108040        A       1,   64(  0,  8)
C 00007418    50108040        ST      1,   64(  0,  8)



C 0000741C    58108040        L       1,   64(  0,  8)
C 00007420    413092FC        LA      3,  764(  0,  9)
C 00007424    45F0C05C        BAL    15,   92(  0, 12)
C 00007428    4871F000        LH      7,    0(  1, 15)
C 0000742C    5A708040        A       7,   64(  0,  8)
C 00007430    507090B0        ST      7,  176(  0,  9)


  1560                     CHECK RF; ->1 %IF K=-1

C 00007434    5810D384        L       1,  900(  0, 13)
C 00007438    45F0D074        BAL    15,  116(  0, 13)



C 0000743C    5810D010        L       1,   16(  0, 13)
C 00007440    591080A4        C       1,  164(  0,  8)
C 00007444    4780ACD0        BC      8, 3280(  0, 10)


  1561                     P=P+1; COPYTAG(A(P))

C 00007448    41100001        LA      1,    1(  0,  0)
C 0000744C    5A108040        A       1,   64(  0,  8)
C 00007450    50108040        ST      1,   64(  0,  8)



C 00007454    58108040        L       1,   64(  0,  8)
C 00007458    413092FC        LA      3,  764(  0,  9)
C 0000745C    45F0C05C        BAL    15,   92(  0, 12)
C 00007460    4811F000        LH      1,    0(  1, 15)
C 00007464    5010B040        ST      1,   64(  0, 11)
C 00007468    5810D408        L       1, 1032(  0, 13)
C 0000746C    45F0D074        BAL    15,  116(  0, 13)


  1562                     ->3910 %IF A(P+1)=1

C 00007470    41100001        LA      1,    1(  0,  0)
C 00007474    5A108040        A       1,   64(  0,  8)
C 00007478    413092FC        LA      3,  764(  0,  9)
C 0000747C    45F0C05C        BAL    15,   92(  0, 12)
C 00007480    4811F000        LH      1,    0(  1, 15)
C 00007484    41200001        LA      2,    1(  0,  0)
C 00007488    1912            CR      1,  2
C 0000748A    0000
C 0000748C    0000
C 0000748E    478A0000        BC      8,    0( 10,  0)


  1563                     ->3902 %IF TYPE=3 %AND NAM=1

C 00007492    95038094        CLI    148(  8),  3
C 00007496    0570            BALR    7,  0
C 00007498    47770010        BC      7,   16(  7,  0)
C 0000749C    95018091        CLI    145(  8),  1
C 000074A0    0000
C 000074A2    0000
C 000074A4    478A0000        BC      8,    0( 10,  0)


  1564            3901:    FAULT(63); ->1

C 000074A8    923FB043        MVI     67( 11), 63
C 000074AC    5810D228        L       1,  552(  0, 13)
C 000074B0    45F0D074        BAL    15,  116(  0, 13)



C 000074B4    47F0ACD0        BC     15, 3280(  0, 10)


  1565            3902:    FROM1(K,Q)

C 000074B8    D203B04080A4    MVC     64(  4, 11),  164(  8)
C 000074BE    41108068        LA      1,  104(  0,  8)
C 000074C2    5010B044        ST      1,   68(  0, 11)
C 000074C6    5810D3FC        L       1, 1020(  0, 13)
C 000074CA    45F0D074        BAL    15,  116(  0, 13)


  1566                     FAULT(63) %UNLESS Q=0

C 000074CE    58108068        L       1,  104(  0,  8)
C 000074D2    1211            LTR     1,  1
C 000074D4    0570            BALR    7,  0
C 000074D6    47870010        BC      8,   16(  7,  0)
C 000074DA    923FB043        MVI     67( 11), 63
C 000074DE    5810D228        L       1,  552(  0, 13)
C 000074E2    45F0D074        BAL    15,  116(  0, 13)


  1567                     REPLACE1(K,TAGS(A(MARKER1))); ->1

C 000074E6    D203B04080A4    MVC     64(  4, 11),  164(  8)
C 000074EC    581090B0        L       1,  176(  0,  9)
C 000074F0    413092FC        LA      3,  764(  0,  9)
C 000074F4    45F0C05C        BAL    15,   92(  0, 12)
C 000074F8    4811F000        LH      1,    0(  1, 15)
C 000074FC    4130931C        LA      3,  796(  0,  9)
C 00007500    45F0C05C        BAL    15,   92(  0, 12)
C 00007504    4811F000        LH      1,    0(  1, 15)
C 00007508    5010B044        ST      1,   68(  0, 11)
C 0000750C    5810D3F0        L       1, 1008(  0, 13)
C 00007510    45F0D074        BAL    15,  116(  0, 13)



C 00007514    47F0ACD0        BC     15, 3280(  0, 10)


  1568            3910:
  1569                     P=P+2; K=DISPLACEMENT(TAGS(A(P-2)))

C 00007518    41100002        LA      1,    2(  0,  0)
C 0000751C    5A108040        A       1,   64(  0,  8)
C 00007520    50108040        ST      1,   64(  0,  8)



C 00007524    58108040        L       1,   64(  0,  8)
C 00007528    0610            BCTR    1,  0
C 0000752A    0610            BCTR    1,  0
C 0000752C    413092FC        LA      3,  764(  0,  9)
C 00007530    45F0C05C        BAL    15,   92(  0, 12)
C 00007534    4811F000        LH      1,    0(  1, 15)
C 00007538    4130931C        LA      3,  796(  0,  9)
C 0000753C    45F0C05C        BAL    15,   92(  0, 12)
C 00007540    4811F000        LH      1,    0(  1, 15)
C 00007544    5010B040        ST      1,   64(  0, 11)
C 00007548    5810D394        L       1,  916(  0, 13)
C 0000754C    45F0D074        BAL    15,  116(  0, 13)
C 00007550    501080A4        ST      1,  164(  0,  8)


  1570                     ->3901 %IF K=-1; ->3902

C 00007554    5810D010        L       1,   16(  0, 13)
C 00007558    591080A4        C       1,  164(  0,  8)
C 0000755C    58E0D304        L      14,  772(  0, 13)
C 00007560    478EA79A        BC      8, 1946( 14, 10)



C 00007564    58E0D304        L      14,  772(  0, 13)
C 00007568    47FEA7AA        BC     15, 1962( 14, 10)


  1571            SW(37):  ->1;                          ! (S)

C 0000756C    47F0ACD0        BC     15, 3280(  0, 10)


  1572            !
  1573                     %ROUTINE CEND (%INTEGER KKK)

C 00007570    0000
C 00007572    0000
C 00007574    47FA0000        BC     15,    0( 10,  0)
C 00007578    50F0B03C        ST     15,   60(  0, 11)
C 0000757C    D203B000D014    MVC      0(  4, 11),   20( 13)
C 00007582    41000625        LA      0, 1573(  0,  0)
C 00007586    4000D014        STH     0,   20(  0, 13)
C 0000758A    187B            LR      7, 11
C 0000758C    41BB0000        LA     11,    0( 11,  0)
C 00007590    41000004        LA      0,    4(  0,  0)
C 00007594    59BD0044        C      11,   68( 13,  0)
C 00007598    4720C054        BC      2,   84(  0, 12)
C 0000759C    05A0            BALR   10,  0


  1574                         %SHORT %ROUTINE
  1575                         %INTEGER DPTR,LNUM,W1,W2
  1576                         %INTEGERARRAY DD(0:300)

C 0000759E    50B0D024        ST     11,   36(  0, 13)
C 000075A2    1F11            SLR     1,  1
C 000075A4    4120012C        LA      2,  300(  0,  0)
C 000075A8    41000004        LA      0,    4(  0,  0)
C 000075AC    9002B000        STM     0,  2,    0( 11)
C 000075B0    9201B001        MVI      1( 11),  1
C 000075B4    41B0B010        LA     11,   16(  0, 11)
C 000075B8    45F0C034        BAL    15,   52(  0, 12)
C 000075BC    90037054        STM     0,  3,   84(  7)


  1577                         SET LINE; R13=0; MONE=1

C 000075C0    5810D36C        L       1,  876(  0, 13)
C 000075C4    45F0D074        BAL    15,  116(  0, 13)



C 000075C8    1F11            SLR     1,  1
C 000075CA    501090BC        ST      1,  188(  0,  9)



C 000075CE    920190CD        MVI    205(  9),  1


  1578                1:       FROM LIST (SBR(LEVEL),J,K)

C 000075D2    581090A8        L       1,  168(  0,  9)
C 000075D6    413091FC        LA      3,  508(  0,  9)
C 000075DA    45F0C05C        BAL    15,   92(  0, 12)
C 000075DE    4811F000        LH      1,    0(  1, 15)
C 000075E2    5010B040        ST      1,   64(  0, 11)
C 000075E6    411080A0        LA      1,  160(  0,  8)
C 000075EA    5010B044        ST      1,   68(  0, 11)
C 000075EE    411080A4        LA      1,  164(  0,  8)
C 000075F2    5010B048        ST      1,   72(  0, 11)
C 000075F6    5810D3D8        L       1,  984(  0, 13)
C 000075FA    45F0D074        BAL    15,  116(  0, 13)


  1579                         ->2 %IF J=-1; FAULT (53);     ! FINISH MISSING

C 000075FE    5810D010        L       1,   16(  0, 13)
C 00007602    591080A0        C       1,  160(  0,  8)
C 00007606    478A0000        BC      8,    0( 10,  0)



C 0000760A    9235B043        MVI     67( 11), 53
C 0000760E    5810D228        L       1,  552(  0, 13)
C 00007612    45F0D074        BAL    15,  116(  0, 13)


  1580                         A(2)=32; A(3)=2; CSS(2);      ! SO COMPILE IT IN

C 00007616    41400020        LA      4,   32(  0,  0)
C 0000761A    41100002        LA      1,    2(  0,  0)
C 0000761E    413092FC        LA      3,  764(  0,  9)
C 00007622    45F0C05C        BAL    15,   92(  0, 12)
C 00007626    4041F000        STH     4,    0(  1, 15)
C 0000762A    494F1000        CH      4,    0( 15,  1)
C 0000762E    477C0058        BC      7,   88( 12,  0)



C 00007632    41400002        LA      4,    2(  0,  0)
C 00007636    41100003        LA      1,    3(  0,  0)
C 0000763A    413092FC        LA      3,  764(  0,  9)
C 0000763E    45F0C05C        BAL    15,   92(  0, 12)
C 00007642    4041F000        STH     4,    0(  1, 15)
C 00007646    494F1000        CH      4,    0( 15,  1)
C 0000764A    477C0058        BC      7,   88( 12,  0)



C 0000764E    41100002        LA      1,    2(  0,  0)
C 00007652    5010B040        ST      1,   64(  0, 11)
C 00007656    5810D224        L       1,  548(  0, 13)
C 0000765A    45F0D074        BAL    15,  116(  0, 13)


  1581                         ->1

C 0000765E    47F0A034        BC     15,   52(  0, 10)


  1582                2:       FILL JUMPS(LEVEL)

C 00007662    D203B04090A8    MVC     64(  4, 11),  168(  9)
C 00007668    5810D368        L       1,  872(  0, 13)
C 0000766C    45F0D074        BAL    15,  116(  0, 13)


  1583                         NMAX=N %IF N>NMAX;            ! WORK SPACE POINTER

C 00007670    58109098        L       1,  152(  0,  9)
C 00007674    59109100        C       1,  256(  0,  9)
C 00007678    47BA00E4        BC     11,  228( 10,  0)
C 0000767C    D20390989100    MVC    152(  4,  9),  256(  9)


  1584                         POP (JUMP(LEVEL),J,K)

C 00007682    581090A8        L       1,  168(  0,  9)
C 00007686    413091BC        LA      3,  444(  0,  9)
C 0000768A    45F0C05C        BAL    15,   92(  0, 12)
C 0000768E    4111F000        LA      1,    0(  1, 15)
C 00007692    5010B040        ST      1,   64(  0, 11)
C 00007696    411080A0        LA      1,  160(  0,  8)
C 0000769A    5010B044        ST      1,   68(  0, 11)
C 0000769E    411080A4        LA      1,  164(  0,  8)
C 000076A2    5010B048        ST      1,   72(  0, 11)
C 000076A6    5810D3DC        L       1,  988(  0, 13)
C 000076AA    45F0D074        BAL    15,  116(  0, 13)


  1585                         ->3 %IF J=-1

C 000076AE    5810D010        L       1,   16(  0, 13)
C 000076B2    591080A0        C       1,  160(  0,  8)
C 000076B6    478A0000        BC      8,    0( 10,  0)


  1586                         ->2 %IF K>=SFLABEL; FAULT(11)

C 000076BA    581090F8        L       1,  248(  0,  9)
C 000076BE    591080A4        C       1,  164(  0,  8)
C 000076C2    47C0A0C4        BC     12,  196(  0, 10)



C 000076C6    920BB043        MVI     67( 11), 11
C 000076CA    5810D228        L       1,  552(  0, 13)
C 000076CE    45F0D074        BAL    15,  116(  0, 13)


  1587                         %IF K<16384 %THEN WRITE(K,4) %ELSE PRINTNAME(K-16384); ->2;

C 000076D2    5810D4B8        L       1, 1208(  0, 13)
C 000076D6    591080A4        C       1,  164(  0,  8)
C 000076DA    47DA0150        BC     13,  336( 10,  0)
C 000076DE    581080A4        L       1,  164(  0,  8)
C 000076E2    41200004        LA      2,    4(  0,  0)
C 000076E6    45F0C010        BAL    15,   16(  0, 12)
C 000076EA    47FA0164        BC     15,  356( 10,  0)
C 000076EE    581080A4        L       1,  164(  0,  8)
C 000076F2    5B10D4BC        S       1, 1212(  0, 13)
C 000076F6    5010B040        ST      1,   64(  0, 11)
C 000076FA    5810D230        L       1,  560(  0, 13)
C 000076FE    45F0D074        BAL    15,  116(  0, 13)



C 00007702    47F0A0C4        BC     15,  196(  0, 10)


  1588                3:       CLEAR LIST(LABEL(LEVEL))

C 00007706    581090A8        L       1,  168(  0,  9)
C 0000770A    413091DC        LA      3,  476(  0,  9)
C 0000770E    45F0C05C        BAL    15,   92(  0, 12)
C 00007712    4111F000        LA      1,    0(  1, 15)
C 00007716    5010B040        ST      1,   64(  0, 11)
C 0000771A    5810D350        L       1,  848(  0, 13)
C 0000771E    45F0D074        BAL    15,  116(  0, 13)


  1589                         CLEAR LIST (WSP (LEVEL))

C 00007722    581090A8        L       1,  168(  0,  9)
C 00007726    4130920C        LA      3,  524(  0,  9)
C 0000772A    45F0C05C        BAL    15,   92(  0, 12)
C 0000772E    4111F000        LA      1,    0(  1, 15)
C 00007732    5010B040        ST      1,   64(  0, 11)
C 00007736    5810D350        L       1,  848(  0, 13)
C 0000773A    45F0D074        BAL    15,  116(  0, 13)


  1590                         CLEAR LIST(LWSP(LEVEL))

C 0000773E    581090A8        L       1,  168(  0,  9)
C 00007742    4130923C        LA      3,  572(  0,  9)
C 00007746    45F0C05C        BAL    15,   92(  0, 12)
C 0000774A    4111F000        LA      1,    0(  1, 15)
C 0000774E    5010B040        ST      1,   64(  0, 11)
C 00007752    5810D350        L       1,  848(  0, 13)
C 00007756    45F0D074        BAL    15,  116(  0, 13)


  1591                         CLEAR LIST(MDARR(LEVEL))

C 0000775A    581090A8        L       1,  168(  0,  9)
C 0000775E    4130924C        LA      3,  588(  0,  9)
C 00007762    45F0C05C        BAL    15,   92(  0, 12)
C 00007766    4111F000        LA      1,    0(  1, 15)
C 0000776A    5010B040        ST      1,   64(  0, 11)
C 0000776E    5810D350        L       1,  848(  0, 13)
C 00007772    45F0D074        BAL    15,  116(  0, 13)


  1592                         CLEAR LIST(STR WSP(LEVEL))

C 00007776    581090A8        L       1,  168(  0,  9)
C 0000777A    4130927C        LA      3,  636(  0,  9)
C 0000777E    45F0C05C        BAL    15,   92(  0, 12)
C 00007782    4111F000        LA      1,    0(  1, 15)
C 00007786    5010B040        ST      1,   64(  0, 11)
C 0000778A    5810D350        L       1,  848(  0, 13)
C 0000778E    45F0D074        BAL    15,  116(  0, 13)


  1593                         %COMMENT CLEAR DECLARATIONS -PLANT DIAGNOSTICS IF REQUIRED
  1594                         ->10 %IF DIAGS1=0

C 00007792    950090D5        CLI    213(  9),  0
C 00007796    478A0000        BC      8,    0( 10,  0)


  1595                         LNUM=LETT(M(LEVEL))

C 0000779A    581090A8        L       1,  168(  0,  9)
C 0000779E    4130922C        LA      3,  556(  0,  9)
C 000077A2    45F0C05C        BAL    15,   92(  0, 12)
C 000077A6    4811F000        LH      1,    0(  1, 15)
C 000077AA    413092DC        LA      3,  732(  0,  9)
C 000077AE    45F0C05C        BAL    15,   92(  0, 12)
C 000077B2    4311F000        IC      1,    0(  1, 15)
C 000077B6    5410D018        N       1,   24(  0, 13)
C 000077BA    50107048        ST      1,   72(  0,  7)


  1596                         DD(0)=X'C2C2C2C2'

C 000077BE    5840D4C0        L       4, 1216(  0, 13)
C 000077C2    1F11            SLR     1,  1
C 000077C4    41307054        LA      3,   84(  0,  7)
C 000077C8    45F0C05C        BAL    15,   92(  0, 12)
C 000077CC    5041F000        ST      4,    0(  1, 15)


  1597                         DD(1)=L(LEVEL)<<16!RBASE<<8!LNUM

C 000077D0    581090A8        L       1,  168(  0,  9)
C 000077D4    4130921C        LA      3,  540(  0,  9)
C 000077D8    45F0C05C        BAL    15,   92(  0, 12)
C 000077DC    4861F000        LH      6,    0(  1, 15)
C 000077E0    89600010        SLL     6,   16(  0)
C 000077E4    584090F4        L       4,  244(  0,  9)
C 000077E8    89400008        SLL     4,    8(  0)
C 000077EC    1664            OR      6,  4
C 000077EE    56607048        O       6,   72(  0,  7)
C 000077F2    1846            LR      4,  6
C 000077F4    41100001        LA      1,    1(  0,  0)
C 000077F8    41307054        LA      3,   84(  0,  7)
C 000077FC    45F0C05C        BAL    15,   92(  0, 12)
C 00007800    5041F000        ST      4,    0(  1, 15)


  1598                         DPTR=3; ->9 %UNLESS LNUM=0

C 00007804    41100003        LA      1,    3(  0,  0)
C 00007808    50107044        ST      1,   68(  0,  7)



C 0000780C    58107048        L       1,   72(  0,  7)
C 00007810    1211            LTR     1,  1
C 00007812    477A0000        BC      7,    0( 10,  0)


  1599                         DD(2)=L(LEVEL-1); ->10

C 00007816    581090A8        L       1,  168(  0,  9)
C 0000781A    0610            BCTR    1,  0
C 0000781C    4130921C        LA      3,  540(  0,  9)
C 00007820    45F0C05C        BAL    15,   92(  0, 12)
C 00007824    4841F000        LH      4,    0(  1, 15)
C 00007828    41100002        LA      1,    2(  0,  0)
C 0000782C    41307054        LA      3,   84(  0,  7)
C 00007830    45F0C05C        BAL    15,   92(  0, 12)
C 00007834    5041F000        ST      4,    0(  1, 15)



C 00007838    47FA0000        BC     15,    0( 10,  0)


  1600                9:       W1=M(LEVEL)

C 0000783C    581090A8        L       1,  168(  0,  9)
C 00007840    4130922C        LA      3,  556(  0,  9)
C 00007844    45F0C05C        BAL    15,   92(  0, 12)
C 00007848    4811F000        LH      1,    0(  1, 15)
C 0000784C    5010704C        ST      1,   76(  0,  7)


  1601                         %CYCLE W2=1,1,LNUM

C 00007850    41407050        LA      4,   80(  0,  7)
C 00007854    41200001        LA      2,    1(  0,  0)
C 00007858    58307048        L       3,   72(  0,  7)
C 0000785C    90247064        STM     2,  4,  100(  7)
C 00007860    41100001        LA      1,    1(  0,  0)
C 00007864    50104000        ST      1,    0(  0,  4)


  1602                         BYTE INTEGER(ADDR(DD(0))+7+W2)=LETT(W1+W2);! MOVE IN RT NAME

C 00007868    5810704C        L       1,   76(  0,  7)
C 0000786C    5A107050        A       1,   80(  0,  7)
C 00007870    413092DC        LA      3,  732(  0,  9)
C 00007874    45F0C05C        BAL    15,   92(  0, 12)
C 00007878    1F44            SLR     4,  4
C 0000787A    4341F000        IC      4,    0(  1, 15)
C 0000787E    1F11            SLR     1,  1
C 00007880    41307054        LA      3,   84(  0,  7)
C 00007884    45F0C05C        BAL    15,   92(  0, 12)
C 00007888    4161F000        LA      6,    0(  1, 15)
C 0000788C    41100007        LA      1,    7(  0,  0)
C 00007890    1A61            AR      6,  1
C 00007892    5A607050        A       6,   80(  0,  7)
C 00007896    42406000        STC     4,    0(  0,  6)
C 0000789A    5540D018        CL      4,   24(  0, 13)
C 0000789E    472C0058        BC      2,   88( 12,  0)


  1603                         %REPEAT

C 000078A2    98247064        LM      2,  4,  100(  7)
C 000078A6    58104000        L       1,    0(  0,  4)
C 000078AA    8712A2C6        BXLE    1,  2,  710( 10)


  1604                         DPTR=DPTR+(LNUM-1)>>2

C 000078AE    58107048        L       1,   72(  0,  7)
C 000078B2    0610            BCTR    1,  0
C 000078B4    1851            LR      5,  1
C 000078B6    88500002        SRL     5,    2(  0)
C 000078BA    5A507044        A       5,   68(  0,  7)
C 000078BE    50507044        ST      5,   68(  0,  7)


  1605                10:      POP(NAME(LEVEL),J,JJ)

C 000078C2    581090A8        L       1,  168(  0,  9)
C 000078C6    413091CC        LA      3,  460(  0,  9)
C 000078CA    45F0C05C        BAL    15,   92(  0, 12)
C 000078CE    4111F000        LA      1,    0(  1, 15)
C 000078D2    5010B040        ST      1,   64(  0, 11)
C 000078D6    411080A0        LA      1,  160(  0,  8)
C 000078DA    5010B044        ST      1,   68(  0, 11)
C 000078DE    41108058        LA      1,   88(  0,  8)
C 000078E2    5010B048        ST      1,   72(  0, 11)
C 000078E6    5810D3DC        L       1,  988(  0, 13)
C 000078EA    45F0D074        BAL    15,  116(  0, 13)


  1606                         ->20 %IF J=-1

C 000078EE    5810D010        L       1,   16(  0, 13)
C 000078F2    591080A0        C       1,  160(  0,  8)
C 000078F6    478A0000        BC      8,    0( 10,  0)


  1607                         COPY TAG(JJ);POP(TAGS(JJ),KK,KK)

C 000078FA    D203B0408058    MVC     64(  4, 11),   88(  8)
C 00007900    5810D408        L       1, 1032(  0, 13)
C 00007904    45F0D074        BAL    15,  116(  0, 13)



C 00007908    58108058        L       1,   88(  0,  8)
C 0000790C    4130931C        LA      3,  796(  0,  9)
C 00007910    45F0C05C        BAL    15,   92(  0, 12)
C 00007914    4111F000        LA      1,    0(  1, 15)
C 00007918    5010B040        ST      1,   64(  0, 11)
C 0000791C    41108060        LA      1,   96(  0,  8)
C 00007920    5010B044        ST      1,   68(  0, 11)
C 00007924    41108060        LA      1,   96(  0,  8)
C 00007928    5010B048        ST      1,   72(  0, 11)
C 0000792C    5810D3DC        L       1,  988(  0, 13)
C 00007930    45F0D074        BAL    15,  116(  0, 13)


  1608                         %IF PTYPE=8 %THEN %START

C 00007934    41100008        LA      1,    8(  0,  0)
C 00007938    59108098        C       1,  152(  0,  8)
C 0000793C    477A0000        BC      7,    0( 10,  0)


  1609                         REGISTER(K)=0; UVARREG(K)=0; %FINISH;!RELEASE REGISTERS

C 00007940    1F44            SLR     4,  4
C 00007942    581080A4        L       1,  164(  0,  8)
C 00007946    4130914C        LA      3,  332(  0,  9)
C 0000794A    45F0C05C        BAL    15,   92(  0, 12)
C 0000794E    5041F000        ST      4,    0(  1, 15)



C 00007952    1F44            SLR     4,  4
C 00007954    581080A4        L       1,  164(  0,  8)
C 00007958    413092AC        LA      3,  684(  0,  9)
C 0000795C    45F0C05C        BAL    15,   92(  0, 12)
C 00007960    5041F000        ST      4,    0(  1, 15)


  1610                         %IF INREG#0 %THEN REGISTER(INREG) =0

C 00007964    581080AC        L       1,  172(  0,  8)
C 00007968    1211            LTR     1,  1
C 0000796A    478A03E2        BC      8,  994( 10,  0)
C 0000796E    1F44            SLR     4,  4
C 00007970    581080AC        L       1,  172(  0,  8)
C 00007974    4130914C        LA      3,  332(  0,  9)
C 00007978    45F0C05C        BAL    15,   92(  0, 12)
C 0000797C    5041F000        ST      4,    0(  1, 15)


  1611                         ->12 %UNLESS J=15

C 00007980    4110000F        LA      1,   15(  0,  0)
C 00007984    591080A0        C       1,  160(  0,  8)
C 00007988    477A0000        BC      7,    0( 10,  0)


  1612                         FAULT (28); PRINT NAME (JJ)

C 0000798C    921CB043        MVI     67( 11), 28
C 00007990    5810D228        L       1,  552(  0, 13)
C 00007994    45F0D074        BAL    15,  116(  0, 13)



C 00007998    D203B0408058    MVC     64(  4, 11),   88(  8)
C 0000799E    5810D230        L       1,  560(  0, 13)
C 000079A2    45F0D074        BAL    15,  116(  0, 13)


  1613                12:      OPHEAD=K; ->13 %IF TYPE=4

C 000079A6    581080A4        L       1,  164(  0,  8)
C 000079AA    40108054        STH     1,   84(  0,  8)
C 000079AE    49180054        CH      1,   84(  8,  0)
C 000079B2    477C0058        BC      7,   88( 12,  0)



C 000079B6    95048094        CLI    148(  8),  4
C 000079BA    478A0000        BC      8,    0( 10,  0)


  1614                         ->14 %UNLESS ROUT=1 %OR TYPE=3 %OR TYPE=6 %OR ARR=2

C 000079BE    95018090        CLI    144(  8),  1
C 000079C2    478A0440        BC      8, 1088( 10,  0)
C 000079C6    95038094        CLI    148(  8),  3
C 000079CA    478A0440        BC      8, 1088( 10,  0)
C 000079CE    95068094        CLI    148(  8),  6
C 000079D2    478A0440        BC      8, 1088( 10,  0)
C 000079D6    95028092        CLI    146(  8),  2
C 000079DA    477A0000        BC      7,    0( 10,  0)


  1615                         CLEAR LIST(OPHEAD); ->10

C 000079DE    41108054        LA      1,   84(  0,  8)
C 000079E2    5010B040        ST      1,   64(  0, 11)
C 000079E6    5810D350        L       1,  848(  0, 13)
C 000079EA    45F0D074        BAL    15,  116(  0, 13)



C 000079EE    47F0A324        BC     15,  804(  0, 10)


  1616                13:      UNDCRF (OPHEAD)

C 000079F2    41108054        LA      1,   84(  0,  8)
C 000079F6    5010B040        ST      1,   64(  0, 11)
C 000079FA    5810D360        L       1,  864(  0, 13)
C 000079FE    45F0D074        BAL    15,  116(  0, 13)


  1617                         ->10

C 00007A02    47F0A324        BC     15,  804(  0, 10)


  1618                14:      ->10 %UNLESS TYPE=1 %OR TYPE=2 %OR TYPE=5

C 00007A06    95018094        CLI    148(  8),  1
C 00007A0A    478A0480        BC      8, 1152( 10,  0)
C 00007A0E    95028094        CLI    148(  8),  2
C 00007A12    478A0480        BC      8, 1152( 10,  0)
C 00007A16    95058094        CLI    148(  8),  5
C 00007A1A    4770A324        BC      7,  804(  0, 10)


  1619                         ->10 %UNLESS ARR=0 %AND DIAGS1=1 %AND ROUT=0

C 00007A1E    95008092        CLI    146(  8),  0
C 00007A22    4770A324        BC      7,  804(  0, 10)
C 00007A26    950190D5        CLI    213(  9),  1
C 00007A2A    4770A324        BC      7,  804(  0, 10)
C 00007A2E    95008090        CLI    144(  8),  0
C 00007A32    4770A324        BC      7,  804(  0, 10)


  1620                         ->10 %IF DPTR>297

C 00007A36    41100129        LA      1,  297(  0,  0)
C 00007A3A    59107044        C       1,   68(  0,  7)
C 00007A3E    4740A324        BC      4,  804(  0, 10)


  1621                         Q=WORD(JJ);LNUM=LETT(Q)

C 00007A42    58108058        L       1,   88(  0,  8)
C 00007A46    4130930C        LA      3,  780(  0,  9)
C 00007A4A    45F0C05C        BAL    15,   92(  0, 12)
C 00007A4E    4811F000        LH      1,    0(  1, 15)
C 00007A52    50108068        ST      1,  104(  0,  8)



C 00007A56    58108068        L       1,  104(  0,  8)
C 00007A5A    413092DC        LA      3,  732(  0,  9)
C 00007A5E    45F0C05C        BAL    15,   92(  0, 12)
C 00007A62    4311F000        IC      1,    0(  1, 15)
C 00007A66    5410D018        N       1,   24(  0, 13)
C 00007A6A    50107048        ST      1,   72(  0,  7)


  1622                         LNUM=8 %IF LNUM>8;            ! TRUNCATE NAMES TO 8 CHARS

C 00007A6E    41100008        LA      1,    8(  0,  0)
C 00007A72    59107048        C       1,   72(  0,  7)
C 00007A76    47BA04E4        BC     11, 1252( 10,  0)
C 00007A7A    41100008        LA      1,    8(  0,  0)
C 00007A7E    50107048        ST      1,   72(  0,  7)


  1623                         PTYPE= NAM<<6!PREC<<3!TYPE

C 00007A82    1F11            SLR     1,  1
C 00007A84    43108091        IC      1,  145(  0,  8)
C 00007A88    89100006        SLL     1,    6(  0)
C 00007A8C    1F22            SLR     2,  2
C 00007A8E    43208093        IC      2,  147(  0,  8)
C 00007A92    89200003        SLL     2,    3(  0)
C 00007A96    1612            OR      1,  2
C 00007A98    1F22            SLR     2,  2
C 00007A9A    43208094        IC      2,  148(  0,  8)
C 00007A9E    1612            OR      1,  2
C 00007AA0    50108098        ST      1,  152(  0,  8)


  1624                         DD(DPTR)=PTYPE<<24!I<<20!K<<8!LNUM

C 00007AA4    58408098        L       4,  152(  0,  8)
C 00007AA8    89400018        SLL     4,   24(  0)
C 00007AAC    5810809C        L       1,  156(  0,  8)
C 00007AB0    89100014        SLL     1,   20(  0)
C 00007AB4    1641            OR      4,  1
C 00007AB6    581080A4        L       1,  164(  0,  8)
C 00007ABA    89100008        SLL     1,    8(  0)
C 00007ABE    1641            OR      4,  1
C 00007AC0    56407048        O       4,   72(  0,  7)
C 00007AC4    58107044        L       1,   68(  0,  7)
C 00007AC8    41307054        LA      3,   84(  0,  7)
C 00007ACC    45F0C05C        BAL    15,   92(  0, 12)
C 00007AD0    5041F000        ST      4,    0(  1, 15)


  1625                         %CYCLE W1=1,1,LNUM

C 00007AD4    4140704C        LA      4,   76(  0,  7)
C 00007AD8    41200001        LA      2,    1(  0,  0)
C 00007ADC    58307048        L       3,   72(  0,  7)
C 00007AE0    90247070        STM     2,  4,  112(  7)
C 00007AE4    41100001        LA      1,    1(  0,  0)
C 00007AE8    50104000        ST      1,    0(  0,  4)


  1626                         BYTE INTEGER(ADDR(DD(DPTR))+W1+3)=LETT(W1+Q)

C 00007AEC    5810704C        L       1,   76(  0,  7)
C 00007AF0    5A108068        A       1,  104(  0,  8)
C 00007AF4    413092DC        LA      3,  732(  0,  9)
C 00007AF8    45F0C05C        BAL    15,   92(  0, 12)
C 00007AFC    1F44            SLR     4,  4
C 00007AFE    4341F000        IC      4,    0(  1, 15)
C 00007B02    58107044        L       1,   68(  0,  7)
C 00007B06    41307054        LA      3,   84(  0,  7)
C 00007B0A    45F0C05C        BAL    15,   92(  0, 12)
C 00007B0E    4161F000        LA      6,    0(  1, 15)
C 00007B12    5A60704C        A       6,   76(  0,  7)
C 00007B16    41100003        LA      1,    3(  0,  0)
C 00007B1A    1A61            AR      6,  1
C 00007B1C    42406000        STC     4,    0(  0,  6)
C 00007B20    5540D018        CL      4,   24(  0, 13)
C 00007B24    472C0058        BC      2,   88( 12,  0)


  1627                         %REPEAT

C 00007B28    98247070        LM      2,  4,  112(  7)
C 00007B2C    58104000        L       1,    0(  0,  4)
C 00007B30    8712A54A        BXLE    1,  2, 1354( 10)


  1628                         DPTR=DPTR+1+(LNUM+3)>>2;->10

C 00007B34    41100003        LA      1,    3(  0,  0)
C 00007B38    5A107048        A       1,   72(  0,  7)
C 00007B3C    1851            LR      5,  1
C 00007B3E    41100001        LA      1,    1(  0,  0)
C 00007B42    5A107044        A       1,   68(  0,  7)
C 00007B46    88500002        SRL     5,    2(  0)
C 00007B4A    1A15            AR      1,  5
C 00007B4C    50107044        ST      1,   68(  0,  7)



C 00007B50    47F0A324        BC     15,  804(  0, 10)


  1629                20:      ->21 %IF DIAGS 1=0

C 00007B54    950090D5        CLI    213(  9),  0
C 00007B58    478A0000        BC      8,    0( 10,  0)


  1630                         DD(DPTR)=-1

C 00007B5C    5840D010        L       4,   16(  0, 13)
C 00007B60    58107044        L       1,   68(  0,  7)
C 00007B64    41307054        LA      3,   84(  0,  7)
C 00007B68    45F0C05C        BAL    15,   92(  0, 12)
C 00007B6C    5041F000        ST      4,    0(  1, 15)


  1631                         LPUT(4,DPTR<<2+4,SSTL,ADDR(DD(0)))

C 00007B70    41100004        LA      1,    4(  0,  0)
C 00007B74    5010B040        ST      1,   64(  0, 11)
C 00007B78    41B0B048        LA     11,   72(  0, 11)
C 00007B7C    58107044        L       1,   68(  0,  7)
C 00007B80    89100002        SLL     1,    2(  0)
C 00007B84    41200004        LA      2,    4(  0,  0)
C 00007B88    1A12            AR      1,  2
C 00007B8A    5AB0D050        A      11,   80(  0, 13)
C 00007B8E    5010B000        ST      1,    0(  0, 11)
C 00007B92    41B0B004        LA     11,    4(  0, 11)
C 00007B96    D203B0009140    MVC      0(  4, 11),  320(  9)
C 00007B9C    41B0B008        LA     11,    8(  0, 11)
C 00007BA0    1F11            SLR     1,  1
C 00007BA2    41307054        LA      3,   84(  0,  7)
C 00007BA6    45F0C05C        BAL    15,   92(  0, 12)
C 00007BAA    4111F000        LA      1,    0(  1, 15)
C 00007BAE    5AB0D050        A      11,   80(  0, 13)
C 00007BB2    5010B000        ST      1,    0(  0, 11)
C 00007BB6    4100004C        LA      0,   76(  0,  0)
C 00007BBA    1BB0            SR     11,  0
C 00007BBC    904EB010        STM     4, 14,   16( 11)
C 00007BC0    98CED1D8        LM     12, 14,  472( 13)
C 00007BC4    05FE            BALR   15, 14


  1632                         SSTL=SSTL+DPTR<<2+4

C 00007BC6    58107044        L       1,   68(  0,  7)
C 00007BCA    89100002        SLL     1,    2(  0)
C 00007BCE    5A109140        A       1,  320(  0,  9)
C 00007BD2    41200004        LA      2,    4(  0,  0)
C 00007BD6    1A12            AR      1,  2
C 00007BD8    50109140        ST      1,  320(  0,  9)


  1633                         %COMMENT CHECK CYCLE-REPEATS
  1634                21:      ->22 %IF CYCLE(LEVEL)=0

C 00007BDC    581090A8        L       1,  168(  0,  9)
C 00007BE0    413091AC        LA      3,  428(  0,  9)
C 00007BE4    45F0C05C        BAL    15,   92(  0, 12)
C 00007BE8    4811F000        LH      1,    0(  1, 15)
C 00007BEC    1211            LTR     1,  1
C 00007BEE    478A0000        BC      8,    0( 10,  0)


  1635                         FROM2(CYCLE(LEVEL),J)

C 00007BF2    581090A8        L       1,  168(  0,  9)
C 00007BF6    413091AC        LA      3,  428(  0,  9)
C 00007BFA    45F0C05C        BAL    15,   92(  0, 12)
C 00007BFE    4811F000        LH      1,    0(  1, 15)
C 00007C02    5010B040        ST      1,   64(  0, 11)
C 00007C06    411080A0        LA      1,  160(  0,  8)
C 00007C0A    5010B044        ST      1,   68(  0, 11)
C 00007C0E    5810D3F8        L       1, 1016(  0, 13)
C 00007C12    45F0D074        BAL    15,  116(  0, 13)


  1636                         ->22 %IF J=0

C 00007C16    581080A0        L       1,  160(  0,  8)
C 00007C1A    1211            LTR     1,  1
C 00007C1C    478A0000        BC      8,    0( 10,  0)


  1637                         POP(CYCLE(LEVEL),I,I)

C 00007C20    581090A8        L       1,  168(  0,  9)
C 00007C24    413091AC        LA      3,  428(  0,  9)
C 00007C28    45F0C05C        BAL    15,   92(  0, 12)
C 00007C2C    4111F000        LA      1,    0(  1, 15)
C 00007C30    5010B040        ST      1,   64(  0, 11)
C 00007C34    4110809C        LA      1,  156(  0,  8)
C 00007C38    5010B044        ST      1,   68(  0, 11)
C 00007C3C    4110809C        LA      1,  156(  0,  8)
C 00007C40    5010B048        ST      1,   72(  0, 11)
C 00007C44    5810D3DC        L       1,  988(  0, 13)
C 00007C48    45F0D074        BAL    15,  116(  0, 13)


  1638                         FAULT (13); ->21

C 00007C4C    920DB043        MVI     67( 11), 13
C 00007C50    5810D228        L       1,  552(  0, 13)
C 00007C54    45F0D074        BAL    15,  116(  0, 13)



C 00007C58    47F0A63E        BC     15, 1598(  0, 10)


  1639                22:      %COMMENT GARBAGE COLECT DICTIONARY
  1640                         NEXT=RNEXT(LEVEL)

C 00007C5C    581090A8        L       1,  168(  0,  9)
C 00007C60    4130925C        LA      3,  604(  0,  9)
C 00007C64    45F0C05C        BAL    15,   92(  0, 12)
C 00007C68    4811F000        LH      1,    0(  1, 15)
C 00007C6C    501090FC        ST      1,  252(  0,  9)


  1641                         %CYCLE W1=0,1,NNAMES

C 00007C70    4140704C        LA      4,   76(  0,  7)
C 00007C74    41200001        LA      2,    1(  0,  0)
C 00007C78    58309068        L       3,  104(  0,  9)
C 00007C7C    9024707C        STM     2,  4,  124(  7)
C 00007C80    1F11            SLR     1,  1
C 00007C82    50104000        ST      1,    0(  0,  4)


  1642                         WORD(W1)=0 %IF WORD(W1)>NEXT

C 00007C86    5810704C        L       1,   76(  0,  7)
C 00007C8A    4130930C        LA      3,  780(  0,  9)
C 00007C8E    45F0C05C        BAL    15,   92(  0, 12)
C 00007C92    4811F000        LH      1,    0(  1, 15)
C 00007C96    591090FC        C       1,  252(  0,  9)
C 00007C9A    47DA071A        BC     13, 1818( 10,  0)
C 00007C9E    1F44            SLR     4,  4
C 00007CA0    5810704C        L       1,   76(  0,  7)
C 00007CA4    4130930C        LA      3,  780(  0,  9)
C 00007CA8    45F0C05C        BAL    15,   92(  0, 12)
C 00007CAC    4041F000        STH     4,    0(  1, 15)
C 00007CB0    494F1000        CH      4,    0( 15,  1)
C 00007CB4    477C0058        BC      7,   88( 12,  0)


  1643                         %REPEAT

C 00007CB8    9824707C        LM      2,  4,  124(  7)
C 00007CBC    58104000        L       1,    0(  0,  4)
C 00007CC0    8712A6E4        BXLE    1,  2, 1764( 10)


  1644                         %COMMENT PLANT ANY NECESSARY CODE
  1645                         NMAX=(NMAX+7)&(-8)

C 00007CC4    41100007        LA      1,    7(  0,  0)
C 00007CC8    5A109098        A       1,  152(  0,  9)
C 00007CCC    1851            LR      5,  1
C 00007CCE    41100008        LA      1,    8(  0,  0)
C 00007CD2    1311            LCR     1,  1
C 00007CD4    1861            LR      6,  1
C 00007CD6    1456            NR      5,  6
C 00007CD8    50509098        ST      5,  152(  0,  9)


  1646                         FAULT (99) %IF NMAX>4092

C 00007CDC    41100FFC        LA      1, 4092(  0,  0)
C 00007CE0    59109098        C       1,  152(  0,  9)
C 00007CE4    47BA0756        BC     11, 1878( 10,  0)
C 00007CE8    9263B043        MVI     67( 11), 99
C 00007CEC    5810D228        L       1,  552(  0, 13)
C 00007CF0    45F0D074        BAL    15,  116(  0, 13)


  1647                         PLUG(SET(RLEVEL),NMAX) %IF KKK>=10000 %OR KKK=1

C 00007CF4    5810D4C4        L       1, 1220(  0, 13)
C 00007CF8    59107040        C       1,   64(  0,  7)
C 00007CFC    47CA076E        BC     12, 1902( 10,  0)
C 00007D00    41100001        LA      1,    1(  0,  0)
C 00007D04    59107040        C       1,   64(  0,  7)
C 00007D08    477A0790        BC      7, 1936( 10,  0)
C 00007D0C    58109094        L       1,  148(  0,  9)
C 00007D10    4130916C        LA      3,  364(  0,  9)
C 00007D14    45F0C05C        BAL    15,   92(  0, 12)
C 00007D18    5811F000        L       1,    0(  1, 15)
C 00007D1C    5010B040        ST      1,   64(  0, 11)
C 00007D20    D203B0449098    MVC     68(  4, 11),  152(  9)
C 00007D26    5810D1F0        L       1,  496(  0, 13)
C 00007D2A    45F0D074        BAL    15,  116(  0, 13)


  1648                         ->23 %IF KKK=10000

C 00007D2E    5810D4C8        L       1, 1224(  0, 13)
C 00007D32    59107040        C       1,   64(  0,  7)
C 00007D36    478A0000        BC      8,    0( 10,  0)


  1649                         ->24 %IF KKK=0

C 00007D3A    58107040        L       1,   64(  0,  7)
C 00007D3E    1211            LTR     1,  1
C 00007D40    478A0000        BC      8,    0( 10,  0)


  1650                         %IF KKK>10000 %AND COMPILER =0 %THEN %START

C 00007D44    5810D4CC        L       1, 1228(  0, 13)
C 00007D48    59107040        C       1,   64(  0,  7)
C 00007D4C    47BA0000        BC     11,    0( 10,  0)
C 00007D50    950090DA        CLI    218(  9),  0
C 00007D54    477A0000        BC      7,    0( 10,  0)


  1651                         PCONST(X'4100000B')           ;!LA 0,11  --- FAULT 11

C 00007D58    5810D4D0        L       1, 1232(  0, 13)
C 00007D5C    5010B040        ST      1,   64(  0, 11)
C 00007D60    5810D1B4        L       1,  436(  0, 13)
C 00007D64    45F0D074        BAL    15,  116(  0, 13)


  1652                         PPJ(21);%FINISH               ;! *->RTF1

C 00007D68    9215B043        MVI     67( 11), 21
C 00007D6C    5810D46C        L       1, 1132(  0, 13)
C 00007D70    45F0D074        BAL    15,  116(  0, 13)


  1653                         PPJ(6) %IF KKK=1; ->30;       ! 'STOP' AT END OF PROGRAM

C 00007D74    41100001        LA      1,    1(  0,  0)
C 00007D78    59107040        C       1,   64(  0,  7)
C 00007D7C    477A07EE        BC      7, 2030( 10,  0)
C 00007D80    9206B043        MVI     67( 11),  6
C 00007D84    5810D46C        L       1, 1132(  0, 13)
C 00007D88    45F0D074        BAL    15,  116(  0, 13)



C 00007D8C    47FA0000        BC     15,    0( 10,  0)


  1654                23:      P=P+1; A(P)=5; CUI(0); ->30;  ! COMPILE '%RTURN' FOR ROUTINES

C 00007D90    41100001        LA      1,    1(  0,  0)
C 00007D94    5A108040        A       1,   64(  0,  8)
C 00007D98    50108040        ST      1,   64(  0,  8)



C 00007D9C    41400005        LA      4,    5(  0,  0)
C 00007DA0    58108040        L       1,   64(  0,  8)
C 00007DA4    413092FC        LA      3,  764(  0,  9)
C 00007DA8    45F0C05C        BAL    15,   92(  0, 12)
C 00007DAC    4041F000        STH     4,    0(  1, 15)
C 00007DB0    494F1000        CH      4,    0( 15,  1)
C 00007DB4    477C0058        BC      7,   88( 12,  0)



C 00007DB8    9200B043        MVI     67( 11),  0
C 00007DBC    5810D370        L       1,  880(  0, 13)
C 00007DC0    45F0D074        BAL    15,  116(  0, 13)



C 00007DC4    47FA0000        BC     15,    0( 10,  0)


  1655                24:      JJ=X'FFF'&RAL(LEVEL-1)

C 00007DC8    581090A8        L       1,  168(  0,  9)
C 00007DCC    0610            BCTR    1,  0
C 00007DCE    4130919C        LA      3,  412(  0,  9)
C 00007DD2    45F0C05C        BAL    15,   92(  0, 12)
C 00007DD6    5861F000        L       6,    0(  1, 15)
C 00007DDA    41100FFF        LA      1, 4095(  0,  0)
C 00007DDE    1461            NR      6,  1
C 00007DE0    50608058        ST      6,   88(  0,  8)


  1656                         PRX(X'98',10,11,RBASE,JJ);    ! RESTORE R11&12

C 00007DE4    41100098        LA      1,  152(  0,  0)
C 00007DE8    5010B040        ST      1,   64(  0, 11)
C 00007DEC    4110000A        LA      1,   10(  0,  0)
C 00007DF0    5010B044        ST      1,   68(  0, 11)
C 00007DF4    4110000B        LA      1,   11(  0,  0)
C 00007DF8    5010B048        ST      1,   72(  0, 11)
C 00007DFC    D203B04C90F4    MVC     76(  4, 11),  244(  9)
C 00007E02    D203B0508058    MVC     80(  4, 11),   88(  8)
C 00007E08    5810D1C0        L       1,  448(  0, 13)
C 00007E0C    45F0D074        BAL    15,  116(  0, 13)


  1657                         PSS(X'D2',4,GLA,20,RBASE,JJ+8) %IF DIAGS1=1

C 00007E10    950190D5        CLI    213(  9),  1
C 00007E14    477A08B2        BC      7, 2226( 10,  0)
C 00007E18    411000D2        LA      1,  210(  0,  0)
C 00007E1C    5010B040        ST      1,   64(  0, 11)
C 00007E20    41100004        LA      1,    4(  0,  0)
C 00007E24    5010B044        ST      1,   68(  0, 11)
C 00007E28    D203B048D150    MVC     72(  4, 11),  336( 13)
C 00007E2E    41100014        LA      1,   20(  0,  0)
C 00007E32    5010B04C        ST      1,   76(  0, 11)
C 00007E36    D203B05090F4    MVC     80(  4, 11),  244(  9)
C 00007E3C    41100008        LA      1,    8(  0,  0)
C 00007E40    5A108058        A       1,   88(  0,  8)
C 00007E44    5010B054        ST      1,   84(  0, 11)
C 00007E48    5810D1BC        L       1,  444(  0, 13)
C 00007E4C    45F0D074        BAL    15,  116(  0, 13)


  1658                30:      ->99 %IF KKK=2; NEWLINE

C 00007E50    41100002        LA      1,    2(  0,  0)
C 00007E54    59107040        C       1,   64(  0,  7)
C 00007E58    478A0000        BC      8,    0( 10,  0)



C 00007E5C    4110000A        LA      1,   10(  0,  0)
C 00007E60    41000003        LA      0,    3(  0,  0)
C 00007E64    9041B010        STM     4,  1,   16( 11)
C 00007E68    98CED08C        LM     12, 14,  140( 13)
C 00007E6C    05FE            BALR   15, 14


  1659                         %IF PRINTMAP=1 %AND LIST=1 %AND KKK#0 %THEN %START

C 00007E6E    950190DD        CLI    221(  9),  1
C 00007E72    477A0000        BC      7,    0( 10,  0)
C 00007E76    950190D2        CLI    210(  9),  1
C 00007E7A    477A0000        BC      7,    0( 10,  0)
C 00007E7E    58107040        L       1,   64(  0,  7)
C 00007E82    1211            LTR     1,  1
C 00007E84    478A0000        BC      8,    0( 10,  0)


  1660                         %PRINTTEXT' LOCALS EXTEND TO '

C 00007E88    45F0C078        BAL    15,  120(  0, 12)
C 00007E8C    1220            LTR     2,  0
C 00007E8E    4C4F4341        MH      4,  833( 15,  4)
C 00007E92    4C532045        MH      5,   69(  3,  2)
C 00007E96    5854454E        L       5, 1358(  4,  4)
C 00007E9A    4420544F        EX      2, 1103(  0,  5)
C 00007E9E    2000            LPDR    0,  0


  1661                         WRITE(NMAX,2); NEWLINE; %FINISH

C 00007EA0    58109098        L       1,  152(  0,  9)
C 00007EA4    41200002        LA      2,    2(  0,  0)
C 00007EA8    45F0C010        BAL    15,   16(  0, 12)



C 00007EAC    4110000A        LA      1,   10(  0,  0)
C 00007EB0    41000003        LA      0,    3(  0,  0)
C 00007EB4    9041B010        STM     4,  1,   16( 11)
C 00007EB8    98CED08C        LM     12, 14,  140( 13)
C 00007EBC    05FE            BALR   15, 14


  1662                         ->31 %IF LIST#0; WRITE(LINE,5)

C 00007EBE    950090D2        CLI    210(  9),  0
C 00007EC2    477A0000        BC      7,    0( 10,  0)



C 00007EC6    5810907C        L       1,  124(  0,  9)
C 00007ECA    41200005        LA      2,    5(  0,  0)
C 00007ECE    45F0C010        BAL    15,   16(  0, 12)


  1663                         SPACES(3*LEVEL-3); %PRINTTEXT 'END'

C 00007ED2    41100003        LA      1,    3(  0,  0)
C 00007ED6    5C0090A8        M       0,  168(  0,  9)
C 00007EDA    41200003        LA      2,    3(  0,  0)
C 00007EDE    1B12            SR      1,  2
C 00007EE0    1821            LR      2,  1
C 00007EE2    41100020        LA      1,   32(  0,  0)
C 00007EE6    45F0C038        BAL    15,   56(  0, 12)



C 00007EEA    45F0C078        BAL    15,  120(  0, 12)
C 00007EEE    0345
C 00007EF0    4E444120        CVD     4,  288(  4,  4)


  1664                31:      ->33 %IF LEVEL>2 %OR PERM=1 %OR CPRMODE=2

C 00007EF2    41100002        LA      1,    2(  0,  0)
C 00007EF6    591090A8        C       1,  168(  0,  9)
C 00007EFA    474A0000        BC      4,    0( 10,  0)
C 00007EFE    950190D0        CLI    208(  9),  1
C 00007F02    478A0000        BC      8,    0( 10,  0)
C 00007F06    950290DB        CLI    219(  9),  2
C 00007F0A    478A0000        BC      8,    0( 10,  0)


  1665                         ->32 %IF KKK=1

C 00007F0E    41100001        LA      1,    1(  0,  0)
C 00007F12    59107040        C       1,   64(  0,  7)
C 00007F16    478A0000        BC      8,    0( 10,  0)


  1666                         FAULT(14); A(1)=13; ->99;     ! TOO MANY ENDS

C 00007F1A    920EB043        MVI     67( 11), 14
C 00007F1E    5810D228        L       1,  552(  0, 13)
C 00007F22    45F0D074        BAL    15,  116(  0, 13)



C 00007F26    4140000D        LA      4,   13(  0,  0)
C 00007F2A    41100001        LA      1,    1(  0,  0)
C 00007F2E    413092FC        LA      3,  764(  0,  9)
C 00007F32    45F0C05C        BAL    15,   92(  0, 12)
C 00007F36    4041F000        STH     4,    0(  1, 15)
C 00007F3A    494F1000        CH      4,    0( 15,  1)
C 00007F3E    477C0058        BC      7,   88( 12,  0)



C 00007F42    47FA0000        BC     15,    0( 10,  0)


  1667                32:      KKK=2

C 00007F46    41100002        LA      1,    2(  0,  0)
C 00007F4A    50107040        ST      1,   64(  0,  7)


  1668                33:      LEVEL=LEVEL-1

C 00007F4E    581090A8        L       1,  168(  0,  9)
C 00007F52    0610            BCTR    1,  0
C 00007F54    501090A8        ST      1,  168(  0,  9)


  1669                         RLEVEL=RLEVEL-1 %IF KKK>=10000

C 00007F58    5810D4D4        L       1, 1236(  0, 13)
C 00007F5C    59107040        C       1,   64(  0,  7)
C 00007F60    473A09D0        BC      3, 2512( 10,  0)
C 00007F64    58109094        L       1,  148(  0,  9)
C 00007F68    0610            BCTR    1,  0
C 00007F6A    50109094        ST      1,  148(  0,  9)


  1670                         RBASE=10-RLEVEL; REGISTER (9-RLEVEL)=0

C 00007F6E    4110000A        LA      1,   10(  0,  0)
C 00007F72    5B109094        S       1,  148(  0,  9)
C 00007F76    501090F4        ST      1,  244(  0,  9)



C 00007F7A    1F44            SLR     4,  4
C 00007F7C    41100009        LA      1,    9(  0,  0)
C 00007F80    5B109094        S       1,  148(  0,  9)
C 00007F84    4130914C        LA      3,  332(  0,  9)
C 00007F88    45F0C05C        BAL    15,   92(  0, 12)
C 00007F8C    5041F000        ST      4,    0(  1, 15)


  1671                         N=RAL(LEVEL); SBFLAG=N>>15&1

C 00007F90    581090A8        L       1,  168(  0,  9)
C 00007F94    4130919C        LA      3,  412(  0,  9)
C 00007F98    45F0C05C        BAL    15,   92(  0, 12)
C 00007F9C    5811F000        L       1,    0(  1, 15)
C 00007FA0    50109100        ST      1,  256(  0,  9)



C 00007FA4    58109100        L       1,  256(  0,  9)
C 00007FA8    8810000F        SRL     1,   15(  0)
C 00007FAC    41200001        LA      2,    1(  0,  0)
C 00007FB0    1412            NR      1,  2
C 00007FB2    421090CB        STC     1,  203(  0,  9)
C 00007FB6    5510D018        CL      1,   24(  0, 13)
C 00007FBA    472C0058        BC      2,   88( 12,  0)


  1672                         NMAX=N>>16 %IF KKK>=10000; N=N&4095

C 00007FBE    5810D4D8        L       1, 1240(  0, 13)
C 00007FC2    59107040        C       1,   64(  0,  7)
C 00007FC6    473A0A38        BC      3, 2616( 10,  0)
C 00007FCA    58109100        L       1,  256(  0,  9)
C 00007FCE    88100010        SRL     1,   16(  0)
C 00007FD2    50109098        ST      1,  152(  0,  9)



C 00007FD6    41100FFF        LA      1, 4095(  0,  0)
C 00007FDA    54109100        N       1,  256(  0,  9)
C 00007FDE    50109100        ST      1,  256(  0,  9)


  1673                         ->2 %IF KKK=2;                ! ROUND AGAIN FOR 'ENDOFPROGRAM'

C 00007FE2    41100002        LA      1,    2(  0,  0)
C 00007FE6    59107040        C       1,   64(  0,  7)
C 00007FEA    4780A0C4        BC      8,  196(  0, 10)


  1674                         ->99 %IF RLEVEL=1 %AND CPRMODE=2

C 00007FEE    41100001        LA      1,    1(  0,  0)
C 00007FF2    59109094        C       1,  148(  0,  9)
C 00007FF6    477A0A64        BC      7, 2660( 10,  0)
C 00007FFA    950290DB        CLI    219(  9),  2
C 00007FFE    478A0000        BC      8,    0( 10,  0)


  1675                         ->99 %IF KKK=0 %OR COMPILER=1

C 00008002    58107040        L       1,   64(  0,  7)
C 00008006    1211            LTR     1,  1
C 00008008    478A0000        BC      8,    0( 10,  0)
C 0000800C    950190DA        CLI    218(  9),  1
C 00008010    478A0000        BC      8,    0( 10,  0)


  1676                         FROM2(JUMP(LEVEL),J)    ; PLAB(J)

C 00008014    581090A8        L       1,  168(  0,  9)
C 00008018    413091BC        LA      3,  444(  0,  9)
C 0000801C    45F0C05C        BAL    15,   92(  0, 12)
C 00008020    4811F000        LH      1,    0(  1, 15)
C 00008024    5010B040        ST      1,   64(  0, 11)
C 00008028    411080A0        LA      1,  160(  0,  8)
C 0000802C    5010B044        ST      1,   68(  0, 11)
C 00008030    5810D3F8        L       1, 1016(  0, 13)
C 00008034    45F0D074        BAL    15,  116(  0, 13)



C 00008038    D203B04080A0    MVC     64(  4, 11),  160(  8)
C 0000803E    5810D470        L       1, 1136(  0, 13)
C 00008042    45F0D074        BAL    15,  116(  0, 13)


  1677                99:      %END
D 00000638    C2 C2 C2 C2 06 25 07 04 43 45 4E 44 01 70 50 02 57 32 00 00 01 70 4C 02 57 31 A7 40 01 70 48 04 4C 4E 55 4D 01 70 44 04 44 50 54 52 01 70 40 03 4B 4B 4B 03 FF FF FF FF


C 00008046    D203D0147000    MVC     20(  4, 13),    0(  7)
C 0000804C    984F7010        LM      4, 15,   16(  7)
C 00008050    07FF            BCR    15, 15


  1678                     %ROUTINE     CRSPEC (%BYTEINTEGER M)

C 00008052    0000
C 00008054    0000
C 00008056    47FA0000        BC     15,    0( 10,  0)
C 0000805A    50F0B03C        ST     15,   60(  0, 11)
C 0000805E    D203B000D014    MVC      0(  4, 11),   20( 13)
C 00008064    4100068E        LA      0, 1678(  0,  0)
C 00008068    4000D014        STH     0,   20(  0, 13)
C 0000806C    187B            LR      7, 11
C 0000806E    41BB0000        LA     11,    0( 11,  0)
C 00008072    41000004        LA      0,    4(  0,  0)
C 00008076    59BD0044        C      11,   68( 13,  0)
C 0000807A    4720C054        BC      2,   84(  0, 12)
C 0000807E    05A0            BALR   10,  0


  1679                         %SHORTROUTINE
  1680                         %INTEGER PP,KK,JJ,JJJ,Q,TYPEP
  1681                         ->12 %IF M=3

C 00008080    95037043        CLI     67(  7),  3
C 00008084    478A0000        BC      8,    0( 10,  0)


  1682                         PP=P; ->2 %UNLESS M=2

C 00008088    D20370448040    MVC     68(  4,  7),   64(  8)



C 0000808E    95027043        CLI     67(  7),  2
C 00008092    477A0000        BC      7,    0( 10,  0)


  1683                         KK=A(P); P=P+1; COPYTAG(KK)

C 00008096    58108040        L       1,   64(  0,  8)
C 0000809A    413092FC        LA      3,  764(  0,  9)
C 0000809E    45F0C05C        BAL    15,   92(  0, 12)
C 000080A2    4811F000        LH      1,    0(  1, 15)
C 000080A6    50107048        ST      1,   72(  0,  7)



C 000080AA    41100001        LA      1,    1(  0,  0)
C 000080AE    5A108040        A       1,   64(  0,  8)
C 000080B2    50108040        ST      1,   64(  0,  8)



C 000080B6    D203B0407048    MVC     64(  4, 11),   72(  7)
C 000080BC    5810D408        L       1, 1032(  0, 13)
C 000080C0    45F0D074        BAL    15,  116(  0, 13)


  1684                         ->1 %IF OLDI=LEVEL %AND 10006#PTYPE>=10000

C 000080C4    D50380A890A8    CLC    168(  4,  8),  168(  9)
C 000080CA    477A006A        BC      7,  106( 10,  0)
C 000080CE    5810D4E0        L       1, 1248(  0, 13)
C 000080D2    1851            LR      5,  1
C 000080D4    58108098        L       1,  152(  0,  8)
C 000080D8    1915            CR      1,  5
C 000080DA    478A006A        BC      8,  106( 10,  0)
C 000080DE    1851            LR      5,  1
C 000080E0    5810D4E4        L       1, 1252(  0, 13)
C 000080E4    1915            CR      1,  5
C 000080E6    47CA0000        BC     12,    0( 10,  0)


  1685                         FAULT(3); ->99

C 000080EA    9203B043        MVI     67( 11),  3
C 000080EE    5810D228        L       1,  552(  0, 13)
C 000080F2    45F0D074        BAL    15,  116(  0, 13)



C 000080F6    47FA0000        BC     15,    0( 10,  0)


  1686                1:       FROM LIST(K,JJ,Q); OPHEAD=K

C 000080FA    D203B04080A4    MVC     64(  4, 11),  164(  8)
C 00008100    4110704C        LA      1,   76(  0,  7)
C 00008104    5010B044        ST      1,   68(  0, 11)
C 00008108    41107054        LA      1,   84(  0,  7)
C 0000810C    5010B048        ST      1,   72(  0, 11)
C 00008110    5810D3D8        L       1,  984(  0, 13)
C 00008114    45F0D074        BAL    15,  116(  0, 13)



C 00008118    581080A4        L       1,  164(  0,  8)
C 0000811C    40108054        STH     1,   84(  0,  8)
C 00008120    49180054        CH      1,   84(  8,  0)
C 00008124    477C0058        BC      7,   88( 12,  0)


  1687                         ->12 %IF Q=1000; ->10

C 00008128    411003E8        LA      1, 1000(  0,  0)
C 0000812C    59107054        C       1,   84(  0,  7)
C 00008130    478A0000        BC      8,    0( 10,  0)



C 00008134    47FA0000        BC     15,    0( 10,  0)


  1688                2:       ->3 %IF A(PP+1)=2

C 00008138    41100001        LA      1,    1(  0,  0)
C 0000813C    5A107044        A       1,   68(  0,  7)
C 00008140    413092FC        LA      3,  764(  0,  9)
C 00008144    45F0C05C        BAL    15,   92(  0, 12)
C 00008148    4811F000        LH      1,    0(  1, 15)
C 0000814C    41200002        LA      2,    2(  0,  0)
C 00008150    1912            CR      1,  2
C 00008152    478A0000        BC      8,    0( 10,  0)


  1689                         TYPEP=10000; P=PP+3; ->4

C 00008156    5810D4E8        L       1, 1256(  0, 13)
C 0000815A    50107058        ST      1,   88(  0,  7)



C 0000815E    41100003        LA      1,    3(  0,  0)
C 00008162    5A107044        A       1,   68(  0,  7)
C 00008166    50108040        ST      1,   64(  0,  8)



C 0000816A    47FA0000        BC     15,    0( 10,  0)


  1690                3:       ROUT=1;ARR=0;P=PP+2;CLT

C 0000816E    92018090        MVI    144(  8),  1



C 00008172    92008092        MVI    146(  8),  0



C 00008176    41100002        LA      1,    2(  0,  0)
C 0000817A    5A107044        A       1,   68(  0,  7)
C 0000817E    50108040        ST      1,   64(  0,  8)



C 00008182    5810D3B0        L       1,  944(  0, 13)
C 00008186    45F0D074        BAL    15,  116(  0, 13)


  1691                         NAM=(A(P)-1)*2; PACK(TYPEP); P=P+2

C 0000818A    58108040        L       1,   64(  0,  8)
C 0000818E    413092FC        LA      3,  764(  0,  9)
C 00008192    45F0C05C        BAL    15,   92(  0, 12)
C 00008196    4861F000        LH      6,    0(  1, 15)
C 0000819A    0660            BCTR    6,  0
C 0000819C    1856            LR      5,  6
C 0000819E    41100002        LA      1,    2(  0,  0)
C 000081A2    1C41            MR      4,  1
C 000081A4    42508091        STC     5,  145(  0,  8)
C 000081A8    5550D018        CL      5,   24(  0, 13)
C 000081AC    472C0058        BC      2,   88( 12,  0)



C 000081B0    41107058        LA      1,   88(  0,  7)
C 000081B4    5010B040        ST      1,   64(  0, 11)
C 000081B8    5810D450        L       1, 1104(  0, 13)
C 000081BC    45F0D074        BAL    15,  116(  0, 13)



C 000081C0    41100002        LA      1,    2(  0,  0)
C 000081C4    5A108040        A       1,   64(  0,  8)
C 000081C8    50108040        ST      1,   64(  0,  8)


  1692                4:       KK=A(P); COPYTAG(KK)

C 000081CC    58108040        L       1,   64(  0,  8)
C 000081D0    413092FC        LA      3,  764(  0,  9)
C 000081D4    45F0C05C        BAL    15,   92(  0, 12)
C 000081D8    4811F000        LH      1,    0(  1, 15)
C 000081DC    50107048        ST      1,   72(  0,  7)



C 000081E0    D203B0407048    MVC     64(  4, 11),   72(  7)
C 000081E6    5810D408        L       1, 1032(  0, 13)
C 000081EA    45F0D074        BAL    15,  116(  0, 13)


  1693                         ->11 %IF OLDI#LEVEL

C 000081EE    D50380A890A8    CLC    168(  4,  8),  168(  9)
C 000081F4    477A0000        BC      7,    0( 10,  0)


  1694                         ->1 %IF PTYPE=TYPEP %OR !PTYPE-TYPEP!=1000

C 000081F8    D50380987058    CLC    152(  4,  8),   88(  7)
C 000081FE    4780A07A        BC      8,  122(  0, 10)
C 00008202    58108098        L       1,  152(  0,  8)
C 00008206    5B107058        S       1,   88(  0,  7)
C 0000820A    1011            LPR     1,  1
C 0000820C    412003E8        LA      2, 1000(  0,  0)
C 00008210    1912            CR      1,  2
C 00008212    4780A07A        BC      8,  122(  0, 10)


  1695                10:      FNAME=KK;FAULT(7) %UNLESS PTYPE=7

C 00008216    D20391307048    MVC    304(  4,  9),   72(  7)



C 0000821C    41100007        LA      1,    7(  0,  0)
C 00008220    59108098        C       1,  152(  0,  8)
C 00008224    478A01B4        BC      8,  436( 10,  0)
C 00008228    9207B043        MVI     67( 11),  7
C 0000822C    5810D228        L       1,  552(  0, 13)
C 00008230    45F0D074        BAL    15,  116(  0, 13)


  1696                         ->99 %IF M=2

C 00008234    95027043        CLI     67(  7),  2
C 00008238    478A0000        BC      8,    0( 10,  0)


  1697                11:      JJ=NR; NR=NR+1; RA(JJ)=4*N0; N0=N0+1

C 0000823C    D203704C9104    MVC     76(  4,  7),  260(  9)



C 00008242    41100001        LA      1,    1(  0,  0)
C 00008246    5A109104        A       1,  260(  0,  9)
C 0000824A    50109104        ST      1,  260(  0,  9)



C 0000824E    41100004        LA      1,    4(  0,  0)
C 00008252    5C009088        M       0,  136(  0,  9)
C 00008256    1841            LR      4,  1
C 00008258    5810704C        L       1,   76(  0,  7)
C 0000825C    413092EC        LA      3,  748(  0,  9)
C 00008260    45F0C05C        BAL    15,   92(  0, 12)
C 00008264    4041F000        STH     4,    0(  1, 15)
C 00008268    494F1000        CH      4,    0( 15,  1)
C 0000826C    477C0058        BC      7,   88( 12,  0)



C 00008270    41100001        LA      1,    1(  0,  0)
C 00008274    5A109088        A       1,  136(  0,  9)
C 00008278    50109088        ST      1,  136(  0,  9)


  1698                         FAULT(109) %IF NR>NROUTS

C 0000827C    48109062        LH      1,   98(  0,  9)
C 00008280    59109104        C       1,  260(  0,  9)
C 00008284    47BA0214        BC     11,  532( 10,  0)
C 00008288    926DB043        MVI     67( 11), 109
C 0000828C    5810D228        L       1,  552(  0, 13)
C 00008290    45F0D074        BAL    15,  116(  0, 13)


  1699                         OPHEAD=NEWCELL;J=15;PTYPE=TYPEP

C 00008294    5810D404        L       1, 1028(  0, 13)
C 00008298    45F0D074        BAL    15,  116(  0, 13)
C 0000829C    40108054        STH     1,   84(  0,  8)
C 000082A0    49180054        CH      1,   84(  8,  0)
C 000082A4    477C0058        BC      7,   88( 12,  0)



C 000082A8    4110000F        LA      1,   15(  0,  0)
C 000082AC    501080A0        ST      1,  160(  0,  8)



C 000082B0    D20380987058    MVC    152(  4,  8),   88(  7)


  1700                         STORE TAG(KK,OPHEAD)

C 000082B6    D203B0407048    MVC     64(  4, 11),   72(  7)
C 000082BC    48108054        LH      1,   84(  0,  8)
C 000082C0    5010B044        ST      1,   68(  0, 11)
C 000082C4    5810D434        L       1, 1076(  0, 13)
C 000082C8    45F0D074        BAL    15,  116(  0, 13)


  1701                12:      JJJ=OPHEAD; Q=0; ->24 %IF A(P+1)=2;     ! NO FORMAL PARAMS

C 000082CC    48108054        LH      1,   84(  0,  8)
C 000082D0    50107050        ST      1,   80(  0,  7)



C 000082D4    1F11            SLR     1,  1
C 000082D6    50107054        ST      1,   84(  0,  7)



C 000082DA    41100001        LA      1,    1(  0,  0)
C 000082DE    5A108040        A       1,   64(  0,  8)
C 000082E2    413092FC        LA      3,  764(  0,  9)
C 000082E6    45F0C05C        BAL    15,   92(  0, 12)
C 000082EA    4811F000        LH      1,    0(  1, 15)
C 000082EE    41200002        LA      2,    2(  0,  0)
C 000082F2    1912            CR      1,  2
C 000082F4    478A0000        BC      8,    0( 10,  0)


  1702                13:      P=P+2; COMPILE FORMAL PARAMETER

C 000082F8    41100002        LA      1,    2(  0,  0)
C 000082FC    5A108040        A       1,   64(  0,  8)
C 00008300    50108040        ST      1,   64(  0,  8)



C 00008304    5810D468        L       1, 1128(  0, 13)
C 00008308    45F0D074        BAL    15,  116(  0, 13)


  1703                         %CYCLE PP=1,1,A(P)

C 0000830C    41407044        LA      4,   68(  0,  7)
C 00008310    41200001        LA      2,    1(  0,  0)
C 00008314    5020705C        ST      2,   92(  0,  7)
C 00008318    58108040        L       1,   64(  0,  8)
C 0000831C    413092FC        LA      3,  764(  0,  9)
C 00008320    45F0C05C        BAL    15,   92(  0, 12)
C 00008324    4831F000        LH      3,    0(  1, 15)
C 00008328    90347060        STM     3,  4,   96(  7)
C 0000832C    41100001        LA      1,    1(  0,  0)
C 00008330    50104000        ST      1,    0(  0,  4)


  1704                         KK=0; KK=ACC %IF PTYPE=5

C 00008334    1F11            SLR     1,  1
C 00008336    50107048        ST      1,   72(  0,  7)



C 0000833A    41100005        LA      1,    5(  0,  0)
C 0000833E    59108098        C       1,  152(  0,  8)
C 00008342    477A02CC        BC      7,  716( 10,  0)
C 00008346    D20370488050    MVC     72(  4,  7),   80(  8)


  1705                         INSERT AFTER(OPHEAD,PTYPE,KK);! FOR STRINGS PUSH IN LMAX

C 0000834C    41108054        LA      1,   84(  0,  8)
C 00008350    5010B040        ST      1,   64(  0, 11)
C 00008354    D203B0448098    MVC     68(  4, 11),  152(  8)
C 0000835A    D203B0487048    MVC     72(  4, 11),   72(  7)
C 00008360    5810D3D4        L       1,  980(  0, 13)
C 00008364    45F0D074        BAL    15,  116(  0, 13)


  1706                         Q=Q+1; %REPEAT

C 00008368    41100001        LA      1,    1(  0,  0)
C 0000836C    5A107054        A       1,   84(  0,  7)
C 00008370    50107054        ST      1,   84(  0,  7)



C 00008374    9824705C        LM      2,  4,   92(  7)
C 00008378    58104000        L       1,    0(  0,  4)
C 0000837C    8712A2B0        BXLE    1,  2,  688( 10)


  1707                         P=P+PP+1; ->13 %IF A(P)=1

C 00008380    58108040        L       1,   64(  0,  8)
C 00008384    5A107044        A       1,   68(  0,  7)
C 00008388    41200001        LA      2,    1(  0,  0)
C 0000838C    1A12            AR      1,  2
C 0000838E    50108040        ST      1,   64(  0,  8)



C 00008392    58108040        L       1,   64(  0,  8)
C 00008396    413092FC        LA      3,  764(  0,  9)
C 0000839A    45F0C05C        BAL    15,   92(  0, 12)
C 0000839E    4811F000        LH      1,    0(  1, 15)
C 000083A2    41200001        LA      2,    1(  0,  0)
C 000083A6    1912            CR      1,  2
C 000083A8    4780A278        BC      8,  632(  0, 10)


  1708                24:      REPLACE2(JJJ,Q)

C 000083AC    D203B0407050    MVC     64(  4, 11),   80(  7)
C 000083B2    D203B0447054    MVC     68(  4, 11),   84(  7)
C 000083B8    5810D3EC        L       1, 1004(  0, 13)
C 000083BC    45F0D074        BAL    15,  116(  0, 13)


  1709                         ->99 %IF M=3

C 000083C0    95037043        CLI     67(  7),  3
C 000083C4    478A0000        BC      8,    0( 10,  0)


  1710                         REPLACE1(JJJ,JJ)

C 000083C8    D203B0407050    MVC     64(  4, 11),   80(  7)
C 000083CE    D203B044704C    MVC     68(  4, 11),   76(  7)
C 000083D4    5810D3F0        L       1, 1008(  0, 13)
C 000083D8    45F0D074        BAL    15,  116(  0, 13)


  1711                99:      %END
D 00000670    C2 C2 C2 C2 06 8E 07 06 43 52 53 50 45 43 00 40 01 70 58 05 54 59 50 45 50 FE A7 40 01 70 54 01 51 FE A6 E0 01 70 50 03 4A 4A 4A 02 01 70 4C 02 4A 4A 00 01 01 70 48 02 4B 4B 00 00 01 70 44 02 50 50 00 06 09 70 43 01 4D 00 00 07 FF FF FF FF


C 000083DC    D203D0147000    MVC     20(  4, 13),    0(  7)
C 000083E2    984F7010        LM      4, 15,   16(  7)
C 000083E6    07FF            BCR    15, 15


  1712                     %ROUTINE     COMPILE FORMAL PARAMETER

C 000083E8    0000
C 000083EA    0000
C 000083EC    47FA0000        BC     15,    0( 10,  0)
C 000083F0    50F0B03C        ST     15,   60(  0, 11)
C 000083F4    D203B000D014    MVC      0(  4, 11),   20( 13)
C 000083FA    410006B0        LA      0, 1712(  0,  0)
C 000083FE    4000D014        STH     0,   20(  0, 13)
C 00008402    187B            LR      7, 11
C 00008404    41BB0000        LA     11,    0( 11,  0)
C 00008408    41000004        LA      0,    4(  0,  0)
C 0000840C    59BD0044        C      11,   68( 13,  0)
C 00008410    4720C054        BC      2,   84(  0, 12)
C 00008414    05A0            BALR   10,  0


  1713                         %SHORT %ROUTINE
  1714                         %SWITCH FPD(1:5)

C 00008416    0700            BCR     0,  0
C 00008418    47FA0000        BC     15,    0( 10,  0)
C 0000841C    0200
C 0000841E    0001
C 00008420    0000
C 00008422    0005
C 00008424    0000
C 00008426    0000
C 00008428    0000
C 0000842A    0000
C 0000842C    0000
C 0000842E    0000


  1715                         ->FPD(A(P))

C 00008430    58108040        L       1,   64(  0,  8)
C 00008434    413092FC        LA      3,  764(  0,  9)
C 00008438    45F0C05C        BAL    15,   92(  0, 12)
C 0000843C    4811F000        LH      1,    0(  1, 15)
C 00008440    1A11            AR      1,  1
C 00008442    4811A00C        LH      1,   12(  1, 10)
C 00008446    47F1A000        BC     15,    0(  1, 10)


  1716                FPD(1):  !(RT)
  1717                         ACC=16;ROUT=1;NAM=1

C 0000844A    41100010        LA      1,   16(  0,  0)
C 0000844E    50108050        ST      1,   80(  0,  8)



C 00008452    92018090        MVI    144(  8),  1



C 00008456    92018091        MVI    145(  8),  1


  1718                         ARR=0

C 0000845A    92008092        MVI    146(  8),  0


  1719                         ->1 %UNLESS A(P+1)=1

C 0000845E    41100001        LA      1,    1(  0,  0)
C 00008462    5A108040        A       1,   64(  0,  8)
C 00008466    413092FC        LA      3,  764(  0,  9)
C 0000846A    45F0C05C        BAL    15,   92(  0, 12)
C 0000846E    4811F000        LH      1,    0(  1, 15)
C 00008472    41200001        LA      2,    1(  0,  0)
C 00008476    1912            CR      1,  2
C 00008478    477A0000        BC      7,    0( 10,  0)


  1720                         PREC=0;TYPE=0;P=P+3; ->98

C 0000847C    92008093        MVI    147(  8),  0



C 00008480    92008094        MVI    148(  8),  0



C 00008484    41100003        LA      1,    3(  0,  0)
C 00008488    5A108040        A       1,   64(  0,  8)
C 0000848C    50108040        ST      1,   64(  0,  8)



C 00008490    47FA0000        BC     15,    0( 10,  0)


  1721                1:       P=P+2; CLT;NAM =2*(A(P)-1)+1

C 00008494    41100002        LA      1,    2(  0,  0)
C 00008498    5A108040        A       1,   64(  0,  8)
C 0000849C    50108040        ST      1,   64(  0,  8)



C 000084A0    5810D3B0        L       1,  944(  0, 13)
C 000084A4    45F0D074        BAL    15,  116(  0, 13)



C 000084A8    58108040        L       1,   64(  0,  8)
C 000084AC    413092FC        LA      3,  764(  0,  9)
C 000084B0    45F0C05C        BAL    15,   92(  0, 12)
C 000084B4    4861F000        LH      6,    0(  1, 15)
C 000084B8    0660            BCTR    6,  0
C 000084BA    1856            LR      5,  6
C 000084BC    1A55            AR      5,  5
C 000084BE    41100001        LA      1,    1(  0,  0)
C 000084C2    1A51            AR      5,  1
C 000084C4    42508091        STC     5,  145(  0,  8)
C 000084C8    5550D018        CL      5,   24(  0, 13)
C 000084CC    472C0058        BC      2,   88( 12,  0)


  1722                         P=P+2; ACC=16; ->98

C 000084D0    41100002        LA      1,    2(  0,  0)
C 000084D4    5A108040        A       1,   64(  0,  8)
C 000084D8    50108040        ST      1,   64(  0,  8)



C 000084DC    41100010        LA      1,   16(  0,  0)
C 000084E0    50108050        ST      1,   80(  0,  8)



C 000084E4    47FA0000        BC     15,    0( 10,  0)


  1723                FPD(2):  !(LENGTH')(TYPE)(ARRAY')(NAME)
  1724                         P=P+1; CLT

C 000084E8    41100001        LA      1,    1(  0,  0)
C 000084EC    5A108040        A       1,   64(  0,  8)
C 000084F0    50108040        ST      1,   64(  0,  8)



C 000084F4    5810D3B0        L       1,  944(  0, 13)
C 000084F8    45F0D074        BAL    15,  116(  0, 13)


  1725                         CQN(P); ROUT=0

C 000084FC    D203B0408040    MVC     64(  4, 11),   64(  8)
C 00008502    5810D3AC        L       1,  940(  0, 13)
C 00008506    45F0D074        BAL    15,  116(  0, 13)



C 0000850A    92008090        MVI    144(  8),  0


  1726                         FAULT(70) %IF TYPE=5 %AND ACC=0

C 0000850E    95058094        CLI    148(  8),  5
C 00008512    477A0116        BC      7,  278( 10,  0)
C 00008516    58108050        L       1,   80(  0,  8)
C 0000851A    1211            LTR     1,  1
C 0000851C    477A0116        BC      7,  278( 10,  0)
C 00008520    9246B043        MVI     67( 11), 70
C 00008524    5810D228        L       1,  552(  0, 13)
C 00008528    45F0D074        BAL    15,  116(  0, 13)


  1727                         P=P+1; ->98

C 0000852C    41100001        LA      1,    1(  0,  0)
C 00008530    5A108040        A       1,   64(  0,  8)
C 00008534    50108040        ST      1,   64(  0,  8)



C 00008538    47FA0000        BC     15,    0( 10,  0)


  1728                FPD(3):  !%NAME
  1729                         TYPE=0

C 0000853C    92008094        MVI    148(  8),  0


  1730                31:      NAM=1; ARR=2-A(P+1); ROUT=0

C 00008540    92018091        MVI    145(  8),  1



C 00008544    41100001        LA      1,    1(  0,  0)
C 00008548    5A108040        A       1,   64(  0,  8)
C 0000854C    413092FC        LA      3,  764(  0,  9)
C 00008550    45F0C05C        BAL    15,   92(  0, 12)
C 00008554    4861F000        LH      6,    0(  1, 15)
C 00008558    41100002        LA      1,    2(  0,  0)
C 0000855C    1B16            SR      1,  6
C 0000855E    42108092        STC     1,  146(  0,  8)
C 00008562    5510D018        CL      1,   24(  0, 13)
C 00008566    472C0058        BC      2,   88( 12,  0)



C 0000856A    92008090        MVI    144(  8),  0


  1731                         ACC=4+12*ARR

C 0000856E    4110000C        LA      1,   12(  0,  0)
C 00008572    1F22            SLR     2,  2
C 00008574    43208092        IC      2,  146(  0,  8)
C 00008578    1C02            MR      0,  2
C 0000857A    41200004        LA      2,    4(  0,  0)
C 0000857E    1A12            AR      1,  2
C 00008580    50108050        ST      1,   80(  0,  8)


  1732                         PREC=0; P=P+2; ->98

C 00008584    92008093        MVI    147(  8),  0



C 00008588    41100002        LA      1,    2(  0,  0)
C 0000858C    5A108040        A       1,   64(  0,  8)
C 00008590    50108040        ST      1,   64(  0,  8)



C 00008594    47FA0000        BC     15,    0( 10,  0)


  1733                FPD(4):  TYPE=3; ->31

C 00008598    92038094        MVI    148(  8),  3



C 0000859C    47F0A12A        BC     15,  298(  0, 10)


  1734                98:      PACK(PTYPE)

C 000085A0    41108098        LA      1,  152(  0,  8)
C 000085A4    5010B040        ST      1,   64(  0, 11)
C 000085A8    5810D450        L       1, 1104(  0, 13)
C 000085AC    45F0D074        BAL    15,  116(  0, 13)


  1735                         %END
D 000006C0    C2 C2 C2 C2 06 B0 07 16 43 4F 4D 50 49 4C 45 46 4F 52 4D 41 4C 50 41 52 41 4D 45 54 45 52 A6 E8 FF FF FF FF


C 000085B0    D203D0147000    MVC     20(  4, 13),    0(  7)
C 000085B6    984F7010        LM      4, 15,   16(  7)
C 000085BA    07FF            BCR    15, 15


  1736                     %ROUTINE ASSIGN (%INTEGER P1,P2)

C 000085BC    0000
C 000085BE    0000
C 000085C0    47FA0000        BC     15,    0( 10,  0)
C 000085C4    50F0B03C        ST     15,   60(  0, 11)
C 000085C8    D203B000D014    MVC      0(  4, 11),   20( 13)
C 000085CE    410006C8        LA      0, 1736(  0,  0)
C 000085D2    4000D014        STH     0,   20(  0, 13)
C 000085D6    187B            LR      7, 11
C 000085D8    41BB0000        LA     11,    0( 11,  0)
C 000085DC    41000004        LA      0,    4(  0,  0)
C 000085E0    59BD0044        C      11,   68( 13,  0)
C 000085E4    4720C054        BC      2,   84(  0, 12)
C 000085E8    05A0            BALR   10,  0


  1737                         %SHORTROUTINE
  1738                         %INTEGER Q,ASSOP,KK,REG,PRECP,Z,ZP,TYPEP
  1739                         %INTEGER JJJ
  1740                         %SWITCH SW(1:4), S(0:15)

C 000085EA    0700            BCR     0,  0
C 000085EC    47FA0000        BC     15,    0( 10,  0)
C 000085F0    0200
C 000085F2    0001
C 000085F4    0000
C 000085F6    0004
C 000085F8    0000
C 000085FA    0000
C 000085FC    0000
C 000085FE    0000
C 00008600    0000
C 00008602    0000
C 00008604    0200
C 00008606    0000
C 00008608    0000
C 0000860A    000F
C 0000860C    0000
C 0000860E    0000
C 00008610    0000
C 00008612    0000
C 00008614    0000
C 00008616    0000
C 00008618    0000
C 0000861A    0000
C 0000861C    0000
C 0000861E    0000
C 00008620    0000
C 00008622    0000
C 00008624    0000
C 00008626    0000
C 00008628    0000
C 0000862A    0000
C 0000862C    0000
C 0000862E    0000


  1741                         ASSOP=A(P2); ->SW(ASSOP);     !P2 ON ASSOP

C 00008630    58107044        L       1,   68(  0,  7)
C 00008634    413092FC        LA      3,  764(  0,  9)
C 00008638    45F0C05C        BAL    15,   92(  0, 12)
C 0000863C    4811F000        LH      1,    0(  1, 15)
C 00008640    5010704C        ST      1,   76(  0,  7)



C 00008644    5810704C        L       1,   76(  0,  7)
C 00008648    1A11            AR      1,  1
C 0000864A    4811A00C        LH      1,   12(  1, 10)
C 0000864E    47F1A000        BC     15,    0(  1, 10)


  1742                SW(2):SW(3):   COPYTAG(A(P1+1)); P=P2+1

C 00008652    41100001        LA      1,    1(  0,  0)
C 00008656    5A107040        A       1,   64(  0,  7)
C 0000865A    413092FC        LA      3,  764(  0,  9)
C 0000865E    45F0C05C        BAL    15,   92(  0, 12)
C 00008662    4811F000        LH      1,    0(  1, 15)
C 00008666    5010B040        ST      1,   64(  0, 11)
C 0000866A    5810D408        L       1, 1032(  0, 13)
C 0000866E    45F0D074        BAL    15,  116(  0, 13)



C 00008672    41100001        LA      1,    1(  0,  0)
C 00008676    5A107044        A       1,   68(  0,  7)
C 0000867A    50108040        ST      1,   64(  0,  8)


  1743                         ->REGVAR %IF TYPE=8

C 0000867E    95088094        CLI    148(  8),  8
C 00008682    478A0000        BC      8,    0( 10,  0)


  1744                         -> MAPS %IF ROUT=1

C 00008686    95018090        CLI    144(  8),  1
C 0000868A    478A0000        BC      8,    0( 10,  0)


  1745                         ->34 %IF TYPE=2

C 0000868E    95028094        CLI    148(  8),  2
C 00008692    478A0000        BC      8,    0( 10,  0)


  1746                         ->50 %IF TYPE=5

C 00008696    95058094        CLI    148(  8),  5
C 0000869A    478A0000        BC      8,    0( 10,  0)


  1747                         ->35 %IF TYPE=3

C 0000869E    95038094        CLI    148(  8),  3
C 000086A2    478A0000        BC      8,    0( 10,  0)


  1748                         ->32 %IF NAM=0 %AND TYPE=1 %AND ARR=0

C 000086A6    95008091        CLI    145(  8),  0
C 000086AA    477A00D4        BC      7,  212( 10,  0)
C 000086AE    95018094        CLI    148(  8),  1
C 000086B2    477A00D4        BC      7,  212( 10,  0)
C 000086B6    95008092        CLI    146(  8),  0
C 000086BA    478A0000        BC      8,    0( 10,  0)


  1749                33:      P=P2+1

C 000086BE    41100001        LA      1,    1(  0,  0)
C 000086C2    5A107044        A       1,   68(  0,  7)
C 000086C6    50108040        ST      1,   64(  0,  8)


  1750                         KK=0; KK=4 %UNLESS ARR=0 %AND ROUT=0 %AND 1>=TYPE

C 000086CA    1F11            SLR     1,  1
C 000086CC    50107050        ST      1,   80(  0,  7)



C 000086D0    95008092        CLI    146(  8),  0
C 000086D4    477A0106        BC      7,  262( 10,  0)
C 000086D8    95008090        CLI    144(  8),  0
C 000086DC    477A0106        BC      7,  262( 10,  0)
C 000086E0    1F11            SLR     1,  1
C 000086E2    43108094        IC      1,  148(  0,  8)
C 000086E6    41200001        LA      2,    1(  0,  0)
C 000086EA    1921            CR      2,  1
C 000086EC    47AA010E        BC     10,  270( 10,  0)
C 000086F0    41100004        LA      1,    4(  0,  0)
C 000086F4    50107050        ST      1,   80(  0,  7)


  1751                36:      %IF KK=4 %AND REGISTER(4)#0 %THEN KK=14

C 000086F8    41100004        LA      1,    4(  0,  0)
C 000086FC    59107050        C       1,   80(  0,  7)
C 00008700    477A0138        BC      7,  312( 10,  0)
C 00008704    41100004        LA      1,    4(  0,  0)
C 00008708    4130914C        LA      3,  332(  0,  9)
C 0000870C    45F0C05C        BAL    15,   92(  0, 12)
C 00008710    5811F000        L       1,    0(  1, 15)
C 00008714    1211            LTR     1,  1
C 00008716    478A0138        BC      8,  312( 10,  0)
C 0000871A    4110000E        LA      1,   14(  0,  0)
C 0000871E    50107050        ST      1,   80(  0,  7)


  1752                         CSEXP(KK,1); REG=NEST;KK=P

C 00008722    D203B0407050    MVC     64(  4, 11),   80(  7)
C 00008728    9201B047        MVI     71( 11),  1
C 0000872C    5810D37C        L       1,  892(  0, 13)
C 00008730    45F0D074        BAL    15,  116(  0, 13)



C 00008734    D2037054912C    MVC     84(  4,  7),  300(  9)



C 0000873A    D20370508040    MVC     80(  4,  7),   64(  8)


  1753                         REGISTER(REG)=1 %IF REGISTER(REG)=0

C 00008740    58107054        L       1,   84(  0,  7)
C 00008744    4130914C        LA      3,  332(  0,  9)
C 00008748    45F0C05C        BAL    15,   92(  0, 12)
C 0000874C    5811F000        L       1,    0(  1, 15)
C 00008750    1211            LTR     1,  1
C 00008752    477A0180        BC      7,  384( 10,  0)
C 00008756    41400001        LA      4,    1(  0,  0)
C 0000875A    58107054        L       1,   84(  0,  7)
C 0000875E    4130914C        LA      3,  332(  0,  9)
C 00008762    45F0C05C        BAL    15,   92(  0, 12)
C 00008766    5041F000        ST      4,    0(  1, 15)


  1754                         P=P1+1; CNAME((ASSOP-1)*(ASSOP-1),REG)

C 0000876A    41100001        LA      1,    1(  0,  0)
C 0000876E    5A107040        A       1,   64(  0,  7)
C 00008772    50108040        ST      1,   64(  0,  8)



C 00008776    5810704C        L       1,   76(  0,  7)
C 0000877A    0610            BCTR    1,  0
C 0000877C    1851            LR      5,  1
C 0000877E    5810704C        L       1,   76(  0,  7)
C 00008782    0610            BCTR    1,  0
C 00008784    1861            LR      6,  1
C 00008786    1C46            MR      4,  6
C 00008788    5050B040        ST      5,   64(  0, 11)
C 0000878C    D203B0447054    MVC     68(  4, 11),   84(  7)
C 00008792    5810D3C4        L       1,  964(  0, 13)
C 00008796    45F0D074        BAL    15,  116(  0, 13)


  1755                         REGISTER(REG)=0 %IF REGISTER(REG)>0

C 0000879A    58107054        L       1,   84(  0,  7)
C 0000879E    4130914C        LA      3,  332(  0,  9)
C 000087A2    45F0C05C        BAL    15,   92(  0, 12)
C 000087A6    5811F000        L       1,    0(  1, 15)
C 000087AA    1211            LTR     1,  1
C 000087AC    47DA01D8        BC     13,  472( 10,  0)
C 000087B0    1F44            SLR     4,  4
C 000087B2    58107054        L       1,   84(  0,  7)
C 000087B6    4130914C        LA      3,  332(  0,  9)
C 000087BA    45F0C05C        BAL    15,   92(  0, 12)
C 000087BE    5041F000        ST      4,    0(  1, 15)


  1756                30:
  1757                         P=KK; %IF A(P)=1=QU  %THEN CQUERY (REG)

C 000087C2    D20380407050    MVC     64(  4,  8),   80(  7)



C 000087C8    58108040        L       1,   64(  0,  8)
C 000087CC    413092FC        LA      3,  764(  0,  9)
C 000087D0    45F0C05C        BAL    15,   92(  0, 12)
C 000087D4    4811F000        LH      1,    0(  1, 15)
C 000087D8    1851            LR      5,  1
C 000087DA    41100001        LA      1,    1(  0,  0)
C 000087DE    1915            CR      1,  5
C 000087E0    477A0214        BC      7,  532( 10,  0)
C 000087E4    1F22            SLR     2,  2
C 000087E6    432090CF        IC      2,  207(  0,  9)
C 000087EA    1912            CR      1,  2
C 000087EC    477A0214        BC      7,  532( 10,  0)
C 000087F0    D203B0407054    MVC     64(  4, 11),   84(  7)
C 000087F6    5810D3A0        L       1,  928(  0, 13)
C 000087FA    45F0D074        BAL    15,  116(  0, 13)


  1758                         P=P+1; ->1

C 000087FE    41100001        LA      1,    1(  0,  0)
C 00008802    5A108040        A       1,   64(  0,  8)
C 00008806    50108040        ST      1,   64(  0,  8)



C 0000880A    47FA0000        BC     15,    0( 10,  0)


  1759                31:      %PRINTTEXT' CRUNCH '; %MONITORSTOP

C 0000880E    45F0C078        BAL    15,  120(  0, 12)
C 00008812    0820            SSK     2,  0
C 00008814    4352554E        IC      5, 1358(  2,  5)
C 00008818    43482000        IC      4,    0(  8,  2)



C 0000881C    45F0C030        BAL    15,   48(  0, 12)


  1760                32:      ->33 %IF ROUT=1 %OR A(P1+2)=1 %OR A(P1+3)=1;! ACTUAL PARAMS

C 00008820    95018090        CLI    144(  8),  1
C 00008824    4780A0D4        BC      8,  212(  0, 10)
C 00008828    41100002        LA      1,    2(  0,  0)
C 0000882C    5A107040        A       1,   64(  0,  7)
C 00008830    413092FC        LA      3,  764(  0,  9)
C 00008834    45F0C05C        BAL    15,   92(  0, 12)
C 00008838    4811F000        LH      1,    0(  1, 15)
C 0000883C    41200001        LA      2,    1(  0,  0)
C 00008840    1912            CR      1,  2
C 00008842    4780A0D4        BC      8,  212(  0, 10)
C 00008846    41100003        LA      1,    3(  0,  0)
C 0000884A    5A107040        A       1,   64(  0,  7)
C 0000884E    413092FC        LA      3,  764(  0,  9)
C 00008852    45F0C05C        BAL    15,   92(  0, 12)
C 00008856    4811F000        LH      1,    0(  1, 15)
C 0000885A    41200001        LA      2,    1(  0,  0)
C 0000885E    1912            CR      1,  2
C 00008860    4780A0D4        BC      8,  212(  0, 10)


  1761                         ->33 %IF UNASS =1

C 00008864    950190DC        CLI    220(  9),  1
C 00008868    4780A0D4        BC      8,  212(  0, 10)


  1762                         PRECP=PREC; TYPEP=PTYPE

C 0000886C    1F11            SLR     1,  1
C 0000886E    43108093        IC      1,  147(  0,  8)
C 00008872    50107058        ST      1,   88(  0,  7)



C 00008876    D20370648098    MVC    100(  4,  7),  152(  8)


  1763                         KK=K; REG=I; Q=TSEXP(JJJ)

C 0000887C    D203705080A4    MVC     80(  4,  7),  164(  8)



C 00008882    D2037054809C    MVC     84(  4,  7),  156(  8)



C 00008888    41107068        LA      1,  104(  0,  7)
C 0000888C    5010B040        ST      1,   64(  0, 11)
C 00008890    5810D478        L       1, 1144(  0, 13)
C 00008894    45F0D074        BAL    15,  116(  0, 13)
C 00008898    50107048        ST      1,   72(  0,  7)


  1764                         PTYPE=TYPEP; UNPACK

C 0000889C    D20380987064    MVC    152(  4,  8),  100(  7)



C 000088A2    5810D448        L       1, 1096(  0, 13)
C 000088A6    45F0D074        BAL    15,  116(  0, 13)


  1765                         ->33 %IF Q=0 %OR A(P)=1=QU

C 000088AA    58107048        L       1,   72(  0,  7)
C 000088AE    1211            LTR     1,  1
C 000088B0    4780A0D4        BC      8,  212(  0, 10)
C 000088B4    58108040        L       1,   64(  0,  8)
C 000088B8    413092FC        LA      3,  764(  0,  9)
C 000088BC    45F0C05C        BAL    15,   92(  0, 12)
C 000088C0    4811F000        LH      1,    0(  1, 15)
C 000088C4    1851            LR      5,  1
C 000088C6    41100001        LA      1,    1(  0,  0)
C 000088CA    1915            CR      1,  5
C 000088CC    477A02F2        BC      7,  754( 10,  0)
C 000088D0    1F22            SLR     2,  2
C 000088D2    432090CF        IC      2,  207(  0,  9)
C 000088D6    1912            CR      1,  2
C 000088D8    4780A0D4        BC      8,  212(  0, 10)


  1766                         ->37 %IF 10<=Q<=12 %AND Q-10=PRECP

C 000088DC    58107048        L       1,   72(  0,  7)
C 000088E0    4120000A        LA      2,   10(  0,  0)
C 000088E4    1921            CR      2,  1
C 000088E6    473A031C        BC      3,  796( 10,  0)
C 000088EA    4120000C        LA      2,   12(  0,  0)
C 000088EE    1912            CR      1,  2
C 000088F0    473A031C        BC      3,  796( 10,  0)
C 000088F4    58107048        L       1,   72(  0,  7)
C 000088F8    4120000A        LA      2,   10(  0,  0)
C 000088FC    1B12            SR      1,  2
C 000088FE    59107058        C       1,   88(  0,  7)
C 00008902    478A0000        BC      8,    0( 10,  0)


  1767                         ->33 %UNLESS Q=1 %AND PRECP=1

C 00008906    41100001        LA      1,    1(  0,  0)
C 0000890A    59107048        C       1,   72(  0,  7)
C 0000890E    4770A0D4        BC      7,  212(  0, 10)
C 00008912    41100001        LA      1,    1(  0,  0)
C 00008916    59107058        C       1,   88(  0,  7)
C 0000891A    4770A0D4        BC      7,  212(  0, 10)


  1768                         PSI(X'92',JJJ,REG,KK);        ! MVI TO SET BYTE

C 0000891E    41100092        LA      1,  146(  0,  0)
C 00008922    5010B040        ST      1,   64(  0, 11)
C 00008926    D203B0447068    MVC     68(  4, 11),  104(  7)
C 0000892C    D203B0487054    MVC     72(  4, 11),   84(  7)
C 00008932    D203B04C7050    MVC     76(  4, 11),   80(  7)
C 00008938    5810D1B8        L       1,  440(  0, 13)
C 0000893C    45F0D074        BAL    15,  116(  0, 13)


  1769                         P=P+1;->1;                     ! SKIP QUERY IF ANY

C 00008940    41100001        LA      1,    1(  0,  0)
C 00008944    5A108040        A       1,   64(  0,  8)
C 00008948    50108040        ST      1,   64(  0,  8)



C 0000894C    47FA0000        BC     15,    0( 10,  0)


  1770                37:      PSS(X'D2',BYTES(PRECP),REG,KK,I,K); ! MVC IF POSSIBL

C 00008950    411000D2        LA      1,  210(  0,  0)
C 00008954    5010B040        ST      1,   64(  0, 11)
C 00008958    58107058        L       1,   88(  0,  7)
C 0000895C    4130D108        LA      3,  264(  0, 13)
C 00008960    45F0C05C        BAL    15,   92(  0, 12)
C 00008964    4311F000        IC      1,    0(  1, 15)
C 00008968    5410D018        N       1,   24(  0, 13)
C 0000896C    5010B044        ST      1,   68(  0, 11)
C 00008970    D203B0487054    MVC     72(  4, 11),   84(  7)
C 00008976    D203B04C7050    MVC     76(  4, 11),   80(  7)
C 0000897C    D203B050809C    MVC     80(  4, 11),  156(  8)
C 00008982    D203B05480A4    MVC     84(  4, 11),  164(  8)
C 00008988    5810D1BC        L       1,  444(  0, 13)
C 0000898C    45F0D074        BAL    15,  116(  0, 13)


  1771                         P=P+1; ->1

C 00008990    41100001        LA      1,    1(  0,  0)
C 00008994    5A108040        A       1,   64(  0,  8)
C 00008998    50108040        ST      1,   64(  0,  8)



C 0000899C    47FA0000        BC     15,    0( 10,  0)


  1772                34:      Q=2; Q=3 %IF PREC=3

C 000089A0    41100002        LA      1,    2(  0,  0)
C 000089A4    50107048        ST      1,   72(  0,  7)



C 000089A8    95038093        CLI    147(  8),  3
C 000089AC    477A03CE        BC      7,  974( 10,  0)
C 000089B0    41100003        LA      1,    3(  0,  0)
C 000089B4    50107048        ST      1,   72(  0,  7)


  1773                         %IF A(P1+2)=1 %THEN %START

C 000089B8    41100002        LA      1,    2(  0,  0)
C 000089BC    5A107040        A       1,   64(  0,  7)
C 000089C0    413092FC        LA      3,  764(  0,  9)
C 000089C4    45F0C05C        BAL    15,   92(  0, 12)
C 000089C8    4811F000        LH      1,    0(  1, 15)
C 000089CC    41200001        LA      2,    1(  0,  0)
C 000089D0    1912            CR      1,  2
C 000089D2    477A0000        BC      7,    0( 10,  0)


  1774                         P=P1+2; FFLAG=0; SKIP APP; ->55 %IF FFLAG#0

C 000089D6    41100002        LA      1,    2(  0,  0)
C 000089DA    5A107040        A       1,   64(  0,  7)
C 000089DE    50108040        ST      1,   64(  0,  8)



C 000089E2    920090C9        MVI    201(  9),  0



C 000089E6    5810D39C        L       1,  924(  0, 13)
C 000089EA    45F0D074        BAL    15,  116(  0, 13)



C 000089EE    950090C9        CLI    201(  9),  0
C 000089F2    477A0000        BC      7,    0( 10,  0)


  1775                         P=P2+1; %FINISH

C 000089F6    41100001        LA      1,    1(  0,  0)
C 000089FA    5A107044        A       1,   68(  0,  7)
C 000089FE    50108040        ST      1,   64(  0,  8)


  1776                         CSEXP(0,Q); KK=P

C 00008A02    1F11            SLR     1,  1
C 00008A04    5010B040        ST      1,   64(  0, 11)
C 00008A08    58107048        L       1,   72(  0,  7)
C 00008A0C    5010B044        ST      1,   68(  0, 11)
C 00008A10    5810D37C        L       1,  892(  0, 13)
C 00008A14    45F0D074        BAL    15,  116(  0, 13)



C 00008A18    D20370508040    MVC     80(  4,  7),   64(  8)


  1777                         FREG(NEST)=1; REG=NEST

C 00008A1E    41400001        LA      4,    1(  0,  0)
C 00008A22    5810912C        L       1,  300(  0,  9)
C 00008A26    4130918C        LA      3,  396(  0,  9)
C 00008A2A    45F0C05C        BAL    15,   92(  0, 12)
C 00008A2E    5041F000        ST      4,    0(  1, 15)



C 00008A32    D2037054912C    MVC     84(  4,  7),  300(  9)


  1778                         P=P1+1; CNAME(1,NEST)

C 00008A38    41100001        LA      1,    1(  0,  0)
C 00008A3C    5A107040        A       1,   64(  0,  7)
C 00008A40    50108040        ST      1,   64(  0,  8)



C 00008A44    41100001        LA      1,    1(  0,  0)
C 00008A48    5010B040        ST      1,   64(  0, 11)
C 00008A4C    D203B044912C    MVC     68(  4, 11),  300(  9)
C 00008A52    5810D3C4        L       1,  964(  0, 13)
C 00008A56    45F0D074        BAL    15,  116(  0, 13)


  1779                         FREG(REG)=0

C 00008A5A    1F44            SLR     4,  4
C 00008A5C    58107054        L       1,   84(  0,  7)
C 00008A60    4130918C        LA      3,  396(  0,  9)
C 00008A64    45F0C05C        BAL    15,   92(  0, 12)
C 00008A68    5041F000        ST      4,    0(  1, 15)


  1780                         ->30

C 00008A6C    47F0A1D8        BC     15,  472(  0, 10)


  1781                35:      P=P1+1; Q=COPY RECORD TAG

C 00008A70    41100001        LA      1,    1(  0,  0)
C 00008A74    5A107040        A       1,   64(  0,  7)
C 00008A78    50108040        ST      1,   64(  0,  8)



C 00008A7C    5810D38C        L       1,  908(  0, 13)
C 00008A80    45F0D074        BAL    15,  116(  0, 13)
C 00008A84    50107048        ST      1,   72(  0,  7)


  1782                         P=P2+1

C 00008A88    41100001        LA      1,    1(  0,  0)
C 00008A8C    5A107044        A       1,   68(  0,  7)
C 00008A90    50108040        ST      1,   64(  0,  8)


  1783                         TYPE=1 %UNLESS TYPE=2 %OR TYPE=5

C 00008A94    95028094        CLI    148(  8),  2
C 00008A98    478A04BE        BC      8, 1214( 10,  0)
C 00008A9C    95058094        CLI    148(  8),  5
C 00008AA0    478A04BE        BC      8, 1214( 10,  0)
C 00008AA4    92018094        MVI    148(  8),  1


  1784                         ->50 %IF TYPE=5

C 00008AA8    95058094        CLI    148(  8),  5
C 00008AAC    478A0000        BC      8,    0( 10,  0)


  1785                         KK=4; ->36 %IF TYPE=1; ->34

C 00008AB0    41100004        LA      1,    4(  0,  0)
C 00008AB4    50107050        ST      1,   80(  0,  7)



C 00008AB8    95018094        CLI    148(  8),  1
C 00008ABC    4780A10E        BC      8,  270(  0, 10)



C 00008AC0    47F0A3B6        BC     15,  950(  0, 10)


  1786                50:      CSTREXP(4);KK=P

C 00008AC4    41100004        LA      1,    4(  0,  0)
C 00008AC8    5010B040        ST      1,   64(  0, 11)
C 00008ACC    5810D380        L       1,  896(  0, 13)
C 00008AD0    45F0D074        BAL    15,  116(  0, 13)



C 00008AD4    D20370508040    MVC     80(  4,  7),   64(  8)


  1787                         REGISTER(4)=1

C 00008ADA    41400001        LA      4,    1(  0,  0)
C 00008ADE    41100004        LA      1,    4(  0,  0)
C 00008AE2    4130914C        LA      3,  332(  0,  9)
C 00008AE6    45F0C05C        BAL    15,   92(  0, 12)
C 00008AEA    5041F000        ST      4,    0(  1, 15)


  1788                         P=P1+1;

C 00008AEE    41100001        LA      1,    1(  0,  0)
C 00008AF2    5A107040        A       1,   64(  0,  7)
C 00008AF6    50108040        ST      1,   64(  0,  8)


  1789                         CNAME((ASSOP-1)**2,4)

C 00008AFA    5810704C        L       1,   76(  0,  7)
C 00008AFE    0610            BCTR    1,  0
C 00008B00    1851            LR      5,  1
C 00008B02    5050D020        ST      5,   32(  0, 13)
C 00008B06    41100002        LA      1,    2(  0,  0)
C 00008B0A    5010D024        ST      1,   36(  0, 13)
C 00008B0E    45F0C03C        BAL    15,   60(  0, 12)
C 00008B12    5000B040        ST      0,   64(  0, 11)
C 00008B16    41100004        LA      1,    4(  0,  0)
C 00008B1A    5010B044        ST      1,   68(  0, 11)
C 00008B1E    5810D3C4        L       1,  964(  0, 13)
C 00008B22    45F0D074        BAL    15,  116(  0, 13)


  1790                         REGISTER(4)=0

C 00008B26    1F44            SLR     4,  4
C 00008B28    41100004        LA      1,    4(  0,  0)
C 00008B2C    4130914C        LA      3,  332(  0,  9)
C 00008B30    45F0C05C        BAL    15,   92(  0, 12)
C 00008B34    5041F000        ST      4,    0(  1, 15)


  1791                         REG=4; ->30

C 00008B38    41100004        LA      1,    4(  0,  0)
C 00008B3C    50107054        ST      1,   84(  0,  7)



C 00008B40    47F0A1D8        BC     15,  472(  0, 10)


  1792                MAPS:    %IF PTYPE=10006 %THEN %START

C 00008B44    5810D4EC        L       1, 1260(  0, 13)
C 00008B48    59108098        C       1,  152(  0,  8)
C 00008B4C    477A0000        BC      7,    0( 10,  0)


  1793                         TYPE=TSNAME(K);PREC=TYPE>>3

C 00008B50    581080A4        L       1,  164(  0,  8)
C 00008B54    4130D0F8        LA      3,  248(  0, 13)
C 00008B58    45F0C05C        BAL    15,   92(  0, 12)
C 00008B5C    4311F000        IC      1,    0(  1, 15)
C 00008B60    5410D018        N       1,   24(  0, 13)
C 00008B64    42108094        STC     1,  148(  0,  8)
C 00008B68    5510D018        CL      1,   24(  0, 13)
C 00008B6C    472C0058        BC      2,   88( 12,  0)



C 00008B70    1F11            SLR     1,  1
C 00008B72    43108094        IC      1,  148(  0,  8)
C 00008B76    88100003        SRL     1,    3(  0)
C 00008B7A    42108093        STC     1,  147(  0,  8)
C 00008B7E    5510D018        CL      1,   24(  0, 13)
C 00008B82    472C0058        BC      2,   88( 12,  0)


  1794                         TYPE=TYPE&7; %FINISH

C 00008B86    41100007        LA      1,    7(  0,  0)
C 00008B8A    1F22            SLR     2,  2
C 00008B8C    43208094        IC      2,  148(  0,  8)
C 00008B90    1412            NR      1,  2
C 00008B92    42108094        STC     1,  148(  0,  8)
C 00008B96    5510D018        CL      1,   24(  0, 13)
C 00008B9A    472C0058        BC      2,   88( 12,  0)


  1795                         ->33 %IF TYPE=1;              ! NORMAL CHANNELS FOR INT MAPS

C 00008B9E    95018094        CLI    148(  8),  1
C 00008BA2    4780A0D4        BC      8,  212(  0, 10)


  1796                         ->50 %IF TYPE=5;              ! STRING MAPS

C 00008BA6    95058094        CLI    148(  8),  5
C 00008BAA    4780A4DA        BC      8, 1242(  0, 10)


  1797                55:      P=P2+1; PRECP=PREC

C 00008BAE    41100001        LA      1,    1(  0,  0)
C 00008BB2    5A107044        A       1,   68(  0,  7)
C 00008BB6    50108040        ST      1,   64(  0,  8)



C 00008BBA    1F11            SLR     1,  1
C 00008BBC    43108093        IC      1,  147(  0,  8)
C 00008BC0    50107058        ST      1,   88(  0,  7)


  1798                         CSEXP(0,2+PREC&1)

C 00008BC4    1F11            SLR     1,  1
C 00008BC6    5010B040        ST      1,   64(  0, 11)
C 00008BCA    41100001        LA      1,    1(  0,  0)
C 00008BCE    1F22            SLR     2,  2
C 00008BD0    43208093        IC      2,  147(  0,  8)
C 00008BD4    1412            NR      1,  2
C 00008BD6    41200002        LA      2,    2(  0,  0)
C 00008BDA    1A12            AR      1,  2
C 00008BDC    5010B044        ST      1,   68(  0, 11)
C 00008BE0    5810D37C        L       1,  892(  0, 13)
C 00008BE4    45F0D074        BAL    15,  116(  0, 13)


  1799                         Q=PARKF(NEST,3)

C 00008BE8    D203B040912C    MVC     64(  4, 11),  300(  9)
C 00008BEE    41100003        LA      1,    3(  0,  0)
C 00008BF2    5010B044        ST      1,   68(  0, 11)
C 00008BF6    5810D418        L       1, 1048(  0, 13)
C 00008BFA    45F0D074        BAL    15,  116(  0, 13)
C 00008BFE    50107048        ST      1,   72(  0,  7)


  1800                         KK=P; P=P1+1; CNAME(3,1);     ! ADDR TO GR1

C 00008C02    D20370508040    MVC     80(  4,  7),   64(  8)



C 00008C08    41100001        LA      1,    1(  0,  0)
C 00008C0C    5A107040        A       1,   64(  0,  7)
C 00008C10    50108040        ST      1,   64(  0,  8)



C 00008C14    41100003        LA      1,    3(  0,  0)
C 00008C18    5010B040        ST      1,   64(  0, 11)
C 00008C1C    41100001        LA      1,    1(  0,  0)
C 00008C20    5010B044        ST      1,   68(  0, 11)
C 00008C24    5810D3C4        L       1,  964(  0, 13)
C 00008C28    45F0D074        BAL    15,  116(  0, 13)


  1801                         DUMP(16,0,Q,0,RBASE);         ! PICK UP TO FR0

C 00008C2C    41100010        LA      1,   16(  0,  0)
C 00008C30    5010B040        ST      1,   64(  0, 11)
C 00008C34    1F11            SLR     1,  1
C 00008C36    5010B044        ST      1,   68(  0, 11)
C 00008C3A    D203B0487048    MVC     72(  4, 11),   72(  7)
C 00008C40    1F11            SLR     1,  1
C 00008C42    5010B04C        ST      1,   76(  0, 11)
C 00008C46    D203B05090F4    MVC     80(  4, 11),  244(  9)
C 00008C4C    5810D458        L       1, 1112(  0, 13)
C 00008C50    45F0D074        BAL    15,  116(  0, 13)


  1802                         DUMP(9+2*PREC,0,0,0,1);       ! STUFF IT OFF

C 00008C54    1F11            SLR     1,  1
C 00008C56    43108093        IC      1,  147(  0,  8)
C 00008C5A    1A11            AR      1,  1
C 00008C5C    41200009        LA      2,    9(  0,  0)
C 00008C60    1A12            AR      1,  2
C 00008C62    5010B040        ST      1,   64(  0, 11)
C 00008C66    1F11            SLR     1,  1
C 00008C68    5010B044        ST      1,   68(  0, 11)
C 00008C6C    1F11            SLR     1,  1
C 00008C6E    5010B048        ST      1,   72(  0, 11)
C 00008C72    1F11            SLR     1,  1
C 00008C74    5010B04C        ST      1,   76(  0, 11)
C 00008C78    41100001        LA      1,    1(  0,  0)
C 00008C7C    5010B050        ST      1,   80(  0, 11)
C 00008C80    5810D458        L       1, 1112(  0, 13)
C 00008C84    45F0D074        BAL    15,  116(  0, 13)


  1803                         PUSH(LWSP(LEVEL),0,Q); ->30;  ! TO QUERY PRINT

C 00008C88    581090A8        L       1,  168(  0,  9)
C 00008C8C    4130923C        LA      3,  572(  0,  9)
C 00008C90    45F0C05C        BAL    15,   92(  0, 12)
C 00008C94    4111F000        LA      1,    0(  1, 15)
C 00008C98    5010B040        ST      1,   64(  0, 11)
C 00008C9C    1F11            SLR     1,  1
C 00008C9E    5010B044        ST      1,   68(  0, 11)
C 00008CA2    D203B0487048    MVC     72(  4, 11),   72(  7)
C 00008CA8    5810D3E0        L       1,  992(  0, 13)
C 00008CAC    45F0D074        BAL    15,  116(  0, 13)



C 00008CB0    47F0A1D8        BC     15,  472(  0, 10)


  1804                REGVAR:  FAULT(59) %UNLESS A(P1+2)=2=A(P1+3)

C 00008CB4    41100002        LA      1,    2(  0,  0)
C 00008CB8    5A107040        A       1,   64(  0,  7)
C 00008CBC    413092FC        LA      3,  764(  0,  9)
C 00008CC0    45F0C05C        BAL    15,   92(  0, 12)
C 00008CC4    4811F000        LH      1,    0(  1, 15)
C 00008CC8    1851            LR      5,  1
C 00008CCA    41100002        LA      1,    2(  0,  0)
C 00008CCE    1915            CR      1,  5
C 00008CD0    477A0706        BC      7, 1798( 10,  0)
C 00008CD4    1851            LR      5,  1
C 00008CD6    41100003        LA      1,    3(  0,  0)
C 00008CDA    5A107040        A       1,   64(  0,  7)
C 00008CDE    413092FC        LA      3,  764(  0,  9)
C 00008CE2    45F0C05C        BAL    15,   92(  0, 12)
C 00008CE6    4811F000        LH      1,    0(  1, 15)
C 00008CEA    1915            CR      1,  5
C 00008CEC    478A0712        BC      8, 1810( 10,  0)
C 00008CF0    923BB043        MVI     67( 11), 59
C 00008CF4    5810D228        L       1,  552(  0, 13)
C 00008CF8    45F0D074        BAL    15,  116(  0, 13)


  1805                         KK=K; CSEXP(KK,1)

C 00008CFC    D203705080A4    MVC     80(  4,  7),  164(  8)



C 00008D02    D203B0407050    MVC     64(  4, 11),   80(  7)
C 00008D08    9201B047        MVI     71( 11),  1
C 00008D0C    5810D37C        L       1,  892(  0, 13)
C 00008D10    45F0D074        BAL    15,  116(  0, 13)


  1806                         REGISTER(KK)=-1

C 00008D14    5840D010        L       4,   16(  0, 13)
C 00008D18    58107050        L       1,   80(  0,  7)
C 00008D1C    4130914C        LA      3,  332(  0,  9)
C 00008D20    45F0C05C        BAL    15,   92(  0, 12)
C 00008D24    5041F000        ST      4,    0(  1, 15)


  1807                         %IF A(P)=1=QU %THEN CQUERY(REG)

C 00008D28    58108040        L       1,   64(  0,  8)
C 00008D2C    413092FC        LA      3,  764(  0,  9)
C 00008D30    45F0C05C        BAL    15,   92(  0, 12)
C 00008D34    4811F000        LH      1,    0(  1, 15)
C 00008D38    1851            LR      5,  1
C 00008D3A    41100001        LA      1,    1(  0,  0)
C 00008D3E    1915            CR      1,  5
C 00008D40    477A0774        BC      7, 1908( 10,  0)
C 00008D44    1F22            SLR     2,  2
C 00008D46    432090CF        IC      2,  207(  0,  9)
C 00008D4A    1912            CR      1,  2
C 00008D4C    477A0774        BC      7, 1908( 10,  0)
C 00008D50    D203B0407054    MVC     64(  4, 11),   84(  7)
C 00008D56    5810D3A0        L       1,  928(  0, 13)
C 00008D5A    45F0D074        BAL    15,  116(  0, 13)


  1808                         P=P+1; ->1

C 00008D5E    41100001        LA      1,    1(  0,  0)
C 00008D62    5A108040        A       1,   64(  0,  8)
C 00008D66    50108040        ST      1,   64(  0,  8)



C 00008D6A    47FA0000        BC     15,    0( 10,  0)


  1809                SW(4):                                  !ASSOP=->
  1810                         P=P1+1; CNAME(2,1)

C 00008D6E    41100001        LA      1,    1(  0,  0)
C 00008D72    5A107040        A       1,   64(  0,  7)
C 00008D76    50108040        ST      1,   64(  0,  8)



C 00008D7A    41100002        LA      1,    2(  0,  0)
C 00008D7E    5010B040        ST      1,   64(  0, 11)
C 00008D82    41100001        LA      1,    1(  0,  0)
C 00008D86    5010B044        ST      1,   68(  0, 11)
C 00008D8A    5810D3C4        L       1,  964(  0, 13)
C 00008D8E    45F0D074        BAL    15,  116(  0, 13)


  1811                         P=P2+1

C 00008D92    41100001        LA      1,    1(  0,  0)
C 00008D96    5A107044        A       1,   68(  0,  7)
C 00008D9A    50108040        ST      1,   64(  0,  8)


  1812                         CRES(0,0)

C 00008D9E    1F11            SLR     1,  1
C 00008DA0    5010B040        ST      1,   64(  0, 11)
C 00008DA4    1F11            SLR     1,  1
C 00008DA6    5010B044        ST      1,   68(  0, 11)
C 00008DAA    5810D400        L       1, 1024(  0, 13)
C 00008DAE    45F0D074        BAL    15,  116(  0, 13)


  1813                         P=P+1;->1

C 00008DB2    41100001        LA      1,    1(  0,  0)
C 00008DB6    5A108040        A       1,   64(  0,  8)
C 00008DBA    50108040        ST      1,   64(  0,  8)



C 00008DBE    47FA0000        BC     15,    0( 10,  0)


  1814                SW(1):   !ASSOP='=='
  1815                         P=P1+1; COPYTAG(A(P))

C 00008DC2    41100001        LA      1,    1(  0,  0)
C 00008DC6    5A107040        A       1,   64(  0,  7)
C 00008DCA    50108040        ST      1,   64(  0,  8)



C 00008DCE    58108040        L       1,   64(  0,  8)
C 00008DD2    413092FC        LA      3,  764(  0,  9)
C 00008DD6    45F0C05C        BAL    15,   92(  0, 12)
C 00008DDA    4811F000        LH      1,    0(  1, 15)
C 00008DDE    5010B040        ST      1,   64(  0, 11)
C 00008DE2    5810D408        L       1, 1032(  0, 13)
C 00008DE6    45F0D074        BAL    15,  116(  0, 13)


  1816                         ->9 %IF I=-1;Q=1

C 00008DEA    5810D010        L       1,   16(  0, 13)
C 00008DEE    5910809C        C       1,  156(  0,  8)
C 00008DF2    478A0000        BC      8,    0( 10,  0)



C 00008DF6    41100001        LA      1,    1(  0,  0)
C 00008DFA    50107048        ST      1,   72(  0,  7)


  1817                         %IF TYPE=3 %THEN Q=COPY RECORD TAG

C 00008DFE    95038094        CLI    148(  8),  3
C 00008E02    477A0828        BC      7, 2088( 10,  0)
C 00008E06    5810D38C        L       1,  908(  0, 13)
C 00008E0A    45F0D074        BAL    15,  116(  0, 13)
C 00008E0E    50107048        ST      1,   72(  0,  7)


  1818                         ->201 %IF Q=0

C 00008E12    58107048        L       1,   72(  0,  7)
C 00008E16    1211            LTR     1,  1
C 00008E18    478A0000        BC      8,    0( 10,  0)


  1819                         FAULT(81) %UNLESS A(P2+1)=4 %AND A(P2+2)=1

C 00008E1C    41100001        LA      1,    1(  0,  0)
C 00008E20    5A107044        A       1,   68(  0,  7)
C 00008E24    413092FC        LA      3,  764(  0,  9)
C 00008E28    45F0C05C        BAL    15,   92(  0, 12)
C 00008E2C    4811F000        LH      1,    0(  1, 15)
C 00008E30    41200004        LA      2,    4(  0,  0)
C 00008E34    1912            CR      1,  2
C 00008E36    477A086E        BC      7, 2158( 10,  0)
C 00008E3A    41100002        LA      1,    2(  0,  0)
C 00008E3E    5A107044        A       1,   68(  0,  7)
C 00008E42    413092FC        LA      3,  764(  0,  9)
C 00008E46    45F0C05C        BAL    15,   92(  0, 12)
C 00008E4A    4811F000        LH      1,    0(  1, 15)
C 00008E4E    41200001        LA      2,    1(  0,  0)
C 00008E52    1912            CR      1,  2
C 00008E54    478A087A        BC      8, 2170( 10,  0)
C 00008E58    9251B043        MVI     67( 11), 81
C 00008E5C    5810D228        L       1,  552(  0, 13)
C 00008E60    45F0D074        BAL    15,  116(  0, 13)


  1820                         ->101 %IF ROUT=1; NEST=4

C 00008E64    95018090        CLI    144(  8),  1
C 00008E68    478A0000        BC      8,    0( 10,  0)



C 00008E6C    41100004        LA      1,    4(  0,  0)
C 00008E70    5010912C        ST      1,  300(  0,  9)


  1821                         ->S((NAM&2+ARR)<<2!(NAM&1)*2!(2-A(P+1)))

C 00008E74    41100002        LA      1,    2(  0,  0)
C 00008E78    1F22            SLR     2,  2
C 00008E7A    43208091        IC      2,  145(  0,  8)
C 00008E7E    1412            NR      1,  2
C 00008E80    1F22            SLR     2,  2
C 00008E82    43208092        IC      2,  146(  0,  8)
C 00008E86    1A12            AR      1,  2
C 00008E88    1851            LR      5,  1
C 00008E8A    41100001        LA      1,    1(  0,  0)
C 00008E8E    1F22            SLR     2,  2
C 00008E90    43208091        IC      2,  145(  0,  8)
C 00008E94    1412            NR      1,  2
C 00008E96    1861            LR      6,  1
C 00008E98    41100001        LA      1,    1(  0,  0)
C 00008E9C    5A108040        A       1,   64(  0,  8)
C 00008EA0    413092FC        LA      3,  764(  0,  9)
C 00008EA4    45F0C05C        BAL    15,   92(  0, 12)
C 00008EA8    4841F000        LH      4,    0(  1, 15)
C 00008EAC    41100002        LA      1,    2(  0,  0)
C 00008EB0    1B14            SR      1,  4
C 00008EB2    5010706C        ST      1,  108(  0,  7)
C 00008EB6    89500002        SLL     5,    2(  0)
C 00008EBA    1A66            AR      6,  6
C 00008EBC    1656            OR      5,  6
C 00008EBE    5650706C        O       5,  108(  0,  7)
C 00008EC2    1815            LR      1,  5
C 00008EC4    1A11            AR      1,  1
C 00008EC6    4811A022        LH      1,   34(  1, 10)
C 00008ECA    47F1A000        BC     15,    0(  1, 10)


  1822                9:       FNAME=A(P); FAULT(16)

C 00008ECE    58108040        L       1,   64(  0,  8)
C 00008ED2    413092FC        LA      3,  764(  0,  9)
C 00008ED6    45F0C05C        BAL    15,   92(  0, 12)
C 00008EDA    4811F000        LH      1,    0(  1, 15)
C 00008EDE    50109130        ST      1,  304(  0,  9)



C 00008EE2    9210B043        MVI     67( 11), 16
C 00008EE6    5810D228        L       1,  552(  0, 13)
C 00008EEA    45F0D074        BAL    15,  116(  0, 13)


  1823                S(0):S(1):S(3):S(4):S(5):
  1824                S(7):S(8):S(10):S(11):S(12):
  1825                10:      FAULT(82)

C 00008EEE    9252B043        MVI     67( 11), 82
C 00008EF2    5810D228        L       1,  552(  0, 13)
C 00008EF6    45F0D074        BAL    15,  116(  0, 13)


  1826                         P=P2+1; SKIPEXP; P=P+1; ->1

C 00008EFA    41100001        LA      1,    1(  0,  0)
C 00008EFE    5A107044        A       1,   68(  0,  7)
C 00008F02    50108040        ST      1,   64(  0,  8)



C 00008F06    5810D444        L       1, 1092(  0, 13)
C 00008F0A    45F0D074        BAL    15,  116(  0, 13)



C 00008F0E    41100001        LA      1,    1(  0,  0)
C 00008F12    5A108040        A       1,   64(  0,  8)
C 00008F16    50108040        ST      1,   64(  0,  8)



C 00008F1A    47FA0000        BC     15,    0( 10,  0)


  1827                S(2): ! NAM=1; S(9):!NAMARR + APP; S(15):! NAMARR +NAM+APP; S(13):
  1828                         Z=3; ZP=6

C 00008F1E    41100003        LA      1,    3(  0,  0)
C 00008F22    5010705C        ST      1,   92(  0,  7)



C 00008F26    41100006        LA      1,    6(  0,  0)
C 00008F2A    50107060        ST      1,   96(  0,  7)


  1829                12:      P=P2+3; CNAME(Z,4)

C 00008F2E    41100003        LA      1,    3(  0,  0)
C 00008F32    5A107044        A       1,   68(  0,  7)
C 00008F36    50108040        ST      1,   64(  0,  8)



C 00008F3A    D203B040705C    MVC     64(  4, 11),   92(  7)
C 00008F40    41100004        LA      1,    4(  0,  0)
C 00008F44    5010B044        ST      1,   68(  0, 11)
C 00008F48    5810D3C4        L       1,  964(  0, 13)
C 00008F4C    45F0D074        BAL    15,  116(  0, 13)


  1830                         ->10 %UNLESS A(P)=2; PRECP=PREC

C 00008F50    58108040        L       1,   64(  0,  8)
C 00008F54    413092FC        LA      3,  764(  0,  9)
C 00008F58    45F0C05C        BAL    15,   92(  0, 12)
C 00008F5C    4811F000        LH      1,    0(  1, 15)
C 00008F60    41200002        LA      2,    2(  0,  0)
C 00008F64    1912            CR      1,  2
C 00008F66    4770A904        BC      7, 2308(  0, 10)



C 00008F6A    1F11            SLR     1,  1
C 00008F6C    43108093        IC      1,  147(  0,  8)
C 00008F70    50107058        ST      1,   88(  0,  7)


  1831                         TYPEP=TYPE

C 00008F74    1F11            SLR     1,  1
C 00008F76    43108094        IC      1,  148(  0,  8)
C 00008F7A    50107064        ST      1,  100(  0,  7)


  1832                         KK=P+2; P=P1+1; CNAME(ZP,4)

C 00008F7E    41100002        LA      1,    2(  0,  0)
C 00008F82    5A108040        A       1,   64(  0,  8)
C 00008F86    50107050        ST      1,   80(  0,  7)



C 00008F8A    41100001        LA      1,    1(  0,  0)
C 00008F8E    5A107040        A       1,   64(  0,  7)
C 00008F92    50108040        ST      1,   64(  0,  8)



C 00008F96    D203B0407060    MVC     64(  4, 11),   96(  7)
C 00008F9C    41100004        LA      1,    4(  0,  0)
C 00008FA0    5010B044        ST      1,   68(  0, 11)
C 00008FA4    5810D3C4        L       1,  964(  0, 13)
C 00008FA8    45F0D074        BAL    15,  116(  0, 13)


  1833                14:
  1834                         P=KK;     ->1 %IF PREC=PRECP %AND TYPE=TYPEP

C 00008FAC    D20380407050    MVC     64(  4,  8),   80(  7)



C 00008FB2    58107058        L       1,   88(  0,  7)
C 00008FB6    1F22            SLR     2,  2
C 00008FB8    43208093        IC      2,  147(  0,  8)
C 00008FBC    1921            CR      2,  1
C 00008FBE    477A09E8        BC      7, 2536( 10,  0)
C 00008FC2    58107064        L       1,  100(  0,  7)
C 00008FC6    1F22            SLR     2,  2
C 00008FC8    43208094        IC      2,  148(  0,  8)
C 00008FCC    1921            CR      2,  1
C 00008FCE    478A0000        BC      8,    0( 10,  0)


  1835                         FAULT(83); ->1

C 00008FD2    9253B043        MVI     67( 11), 83
C 00008FD6    5810D228        L       1,  552(  0, 13)
C 00008FDA    45F0D074        BAL    15,  116(  0, 13)



C 00008FDE    47FA0000        BC     15,    0( 10,  0)


  1836                S(6):    ! ARRAYNAME-NO APP
  1837                S(14):   !NAMARRAYNAME-NO APP
  1838                         Z=12; ZP=11; ->12

C 00008FE2    4110000C        LA      1,   12(  0,  0)
C 00008FE6    5010705C        ST      1,   92(  0,  7)



C 00008FEA    4110000B        LA      1,   11(  0,  0)
C 00008FEE    50107060        ST      1,   96(  0,  7)



C 00008FF2    47F0A944        BC     15, 2372(  0, 10)


  1839                201:
  1840                         ->S(6) %IF ARR=1 %AND NAM=1 %AND A(P+1)=2

C 00008FF6    95018092        CLI    146(  8),  1
C 00008FFA    477A0A48        BC      7, 2632( 10,  0)
C 00008FFE    95018091        CLI    145(  8),  1
C 00009002    477A0A48        BC      7, 2632( 10,  0)
C 00009006    41100001        LA      1,    1(  0,  0)
C 0000900A    5A108040        A       1,   64(  0,  8)
C 0000900E    413092FC        LA      3,  764(  0,  9)
C 00009012    45F0C05C        BAL    15,   92(  0, 12)
C 00009016    4811F000        LH      1,    0(  1, 15)
C 0000901A    41200002        LA      2,    2(  0,  0)
C 0000901E    1912            CR      1,  2
C 00009020    477A0A48        BC      7, 2632( 10,  0)
C 00009024    41100006        LA      1,    6(  0,  0)
C 00009028    1A11            AR      1,  1
C 0000902A    4811A022        LH      1,   34(  1, 10)
C 0000902E    47F1A000        BC     15,    0(  1, 10)


  1841                         Z=15; ZP=14; ->12

C 00009032    4110000F        LA      1,   15(  0,  0)
C 00009036    5010705C        ST      1,   92(  0,  7)



C 0000903A    4110000E        LA      1,   14(  0,  0)
C 0000903E    50107060        ST      1,   96(  0,  7)



C 00009042    47F0A944        BC     15, 2372(  0, 10)


  1842                101:     P=P1+1; CNAME(13,1);          ! ASSIGNMENTS TO RECORDNAMES

C 00009046    41100001        LA      1,    1(  0,  0)
C 0000904A    5A107040        A       1,   64(  0,  7)
C 0000904E    50108040        ST      1,   64(  0,  8)



C 00009052    4110000D        LA      1,   13(  0,  0)
C 00009056    5010B040        ST      1,   64(  0, 11)
C 0000905A    41100001        LA      1,    1(  0,  0)
C 0000905E    5010B044        ST      1,   68(  0, 11)
C 00009062    5810D3C4        L       1,  964(  0, 13)
C 00009066    45F0D074        BAL    15,  116(  0, 13)


  1843                         PRECP=PREC; TYPEP=TYPE; JJJ=K;

C 0000906A    1F11            SLR     1,  1
C 0000906C    43108093        IC      1,  147(  0,  8)
C 00009070    50107058        ST      1,   88(  0,  7)



C 00009074    1F11            SLR     1,  1
C 00009076    43108094        IC      1,  148(  0,  8)
C 0000907A    50107064        ST      1,  100(  0,  7)



C 0000907E    D203706880A4    MVC    104(  4,  7),  164(  8)


  1844                         ->10 %UNLESS J=0 %AND NAM=1

C 00009084    581080A0        L       1,  160(  0,  8)
C 00009088    1211            LTR     1,  1
C 0000908A    4770A904        BC      7, 2308(  0, 10)
C 0000908E    95018091        CLI    145(  8),  1
C 00009092    4770A904        BC      7, 2308(  0, 10)


  1845                         REG=FINDPP; ->31 %IF REG=0

C 00009096    5810D420        L       1, 1056(  0, 13)
C 0000909A    45F0D074        BAL    15,  116(  0, 13)
C 0000909E    50107054        ST      1,   84(  0,  7)



C 000090A2    58107054        L       1,   84(  0,  7)
C 000090A6    1211            LTR     1,  1
C 000090A8    4780A224        BC      8,  548(  0, 10)


  1846                         DUMP(0,REG,DISP,INDEX,BASE);  ! ADDRESS OF LHS TO SAFE PLACE

C 000090AC    1F11            SLR     1,  1
C 000090AE    5010B040        ST      1,   64(  0, 11)
C 000090B2    D203B0447054    MVC     68(  4, 11),   84(  7)
C 000090B8    D203B0488078    MVC     72(  4, 11),  120(  8)
C 000090BE    D203B04C8080    MVC     76(  4, 11),  128(  8)
C 000090C4    D203B0508074    MVC     80(  4, 11),  116(  8)
C 000090CA    5810D458        L       1, 1112(  0, 13)
C 000090CE    45F0D074        BAL    15,  116(  0, 13)


  1847                         P=P2+3; CNAME(13,1);          ! RHSIDE

C 000090D2    41100003        LA      1,    3(  0,  0)
C 000090D6    5A107044        A       1,   68(  0,  7)
C 000090DA    50108040        ST      1,   64(  0,  8)



C 000090DE    4110000D        LA      1,   13(  0,  0)
C 000090E2    5010B040        ST      1,   64(  0, 11)
C 000090E6    41100001        LA      1,    1(  0,  0)
C 000090EA    5010B044        ST      1,   68(  0, 11)
C 000090EE    5810D3C4        L       1,  964(  0, 13)
C 000090F2    45F0D074        BAL    15,  116(  0, 13)


  1848                         ->102 %IF BASE=GLA %AND J=0;  ! COMMON OR GARDEN ROUTINE

C 000090F6    D5038074D150    CLC    116(  4,  8),  336( 13)
C 000090FC    477A0B20        BC      7, 2848( 10,  0)
C 00009100    581080A0        L       1,  160(  0,  8)
C 00009104    1211            LTR     1,  1
C 00009106    478A0000        BC      8,    0( 10,  0)


  1849                         PSS(X'D2',16,REG,0,BASE,DISP)

C 0000910A    411000D2        LA      1,  210(  0,  0)
C 0000910E    5010B040        ST      1,   64(  0, 11)
C 00009112    41100010        LA      1,   16(  0,  0)
C 00009116    5010B044        ST      1,   68(  0, 11)
C 0000911A    D203B0487054    MVC     72(  4, 11),   84(  7)
C 00009120    1F11            SLR     1,  1
C 00009122    5010B04C        ST      1,   76(  0, 11)
C 00009126    D203B0508074    MVC     80(  4, 11),  116(  8)
C 0000912C    D203B0548078    MVC     84(  4, 11),  120(  8)
C 00009132    5810D1BC        L       1,  444(  0, 13)
C 00009136    45F0D074        BAL    15,  116(  0, 13)


  1850                         ->103 %IF J=14;     ! EXTERNAL ROUTINE

C 0000913A    4110000E        LA      1,   14(  0,  0)
C 0000913E    591080A0        C       1,  160(  0,  8)
C 00009142    478A0000        BC      8,    0( 10,  0)


  1851                110:     REGISTER(REG)=0; KK=P+2

C 00009146    1F44            SLR     4,  4
C 00009148    58107054        L       1,   84(  0,  7)
C 0000914C    4130914C        LA      3,  332(  0,  9)
C 00009150    45F0C05C        BAL    15,   92(  0, 12)
C 00009154    5041F000        ST      4,    0(  1, 15)



C 00009158    41100002        LA      1,    2(  0,  0)
C 0000915C    5A108040        A       1,   64(  0,  8)
C 00009160    50107050        ST      1,   80(  0,  7)


  1852                         FROM2(JJJ,Z); FROM2(K,ZP)

C 00009164    D203B0407068    MVC     64(  4, 11),  104(  7)
C 0000916A    4110705C        LA      1,   92(  0,  7)
C 0000916E    5010B044        ST      1,   68(  0, 11)
C 00009172    5810D3F8        L       1, 1016(  0, 13)
C 00009176    45F0D074        BAL    15,  116(  0, 13)



C 0000917A    D203B04080A4    MVC     64(  4, 11),  164(  8)
C 00009180    41107060        LA      1,   96(  0,  7)
C 00009184    5010B044        ST      1,   68(  0, 11)
C 00009188    5810D3F8        L       1, 1016(  0, 13)
C 0000918C    45F0D074        BAL    15,  116(  0, 13)


  1853                         FAULT(83) %UNLESS Z=ZP

C 00009190    D503705C7060    CLC     92(  4,  7),   96(  7)
C 00009196    478A0BBC        BC      8, 3004( 10,  0)
C 0000919A    9253B043        MVI     67( 11), 83
C 0000919E    5810D228        L       1,  552(  0, 13)
C 000091A2    45F0D074        BAL    15,  116(  0, 13)


  1854                         ->14

C 000091A6    47F0A9C2        BC     15, 2498(  0, 10)


  1855                102:     DUMP(2,2,DISP,INDEX,BASE);      ! PICK UP RT ADDR

C 000091AA    41100002        LA      1,    2(  0,  0)
C 000091AE    5010B040        ST      1,   64(  0, 11)
C 000091B2    41100002        LA      1,    2(  0,  0)
C 000091B6    5010B044        ST      1,   68(  0, 11)
C 000091BA    D203B0488078    MVC     72(  4, 11),  120(  8)
C 000091C0    D203B04C8080    MVC     76(  4, 11),  128(  8)
C 000091C6    D203B0508074    MVC     80(  4, 11),  116(  8)
C 000091CC    5810D458        L       1, 1112(  0, 13)
C 000091D0    45F0D074        BAL    15,  116(  0, 13)


  1856                         PRX(X'5A',2,0,GLA,28);        ! RELOCATE

C 000091D4    4110005A        LA      1,   90(  0,  0)
C 000091D8    5010B040        ST      1,   64(  0, 11)
C 000091DC    41100002        LA      1,    2(  0,  0)
C 000091E0    5010B044        ST      1,   68(  0, 11)
C 000091E4    1F11            SLR     1,  1
C 000091E6    5010B048        ST      1,   72(  0, 11)
C 000091EA    D203B04CD150    MVC     76(  4, 11),  336( 13)
C 000091F0    4110001C        LA      1,   28(  0,  0)
C 000091F4    5010B050        ST      1,   80(  0, 11)
C 000091F8    5810D1C0        L       1,  448(  0, 13)
C 000091FC    45F0D074        BAL    15,  116(  0, 13)


  1857                         PCONST(X'180C181D');          ! LR 0,12 LR1,13 PERM AND GLA

C 00009200    5810D4F0        L       1, 1264(  0, 13)
C 00009204    5010B040        ST      1,   64(  0, 11)
C 00009208    5810D1B4        L       1,  436(  0, 13)
C 0000920C    45F0D074        BAL    15,  116(  0, 13)


  1858                         PRR(X'18',3,REG);             ! CUNNING PTR TO ENVRMNT

C 00009210    41100018        LA      1,   24(  0,  0)
C 00009214    5010B040        ST      1,   64(  0, 11)
C 00009218    41100003        LA      1,    3(  0,  0)
C 0000921C    5010B044        ST      1,   68(  0, 11)
C 00009220    D203B0487054    MVC     72(  4, 11),   84(  7)
C 00009226    5810D1D0        L       1,  464(  0, 13)
C 0000922A    45F0D074        BAL    15,  116(  0, 13)


  1859                         PRX(X'90',0,9,REG,0); ->110;  ! STUFF OFF + ENVRMNT

C 0000922E    41100090        LA      1,  144(  0,  0)
C 00009232    5010B040        ST      1,   64(  0, 11)
C 00009236    1F11            SLR     1,  1
C 00009238    5010B044        ST      1,   68(  0, 11)
C 0000923C    41100009        LA      1,    9(  0,  0)
C 00009240    5010B048        ST      1,   72(  0, 11)
C 00009244    D203B04C7054    MVC     76(  4, 11),   84(  7)
C 0000924A    1F11            SLR     1,  1
C 0000924C    5010B050        ST      1,   80(  0, 11)
C 00009250    5810D1C0        L       1,  448(  0, 13)
C 00009254    45F0D074        BAL    15,  116(  0, 13)



C 00009258    47F0AB5C        BC     15, 2908(  0, 10)


  1860                103:     PRX(X'50',9,0,REG,12); ->110; ! EXTRNS DUMMY ENVRMNT

C 0000925C    41100050        LA      1,   80(  0,  0)
C 00009260    5010B040        ST      1,   64(  0, 11)
C 00009264    41100009        LA      1,    9(  0,  0)
C 00009268    5010B044        ST      1,   68(  0, 11)
C 0000926C    1F11            SLR     1,  1
C 0000926E    5010B048        ST      1,   72(  0, 11)
C 00009272    D203B04C7054    MVC     76(  4, 11),   84(  7)
C 00009278    4110000C        LA      1,   12(  0,  0)
C 0000927C    5010B050        ST      1,   80(  0, 11)
C 00009280    5810D1C0        L       1,  448(  0, 13)
C 00009284    45F0D074        BAL    15,  116(  0, 13)



C 00009288    47F0AB5C        BC     15, 2908(  0, 10)


  1861                1:       %END
D 000006E4    C2 C2 C2 C2 06 C8 07 06 41 53 53 49 47 4E 00 40 01 70 68 03 4A 4A 4A 08 01 70 64 05 54 59 50 45 50 FE A6 E0 01 70 60 02 5A 50 00 02 01 70 5C 01 5A FF FF FE 01 70 58 05 50 52 45 43 50 00 00 FF 01 70 54 03 52 45 47 01 01 70 50 02 4B 4B 87 8C 01 70 4C 05 41 53 53 4F 50 00 00 04 01 70 48 01 51 00 00 2E 01 70 44 02 50 32 05 37 01 70 40 02 50 31 00 02 FF FF FF FF


C 0000928C    D203D0147000    MVC     20(  4, 13),    0(  7)
C 00009292    984F7010        LM      4, 15,   16(  7)
C 00009296    07FF            BCR    15, 15


  1862                     %ROUTINE     CUI(%BYTEINTEGER CODE)

C 00009298    0000
C 0000929A    0000
C 0000929C    47FA0000        BC     15,    0( 10,  0)
C 000092A0    50F0B03C        ST     15,   60(  0, 11)
C 000092A4    D203B000D014    MVC      0(  4, 11),   20( 13)
C 000092AA    41000746        LA      0, 1862(  0,  0)
C 000092AE    4000D014        STH     0,   20(  0, 13)
C 000092B2    187B            LR      7, 11
C 000092B4    41BB0000        LA     11,    0( 11,  0)
C 000092B8    41000004        LA      0,    4(  0,  0)
C 000092BC    59BD0044        C      11,   68( 13,  0)
C 000092C0    4720C054        BC      2,   84(  0, 12)
C 000092C4    05A0            BALR   10,  0


  1863                         %SHORTROUTINE
  1864                         %INTEGER KK,JJ,QQ
  1865                         %SWITCH SW(1:11)

C 000092C6    0700            BCR     0,  0
C 000092C8    47FA0000        BC     15,    0( 10,  0)
C 000092CC    0200
C 000092CE    0001
C 000092D0    0000
C 000092D2    000B
C 000092D4    0000
C 000092D6    0000
C 000092D8    0000
C 000092DA    0000
C 000092DC    0000
C 000092DE    0000
C 000092E0    0000
C 000092E2    0000
C 000092E4    0000
C 000092E6    0000
C 000092E8    0000
C 000092EA    0000


  1866                               ->SW(A(P))

C 000092EC    58108040        L       1,   64(  0,  8)
C 000092F0    413092FC        LA      3,  764(  0,  9)
C 000092F4    45F0C05C        BAL    15,   92(  0, 12)
C 000092F8    4811F000        LH      1,    0(  1, 15)
C 000092FC    1A11            AR      1,  1
C 000092FE    4811A00C        LH      1,   12(  1, 10)
C 00009302    47F1A000        BC     15,    0(  1, 10)


  1867                SW(1):   P=P+1; MARKER1=P+A(P);      !(NAME)(APP)(RESTOFUI)

C 00009306    41100001        LA      1,    1(  0,  0)
C 0000930A    5A108040        A       1,   64(  0,  8)
C 0000930E    50108040        ST      1,   64(  0,  8)



C 00009312    58108040        L       1,   64(  0,  8)
C 00009316    413092FC        LA      3,  764(  0,  9)
C 0000931A    45F0C05C        BAL    15,   92(  0, 12)
C 0000931E    4861F000        LH      6,    0(  1, 15)
C 00009322    5A608040        A       6,   64(  0,  8)
C 00009326    506090B0        ST      6,  176(  0,  9)


  1868                               ->3 %IF A(MARKER 1)=1

C 0000932A    581090B0        L       1,  176(  0,  9)
C 0000932E    413092FC        LA      3,  764(  0,  9)
C 00009332    45F0C05C        BAL    15,   92(  0, 12)
C 00009336    4811F000        LH      1,    0(  1, 15)
C 0000933A    41200001        LA      2,    1(  0,  0)
C 0000933E    1912            CR      1,  2
C 00009340    478A0000        BC      8,    0( 10,  0)


  1869                         P=P+1; CNAME(0,0); P=P+1; ->1

C 00009344    41100001        LA      1,    1(  0,  0)
C 00009348    5A108040        A       1,   64(  0,  8)
C 0000934C    50108040        ST      1,   64(  0,  8)



C 00009350    1F11            SLR     1,  1
C 00009352    5010B040        ST      1,   64(  0, 11)
C 00009356    1F11            SLR     1,  1
C 00009358    5010B044        ST      1,   68(  0, 11)
C 0000935C    5810D3C4        L       1,  964(  0, 13)
C 00009360    45F0D074        BAL    15,  116(  0, 13)



C 00009364    41100001        LA      1,    1(  0,  0)
C 00009368    5A108040        A       1,   64(  0,  8)
C 0000936C    50108040        ST      1,   64(  0,  8)



C 00009370    47FA0000        BC     15,    0( 10,  0)


  1870                3:       ASSIGN(P,MARKER1+1); ->1

C 00009374    D203B0408040    MVC     64(  4, 11),   64(  8)
C 0000937A    41100001        LA      1,    1(  0,  0)
C 0000937E    5A1090B0        A       1,  176(  0,  9)
C 00009382    5010B044        ST      1,   68(  0, 11)
C 00009386    5810D388        L       1,  904(  0, 13)
C 0000938A    45F0D074        BAL    15,  116(  0, 13)



C 0000938E    47FA0000        BC     15,    0( 10,  0)


  1871                SW(2):   !-><NAME><EXRN>
  1872                         NMDECS(LEVEL)=1

C 00009392    41400001        LA      4,    1(  0,  0)
C 00009396    581090A8        L       1,  168(  0,  9)
C 0000939A    4130926C        LA      3,  620(  0,  9)
C 0000939E    45F0C05C        BAL    15,   92(  0, 12)
C 000093A2    4041F000        STH     4,    0(  1, 15)
C 000093A6    494F1000        CH      4,    0( 15,  1)
C 000093AA    477C0058        BC      7,   88( 12,  0)


  1873                               COPY TAG(A(P+1))

C 000093AE    41100001        LA      1,    1(  0,  0)
C 000093B2    5A108040        A       1,   64(  0,  8)
C 000093B6    413092FC        LA      3,  764(  0,  9)
C 000093BA    45F0C05C        BAL    15,   92(  0, 12)
C 000093BE    4811F000        LH      1,    0(  1, 15)
C 000093C2    5010B040        ST      1,   64(  0, 11)
C 000093C6    5810D408        L       1, 1032(  0, 13)
C 000093CA    45F0D074        BAL    15,  116(  0, 13)


  1874                         PTYPEP=PTYPE

C 000093CE    D20380B08098    MVC    176(  4,  8),  152(  8)


  1875                         KK=K; P=P+2

C 000093D4    D203704480A4    MVC     68(  4,  7),  164(  8)



C 000093DA    41100002        LA      1,    2(  0,  0)
C 000093DE    5A108040        A       1,   64(  0,  8)
C 000093E2    50108040        ST      1,   64(  0,  8)


  1876                         ->200 %IF OLDI=LEVEL %AND TYPE=6

C 000093E6    D50380A890A8    CLC    168(  4,  8),  168(  9)
C 000093EC    477A0132        BC      7,  306( 10,  0)
C 000093F0    95068094        CLI    148(  8),  6
C 000093F4    478A0000        BC      8,    0( 10,  0)


  1877                         FAULT(4);SKIP EXP; ->1

C 000093F8    9204B043        MVI     67( 11),  4
C 000093FC    5810D228        L       1,  552(  0, 13)
C 00009400    45F0D074        BAL    15,  116(  0, 13)



C 00009404    5810D444        L       1, 1092(  0, 13)
C 00009408    45F0D074        BAL    15,  116(  0, 13)



C 0000940C    47FA0000        BC     15,    0( 10,  0)


  1878                200:     CSEXP(1,1);PTYPE=PTYPEP; UNPACK

C 00009410    41100001        LA      1,    1(  0,  0)
C 00009414    5010B040        ST      1,   64(  0, 11)
C 00009418    9201B047        MVI     71( 11),  1
C 0000941C    5810D37C        L       1,  892(  0, 13)
C 00009420    45F0D074        BAL    15,  116(  0, 13)



C 00009424    D203809880B0    MVC    152(  4,  8),  176(  8)



C 0000942A    5810D448        L       1, 1096(  0, 13)
C 0000942E    45F0D074        BAL    15,  116(  0, 13)


  1879                         FROM LIST(KK,QQ,JJ)

C 00009432    D203B0407044    MVC     64(  4, 11),   68(  7)
C 00009438    4110704C        LA      1,   76(  0,  7)
C 0000943C    5010B044        ST      1,   68(  0, 11)
C 00009440    41107048        LA      1,   72(  0,  7)
C 00009444    5010B048        ST      1,   72(  0, 11)
C 00009448    5810D3D8        L       1,  984(  0, 13)
C 0000944C    45F0D074        BAL    15,  116(  0, 13)


  1880                         QQ=QQ-CODEBASE(LEVEL)

C 00009450    581090A8        L       1,  168(  0,  9)
C 00009454    4130917C        LA      3,  380(  0,  9)
C 00009458    45F0C05C        BAL    15,   92(  0, 12)
C 0000945C    5861F000        L       6,    0(  1, 15)
C 00009460    5810704C        L       1,   76(  0,  7)
C 00009464    1B16            SR      1,  6
C 00009466    5010704C        ST      1,   76(  0,  7)


  1881                         ->205 %IF CHECKSP=0

C 0000946A    950090D7        CLI    215(  9),  0
C 0000946E    478A0000        BC      8,    0( 10,  0)


  1882                201:     LOADAD( 2,10,0,QQ);PPJ(7); ->1

C 00009472    41100002        LA      1,    2(  0,  0)
C 00009476    5010B040        ST      1,   64(  0, 11)
C 0000947A    4110000A        LA      1,   10(  0,  0)
C 0000947E    5010B044        ST      1,   68(  0, 11)
C 00009482    1F11            SLR     1,  1
C 00009484    5010B048        ST      1,   72(  0, 11)
C 00009488    D203B04C704C    MVC     76(  4, 11),   76(  7)
C 0000948E    5810D398        L       1,  920(  0, 13)
C 00009492    45F0D074        BAL    15,  116(  0, 13)



C 00009496    9207B043        MVI     67( 11),  7
C 0000949A    5810D46C        L       1, 1132(  0, 13)
C 0000949E    45F0D074        BAL    15,  116(  0, 13)



C 000094A2    47FA0000        BC     15,    0( 10,  0)


  1883                205:     JJ=8+QQ-JJ*BYTES(PREC);       !@ SW(0)

C 000094A6    1F11            SLR     1,  1
C 000094A8    43108093        IC      1,  147(  0,  8)
C 000094AC    4130D108        LA      3,  264(  0, 13)
C 000094B0    45F0C05C        BAL    15,   92(  0, 12)
C 000094B4    1F66            SLR     6,  6
C 000094B6    4361F000        IC      6,    0(  1, 15)
C 000094BA    41100008        LA      1,    8(  0,  0)
C 000094BE    5A10704C        A       1,   76(  0,  7)
C 000094C2    58307048        L       3,   72(  0,  7)
C 000094C6    1C26            MR      2,  6
C 000094C8    1B13            SR      1,  3
C 000094CA    50107048        ST      1,   72(  0,  7)


  1884                         ->201 %UNLESS 0<=JJ<=4095

C 000094CE    58107048        L       1,   72(  0,  7)
C 000094D2    1211            LTR     1,  1
C 000094D4    4750A1AC        BC      5,  428(  0, 10)
C 000094D8    41200FFF        LA      2, 4095(  0,  0)
C 000094DC    1912            CR      1,  2
C 000094DE    4730A1AC        BC      3,  428(  0, 10)


  1885                         ->210 %IF PREC=0

C 000094E2    95008093        CLI    147(  8),  0
C 000094E6    478A0000        BC      8,    0( 10,  0)


  1886                         PLANT(X'1A11');KK= X'48';     !AR_1,1

C 000094EA    5810D4F8        L       1, 1272(  0, 13)
C 000094EE    5010B040        ST      1,   64(  0, 11)
C 000094F2    5810D1CC        L       1,  460(  0, 13)
C 000094F6    45F0D074        BAL    15,  116(  0, 13)



C 000094FA    41100048        LA      1,   72(  0,  0)
C 000094FE    50107044        ST      1,   68(  0,  7)


  1887                207:     PRX(KK,1,1,10,JJ);            !L(H)_1,JJ(1,10)

C 00009502    D203B0407044    MVC     64(  4, 11),   68(  7)
C 00009508    41100001        LA      1,    1(  0,  0)
C 0000950C    5010B044        ST      1,   68(  0, 11)
C 00009510    41100001        LA      1,    1(  0,  0)
C 00009514    5010B048        ST      1,   72(  0, 11)
C 00009518    4110000A        LA      1,   10(  0,  0)
C 0000951C    5010B04C        ST      1,   76(  0, 11)
C 00009520    D203B0507048    MVC     80(  4, 11),   72(  7)
C 00009526    5810D1C0        L       1,  448(  0, 13)
C 0000952A    45F0D074        BAL    15,  116(  0, 13)


  1888                         PCONST(X'47F1A000');->1;      !BC_15,0(1,10)

C 0000952E    5810D4FC        L       1, 1276(  0, 13)
C 00009532    5010B040        ST      1,   64(  0, 11)
C 00009536    5810D1B4        L       1,  436(  0, 13)
C 0000953A    45F0D074        BAL    15,  116(  0, 13)



C 0000953E    47FA0000        BC     15,    0( 10,  0)


  1889                210:     PCONST(X'89100002');KK= X'58';->207;! SLL_1,2

C 00009542    5810D500        L       1, 1280(  0, 13)
C 00009546    5010B040        ST      1,   64(  0, 11)
C 0000954A    5810D1B4        L       1,  436(  0, 13)
C 0000954E    45F0D074        BAL    15,  116(  0, 13)



C 00009552    41100058        LA      1,   88(  0,  0)
C 00009556    50107044        ST      1,   68(  0,  7)



C 0000955A    47F0A23C        BC     15,  572(  0, 10)


  1890                SW(3):                                 ! '->'(LABEL)
  1891                         NMDECS(LEVEL)=1

C 0000955E    41400001        LA      4,    1(  0,  0)
C 00009562    581090A8        L       1,  168(  0,  9)
C 00009566    4130926C        LA      3,  620(  0,  9)
C 0000956A    45F0C05C        BAL    15,   92(  0, 12)
C 0000956E    4041F000        STH     4,    0(  1, 15)
C 00009572    494F1000        CH      4,    0( 15,  1)
C 00009576    477C0058        BC      7,   88( 12,  0)


  1892                         K=A(P+2)+(A(P+1)-1)<<14

C 0000957A    41100002        LA      1,    2(  0,  0)
C 0000957E    5A108040        A       1,   64(  0,  8)
C 00009582    413092FC        LA      3,  764(  0,  9)
C 00009586    45F0C05C        BAL    15,   92(  0, 12)
C 0000958A    4861F000        LH      6,    0(  1, 15)
C 0000958E    41100001        LA      1,    1(  0,  0)
C 00009592    5A108040        A       1,   64(  0,  8)
C 00009596    413092FC        LA      3,  764(  0,  9)
C 0000959A    45F0C05C        BAL    15,   92(  0, 12)
C 0000959E    4851F000        LH      5,    0(  1, 15)
C 000095A2    0650            BCTR    5,  0
C 000095A4    8950000E        SLL     5,   14(  0)
C 000095A8    1A65            AR      6,  5
C 000095AA    506080A4        ST      6,  164(  0,  8)


  1893                         PJ(MASK,K); P=P+3; ->1

C 000095AE    D203B04090F0    MVC     64(  4, 11),  240(  9)
C 000095B4    D203B04480A4    MVC     68(  4, 11),  164(  8)
C 000095BA    5810D464        L       1, 1124(  0, 13)
C 000095BE    45F0D074        BAL    15,  116(  0, 13)



C 000095C2    41100003        LA      1,    3(  0,  0)
C 000095C6    5A108040        A       1,   64(  0,  8)
C 000095CA    50108040        ST      1,   64(  0,  8)



C 000095CE    47FA0000        BC     15,    0( 10,  0)


  1894                 SW(4):        !PRINT TEXT
  1895                         K=(A(P+1)+2)//2; P=P+1; PPJ(30)

C 000095D2    41100001        LA      1,    1(  0,  0)
C 000095D6    5A108040        A       1,   64(  0,  8)
C 000095DA    413092FC        LA      3,  764(  0,  9)
C 000095DE    45F0C05C        BAL    15,   92(  0, 12)
C 000095E2    4861F000        LH      6,    0(  1, 15)
C 000095E6    41100002        LA      1,    2(  0,  0)
C 000095EA    1A61            AR      6,  1
C 000095EC    1856            LR      5,  6
C 000095EE    1805            LR      0,  5
C 000095F0    8E000020        SRDA    0,   32(  0)
C 000095F4    41200002        LA      2,    2(  0,  0)
C 000095F8    1D02            DR      0,  2
C 000095FA    501080A4        ST      1,  164(  0,  8)



C 000095FE    41100001        LA      1,    1(  0,  0)
C 00009602    5A108040        A       1,   64(  0,  8)
C 00009606    50108040        ST      1,   64(  0,  8)



C 0000960A    921EB043        MVI     67( 11), 30
C 0000960E    5810D46C        L       1, 1132(  0, 13)
C 00009612    45F0D074        BAL    15,  116(  0, 13)


  1896                         %CYCLE KK=1,1,K; PLANT(A(P)<<8!A(P+1))

C 00009616    41407044        LA      4,   68(  0,  7)
C 0000961A    41200001        LA      2,    1(  0,  0)
C 0000961E    583080A4        L       3,  164(  0,  8)
C 00009622    90247050        STM     2,  4,   80(  7)
C 00009626    41100001        LA      1,    1(  0,  0)
C 0000962A    50104000        ST      1,    0(  0,  4)



C 0000962E    58108040        L       1,   64(  0,  8)
C 00009632    413092FC        LA      3,  764(  0,  9)
C 00009636    45F0C05C        BAL    15,   92(  0, 12)
C 0000963A    4861F000        LH      6,    0(  1, 15)
C 0000963E    41100001        LA      1,    1(  0,  0)
C 00009642    5A108040        A       1,   64(  0,  8)
C 00009646    413092FC        LA      3,  764(  0,  9)
C 0000964A    45F0C05C        BAL    15,   92(  0, 12)
C 0000964E    4851F000        LH      5,    0(  1, 15)
C 00009652    89600008        SLL     6,    8(  0)
C 00009656    1665            OR      6,  5
C 00009658    5060B040        ST      6,   64(  0, 11)
C 0000965C    5810D1CC        L       1,  460(  0, 13)
C 00009660    45F0D074        BAL    15,  116(  0, 13)


  1897                         P=P+2; %REPEAT; ->1

C 00009664    41100002        LA      1,    2(  0,  0)
C 00009668    5A108040        A       1,   64(  0,  8)
C 0000966C    50108040        ST      1,   64(  0,  8)



C 00009670    98247050        LM      2,  4,   80(  7)
C 00009674    58104000        L       1,    0(  0,  4)
C 00009678    8712A364        BXLE    1,  2,  868( 10)



C 0000967C    47FA0000        BC     15,    0( 10,  0)


  1898                 SW(5):        !RETURN
  1899                         FAULT(30) %UNLESS FLAG(LEVEL)=10000 %OR PERM=1

C 00009680    581090A8        L       1,  168(  0,  9)
C 00009684    413091EC        LA      3,  492(  0,  9)
C 00009688    45F0C05C        BAL    15,   92(  0, 12)
C 0000968C    4811F000        LH      1,    0(  1, 15)
C 00009690    1851            LR      5,  1
C 00009692    5810D504        L       1, 1284(  0, 13)
C 00009696    1915            CR      1,  5
C 00009698    478A03EA        BC      8, 1002( 10,  0)
C 0000969C    950190D0        CLI    208(  9),  1
C 000096A0    478A03EA        BC      8, 1002( 10,  0)
C 000096A4    921EB043        MVI     67( 11), 30
C 000096A8    5810D228        L       1,  552(  0, 13)
C 000096AC    45F0D074        BAL    15,  116(  0, 13)


  1900                               P=P+1

C 000096B0    41100001        LA      1,    1(  0,  0)
C 000096B4    5A108040        A       1,   64(  0,  8)
C 000096B8    50108040        ST      1,   64(  0,  8)


  1901                6:       PSS(X'D2',4,GLA,20,RBASE,0) %IF DIAGS1=1

C 000096BC    950190D5        CLI    213(  9),  1
C 000096C0    477A0430        BC      7, 1072( 10,  0)
C 000096C4    411000D2        LA      1,  210(  0,  0)
C 000096C8    5010B040        ST      1,   64(  0, 11)
C 000096CC    41100004        LA      1,    4(  0,  0)
C 000096D0    5010B044        ST      1,   68(  0, 11)
C 000096D4    D203B048D150    MVC     72(  4, 11),  336( 13)
C 000096DA    41100014        LA      1,   20(  0,  0)
C 000096DE    5010B04C        ST      1,   76(  0, 11)
C 000096E2    D203B05090F4    MVC     80(  4, 11),  244(  9)
C 000096E8    1F11            SLR     1,  1
C 000096EA    5010B054        ST      1,   84(  0, 11)
C 000096EE    5810D1BC        L       1,  444(  0, 13)
C 000096F2    45F0D074        BAL    15,  116(  0, 13)


  1902                         %COMMENT CHECK FOR REGISTER VARS & UPDATE CORE COPY
  1903                         %CYCLE KK=5,1,8

C 000096F6    41407044        LA      4,   68(  0,  7)
C 000096FA    41200001        LA      2,    1(  0,  0)
C 000096FE    41300008        LA      3,    8(  0,  0)
C 00009702    9024705C        STM     2,  4,   92(  7)
C 00009706    41100005        LA      1,    5(  0,  0)
C 0000970A    50104000        ST      1,    0(  0,  4)


  1904                         %IF 0#UVARREG(KK)<LEVEL %THEN PRX(X'50',KK,0,RBASE,KK<<2)

C 0000970E    58107044        L       1,   68(  0,  7)
C 00009712    413092AC        LA      3,  684(  0,  9)
C 00009716    45F0C05C        BAL    15,   92(  0, 12)
C 0000971A    5811F000        L       1,    0(  1, 15)
C 0000971E    1211            LTR     1,  1
C 00009720    478A0494        BC      8, 1172( 10,  0)
C 00009724    591090A8        C       1,  168(  0,  9)
C 00009728    47BA0494        BC     11, 1172( 10,  0)
C 0000972C    41100050        LA      1,   80(  0,  0)
C 00009730    5010B040        ST      1,   64(  0, 11)
C 00009734    D203B0447044    MVC     68(  4, 11),   68(  7)
C 0000973A    1F11            SLR     1,  1
C 0000973C    5010B048        ST      1,   72(  0, 11)
C 00009740    D203B04C90F4    MVC     76(  4, 11),  244(  9)
C 00009746    58107044        L       1,   68(  0,  7)
C 0000974A    89100002        SLL     1,    2(  0)
C 0000974E    5010B050        ST      1,   80(  0, 11)
C 00009752    5810D1C0        L       1,  448(  0, 13)
C 00009756    45F0D074        BAL    15,  116(  0, 13)


  1905                         %REPEAT

C 0000975A    9824705C        LM      2,  4,   92(  7)
C 0000975E    58104000        L       1,    0(  0,  4)
C 00009762    8712A444        BXLE    1,  2, 1092( 10)


  1906                         PRX(X'98',4,15,RBASE,16);     ! LM OLD REGISTERS

C 00009766    41100098        LA      1,  152(  0,  0)
C 0000976A    5010B040        ST      1,   64(  0, 11)
C 0000976E    41100004        LA      1,    4(  0,  0)
C 00009772    5010B044        ST      1,   68(  0, 11)
C 00009776    4110000F        LA      1,   15(  0,  0)
C 0000977A    5010B048        ST      1,   72(  0, 11)
C 0000977E    D203B04C90F4    MVC     76(  4, 11),  244(  9)
C 00009784    41100010        LA      1,   16(  0,  0)
C 00009788    5010B050        ST      1,   80(  0, 11)
C 0000978C    5810D1C0        L       1,  448(  0, 13)
C 00009790    45F0D074        BAL    15,  116(  0, 13)


  1907                         R13=0; PRR(7,15,LINK); ->1;   ! BR LINK

C 00009794    1F11            SLR     1,  1
C 00009796    501090BC        ST      1,  188(  0,  9)



C 0000979A    41100007        LA      1,    7(  0,  0)
C 0000979E    5010B040        ST      1,   64(  0, 11)
C 000097A2    4110000F        LA      1,   15(  0,  0)
C 000097A6    5010B044        ST      1,   68(  0, 11)
C 000097AA    D203B048D148    MVC     72(  4, 11),  328( 13)
C 000097B0    5810D1D0        L       1,  464(  0, 13)
C 000097B4    45F0D074        BAL    15,  116(  0, 13)



C 000097B8    47FA0000        BC     15,    0( 10,  0)


  1908                SW(6):   ! %RESULT =EXPR
  1909                         P=P+1; KK=FLAG(LEVEL)

C 000097BC    41100001        LA      1,    1(  0,  0)
C 000097C0    5A108040        A       1,   64(  0,  8)
C 000097C4    50108040        ST      1,   64(  0,  8)



C 000097C8    581090A8        L       1,  168(  0,  9)
C 000097CC    413091EC        LA      3,  492(  0,  9)
C 000097D0    45F0C05C        BAL    15,   92(  0, 12)
C 000097D4    4811F000        LH      1,    0(  1, 15)
C 000097D8    50107044        ST      1,   68(  0,  7)


  1910                         FAULT(31) %UNLESS KK>10000

C 000097DC    5810D508        L       1, 1288(  0, 13)
C 000097E0    59107044        C       1,   68(  0,  7)
C 000097E4    474A052E        BC      4, 1326( 10,  0)
C 000097E8    921FB043        MVI     67( 11), 31
C 000097EC    5810D228        L       1,  552(  0, 13)
C 000097F0    45F0D074        BAL    15,  116(  0, 13)


  1911                         ->61 %IF KK=10002

C 000097F4    5810D50C        L       1, 1292(  0, 13)
C 000097F8    59107044        C       1,   68(  0,  7)
C 000097FC    478A0000        BC      8,    0( 10,  0)


  1912                         ->62 %IF KK=10032

C 00009800    5810D510        L       1, 1296(  0, 13)
C 00009804    59107044        C       1,   68(  0,  7)
C 00009808    478A0000        BC      8,    0( 10,  0)


  1913                         ->63 %IF KK=10005

C 0000980C    5810D514        L       1, 1300(  0, 13)
C 00009810    59107044        C       1,   68(  0,  7)
C 00009814    478A0000        BC      8,    0( 10,  0)


  1914                         CSEXP(1,1); ->6

C 00009818    41100001        LA      1,    1(  0,  0)
C 0000981C    5010B040        ST      1,   64(  0, 11)
C 00009820    9201B047        MVI     71( 11),  1
C 00009824    5810D37C        L       1,  892(  0, 13)
C 00009828    45F0D074        BAL    15,  116(  0, 13)



C 0000982C    47F0A3F6        BC     15, 1014(  0, 10)


  1915                61:      CSEXP(2,2); ->6

C 00009830    41100002        LA      1,    2(  0,  0)
C 00009834    5010B040        ST      1,   64(  0, 11)
C 00009838    9202B047        MVI     71( 11),  2
C 0000983C    5810D37C        L       1,  892(  0, 13)
C 00009840    45F0D074        BAL    15,  116(  0, 13)



C 00009844    47F0A3F6        BC     15, 1014(  0, 10)


  1916                62:      CSEXP(2,3); ->6

C 00009848    41100002        LA      1,    2(  0,  0)
C 0000984C    5010B040        ST      1,   64(  0, 11)
C 00009850    9203B047        MVI     71( 11),  3
C 00009854    5810D37C        L       1,  892(  0, 13)
C 00009858    45F0D074        BAL    15,  116(  0, 13)



C 0000985C    47F0A3F6        BC     15, 1014(  0, 10)


  1917                63:      CSTREXP(1); ->6

C 00009860    41100001        LA      1,    1(  0,  0)
C 00009864    5010B040        ST      1,   64(  0, 11)
C 00009868    5810D380        L       1,  896(  0, 13)
C 0000986C    45F0D074        BAL    15,  116(  0, 13)



C 00009870    47F0A3F6        BC     15, 1014(  0, 10)


  1918                SW(7):SW(8):   ! STOP & MONITORSTOP
  1919                         PPJ(6*(A(P)-6)); P=P+1; ->1

C 00009874    58108040        L       1,   64(  0,  8)
C 00009878    413092FC        LA      3,  764(  0,  9)
C 0000987C    45F0C05C        BAL    15,   92(  0, 12)
C 00009880    4861F000        LH      6,    0(  1, 15)
C 00009884    41100006        LA      1,    6(  0,  0)
C 00009888    1B61            SR      6,  1
C 0000988A    1856            LR      5,  6
C 0000988C    41100006        LA      1,    6(  0,  0)
C 00009890    1C41            MR      4,  1
C 00009892    5050B040        ST      5,   64(  0, 11)
C 00009896    5810D46C        L       1, 1132(  0, 13)
C 0000989A    45F0D074        BAL    15,  116(  0, 13)



C 0000989E    41100001        LA      1,    1(  0,  0)
C 000098A2    5A108040        A       1,   64(  0,  8)
C 000098A6    50108040        ST      1,   64(  0,  8)



C 000098AA    47FA0000        BC     15,    0( 10,  0)


  1920                SW(9):  SFLABEL=SFLABEL-1

C 000098AE    581090F8        L       1,  248(  0,  9)
C 000098B2    0610            BCTR    1,  0
C 000098B4    501090F8        ST      1,  248(  0,  9)


  1921                        PUSH(SBR(LEVEL),CODE,SFLABEL)

C 000098B8    581090A8        L       1,  168(  0,  9)
C 000098BC    413091FC        LA      3,  508(  0,  9)
C 000098C0    45F0C05C        BAL    15,   92(  0, 12)
C 000098C4    4111F000        LA      1,    0(  1, 15)
C 000098C8    5010B040        ST      1,   64(  0, 11)
C 000098CC    1F11            SLR     1,  1
C 000098CE    43107043        IC      1,   67(  0,  7)
C 000098D2    5010B044        ST      1,   68(  0, 11)
C 000098D6    D203B04890F8    MVC     72(  4, 11),  248(  9)
C 000098DC    5810D3E0        L       1,  992(  0, 13)
C 000098E0    45F0D074        BAL    15,  116(  0, 13)


  1922                         PUSH(CYCLE(LEVEL),0,0)

C 000098E4    581090A8        L       1,  168(  0,  9)
C 000098E8    413091AC        LA      3,  428(  0,  9)
C 000098EC    45F0C05C        BAL    15,   92(  0, 12)
C 000098F0    4111F000        LA      1,    0(  1, 15)
C 000098F4    5010B040        ST      1,   64(  0, 11)
C 000098F8    1F11            SLR     1,  1
C 000098FA    5010B044        ST      1,   68(  0, 11)
C 000098FE    1F11            SLR     1,  1
C 00009900    5010B048        ST      1,   72(  0, 11)
C 00009904    5810D3E0        L       1,  992(  0, 13)
C 00009908    45F0D074        BAL    15,  116(  0, 13)


  1923                         ->1

C 0000990C    47FA0000        BC     15,    0( 10,  0)


  1924                SW(11):                                ! %QUERIES (ONOFF)
  1925                         KK=2-A(P+1); P=P+2

C 00009910    41100001        LA      1,    1(  0,  0)
C 00009914    5A108040        A       1,   64(  0,  8)
C 00009918    413092FC        LA      3,  764(  0,  9)
C 0000991C    45F0C05C        BAL    15,   92(  0, 12)
C 00009920    4861F000        LH      6,    0(  1, 15)
C 00009924    41100002        LA      1,    2(  0,  0)
C 00009928    1B16            SR      1,  6
C 0000992A    50107044        ST      1,   68(  0,  7)



C 0000992E    41100002        LA      1,    2(  0,  0)
C 00009932    5A108040        A       1,   64(  0,  8)
C 00009936    50108040        ST      1,   64(  0,  8)


  1926                         PSI(X'92',KK,GLA,1); ->1

C 0000993A    41100092        LA      1,  146(  0,  0)
C 0000993E    5010B040        ST      1,   64(  0, 11)
C 00009942    D203B0447044    MVC     68(  4, 11),   68(  7)
C 00009948    D203B048D150    MVC     72(  4, 11),  336( 13)
C 0000994E    41100001        LA      1,    1(  0,  0)
C 00009952    5010B04C        ST      1,   76(  0, 11)
C 00009956    5810D1B8        L       1,  440(  0, 13)
C 0000995A    45F0D074        BAL    15,  116(  0, 13)



C 0000995E    47FA0000        BC     15,    0( 10,  0)


  1927                SW(10):  PPJ(31); P=P+1; ;             ! %MONITOR

C 00009962    921FB043        MVI     67( 11), 31
C 00009966    5810D46C        L       1, 1132(  0, 13)
C 0000996A    45F0D074        BAL    15,  116(  0, 13)



C 0000996E    41100001        LA      1,    1(  0,  0)
C 00009972    5A108040        A       1,   64(  0,  8)
C 00009976    50108040        ST      1,   64(  0,  8)


  1928                 1:            %END
D 0000075C    C2 C2 C2 C2 07 46 07 03 43 55 49 01 01 70 4C 02 51 51 00 0F 01 70 48 02 4A 4A A7 40 01 70 44 02 4B 4B A6 E0 09 70 43 04 43 4F 44 45 FF FF FF FF


C 0000997A    D203D0147000    MVC     20(  4, 13),    0(  7)
C 00009980    984F7010        LM      4, 15,   16(  7)
C 00009984    07FF            BCR    15, 15


  1929                     %ROUTINE     CRFORMAT

C 00009986    0000
C 00009988    0000
C 0000998A    47FA0000        BC     15,    0( 10,  0)
C 0000998E    50F0B03C        ST     15,   60(  0, 11)
C 00009992    D203B000D014    MVC      0(  4, 11),   20( 13)
C 00009998    41000789        LA      0, 1929(  0,  0)
C 0000999C    4000D014        STH     0,   20(  0, 13)
C 000099A0    187B            LR      7, 11
C 000099A2    41BB0000        LA     11,    0( 11,  0)
C 000099A6    41000004        LA      0,    4(  0,  0)
C 000099AA    59BD0044        C      11,   68( 13,  0)
C 000099AE    4720C054        BC      2,   84(  0, 12)
C 000099B2    05A0            BALR   10,  0


  1930                         %SHORTROUTINE
  1931                         %INTEGER LENGTHP,QQQ,REP,CODE
  1932                         K=A(P+1);TEST NST

C 000099B4    41100001        LA      1,    1(  0,  0)
C 000099B8    5A108040        A       1,   64(  0,  8)
C 000099BC    413092FC        LA      3,  764(  0,  9)
C 000099C0    45F0C05C        BAL    15,   92(  0, 12)
C 000099C4    4811F000        LH      1,    0(  1, 15)
C 000099C8    501080A4        ST      1,  164(  0,  8)



C 000099CC    5810D43C        L       1, 1084(  0, 13)
C 000099D0    45F0D074        BAL    15,  116(  0, 13)


  1933                         J=0;PTYPE=4;OPHEAD=NEWCELL

C 000099D4    1F11            SLR     1,  1
C 000099D6    501080A0        ST      1,  160(  0,  8)



C 000099DA    41100004        LA      1,    4(  0,  0)
C 000099DE    50108098        ST      1,  152(  0,  8)



C 000099E2    5810D404        L       1, 1028(  0, 13)
C 000099E6    45F0D074        BAL    15,  116(  0, 13)
C 000099EA    40108054        STH     1,   84(  0,  8)
C 000099EE    49180054        CH      1,   84(  8,  0)
C 000099F2    477C0058        BC      7,   88( 12,  0)


  1934                         JJJ=OPHEAD;STORE TAG(K,JJJ)

C 000099F6    48108054        LH      1,   84(  0,  8)
C 000099FA    5010805C        ST      1,   92(  0,  8)



C 000099FE    D203B04080A4    MVC     64(  4, 11),  164(  8)
C 00009A04    D203B044805C    MVC     68(  4, 11),   92(  8)
C 00009A0A    5810D434        L       1, 1076(  0, 13)
C 00009A0E    45F0D074        BAL    15,  116(  0, 13)


  1935                         P=3;Q=0;INC=4;INCP=0

C 00009A12    41100003        LA      1,    3(  0,  0)
C 00009A16    50108040        ST      1,   64(  0,  8)



C 00009A1A    1F11            SLR     1,  1
C 00009A1C    50108068        ST      1,  104(  0,  8)



C 00009A20    41100004        LA      1,    4(  0,  0)
C 00009A24    50108044        ST      1,   68(  0,  8)



C 00009A28    1F11            SLR     1,  1
C 00009A2A    50108048        ST      1,   72(  0,  8)


  1936                ! INC COUNTS ALONG RECORD FORMAT DOPEVECTOR..INCP BYTES FROM RECORDHD
  1937                         ->101 %IF A(P)=2;             ! NO FPP

C 00009A2E    58108040        L       1,   64(  0,  8)
C 00009A32    413092FC        LA      3,  764(  0,  9)
C 00009A36    45F0C05C        BAL    15,   92(  0, 12)
C 00009A3A    4811F000        LH      1,    0(  1, 15)
C 00009A3E    41200002        LA      2,    2(  0,  0)
C 00009A42    1912            CR      1,  2
C 00009A44    478A0000        BC      8,    0( 10,  0)


  1938                1:       P=P+1; COMPILE FORMAL PARAMETER

C 00009A48    41100001        LA      1,    1(  0,  0)
C 00009A4C    5A108040        A       1,   64(  0,  8)
C 00009A50    50108040        ST      1,   64(  0,  8)



C 00009A54    5810D468        L       1, 1128(  0, 13)
C 00009A58    45F0D074        BAL    15,  116(  0, 13)


  1939                         LENGTHP=ACC-1; LENGTHP=3 %IF ACC>8

C 00009A5C    58108050        L       1,   80(  0,  8)
C 00009A60    0610            BCTR    1,  0
C 00009A62    50107040        ST      1,   64(  0,  7)



C 00009A66    41100008        LA      1,    8(  0,  0)
C 00009A6A    59108050        C       1,   80(  0,  8)
C 00009A6E    47BA00C6        BC     11,  198( 10,  0)
C 00009A72    41100003        LA      1,    3(  0,  0)
C 00009A76    50107040        ST      1,   64(  0,  7)


  1940                2:       ->3 %IF INCP&LENGTHP=0; INCP=INCP+1; ->2

C 00009A7A    58108048        L       1,   72(  0,  8)
C 00009A7E    54107040        N       1,   64(  0,  7)
C 00009A82    478A0000        BC      8,    0( 10,  0)



C 00009A86    41100001        LA      1,    1(  0,  0)
C 00009A8A    5A108048        A       1,   72(  0,  8)
C 00009A8E    50108048        ST      1,   72(  0,  8)



C 00009A92    47F0A0C6        BC     15,  198(  0, 10)


  1941                3:       %CYCLE REP=1,1,A(P); P=P+1

C 00009A96    41407048        LA      4,   72(  0,  7)
C 00009A9A    41200001        LA      2,    1(  0,  0)
C 00009A9E    50207050        ST      2,   80(  0,  7)
C 00009AA2    58108040        L       1,   64(  0,  8)
C 00009AA6    413092FC        LA      3,  764(  0,  9)
C 00009AAA    45F0C05C        BAL    15,   92(  0, 12)
C 00009AAE    4831F000        LH      3,    0(  1, 15)
C 00009AB2    90347054        STM     3,  4,   84(  7)
C 00009AB6    41100001        LA      1,    1(  0,  0)
C 00009ABA    50104000        ST      1,    0(  0,  4)



C 00009ABE    41100001        LA      1,    1(  0,  0)
C 00009AC2    5A108040        A       1,   64(  0,  8)
C 00009AC6    50108040        ST      1,   64(  0,  8)


  1942                         CODE=255; LENGTHP=ACC

C 00009ACA    411000FF        LA      1,  255(  0,  0)
C 00009ACE    5010704C        ST      1,   76(  0,  7)



C 00009AD2    D20370408050    MVC     64(  4,  7),   80(  8)


  1943                         ->11 %IF ROUT=1

C 00009AD8    95018090        CLI    144(  8),  1
C 00009ADC    478A0000        BC      8,    0( 10,  0)


  1944                         ->12 %IF TYPE=3;QQQ=INCP

C 00009AE0    95038094        CLI    148(  8),  3
C 00009AE4    478A0000        BC      8,    0( 10,  0)



C 00009AE8    D20370448048    MVC     68(  4,  7),   72(  8)


  1945                         ->4 %UNLESS TYPE=5

C 00009AEE    95058094        CLI    148(  8),  5
C 00009AF2    477A0000        BC      7,    0( 10,  0)


  1946                         CODE=250; LENGTHP=ACC-1; QQQ=INC

C 00009AF6    411000FA        LA      1,  250(  0,  0)
C 00009AFA    5010704C        ST      1,   76(  0,  7)



C 00009AFE    58108050        L       1,   80(  0,  8)
C 00009B02    0610            BCTR    1,  0
C 00009B04    50107040        ST      1,   64(  0,  7)



C 00009B08    D20370448044    MVC     68(  4,  7),   68(  8)


  1947                4:       INSERT AFTER(OPHEAD,PTYPE<<4!A(P)<<20,QQQ)

C 00009B0E    41108054        LA      1,   84(  0,  8)
C 00009B12    5010B040        ST      1,   64(  0, 11)
C 00009B16    58108040        L       1,   64(  0,  8)
C 00009B1A    413092FC        LA      3,  764(  0,  9)
C 00009B1E    45F0C05C        BAL    15,   92(  0, 12)
C 00009B22    4861F000        LH      6,    0(  1, 15)
C 00009B26    58108098        L       1,  152(  0,  8)
C 00009B2A    89100004        SLL     1,    4(  0)
C 00009B2E    89600014        SLL     6,   20(  0)
C 00009B32    1616            OR      1,  6
C 00009B34    5010B044        ST      1,   68(  0, 11)
C 00009B38    D203B0487044    MVC     72(  4, 11),   68(  7)
C 00009B3E    5810D3D4        L       1,  980(  0, 13)
C 00009B42    45F0D074        BAL    15,  116(  0, 13)


  1948                         PSI(X'92',CODE,RBASE,N+INC)

C 00009B46    41100092        LA      1,  146(  0,  0)
C 00009B4A    5010B040        ST      1,   64(  0, 11)
C 00009B4E    D203B044704C    MVC     68(  4, 11),   76(  7)
C 00009B54    D203B04890F4    MVC     72(  4, 11),  244(  9)
C 00009B5A    58109100        L       1,  256(  0,  9)
C 00009B5E    5A108044        A       1,   68(  0,  8)
C 00009B62    5010B04C        ST      1,   76(  0, 11)
C 00009B66    5810D1B8        L       1,  440(  0, 13)
C 00009B6A    45F0D074        BAL    15,  116(  0, 13)


  1949                         PSI(X'92',LENGTHP,RBASE,N+INC+1)

C 00009B6E    41100092        LA      1,  146(  0,  0)
C 00009B72    5010B040        ST      1,   64(  0, 11)
C 00009B76    D203B0447040    MVC     68(  4, 11),   64(  7)
C 00009B7C    D203B04890F4    MVC     72(  4, 11),  244(  9)
C 00009B82    58109100        L       1,  256(  0,  9)
C 00009B86    5A108044        A       1,   68(  0,  8)
C 00009B8A    41200001        LA      2,    1(  0,  0)
C 00009B8E    1A12            AR      1,  2
C 00009B90    5010B04C        ST      1,   76(  0, 11)
C 00009B94    5810D1B8        L       1,  440(  0, 13)
C 00009B98    45F0D074        BAL    15,  116(  0, 13)


  1950                         Q=Q+1

C 00009B9C    41100001        LA      1,    1(  0,  0)
C 00009BA0    5A108068        A       1,  104(  0,  8)
C 00009BA4    50108068        ST      1,  104(  0,  8)


  1951                         INC=INC+4; INCP=INCP+ACC

C 00009BA8    41100004        LA      1,    4(  0,  0)
C 00009BAC    5A108044        A       1,   68(  0,  8)
C 00009BB0    50108044        ST      1,   68(  0,  8)



C 00009BB4    58108048        L       1,   72(  0,  8)
C 00009BB8    5A108050        A       1,   80(  0,  8)
C 00009BBC    50108048        ST      1,   72(  0,  8)


  1952                         ->15

C 00009BC0    47FA0000        BC     15,    0( 10,  0)


  1953                11:      QQQ=NEWCELL; REPLACE BOTH(QQQ,INCP,100)

C 00009BC4    5810D404        L       1, 1028(  0, 13)
C 00009BC8    45F0D074        BAL    15,  116(  0, 13)
C 00009BCC    50107044        ST      1,   68(  0,  7)



C 00009BD0    D203B0407044    MVC     64(  4, 11),   68(  7)
C 00009BD6    D203B0448048    MVC     68(  4, 11),   72(  8)
C 00009BDC    41100064        LA      1,  100(  0,  0)
C 00009BE0    5010B048        ST      1,   72(  0, 11)
C 00009BE4    5810D3F4        L       1, 1012(  0, 13)
C 00009BE8    45F0D074        BAL    15,  116(  0, 13)


  1954                         FAULT(41) %UNLESS PTYPE=11000;! FUNCTIONS TOO DICEY AT PRESENT

C 00009BEC    5810D518        L       1, 1304(  0, 13)
C 00009BF0    59108098        C       1,  152(  0,  8)
C 00009BF4    478A0250        BC      8,  592( 10,  0)
C 00009BF8    9229B043        MVI     67( 11), 41
C 00009BFC    5810D228        L       1,  552(  0, 13)
C 00009C00    45F0D074        BAL    15,  116(  0, 13)


  1955                         ACC=40; LENGTHP=ACC; ->4;     ! RT NAME MUST CARRY ENVRMNT

C 00009C04    41100028        LA      1,   40(  0,  0)
C 00009C08    50108050        ST      1,   80(  0,  8)



C 00009C0C    D20370408050    MVC     64(  4,  7),   80(  8)



C 00009C12    47F0A15A        BC     15,  346(  0, 10)


  1956                12:      QQQ=NEWCELL; REPLACE BOTH(QQQ,0,INCP); ->4

C 00009C16    5810D404        L       1, 1028(  0, 13)
C 00009C1A    45F0D074        BAL    15,  116(  0, 13)
C 00009C1E    50107044        ST      1,   68(  0,  7)



C 00009C22    D203B0407044    MVC     64(  4, 11),   68(  7)
C 00009C28    1F11            SLR     1,  1
C 00009C2A    5010B044        ST      1,   68(  0, 11)
C 00009C2E    D203B0488048    MVC     72(  4, 11),   72(  8)
C 00009C34    5810D3F4        L       1, 1012(  0, 13)
C 00009C38    45F0D074        BAL    15,  116(  0, 13)



C 00009C3C    47F0A15A        BC     15,  346(  0, 10)


  1957                15:      %REPEAT

C 00009C40    98247050        LM      2,  4,   80(  7)
C 00009C44    58104000        L       1,    0(  0,  4)
C 00009C48    8712A106        BXLE    1,  2,  262( 10)


  1958                         P=P+1;                        ! P ON REST OF FP LIST

C 00009C4C    41100001        LA      1,    1(  0,  0)
C 00009C50    5A108040        A       1,   64(  0,  8)
C 00009C54    50108040        ST      1,   64(  0,  8)


  1959                         ->101 %IF A(P)=2; P=P+1; ->1

C 00009C58    58108040        L       1,   64(  0,  8)
C 00009C5C    413092FC        LA      3,  764(  0,  9)
C 00009C60    45F0C05C        BAL    15,   92(  0, 12)
C 00009C64    4811F000        LH      1,    0(  1, 15)
C 00009C68    41200002        LA      2,    2(  0,  0)
C 00009C6C    1912            CR      1,  2
C 00009C6E    478A0000        BC      8,    0( 10,  0)



C 00009C72    41100001        LA      1,    1(  0,  0)
C 00009C76    5A108040        A       1,   64(  0,  8)
C 00009C7A    50108040        ST      1,   64(  0,  8)



C 00009C7E    47F0A094        BC     15,  148(  0, 10)


  1960                101:     P=P+1

C 00009C82    41100001        LA      1,    1(  0,  0)
C 00009C86    5A108040        A       1,   64(  0,  8)
C 00009C8A    50108040        ST      1,   64(  0,  8)


  1961                102:     ->201 %IF A(P)=2;             ! NO ARRAYS

C 00009C8E    58108040        L       1,   64(  0,  8)
C 00009C92    413092FC        LA      3,  764(  0,  9)
C 00009C96    45F0C05C        BAL    15,   92(  0, 12)
C 00009C9A    4811F000        LH      1,    0(  1, 15)
C 00009C9E    41200002        LA      2,    2(  0,  0)
C 00009CA2    1912            CR      1,  2
C 00009CA4    478A0000        BC      8,    0( 10,  0)


  1962                         P=P+2; CLT

C 00009CA8    41100002        LA      1,    2(  0,  0)
C 00009CAC    5A108040        A       1,   64(  0,  8)
C 00009CB0    50108040        ST      1,   64(  0,  8)



C 00009CB4    5810D3B0        L       1,  944(  0, 13)
C 00009CB8    45F0D074        BAL    15,  116(  0, 13)


  1963                         NAM= 2*(2-A(P))

C 00009CBC    58108040        L       1,   64(  0,  8)
C 00009CC0    413092FC        LA      3,  764(  0,  9)
C 00009CC4    45F0C05C        BAL    15,   92(  0, 12)
C 00009CC8    4861F000        LH      6,    0(  1, 15)
C 00009CCC    41100002        LA      1,    2(  0,  0)
C 00009CD0    1B16            SR      1,  6
C 00009CD2    1851            LR      5,  1
C 00009CD4    1A55            AR      5,  5
C 00009CD6    42508091        STC     5,  145(  0,  8)
C 00009CDA    5550D018        CL      5,   24(  0, 13)
C 00009CDE    472C0058        BC      2,   88( 12,  0)


  1964                         ACC=4 %IF NAM#0;P=P+1

C 00009CE2    95008091        CLI    145(  8),  0
C 00009CE6    478A033E        BC      8,  830( 10,  0)
C 00009CEA    41100004        LA      1,    4(  0,  0)
C 00009CEE    50108050        ST      1,   80(  0,  8)



C 00009CF2    41100001        LA      1,    1(  0,  0)
C 00009CF6    5A108040        A       1,   64(  0,  8)
C 00009CFA    50108040        ST      1,   64(  0,  8)


  1965                         ROUT=0; ARR=1; PACK(PTYPE)

C 00009CFE    92008090        MVI    144(  8),  0



C 00009D02    92018092        MVI    146(  8),  1



C 00009D06    41108098        LA      1,  152(  0,  8)
C 00009D0A    5010B040        ST      1,   64(  0, 11)
C 00009D0E    5810D450        L       1, 1104(  0, 13)
C 00009D12    45F0D074        BAL    15,  116(  0, 13)


  1966                103:
  1967                         PSI(X'92',0,RBASE,N+INC);     ! FLAG FOR ARRAYS

C 00009D16    41100092        LA      1,  146(  0,  0)
C 00009D1A    5010B040        ST      1,   64(  0, 11)
C 00009D1E    1F11            SLR     1,  1
C 00009D20    5010B044        ST      1,   68(  0, 11)
C 00009D24    D203B04890F4    MVC     72(  4, 11),  244(  9)
C 00009D2A    58109100        L       1,  256(  0,  9)
C 00009D2E    5A108044        A       1,   68(  0,  8)
C 00009D32    5010B04C        ST      1,   76(  0, 11)
C 00009D36    5810D1B8        L       1,  440(  0, 13)
C 00009D3A    45F0D074        BAL    15,  116(  0, 13)


  1968                         DUMP(1,WSPR,N+INC+8,0,RBASE); ! PTR TO DOPE VECTOR

C 00009D3E    41100001        LA      1,    1(  0,  0)
C 00009D42    5010B040        ST      1,   64(  0, 11)
C 00009D46    D203B044D14C    MVC     68(  4, 11),  332( 13)
C 00009D4C    58109100        L       1,  256(  0,  9)
C 00009D50    5A108044        A       1,   68(  0,  8)
C 00009D54    41200008        LA      2,    8(  0,  0)
C 00009D58    1A12            AR      1,  2
C 00009D5A    5010B048        ST      1,   72(  0, 11)
C 00009D5E    1F11            SLR     1,  1
C 00009D60    5010B04C        ST      1,   76(  0, 11)
C 00009D64    D203B05090F4    MVC     80(  4, 11),  244(  9)
C 00009D6A    5810D458        L       1, 1112(  0, 13)
C 00009D6E    45F0D074        BAL    15,  116(  0, 13)


  1969                         QQ=P; CADCLN(1)

C 00009D72    D203806C8040    MVC    108(  4,  8),   64(  8)



C 00009D78    9201B043        MVI     67( 11),  1
C 00009D7C    5810D3A8        L       1,  936(  0, 13)
C 00009D80    45F0D074        BAL    15,  116(  0, 13)


  1970                         JJ=P; P=QQ+2

C 00009D84    D20380588040    MVC     88(  4,  8),   64(  8)



C 00009D8A    41100002        LA      1,    2(  0,  0)
C 00009D8E    5A10806C        A       1,  108(  0,  8)
C 00009D92    50108040        ST      1,   64(  0,  8)


  1971                         REP=P+A(P-1);                 ! AFTER LAST NAME

C 00009D96    58108040        L       1,   64(  0,  8)
C 00009D9A    0610            BCTR    1,  0
C 00009D9C    413092FC        LA      3,  764(  0,  9)
C 00009DA0    45F0C05C        BAL    15,   92(  0, 12)
C 00009DA4    4861F000        LH      6,    0(  1, 15)
C 00009DA8    5A608040        A       6,   64(  0,  8)
C 00009DAC    50607048        ST      6,   72(  0,  7)


  1972                105:     INSERT AFTER(OPHEAD,J!PTYPE<<4!A(P)<<20,INC)

C 00009DB0    41108054        LA      1,   84(  0,  8)
C 00009DB4    5010B040        ST      1,   64(  0, 11)
C 00009DB8    58108040        L       1,   64(  0,  8)
C 00009DBC    413092FC        LA      3,  764(  0,  9)
C 00009DC0    45F0C05C        BAL    15,   92(  0, 12)
C 00009DC4    4861F000        LH      6,    0(  1, 15)
C 00009DC8    58108098        L       1,  152(  0,  8)
C 00009DCC    89100004        SLL     1,    4(  0)
C 00009DD0    561080A0        O       1,  160(  0,  8)
C 00009DD4    89600014        SLL     6,   20(  0)
C 00009DD8    1616            OR      1,  6
C 00009DDA    5010B044        ST      1,   68(  0, 11)
C 00009DDE    D203B0488044    MVC     72(  4, 11),   68(  8)
C 00009DE4    5810D3D4        L       1,  980(  0, 13)
C 00009DE8    45F0D074        BAL    15,  116(  0, 13)


  1973                         INC=INC+16; Q=Q+1

C 00009DEC    41100010        LA      1,   16(  0,  0)
C 00009DF0    5A108044        A       1,   68(  0,  8)
C 00009DF4    50108044        ST      1,   68(  0,  8)



C 00009DF8    41100001        LA      1,    1(  0,  0)
C 00009DFC    5A108068        A       1,  104(  0,  8)
C 00009E00    50108068        ST      1,  104(  0,  8)


  1974                         P=P+1; ->106 %IF P=REP

C 00009E04    41100001        LA      1,    1(  0,  0)
C 00009E08    5A108040        A       1,   64(  0,  8)
C 00009E0C    50108040        ST      1,   64(  0,  8)



C 00009E10    D50380407048    CLC     64(  4,  8),   72(  7)
C 00009E16    478A0000        BC      8,    0( 10,  0)


  1975                         PSS(X'D2',16,RBASE,N+INC,RBASE,N+INC-16); ->105

C 00009E1A    411000D2        LA      1,  210(  0,  0)
C 00009E1E    5010B040        ST      1,   64(  0, 11)
C 00009E22    41100010        LA      1,   16(  0,  0)
C 00009E26    5010B044        ST      1,   68(  0, 11)
C 00009E2A    D203B04890F4    MVC     72(  4, 11),  244(  9)
C 00009E30    58109100        L       1,  256(  0,  9)
C 00009E34    5A108044        A       1,   68(  0,  8)
C 00009E38    5010B04C        ST      1,   76(  0, 11)
C 00009E3C    D203B05090F4    MVC     80(  4, 11),  244(  9)
C 00009E42    58109100        L       1,  256(  0,  9)
C 00009E46    5A108044        A       1,   68(  0,  8)
C 00009E4A    41200010        LA      2,   16(  0,  0)
C 00009E4E    1B12            SR      1,  2
C 00009E50    5010B054        ST      1,   84(  0, 11)
C 00009E54    5810D1BC        L       1,  444(  0, 13)
C 00009E58    45F0D074        BAL    15,  116(  0, 13)



C 00009E5C    47F0A3FC        BC     15, 1020(  0, 10)


  1976                106:     P=JJ+2

C 00009E60    41100002        LA      1,    2(  0,  0)
C 00009E64    5A108058        A       1,   88(  0,  8)
C 00009E68    50108040        ST      1,   64(  0,  8)


  1977                         ->103 %IF A(P-1)=1; ->102;    ! P ON RESTOFARRAYLIST

C 00009E6C    58108040        L       1,   64(  0,  8)
C 00009E70    0610            BCTR    1,  0
C 00009E72    413092FC        LA      3,  764(  0,  9)
C 00009E76    45F0C05C        BAL    15,   92(  0, 12)
C 00009E7A    4811F000        LH      1,    0(  1, 15)
C 00009E7E    41200001        LA      2,    1(  0,  0)
C 00009E82    1912            CR      1,  2
C 00009E84    4780A362        BC      8,  866(  0, 10)



C 00009E88    47F0A2DA        BC     15,  730(  0, 10)


  1978                201:     REPLACE BOTH(JJJ,N,Q)

C 00009E8C    D203B040805C    MVC     64(  4, 11),   92(  8)
C 00009E92    D203B0449100    MVC     68(  4, 11),  256(  9)
C 00009E98    D203B0488068    MVC     72(  4, 11),  104(  8)
C 00009E9E    5810D3F4        L       1, 1012(  0, 13)
C 00009EA2    45F0D074        BAL    15,  116(  0, 13)


  1979                         PRX(X'41',1,0,0,Q);           ! LA 1,ITEMS

C 00009EA6    41100041        LA      1,   65(  0,  0)
C 00009EAA    5010B040        ST      1,   64(  0, 11)
C 00009EAE    41100001        LA      1,    1(  0,  0)
C 00009EB2    5010B044        ST      1,   68(  0, 11)
C 00009EB6    1F11            SLR     1,  1
C 00009EB8    5010B048        ST      1,   72(  0, 11)
C 00009EBC    1F11            SLR     1,  1
C 00009EBE    5010B04C        ST      1,   76(  0, 11)
C 00009EC2    D203B0508068    MVC     80(  4, 11),  104(  8)
C 00009EC8    5810D1C0        L       1,  448(  0, 13)
C 00009ECC    45F0D074        BAL    15,  116(  0, 13)


  1980                         DUMP(5,1,N,0,RBASE);         !STH

C 00009ED0    41100005        LA      1,    5(  0,  0)
C 00009ED4    5010B040        ST      1,   64(  0, 11)
C 00009ED8    41100001        LA      1,    1(  0,  0)
C 00009EDC    5010B044        ST      1,   68(  0, 11)
C 00009EE0    D203B0489100    MVC     72(  4, 11),  256(  9)
C 00009EE6    1F11            SLR     1,  1
C 00009EE8    5010B04C        ST      1,   76(  0, 11)
C 00009EEC    D203B05090F4    MVC     80(  4, 11),  244(  9)
C 00009EF2    5810D458        L       1, 1112(  0, 13)
C 00009EF6    45F0D074        BAL    15,  116(  0, 13)


  1981                         DUMP(0,1,N,0,RBASE)

C 00009EFA    1F11            SLR     1,  1
C 00009EFC    5010B040        ST      1,   64(  0, 11)
C 00009F00    41100001        LA      1,    1(  0,  0)
C 00009F04    5010B044        ST      1,   68(  0, 11)
C 00009F08    D203B0489100    MVC     72(  4, 11),  256(  9)
C 00009F0E    1F11            SLR     1,  1
C 00009F10    5010B04C        ST      1,   76(  0, 11)
C 00009F14    D203B05090F4    MVC     80(  4, 11),  244(  9)
C 00009F1A    5810D458        L       1, 1112(  0, 13)
C 00009F1E    45F0D074        BAL    15,  116(  0, 13)


  1982                         PPJ(25); N=N+INC

C 00009F22    9219B043        MVI     67( 11), 25
C 00009F26    5810D46C        L       1, 1132(  0, 13)
C 00009F2A    45F0D074        BAL    15,  116(  0, 13)



C 00009F2E    58109100        L       1,  256(  0,  9)
C 00009F32    5A108044        A       1,   68(  0,  8)
C 00009F36    50109100        ST      1,  256(  0,  9)


  1983                         %END
D 0000078C    C2 C2 C2 C2 07 89 07 08 43 52 46 4F 52 4D 41 54 01 70 4C 04 43 4F 44 45 01 70 48 03 52 45 50 00 01 70 44 03 51 51 51 F0 01 70 40 07 4C 45 4E 47 54 48 50 0F FF FF FF FF


C 00009F3A    D203D0147000    MVC     20(  4, 13),    0(  7)
C 00009F40    984F7010        LM      4, 15,   16(  7)
C 00009F44    07FF            BCR    15, 15


  1984                     %ROUTINE     CADCLN(%BYTEINTEGER MODE)

C 00009F46    0000
C 00009F48    0000
C 00009F4A    47FA0000        BC     15,    0( 10,  0)
C 00009F4E    50F0B03C        ST     15,   60(  0, 11)
C 00009F52    D203B000D014    MVC      0(  4, 11),   20( 13)
C 00009F58    410007C0        LA      0, 1984(  0,  0)
C 00009F5C    4000D014        STH     0,   20(  0, 13)
C 00009F60    187B            LR      7, 11
C 00009F62    41BB0000        LA     11,    0( 11,  0)
C 00009F66    41000004        LA      0,    4(  0,  0)
C 00009F6A    59BD0044        C      11,   68( 13,  0)
C 00009F6E    4720C054        BC      2,   84(  0, 12)
C 00009F72    05A0            BALR   10,  0


  1985                         %SHORTROUTINE
  1986                ! MODE=0 NORMAL DECN, =1 IN RECORD FORMAY, =2 RECORD ARRAY
  1987                ! P POINTS TO NAMELIST -1
  1988                         %INTEGER Q,QQ,KK,S,JJ,JJJ
  1989                         Q=P; PTYPEP=PTYPE

C 00009F74    D20370448040    MVC     68(  4,  7),   64(  8)



C 00009F7A    D20380B08098    MVC    176(  4,  8),  152(  8)


  1990                1:       P=A(Q+1)+Q+1

C 00009F80    41100001        LA      1,    1(  0,  0)
C 00009F84    5A107044        A       1,   68(  0,  7)
C 00009F88    413092FC        LA      3,  764(  0,  9)
C 00009F8C    45F0C05C        BAL    15,   92(  0, 12)
C 00009F90    4861F000        LH      6,    0(  1, 15)
C 00009F94    5A607044        A       6,   68(  0,  7)
C 00009F98    41100001        LA      1,    1(  0,  0)
C 00009F9C    1A61            AR      6,  1
C 00009F9E    50608040        ST      6,   64(  0,  8)


  1991                         KK=0;  %IF MODE=1 %THEN ->4

C 00009FA2    1F11            SLR     1,  1
C 00009FA4    5010704C        ST      1,   76(  0,  7)



C 00009FA8    95017043        CLI     67(  7),  1
C 00009FAC    478A0000        BC      8,    0( 10,  0)


  1992                         PRX(X'50',WSPR,0,GLA,36);     ! PTR TO DOPE VECTOR INTO GLA

C 00009FB0    41100050        LA      1,   80(  0,  0)
C 00009FB4    5010B040        ST      1,   64(  0, 11)
C 00009FB8    D203B044D14C    MVC     68(  4, 11),  332( 13)
C 00009FBE    1F11            SLR     1,  1
C 00009FC0    5010B048        ST      1,   72(  0, 11)
C 00009FC4    D203B04CD150    MVC     76(  4, 11),  336( 13)
C 00009FCA    41100024        LA      1,   36(  0,  0)
C 00009FCE    5010B050        ST      1,   80(  0, 11)
C 00009FD2    5810D1C0        L       1,  448(  0, 13)
C 00009FD6    45F0D074        BAL    15,  116(  0, 13)


  1993                         PSI(X'92',1,GLA,36) %IF UNASS=1;! FLAG TO FILL WITH X'000'

C 00009FDA    950190DC        CLI    220(  9),  1
C 00009FDE    477A0094        BC      7,  148( 10,  0)
C 00009FE2    41100092        LA      1,  146(  0,  0)
C 00009FE6    5010B040        ST      1,   64(  0, 11)
C 00009FEA    41100001        LA      1,    1(  0,  0)
C 00009FEE    5010B044        ST      1,   68(  0, 11)
C 00009FF2    D203B048D150    MVC     72(  4, 11),  336( 13)
C 00009FF8    41100024        LA      1,   36(  0,  0)
C 00009FFC    5010B04C        ST      1,   76(  0, 11)
C 0000A000    5810D1B8        L       1,  440(  0, 13)
C 0000A004    45F0D074        BAL    15,  116(  0, 13)


  1994                4:       P=P+2; JJ=P; KK=KK+1

C 0000A008    41100002        LA      1,    2(  0,  0)
C 0000A00C    5A108040        A       1,   64(  0,  8)
C 0000A010    50108040        ST      1,   64(  0,  8)



C 0000A014    D20370548040    MVC     84(  4,  7),   64(  8)



C 0000A01A    41100001        LA      1,    1(  0,  0)
C 0000A01E    5A10704C        A       1,   76(  0,  7)
C 0000A022    5010704C        ST      1,   76(  0,  7)


  1995                         SKIP EXP; QQ=TSEXP(JJJ); P=JJ

C 0000A026    5810D444        L       1, 1092(  0, 13)
C 0000A02A    45F0D074        BAL    15,  116(  0, 13)



C 0000A02E    41107058        LA      1,   88(  0,  7)
C 0000A032    5010B040        ST      1,   64(  0, 11)
C 0000A036    5810D478        L       1, 1144(  0, 13)
C 0000A03A    45F0D074        BAL    15,  116(  0, 13)
C 0000A03E    50107048        ST      1,   72(  0,  7)



C 0000A042    D20380407054    MVC     64(  4,  8),   84(  7)


  1996                         %IF QQ=0 %THEN CSEXP(4,1) %ELSE CSEXP(1,1)

C 0000A048    58107048        L       1,   72(  0,  7)
C 0000A04C    1211            LTR     1,  1
C 0000A04E    477A00F6        BC      7,  246( 10,  0)
C 0000A052    41100004        LA      1,    4(  0,  0)
C 0000A056    5010B040        ST      1,   64(  0, 11)
C 0000A05A    9201B047        MVI     71( 11),  1
C 0000A05E    5810D37C        L       1,  892(  0, 13)
C 0000A062    45F0D074        BAL    15,  116(  0, 13)
C 0000A066    47FA010A        BC     15,  266( 10,  0)
C 0000A06A    41100001        LA      1,    1(  0,  0)
C 0000A06E    5010B040        ST      1,   64(  0, 11)
C 0000A072    9201B047        MVI     71( 11),  1
C 0000A076    5810D37C        L       1,  892(  0, 13)
C 0000A07A    45F0D074        BAL    15,  116(  0, 13)


  1997                         REGISTER(4)=1; CSEXP(2,1); REGISTER(4)=0

C 0000A07E    41400001        LA      4,    1(  0,  0)
C 0000A082    41100004        LA      1,    4(  0,  0)
C 0000A086    4130914C        LA      3,  332(  0,  9)
C 0000A08A    45F0C05C        BAL    15,   92(  0, 12)
C 0000A08E    5041F000        ST      4,    0(  1, 15)



C 0000A092    41100002        LA      1,    2(  0,  0)
C 0000A096    5010B040        ST      1,   64(  0, 11)
C 0000A09A    9201B047        MVI     71( 11),  1
C 0000A09E    5810D37C        L       1,  892(  0, 13)
C 0000A0A2    45F0D074        BAL    15,  116(  0, 13)



C 0000A0A6    1F44            SLR     4,  4
C 0000A0A8    41100004        LA      1,    4(  0,  0)
C 0000A0AC    4130914C        LA      3,  332(  0,  9)
C 0000A0B0    45F0C05C        BAL    15,   92(  0, 12)
C 0000A0B4    5041F000        ST      4,    0(  1, 15)


  1998                         PRR(X'18',1,4) %IF QQ=0;      ! BOUND PAIR NOW IN R1 & R2

C 0000A0B8    58107048        L       1,   72(  0,  7)
C 0000A0BC    1211            LTR     1,  1
C 0000A0BE    477A016E        BC      7,  366( 10,  0)
C 0000A0C2    41100018        LA      1,   24(  0,  0)
C 0000A0C6    5010B040        ST      1,   64(  0, 11)
C 0000A0CA    41100001        LA      1,    1(  0,  0)
C 0000A0CE    5010B044        ST      1,   68(  0, 11)
C 0000A0D2    41100004        LA      1,    4(  0,  0)
C 0000A0D6    5010B048        ST      1,   72(  0, 11)
C 0000A0DA    5810D1D0        L       1,  464(  0, 13)
C 0000A0DE    45F0D074        BAL    15,  116(  0, 13)


  1999                         ->41 %UNLESS KK=1; S=1

C 0000A0E2    41100001        LA      1,    1(  0,  0)
C 0000A0E6    5910704C        C       1,   76(  0,  7)
C 0000A0EA    477A0000        BC      7,    0( 10,  0)



C 0000A0EE    41100001        LA      1,    1(  0,  0)
C 0000A0F2    50107050        ST      1,   80(  0,  7)


  2000                         %UNLESS MODE=2 %THEN %START

C 0000A0F6    95027043        CLI     67(  7),  2
C 0000A0FA    478A0000        BC      8,    0( 10,  0)


  2001                         S=0; PRX(X'41',0,0,0,ACC); %FINISH;

C 0000A0FE    1F11            SLR     1,  1
C 0000A100    50107050        ST      1,   80(  0,  7)



C 0000A104    41100041        LA      1,   65(  0,  0)
C 0000A108    5010B040        ST      1,   64(  0, 11)
C 0000A10C    1F11            SLR     1,  1
C 0000A10E    5010B044        ST      1,   68(  0, 11)
C 0000A112    1F11            SLR     1,  1
C 0000A114    5010B048        ST      1,   72(  0, 11)
C 0000A118    1F11            SLR     1,  1
C 0000A11A    5010B04C        ST      1,   76(  0, 11)
C 0000A11E    D203B0508050    MVC     80(  4, 11),   80(  8)
C 0000A124    5810D1C0        L       1,  448(  0, 13)
C 0000A128    45F0D074        BAL    15,  116(  0, 13)


  2002                         PRX(X'90',S,2,WSPR,4*S); !      STM TO DUMP BOUND PAIR & R0

C 0000A12C    41100090        LA      1,  144(  0,  0)
C 0000A130    5010B040        ST      1,   64(  0, 11)
C 0000A134    D203B0447050    MVC     68(  4, 11),   80(  7)
C 0000A13A    41100002        LA      1,    2(  0,  0)
C 0000A13E    5010B048        ST      1,   72(  0, 11)
C 0000A142    D203B04CD14C    MVC     76(  4, 11),  332( 13)
C 0000A148    41100004        LA      1,    4(  0,  0)
C 0000A14C    5C007050        M       0,   80(  0,  7)
C 0000A150    5010B050        ST      1,   80(  0, 11)
C 0000A154    5810D1C0        L       1,  448(  0, 13)
C 0000A158    45F0D074        BAL    15,  116(  0, 13)


  2003                         PSI(X'92',3-A(P),WSPR,1);     ! MVI TO SET DIMENSION

C 0000A15C    41100092        LA      1,  146(  0,  0)
C 0000A160    5010B040        ST      1,   64(  0, 11)
C 0000A164    58108040        L       1,   64(  0,  8)
C 0000A168    413092FC        LA      3,  764(  0,  9)
C 0000A16C    45F0C05C        BAL    15,   92(  0, 12)
C 0000A170    4861F000        LH      6,    0(  1, 15)
C 0000A174    41100003        LA      1,    3(  0,  0)
C 0000A178    1B16            SR      1,  6
C 0000A17A    5010B044        ST      1,   68(  0, 11)
C 0000A17E    D203B048D14C    MVC     72(  4, 11),  332( 13)
C 0000A184    41100001        LA      1,    1(  0,  0)
C 0000A188    5010B04C        ST      1,   76(  0, 11)
C 0000A18C    5810D1B8        L       1,  440(  0, 13)
C 0000A190    45F0D074        BAL    15,  116(  0, 13)


  2004                         MOVER(WSPR,16); ->42

C 0000A194    D203B040D14C    MVC     64(  4, 11),  332( 13)
C 0000A19A    41100010        LA      1,   16(  0,  0)
C 0000A19E    5010B044        ST      1,   68(  0, 11)
C 0000A1A2    5810D3B4        L       1,  948(  0, 13)
C 0000A1A6    45F0D074        BAL    15,  116(  0, 13)



C 0000A1AA    47FA0000        BC     15,    0( 10,  0)


  2005                41:      S=(KK&1)<<2

C 0000A1AE    41100001        LA      1,    1(  0,  0)
C 0000A1B2    5410704C        N       1,   76(  0,  7)
C 0000A1B6    1851            LR      5,  1
C 0000A1B8    89500002        SLL     5,    2(  0)
C 0000A1BC    50507050        ST      5,   80(  0,  7)


  2006                         %IF S=0 %THEN JJJ=8*A(P) %ELSE JJJ=16

C 0000A1C0    58107050        L       1,   80(  0,  7)
C 0000A1C4    1211            LTR     1,  1
C 0000A1C6    477A0274        BC      7,  628( 10,  0)
C 0000A1CA    58108040        L       1,   64(  0,  8)
C 0000A1CE    413092FC        LA      3,  764(  0,  9)
C 0000A1D2    45F0C05C        BAL    15,   92(  0, 12)
C 0000A1D6    4861F000        LH      6,    0(  1, 15)
C 0000A1DA    41100008        LA      1,    8(  0,  0)
C 0000A1DE    1C06            MR      0,  6
C 0000A1E0    50107058        ST      1,   88(  0,  7)
C 0000A1E4    47FA027C        BC     15,  636( 10,  0)
C 0000A1E8    41100010        LA      1,   16(  0,  0)
C 0000A1EC    50107058        ST      1,   88(  0,  7)


  2007                         PRX(X'90',1,2,WSPR,S)

C 0000A1F0    41100090        LA      1,  144(  0,  0)
C 0000A1F4    5010B040        ST      1,   64(  0, 11)
C 0000A1F8    41100001        LA      1,    1(  0,  0)
C 0000A1FC    5010B044        ST      1,   68(  0, 11)
C 0000A200    41100002        LA      1,    2(  0,  0)
C 0000A204    5010B048        ST      1,   72(  0, 11)
C 0000A208    D203B04CD14C    MVC     76(  4, 11),  332( 13)
C 0000A20E    D203B0507050    MVC     80(  4, 11),   80(  7)
C 0000A214    5810D1C0        L       1,  448(  0, 13)
C 0000A218    45F0D074        BAL    15,  116(  0, 13)


  2008                         MOVER(WSPR,JJJ)

C 0000A21C    D203B040D14C    MVC     64(  4, 11),  332( 13)
C 0000A222    D203B0447058    MVC     68(  4, 11),   88(  7)
C 0000A228    5810D3B4        L       1,  948(  0, 13)
C 0000A22C    45F0D074        BAL    15,  116(  0, 13)


  2009                42:      ->4 %IF A(P)=1;               ! FOR NEXT BOUND PAIR

C 0000A230    58108040        L       1,   64(  0,  8)
C 0000A234    413092FC        LA      3,  764(  0,  9)
C 0000A238    45F0C05C        BAL    15,   92(  0, 12)
C 0000A23C    4811F000        LH      1,    0(  1, 15)
C 0000A240    41200001        LA      2,    1(  0,  0)
C 0000A244    1912            CR      1,  2
C 0000A246    4780A094        BC      8,  148(  0, 10)


  2010                         ->5 %IF KK<=2

C 0000A24A    41100002        LA      1,    2(  0,  0)
C 0000A24E    5910704C        C       1,   76(  0,  7)
C 0000A252    47AA0000        BC     10,    0( 10,  0)


  2011                         FAULT(37) %IF KK>6

C 0000A256    41100006        LA      1,    6(  0,  0)
C 0000A25A    5910704C        C       1,   76(  0,  7)
C 0000A25E    47BA02FA        BC     11,  762( 10,  0)
C 0000A262    9225B043        MVI     67( 11), 37
C 0000A266    5810D228        L       1,  552(  0, 13)
C 0000A26A    45F0D074        BAL    15,  116(  0, 13)


  2012                               PACLOD(27,3,KK);        !  L 1,=A(DV)--MVI 1(1),KK

C 0000A26E    4110001B        LA      1,   27(  0,  0)
C 0000A272    5010B040        ST      1,   64(  0, 11)
C 0000A276    41100003        LA      1,    3(  0,  0)
C 0000A27A    5010B044        ST      1,   68(  0, 11)
C 0000A27E    D203B048704C    MVC     72(  4, 11),   76(  7)
C 0000A284    5810D1C4        L       1,  452(  0, 13)
C 0000A288    45F0D074        BAL    15,  116(  0, 13)


  2013                5:       QQ=Q+1; J=KK; PTYPE=PTYPEP; ->9 %IF MODE >=1

C 0000A28C    41100001        LA      1,    1(  0,  0)
C 0000A290    5A107044        A       1,   68(  0,  7)
C 0000A294    50107048        ST      1,   72(  0,  7)



C 0000A298    D20380A0704C    MVC    160(  4,  8),   76(  7)



C 0000A29E    D203809880B0    MVC    152(  4,  8),  176(  8)



C 0000A2A4    95017043        CLI     67(  7),  1
C 0000A2A8    47AA0000        BC     10,    0( 10,  0)


  2014                         %CYCLE JJJ=1,1,A(QQ)

C 0000A2AC    41407058        LA      4,   88(  0,  7)
C 0000A2B0    41200001        LA      2,    1(  0,  0)
C 0000A2B4    5020705C        ST      2,   92(  0,  7)
C 0000A2B8    58107048        L       1,   72(  0,  7)
C 0000A2BC    413092FC        LA      3,  764(  0,  9)
C 0000A2C0    45F0C05C        BAL    15,   92(  0, 12)
C 0000A2C4    4831F000        LH      3,    0(  1, 15)
C 0000A2C8    90347060        STM     3,  4,   96(  7)
C 0000A2CC    41100001        LA      1,    1(  0,  0)
C 0000A2D0    50104000        ST      1,    0(  0,  4)


  2015                         K=A(QQ+JJJ); TESTNST; J=KK

C 0000A2D4    58107048        L       1,   72(  0,  7)
C 0000A2D8    5A107058        A       1,   88(  0,  7)
C 0000A2DC    413092FC        LA      3,  764(  0,  9)
C 0000A2E0    45F0C05C        BAL    15,   92(  0, 12)
C 0000A2E4    4811F000        LH      1,    0(  1, 15)
C 0000A2E8    501080A4        ST      1,  164(  0,  8)



C 0000A2EC    5810D43C        L       1, 1084(  0, 13)
C 0000A2F0    45F0D074        BAL    15,  116(  0, 13)



C 0000A2F4    D20380A0704C    MVC    160(  4,  8),   76(  7)


  2016                         STORE TAG(K,N);PPJ(13)

C 0000A2FA    D203B04080A4    MVC     64(  4, 11),  164(  8)
C 0000A300    D203B0449100    MVC     68(  4, 11),  256(  9)
C 0000A306    5810D434        L       1, 1076(  0, 13)
C 0000A30A    45F0D074        BAL    15,  116(  0, 13)



C 0000A30E    920DB043        MVI     67( 11), 13
C 0000A312    5810D46C        L       1, 1132(  0, 13)
C 0000A316    45F0D074        BAL    15,  116(  0, 13)


  2017                         PRX(X'90',0,3,RBASE,N);       ! STM 0,3--SAVE ARRAYHEAD

C 0000A31A    41100090        LA      1,  144(  0,  0)
C 0000A31E    5010B040        ST      1,   64(  0, 11)
C 0000A322    1F11            SLR     1,  1
C 0000A324    5010B044        ST      1,   68(  0, 11)
C 0000A328    41100003        LA      1,    3(  0,  0)
C 0000A32C    5010B048        ST      1,   72(  0, 11)
C 0000A330    D203B04C90F4    MVC     76(  4, 11),  244(  9)
C 0000A336    D203B0509100    MVC     80(  4, 11),  256(  9)
C 0000A33C    5810D1C0        L       1,  448(  0, 13)
C 0000A340    45F0D074        BAL    15,  116(  0, 13)


  2018                         N=N+16; %REPEAT

C 0000A344    41100010        LA      1,   16(  0,  0)
C 0000A348    5A109100        A       1,  256(  0,  9)
C 0000A34C    50109100        ST      1,  256(  0,  9)



C 0000A350    9824705C        LM      2,  4,   92(  7)
C 0000A354    58104000        L       1,    0(  0,  4)
C 0000A358    8712A35C        BXLE    1,  2,  860( 10)


  2019                         Q=P+2; ->1 %IF A(Q-1)=1

C 0000A35C    41100002        LA      1,    2(  0,  0)
C 0000A360    5A108040        A       1,   64(  0,  8)
C 0000A364    50107044        ST      1,   68(  0,  7)



C 0000A368    58107044        L       1,   68(  0,  7)
C 0000A36C    0610            BCTR    1,  0
C 0000A36E    413092FC        LA      3,  764(  0,  9)
C 0000A372    45F0C05C        BAL    15,   92(  0, 12)
C 0000A376    4811F000        LH      1,    0(  1, 15)
C 0000A37A    41200001        LA      2,    1(  0,  0)
C 0000A37E    1912            CR      1,  2
C 0000A380    4780A00C        BC      8,   12(  0, 10)


  2020                9:       %END
D 000007C4    C2 C2 C2 C2 07 C0 07 06 43 41 44 43 4C 4E 00 00 01 70 58 03 4A 4A 4A 08 01 70 54 02 4A 4A A6 E8 01 70 50 01 53 FE A6 F0 01 70 4C 02 4B 4B 00 01 01 70 48 02 51 51 FF FF 01 70 44 01 51 FE A7 00 09 70 43 04 4D 4F 44 45 FF FF FF FF


C 0000A384    D203D0147000    MVC     20(  4, 13),    0(  7)
C 0000A38A    984F7010        LM      4, 15,   16(  7)
C 0000A38E    07FF            BCR    15, 15


  2021                     %ROUTINE     CVDECLN

C 0000A390    0000
C 0000A392    0000
C 0000A394    47FA0000        BC     15,    0( 10,  0)
C 0000A398    50F0B03C        ST     15,   60(  0, 11)
C 0000A39C    D203B000D014    MVC      0(  4, 11),   20( 13)
C 0000A3A2    410007E5        LA      0, 2021(  0,  0)
C 0000A3A6    4000D014        STH     0,   20(  0, 13)
C 0000A3AA    187B            LR      7, 11
C 0000A3AC    41BB0000        LA     11,    0( 11,  0)
C 0000A3B0    41000004        LA      0,    4(  0,  0)
C 0000A3B4    59BD0044        C      11,   68( 13,  0)
C 0000A3B8    4720C054        BC      2,   84(  0, 12)
C 0000A3BC    05A0            BALR   10,  0


  2022                         %SHORTROUTINE
  2023                         %INTEGER LB,UB,ADV,Q,QQ,RANGE,JJJ,KK,DISP0,DISP1
  2024                         Q=P

C 0000A3BE    D203704C8040    MVC     76(  4,  7),   64(  8)


  2025                         P=A(Q+1)+Q+2

C 0000A3C4    41100001        LA      1,    1(  0,  0)
C 0000A3C8    5A10704C        A       1,   76(  0,  7)
C 0000A3CC    413092FC        LA      3,  764(  0,  9)
C 0000A3D0    45F0C05C        BAL    15,   92(  0, 12)
C 0000A3D4    4861F000        LH      6,    0(  1, 15)
C 0000A3D8    5A60704C        A       6,   76(  0,  7)
C 0000A3DC    41100002        LA      1,    2(  0,  0)
C 0000A3E0    1A61            AR      6,  1
C 0000A3E2    50608040        ST      6,   64(  0,  8)


  2026                         CBPAIR(LB,UB)

C 0000A3E6    41107040        LA      1,   64(  0,  7)
C 0000A3EA    5010B040        ST      1,   64(  0, 11)
C 0000A3EE    41107044        LA      1,   68(  0,  7)
C 0000A3F2    5010B044        ST      1,   68(  0, 11)
C 0000A3F6    5810D35C        L       1,  860(  0, 13)
C 0000A3FA    45F0D074        BAL    15,  116(  0, 13)


  2027                         ADV=N0

C 0000A3FE    D20370489088    MVC     72(  4,  7),  136(  9)


  2028                         ST(N0)=1<<16!ACC

C 0000A404    41400001        LA      4,    1(  0,  0)
C 0000A408    89400010        SLL     4,   16(  0)
C 0000A40C    56408050        O       4,   80(  0,  8)
C 0000A410    58109088        L       1,  136(  0,  9)
C 0000A414    4130915C        LA      3,  348(  0,  9)
C 0000A418    45F0C05C        BAL    15,   92(  0, 12)
C 0000A41C    5041F000        ST      4,    0(  1, 15)


  2029                         ST(N0+1)=LB

C 0000A420    58407040        L       4,   64(  0,  7)
C 0000A424    41100001        LA      1,    1(  0,  0)
C 0000A428    5A109088        A       1,  136(  0,  9)
C 0000A42C    4130915C        LA      3,  348(  0,  9)
C 0000A430    45F0C05C        BAL    15,   92(  0, 12)
C 0000A434    5041F000        ST      4,    0(  1, 15)


  2030                         ST(N0+2)=UB

C 0000A438    58407044        L       4,   68(  0,  7)
C 0000A43C    41100002        LA      1,    2(  0,  0)
C 0000A440    5A109088        A       1,  136(  0,  9)
C 0000A444    4130915C        LA      3,  348(  0,  9)
C 0000A448    45F0C05C        BAL    15,   92(  0, 12)
C 0000A44C    5041F000        ST      4,    0(  1, 15)


  2031                         RANGE=UB-LB+1

C 0000A450    58107044        L       1,   68(  0,  7)
C 0000A454    5B107040        S       1,   64(  0,  7)
C 0000A458    41200001        LA      2,    1(  0,  0)
C 0000A45C    1A12            AR      1,  2
C 0000A45E    50107054        ST      1,   84(  0,  7)


  2032                         ST(N0+3)=RANGE; N0=N0+4

C 0000A462    58407054        L       4,   84(  0,  7)
C 0000A466    41100003        LA      1,    3(  0,  0)
C 0000A46A    5A109088        A       1,  136(  0,  9)
C 0000A46E    4130915C        LA      3,  348(  0,  9)
C 0000A472    45F0C05C        BAL    15,   92(  0, 12)
C 0000A476    5041F000        ST      4,    0(  1, 15)



C 0000A47A    41100004        LA      1,    4(  0,  0)
C 0000A47E    5A109088        A       1,  136(  0,  9)
C 0000A482    50109088        ST      1,  136(  0,  9)


  2033                         FAULT(44) %IF LB>UB

C 0000A486    58107044        L       1,   68(  0,  7)
C 0000A48A    59107040        C       1,   64(  0,  7)
C 0000A48E    47BA00E0        BC     11,  224( 10,  0)
C 0000A492    922CB043        MVI     67( 11), 44
C 0000A496    5810D228        L       1,  552(  0, 13)
C 0000A49A    45F0D074        BAL    15,  116(  0, 13)


  2034                         PRX(X'41',2,0,GLA,ADV<<2)

C 0000A49E    41100041        LA      1,   65(  0,  0)
C 0000A4A2    5010B040        ST      1,   64(  0, 11)
C 0000A4A6    41100002        LA      1,    2(  0,  0)
C 0000A4AA    5010B044        ST      1,   68(  0, 11)
C 0000A4AE    1F11            SLR     1,  1
C 0000A4B0    5010B048        ST      1,   72(  0, 11)
C 0000A4B4    D203B04CD150    MVC     76(  4, 11),  336( 13)
C 0000A4BA    58107048        L       1,   72(  0,  7)
C 0000A4BE    89100002        SLL     1,    2(  0)
C 0000A4C2    5010B050        ST      1,   80(  0, 11)
C 0000A4C6    5810D1C0        L       1,  448(  0, 13)
C 0000A4CA    45F0D074        BAL    15,  116(  0, 13)


  2035                         PRX(X'41',3,0,0,RANGE)

C 0000A4CE    41100041        LA      1,   65(  0,  0)
C 0000A4D2    5010B040        ST      1,   64(  0, 11)
C 0000A4D6    41100003        LA      1,    3(  0,  0)
C 0000A4DA    5010B044        ST      1,   68(  0, 11)
C 0000A4DE    1F11            SLR     1,  1
C 0000A4E0    5010B048        ST      1,   72(  0, 11)
C 0000A4E4    1F11            SLR     1,  1
C 0000A4E6    5010B04C        ST      1,   76(  0, 11)
C 0000A4EA    D203B0507054    MVC     80(  4, 11),   84(  7)
C 0000A4F0    5810D1C0        L       1,  448(  0, 13)
C 0000A4F4    45F0D074        BAL    15,  116(  0, 13)


  2036                         QQ=Q+1; J=1

C 0000A4F8    41100001        LA      1,    1(  0,  0)
C 0000A4FC    5A10704C        A       1,   76(  0,  7)
C 0000A500    50107050        ST      1,   80(  0,  7)



C 0000A504    41100001        LA      1,    1(  0,  0)
C 0000A508    501080A0        ST      1,  160(  0,  8)


  2037                         %CYCLE JJJ=1,1,A(QQ)

C 0000A50C    41407058        LA      4,   88(  0,  7)
C 0000A510    41200001        LA      2,    1(  0,  0)
C 0000A514    50207068        ST      2,  104(  0,  7)
C 0000A518    58107050        L       1,   80(  0,  7)
C 0000A51C    413092FC        LA      3,  764(  0,  9)
C 0000A520    45F0C05C        BAL    15,   92(  0, 12)
C 0000A524    4831F000        LH      3,    0(  1, 15)
C 0000A528    9034706C        STM     3,  4,  108(  7)
C 0000A52C    41100001        LA      1,    1(  0,  0)
C 0000A530    50104000        ST      1,    0(  0,  4)


  2038                         N=(N+7)&(-8)

C 0000A534    41100007        LA      1,    7(  0,  0)
C 0000A538    5A109100        A       1,  256(  0,  9)
C 0000A53C    1851            LR      5,  1
C 0000A53E    41100008        LA      1,    8(  0,  0)
C 0000A542    1311            LCR     1,  1
C 0000A544    1861            LR      6,  1
C 0000A546    1456            NR      5,  6
C 0000A548    50509100        ST      5,  256(  0,  9)


  2039                         DISP1=N+16

C 0000A54C    41100010        LA      1,   16(  0,  0)
C 0000A550    5A109100        A       1,  256(  0,  9)
C 0000A554    50107064        ST      1,  100(  0,  7)


  2040                         DISP0=DISP1-LB*ACC; FAULT(44) %UNLESS 0<DISP0<4095

C 0000A558    58107040        L       1,   64(  0,  7)
C 0000A55C    5C008050        M       0,   80(  0,  8)
C 0000A560    58207064        L       2,  100(  0,  7)
C 0000A564    1B21            SR      2,  1
C 0000A566    50207060        ST      2,   96(  0,  7)



C 0000A56A    58107060        L       1,   96(  0,  7)
C 0000A56E    1211            LTR     1,  1
C 0000A570    47DA01C0        BC     13,  448( 10,  0)
C 0000A574    41200FFF        LA      2, 4095(  0,  0)
C 0000A578    1912            CR      1,  2
C 0000A57A    474A01CC        BC      4,  460( 10,  0)
C 0000A57E    922CB043        MVI     67( 11), 44
C 0000A582    5810D228        L       1,  552(  0, 13)
C 0000A586    45F0D074        BAL    15,  116(  0, 13)


  2041                         KK=NEWCELL; REPLACE BOTH(KK,DISP0,N)

C 0000A58A    5810D404        L       1, 1028(  0, 13)
C 0000A58E    45F0D074        BAL    15,  116(  0, 13)
C 0000A592    5010705C        ST      1,   92(  0,  7)



C 0000A596    D203B040705C    MVC     64(  4, 11),   92(  7)
C 0000A59C    D203B0447060    MVC     68(  4, 11),   96(  7)
C 0000A5A2    D203B0489100    MVC     72(  4, 11),  256(  9)
C 0000A5A8    5810D3F4        L       1, 1012(  0, 13)
C 0000A5AC    45F0D074        BAL    15,  116(  0, 13)


  2042                         PRX(X'41',0,0,RBASE,DISP0)

C 0000A5B0    41100041        LA      1,   65(  0,  0)
C 0000A5B4    5010B040        ST      1,   64(  0, 11)
C 0000A5B8    1F11            SLR     1,  1
C 0000A5BA    5010B044        ST      1,   68(  0, 11)
C 0000A5BE    1F11            SLR     1,  1
C 0000A5C0    5010B048        ST      1,   72(  0, 11)
C 0000A5C4    D203B04C90F4    MVC     76(  4, 11),  244(  9)
C 0000A5CA    D203B0507060    MVC     80(  4, 11),   96(  7)
C 0000A5D0    5810D1C0        L       1,  448(  0, 13)
C 0000A5D4    45F0D074        BAL    15,  116(  0, 13)


  2043                         PRX(X'41',1,0,RBASE,DISP1)

C 0000A5D8    41100041        LA      1,   65(  0,  0)
C 0000A5DC    5010B040        ST      1,   64(  0, 11)
C 0000A5E0    41100001        LA      1,    1(  0,  0)
C 0000A5E4    5010B044        ST      1,   68(  0, 11)
C 0000A5E8    1F11            SLR     1,  1
C 0000A5EA    5010B048        ST      1,   72(  0, 11)
C 0000A5EE    D203B04C90F4    MVC     76(  4, 11),  244(  9)
C 0000A5F4    D203B0507064    MVC     80(  4, 11),  100(  7)
C 0000A5FA    5810D1C0        L       1,  448(  0, 13)
C 0000A5FE    45F0D074        BAL    15,  116(  0, 13)


  2044                         K=A(QQ+JJJ); TESTNST

C 0000A602    58107050        L       1,   80(  0,  7)
C 0000A606    5A107058        A       1,   88(  0,  7)
C 0000A60A    413092FC        LA      3,  764(  0,  9)
C 0000A60E    45F0C05C        BAL    15,   92(  0, 12)
C 0000A612    4811F000        LH      1,    0(  1, 15)
C 0000A616    501080A4        ST      1,  164(  0,  8)



C 0000A61A    5810D43C        L       1, 1084(  0, 13)
C 0000A61E    45F0D074        BAL    15,  116(  0, 13)


  2045                         STORE TAG(K,KK)

C 0000A622    D203B04080A4    MVC     64(  4, 11),  164(  8)
C 0000A628    D203B044705C    MVC     68(  4, 11),   92(  7)
C 0000A62E    5810D434        L       1, 1076(  0, 13)
C 0000A632    45F0D074        BAL    15,  116(  0, 13)


  2046                         PRX(X'90',0,3,RBASE,N)

C 0000A636    41100090        LA      1,  144(  0,  0)
C 0000A63A    5010B040        ST      1,   64(  0, 11)
C 0000A63E    1F11            SLR     1,  1
C 0000A640    5010B044        ST      1,   68(  0, 11)
C 0000A644    41100003        LA      1,    3(  0,  0)
C 0000A648    5010B048        ST      1,   72(  0, 11)
C 0000A64C    D203B04C90F4    MVC     76(  4, 11),  244(  9)
C 0000A652    D203B0509100    MVC     80(  4, 11),  256(  9)
C 0000A658    5810D1C0        L       1,  448(  0, 13)
C 0000A65C    45F0D074        BAL    15,  116(  0, 13)


  2047                         SET80(DISP1,ACC*RANGE) %IF UNASS=1

C 0000A660    950190DC        CLI    220(  9),  1
C 0000A664    477A02C4        BC      7,  708( 10,  0)
C 0000A668    D203B0407064    MVC     64(  4, 11),  100(  7)
C 0000A66E    58108050        L       1,   80(  0,  8)
C 0000A672    5C007054        M       0,   84(  0,  7)
C 0000A676    5010B044        ST      1,   68(  0, 11)
C 0000A67A    5810D374        L       1,  884(  0, 13)
C 0000A67E    45F0D074        BAL    15,  116(  0, 13)


  2048                         N=DISP1+ACC*RANGE

C 0000A682    58108050        L       1,   80(  0,  8)
C 0000A686    5C007054        M       0,   84(  0,  7)
C 0000A68A    5A107064        A       1,  100(  0,  7)
C 0000A68E    50109100        ST      1,  256(  0,  9)


  2049                         %REPEAT

C 0000A692    98247068        LM      2,  4,  104(  7)
C 0000A696    58104000        L       1,    0(  0,  4)
C 0000A69A    8712A172        BXLE    1,  2,  370( 10)


  2050                         P=P+1; %IF A(P-1)=1 %THEN CVDECLN

C 0000A69E    41100001        LA      1,    1(  0,  0)
C 0000A6A2    5A108040        A       1,   64(  0,  8)
C 0000A6A6    50108040        ST      1,   64(  0,  8)



C 0000A6AA    58108040        L       1,   64(  0,  8)
C 0000A6AE    0610            BCTR    1,  0
C 0000A6B0    413092FC        LA      3,  764(  0,  9)
C 0000A6B4    45F0C05C        BAL    15,   92(  0, 12)
C 0000A6B8    4811F000        LH      1,    0(  1, 15)
C 0000A6BC    41200001        LA      2,    1(  0,  0)
C 0000A6C0    1912            CR      1,  2
C 0000A6C2    477A0310        BC      7,  784( 10,  0)
C 0000A6C6    5810D378        L       1,  888(  0, 13)
C 0000A6CA    45F0D074        BAL    15,  116(  0, 13)


  2051                         N=(N+3)&(-4)

C 0000A6CE    41100003        LA      1,    3(  0,  0)
C 0000A6D2    5A109100        A       1,  256(  0,  9)
C 0000A6D6    1851            LR      5,  1
C 0000A6D8    41100004        LA      1,    4(  0,  0)
C 0000A6DC    1311            LCR     1,  1
C 0000A6DE    1861            LR      6,  1
C 0000A6E0    1456            NR      5,  6
C 0000A6E2    50509100        ST      5,  256(  0,  9)


  2052                         %END
D 00000810    C2 C2 C2 C2 07 E5 07 07 43 56 44 45 43 4C 4E 00 01 70 64 05 44 49 53 50 31 FE A7 40 01 70 60 05 44 49 53 50 30 FE A6 F0 01 70 5C 02 4B 4B 00 01 01 70 58 03 4A 4A 4A FF 01 70 54 05 52 41 4E 47 45 70 43 04 01 70 50 02 51 51 FF FF 01 70 4C 01 51 00 00 01 01 70 48 03 41 44 56 00 01 70 44 02 55 42 00 06 01 70 40 02 4C 42 05 37 FF FF FF FF


C 0000A6E6    D203D0147000    MVC     20(  4, 13),    0(  7)
C 0000A6EC    984F7010        LM      4, 15,   16(  7)
C 0000A6F0    07FF            BCR    15, 15


  2053                     %ROUTINE     CSEXP(%INTEGER REG,%BYTEINTEGER MODE)

C 0000A6F2    0000
C 0000A6F4    0000
C 0000A6F6    47FA0000        BC     15,    0( 10,  0)
C 0000A6FA    50F0B03C        ST     15,   60(  0, 11)
C 0000A6FE    D203B000D014    MVC      0(  4, 11),   20( 13)
C 0000A704    41000805        LA      0, 2053(  0,  0)
C 0000A708    4000D014        STH     0,   20(  0, 13)
C 0000A70C    187B            LR      7, 11
C 0000A70E    41BB0000        LA     11,    0( 11,  0)
C 0000A712    41000004        LA      0,    4(  0,  0)
C 0000A716    59BD0044        C      11,   68( 13,  0)
C 0000A71A    4720C054        BC      2,   84(  0, 12)
C 0000A71E    05A0            BALR   10,  0


  2054                         %COMMENT MODE=1 FOR %INTEGER, =2REAL, =3LONG,=0INTEGER %IF PNS
  2055                         %INTEGER C,D,QP,NOP,X,JJ,OPCODE
  2056                         %INTEGER EVALUATE,OPND
  2057                         %SHORTINTEGER OPHEAD
  2058                         %BYTEINTEGER REAL,LONGREAL,REALOP
  2059                         %INTEGER OPERATOR,NOPS,LASTOP
  2060                         %INTEGERARRAY BS,PT,DP(1:2)

C 0000A720    50B0D024        ST     11,   36(  0, 13)
C 0000A724    41100001        LA      1,    1(  0,  0)
C 0000A728    41200002        LA      2,    2(  0,  0)
C 0000A72C    41000004        LA      0,    4(  0,  0)
C 0000A730    9002B000        STM     0,  2,    0( 11)
C 0000A734    9201B001        MVI      1( 11),  1
C 0000A738    41B0B010        LA     11,   16(  0, 11)
C 0000A73C    45F0C034        BAL    15,   52(  0, 12)
C 0000A740    90037080        STM     0,  3,  128(  7)
C 0000A744    45F0C034        BAL    15,   52(  0, 12)
C 0000A748    90037090        STM     0,  3,  144(  7)
C 0000A74C    45F0C034        BAL    15,   52(  0, 12)
C 0000A750    900370A0        STM     0,  3,  160(  7)


  2061                               %INTEGERARRAY OP,OPPREC(0:5)

C 0000A754    50B0D024        ST     11,   36(  0, 13)
C 0000A758    1F11            SLR     1,  1
C 0000A75A    41200005        LA      2,    5(  0,  0)
C 0000A75E    41000004        LA      0,    4(  0,  0)
C 0000A762    9002B000        STM     0,  2,    0( 11)
C 0000A766    9201B001        MVI      1( 11),  1
C 0000A76A    41B0B010        LA     11,   16(  0, 11)
C 0000A76E    45F0C034        BAL    15,   52(  0, 12)
C 0000A772    900370B0        STM     0,  3,  176(  7)
C 0000A776    45F0C034        BAL    15,   52(  0, 12)
C 0000A77A    900370C0        STM     0,  3,  192(  7)


  2062                         %ROUTINESPEC TEST(%INTEGER N)
  2063                         %ROUTINESPEC PLANT(%INTEGER A,B,C)
  2064                         %INTEGERFNSPEC FINDR
  2065                         %ROUTINESPEC LOAD(%INTEGERNAME N,%INTEGER REG,MODE)
  2066                         %ROUTINESPEC PRINT ORDERS
  2067                         %OWNINTEGER N0=1024
  2068                         QP=0; OPHEAD=0; OPCODE=0

C 0000A77E    1F11            SLR     1,  1
C 0000A780    50107050        ST      1,   80(  0,  7)



C 0000A784    1F11            SLR     1,  1
C 0000A786    4010706C        STH     1,  108(  0,  7)
C 0000A78A    4917006C        CH      1,  108(  7,  0)
C 0000A78E    477C0058        BC      7,   88( 12,  0)



C 0000A792    1F11            SLR     1,  1
C 0000A794    50107060        ST      1,   96(  0,  7)


  2069                         REAL=0; LONGREAL=0; REALOP=0

C 0000A798    92007070        MVI    112(  7),  0



C 0000A79C    92007071        MVI    113(  7),  0



C 0000A7A0    92007072        MVI    114(  7),  0


  2070                         NOPS=0; LASTOP=0

C 0000A7A4    1F11            SLR     1,  1
C 0000A7A6    50107078        ST      1,  120(  0,  7)



C 0000A7AA    1F11            SLR     1,  1
C 0000A7AC    5010707C        ST      1,  124(  0,  7)


  2071                         %BEGIN

C 0000A7B0    90AB70D0        STM    10, 11,  208(  7)
C 0000A7B4    D20370D8D014    MVC    216(  4,  7),   20( 13)
C 0000A7BA    41000817        LA      0, 2071(  0,  0)
C 0000A7BE    4000D014        STH     0,   20(  0, 13)
C 0000A7C2    05A0            BALR   10,  0


  2072                             %SHORTROUTINE
  2073                             %SWITCH S,SW(1:4)

C 0000A7C4    47FA0000        BC     15,    0( 10,  0)
C 0000A7C8    0200
C 0000A7CA    0001
C 0000A7CC    0000
C 0000A7CE    0004
C 0000A7D0    0000
C 0000A7D2    0000
C 0000A7D4    0000
C 0000A7D6    0000
C 0000A7D8    0000
C 0000A7DA    0000
C 0000A7DC    0200
C 0000A7DE    0001
C 0000A7E0    0000
C 0000A7E2    0004
C 0000A7E4    0000
C 0000A7E6    0000
C 0000A7E8    0000
C 0000A7EA    0000
C 0000A7EC    0000
C 0000A7EE    0000


  2074                             AFLAG=0; NOP=N0

C 0000A7F0    920090C8        MVI    200(  9),  0



C 0000A7F4    D2037054D534    MVC     84(  4,  7), 1332( 13)


  2075                             OP(0)=0; OPPREC(0)=0

C 0000A7FA    1F44            SLR     4,  4
C 0000A7FC    1F11            SLR     1,  1
C 0000A7FE    413070B0        LA      3,  176(  0,  7)
C 0000A802    45F0C05C        BAL    15,   92(  0, 12)
C 0000A806    5041F000        ST      4,    0(  1, 15)



C 0000A80A    1F44            SLR     4,  4
C 0000A80C    1F11            SLR     1,  1
C 0000A80E    413070C0        LA      3,  192(  0,  7)
C 0000A812    45F0C05C        BAL    15,   92(  0, 12)
C 0000A816    5041F000        ST      4,    0(  1, 15)


  2076                             ->S(A(P));                    !SWITCH ON PHRASE (+1)

C 0000A81A    58108040        L       1,   64(  0,  8)
C 0000A81E    413092FC        LA      3,  764(  0,  9)
C 0000A822    45F0C05C        BAL    15,   92(  0, 12)
C 0000A826    4811F000        LH      1,    0(  1, 15)
C 0000A82A    1A11            AR      1,  1
C 0000A82C    4811A00A        LH      1,   10(  1, 10)
C 0000A830    47F1A000        BC     15,    0(  1, 10)


  2077                    S(2):                                  !NEGATE
  2078                             OP(1)=11;

C 0000A834    4140000B        LA      4,   11(  0,  0)
C 0000A838    41100001        LA      1,    1(  0,  0)
C 0000A83C    413070B0        LA      3,  176(  0,  7)
C 0000A840    45F0C05C        BAL    15,   92(  0, 12)
C 0000A844    5041F000        ST      4,    0(  1, 15)


  2079                    101:     OPPREC(1)=2+OP(1)//6; QP=1; ->1

C 0000A848    41100001        LA      1,    1(  0,  0)
C 0000A84C    413070B0        LA      3,  176(  0,  7)
C 0000A850    45F0C05C        BAL    15,   92(  0, 12)
C 0000A854    5861F000        L       6,    0(  1, 15)
C 0000A858    1806            LR      0,  6
C 0000A85A    8E000020        SRDA    0,   32(  0)
C 0000A85E    41400006        LA      4,    6(  0,  0)
C 0000A862    1D04            DR      0,  4
C 0000A864    41400002        LA      4,    2(  0,  0)
C 0000A868    1A14            AR      1,  4
C 0000A86A    1841            LR      4,  1
C 0000A86C    41100001        LA      1,    1(  0,  0)
C 0000A870    413070C0        LA      3,  192(  0,  7)
C 0000A874    45F0C05C        BAL    15,   92(  0, 12)
C 0000A878    5041F000        ST      4,    0(  1, 15)



C 0000A87C    41100001        LA      1,    1(  0,  0)
C 0000A880    50107050        ST      1,   80(  0,  7)



C 0000A884    47FA0000        BC     15,    0( 10,  0)


  2080                    S(3):    OP(1)=23; ->101;              !INITIAL NOT

C 0000A888    41400017        LA      4,   23(  0,  0)
C 0000A88C    41100001        LA      1,    1(  0,  0)
C 0000A890    413070B0        LA      3,  176(  0,  7)
C 0000A894    45F0C05C        BAL    15,   92(  0, 12)
C 0000A898    5041F000        ST      4,    0(  1, 15)



C 0000A89C    47F0A084        BC     15,  132(  0, 10)


  2081                    S(1):S(4):1:                           ! PLUS OR NULL ALTERNATIVE
  2082                             OPND=A(P+1); P=P+2; QP=QP+1

C 0000A8A0    41100001        LA      1,    1(  0,  0)
C 0000A8A4    5A108040        A       1,   64(  0,  8)
C 0000A8A8    413092FC        LA      3,  764(  0,  9)
C 0000A8AC    45F0C05C        BAL    15,   92(  0, 12)
C 0000A8B0    4811F000        LH      1,    0(  1, 15)
C 0000A8B4    50107068        ST      1,  104(  0,  7)



C 0000A8B8    41100002        LA      1,    2(  0,  0)
C 0000A8BC    5A108040        A       1,   64(  0,  8)
C 0000A8C0    50108040        ST      1,   64(  0,  8)



C 0000A8C4    41100001        LA      1,    1(  0,  0)
C 0000A8C8    5A107050        A       1,   80(  0,  7)
C 0000A8CC    50107050        ST      1,   80(  0,  7)


  2083                             ->SW(OPND);         ! SWITCH ON OPERAND

C 0000A8D0    58107068        L       1,  104(  0,  7)
C 0000A8D4    1A11            AR      1,  1
C 0000A8D6    4811A01E        LH      1,   30(  1, 10)
C 0000A8DA    47F1A000        BC     15,    0(  1, 10)


  2084                    SW(1):                                 !NAME
  2085                             COPYTAG(A(P))

C 0000A8DE    58108040        L       1,   64(  0,  8)
C 0000A8E2    413092FC        LA      3,  764(  0,  9)
C 0000A8E6    45F0C05C        BAL    15,   92(  0, 12)
C 0000A8EA    4811F000        LH      1,    0(  1, 15)
C 0000A8EE    5010B040        ST      1,   64(  0, 11)
C 0000A8F2    5810D408        L       1, 1032(  0, 13)
C 0000A8F6    45F0D074        BAL    15,  116(  0, 13)


  2086                             ->REGVAR %IF TYPE=8

C 0000A8FA    95088094        CLI    148(  8),  8
C 0000A8FE    478A0000        BC      8,    0( 10,  0)


  2087                             ->19 %IF TYPE=3 %AND ARR=0 %AND INREG#0

C 0000A902    95038094        CLI    148(  8),  3
C 0000A906    477A0158        BC      7,  344( 10,  0)
C 0000A90A    95008092        CLI    146(  8),  0
C 0000A90E    477A0158        BC      7,  344( 10,  0)
C 0000A912    581080AC        L       1,  172(  0,  8)
C 0000A916    1211            LTR     1,  1
C 0000A918    477A0000        BC      7,    0( 10,  0)


  2088                             ->171 %IF ARR=2 %AND A(P+1)=1

C 0000A91C    95028092        CLI    146(  8),  2
C 0000A920    477A017E        BC      7,  382( 10,  0)
C 0000A924    41100001        LA      1,    1(  0,  0)
C 0000A928    5A108040        A       1,   64(  0,  8)
C 0000A92C    413092FC        LA      3,  764(  0,  9)
C 0000A930    45F0C05C        BAL    15,   92(  0, 12)
C 0000A934    4811F000        LH      1,    0(  1, 15)
C 0000A938    41200001        LA      2,    1(  0,  0)
C 0000A93C    1912            CR      1,  2
C 0000A93E    478A0000        BC      8,    0( 10,  0)


  2089                             ->17 %IF 1<=TYPE<=2 %AND ARR=0 %AND ROUT=0 %AND A(P+1)=2=A(P+2)

C 0000A942    1F11            SLR     1,  1
C 0000A944    43108094        IC      1,  148(  0,  8)
C 0000A948    41200001        LA      2,    1(  0,  0)
C 0000A94C    1921            CR      2,  1
C 0000A94E    473A01E4        BC      3,  484( 10,  0)
C 0000A952    41200002        LA      2,    2(  0,  0)
C 0000A956    1912            CR      1,  2
C 0000A958    473A01E4        BC      3,  484( 10,  0)
C 0000A95C    95008092        CLI    146(  8),  0
C 0000A960    477A01E4        BC      7,  484( 10,  0)
C 0000A964    95008090        CLI    144(  8),  0
C 0000A968    477A01E4        BC      7,  484( 10,  0)
C 0000A96C    41100001        LA      1,    1(  0,  0)
C 0000A970    5A108040        A       1,   64(  0,  8)
C 0000A974    413092FC        LA      3,  764(  0,  9)
C 0000A978    45F0C05C        BAL    15,   92(  0, 12)
C 0000A97C    4811F000        LH      1,    0(  1, 15)
C 0000A980    1851            LR      5,  1
C 0000A982    41100002        LA      1,    2(  0,  0)
C 0000A986    1915            CR      1,  5
C 0000A988    477A01E4        BC      7,  484( 10,  0)
C 0000A98C    1851            LR      5,  1
C 0000A98E    41100002        LA      1,    2(  0,  0)
C 0000A992    5A108040        A       1,   64(  0,  8)
C 0000A996    413092FC        LA      3,  764(  0,  9)
C 0000A99A    45F0C05C        BAL    15,   92(  0, 12)
C 0000A99E    4811F000        LH      1,    0(  1, 15)
C 0000A9A2    1915            CR      1,  5
C 0000A9A4    478A0000        BC      8,    0( 10,  0)


  2090                    10:
  2091                             ->14 %UNLESS TYPE=1 %OR(ROUT=1%AND TYPE=6%AND TSNAME(K)&7=1)

C 0000A9A8    95018094        CLI    148(  8),  1
C 0000A9AC    478A021E        BC      8,  542( 10,  0)
C 0000A9B0    95018090        CLI    144(  8),  1
C 0000A9B4    477A0000        BC      7,    0( 10,  0)
C 0000A9B8    95068094        CLI    148(  8),  6
C 0000A9BC    477A0000        BC      7,    0( 10,  0)
C 0000A9C0    581080A4        L       1,  164(  0,  8)
C 0000A9C4    4130D0F8        LA      3,  248(  0, 13)
C 0000A9C8    45F0C05C        BAL    15,   92(  0, 12)
C 0000A9CC    1F66            SLR     6,  6
C 0000A9CE    4361F000        IC      6,    0(  1, 15)
C 0000A9D2    41100007        LA      1,    7(  0,  0)
C 0000A9D6    1461            NR      6,  1
C 0000A9D8    41100001        LA      1,    1(  0,  0)
C 0000A9DC    1961            CR      6,  1
C 0000A9DE    477A0000        BC      7,    0( 10,  0)


  2092                             C=P; ->11 %IF QP>1

C 0000A9E2    D20370488040    MVC     72(  4,  7),   64(  8)



C 0000A9E8    41100001        LA      1,    1(  0,  0)
C 0000A9EC    59107050        C       1,   80(  0,  7)
C 0000A9F0    474A0000        BC      4,    0( 10,  0)


  2093                             P=P+1; SKIPAPP; ->11 %UNLESS A(P)=A(P+1)=2

C 0000A9F4    41100001        LA      1,    1(  0,  0)
C 0000A9F8    5A108040        A       1,   64(  0,  8)
C 0000A9FC    50108040        ST      1,   64(  0,  8)



C 0000AA00    5810D39C        L       1,  924(  0, 13)
C 0000AA04    45F0D074        BAL    15,  116(  0, 13)



C 0000AA08    58108040        L       1,   64(  0,  8)
C 0000AA0C    413092FC        LA      3,  764(  0,  9)
C 0000AA10    45F0C05C        BAL    15,   92(  0, 12)
C 0000AA14    4811F000        LH      1,    0(  1, 15)
C 0000AA18    1851            LR      5,  1
C 0000AA1A    41100001        LA      1,    1(  0,  0)
C 0000AA1E    5A108040        A       1,   64(  0,  8)
C 0000AA22    413092FC        LA      3,  764(  0,  9)
C 0000AA26    45F0C05C        BAL    15,   92(  0, 12)
C 0000AA2A    4811F000        LH      1,    0(  1, 15)
C 0000AA2E    1915            CR      1,  5
C 0000AA30    477A0000        BC      7,    0( 10,  0)
C 0000AA34    41200002        LA      2,    2(  0,  0)
C 0000AA38    1912            CR      1,  2
C 0000AA3A    477A0000        BC      7,    0( 10,  0)


  2094                             P=C; C=REG

C 0000AA3E    D20380407048    MVC     64(  4,  8),   72(  7)



C 0000AA44    D20370487040    MVC     72(  4,  7),   64(  7)


  2095                             %IF REG<=0 %THEN %START

C 0000AA4A    58107040        L       1,   64(  0,  7)
C 0000AA4E    1211            LTR     1,  1
C 0000AA50    473A0000        BC      3,    0( 10,  0)


  2096                             C=FINDR; REGISTER(C)=0

C 0000AA54    5810D528        L       1, 1320(  0, 13)
C 0000AA58    45F0D074        BAL    15,  116(  0, 13)
C 0000AA5C    50107048        ST      1,   72(  0,  7)



C 0000AA60    1F44            SLR     4,  4
C 0000AA62    58107048        L       1,   72(  0,  7)
C 0000AA66    4130914C        LA      3,  332(  0,  9)
C 0000AA6A    45F0C05C        BAL    15,   92(  0, 12)
C 0000AA6E    5041F000        ST      4,    0(  1, 15)


  2097                             %FINISH
  2098                             CNAME(2,C); NEST=C; ->80;     ! ONE OPND EXPR

C 0000AA72    41100002        LA      1,    2(  0,  0)
C 0000AA76    5010B040        ST      1,   64(  0, 11)
C 0000AA7A    D203B0447048    MVC     68(  4, 11),   72(  7)
C 0000AA80    5810D3C4        L       1,  964(  0, 13)
C 0000AA84    45F0D074        BAL    15,  116(  0, 13)



C 0000AA88    D203912C7048    MVC    300(  4,  9),   72(  7)



C 0000AA8E    47FA0000        BC     15,    0( 10,  0)


  2099                    11:      P=C

C 0000AA92    D20380407048    MVC     64(  4,  8),   72(  7)


  2100                             C=FINDPP; ->14 %IF C=0

C 0000AA98    5810D420        L       1, 1056(  0, 13)
C 0000AA9C    45F0D074        BAL    15,  116(  0, 13)
C 0000AAA0    50107048        ST      1,   72(  0,  7)



C 0000AAA4    58107048        L       1,   72(  0,  7)
C 0000AAA8    1211            LTR     1,  1
C 0000AAAA    478A0000        BC      8,    0( 10,  0)


  2101                             CNAME(2,C); NEST=C

C 0000AAAE    41100002        LA      1,    2(  0,  0)
C 0000AAB2    5010B040        ST      1,   64(  0, 11)
C 0000AAB6    D203B0447048    MVC     68(  4, 11),   72(  7)
C 0000AABC    5810D3C4        L       1,  964(  0, 13)
C 0000AAC0    45F0D074        BAL    15,  116(  0, 13)



C 0000AAC4    D203912C7048    MVC    300(  4,  9),   72(  7)


  2102                             ->80 %IF QP=1 %AND A(P)=2;P=P+1;   ! ONE OPND EXPR

C 0000AACA    41100001        LA      1,    1(  0,  0)
C 0000AACE    59107050        C       1,   80(  0,  7)
C 0000AAD2    477A032C        BC      7,  812( 10,  0)
C 0000AAD6    58108040        L       1,   64(  0,  8)
C 0000AADA    413092FC        LA      3,  764(  0,  9)
C 0000AADE    45F0C05C        BAL    15,   92(  0, 12)
C 0000AAE2    4811F000        LH      1,    0(  1, 15)
C 0000AAE6    41200002        LA      2,    2(  0,  0)
C 0000AAEA    1912            CR      1,  2
C 0000AAEC    478A0000        BC      8,    0( 10,  0)



C 0000AAF0    41100001        LA      1,    1(  0,  0)
C 0000AAF4    5A108040        A       1,   64(  0,  8)
C 0000AAF8    50108040        ST      1,   64(  0,  8)


  2103                    12:      ST(N0)=9; ST(N0+1)=C; N0=N0+3

C 0000AAFC    41400009        LA      4,    9(  0,  0)
C 0000AB00    5810D534        L       1, 1332(  0, 13)
C 0000AB04    4130915C        LA      3,  348(  0,  9)
C 0000AB08    45F0C05C        BAL    15,   92(  0, 12)
C 0000AB0C    5041F000        ST      4,    0(  1, 15)



C 0000AB10    58407048        L       4,   72(  0,  7)
C 0000AB14    41100001        LA      1,    1(  0,  0)
C 0000AB18    5A10D534        A       1, 1332(  0, 13)
C 0000AB1C    4130915C        LA      3,  348(  0,  9)
C 0000AB20    45F0C05C        BAL    15,   92(  0, 12)
C 0000AB24    5041F000        ST      4,    0(  1, 15)



C 0000AB28    41100003        LA      1,    3(  0,  0)
C 0000AB2C    5A10D534        A       1, 1332(  0, 13)
C 0000AB30    5010D534        ST      1, 1332(  0, 13)


  2104                             REGISTER(C)=1

C 0000AB34    41400001        LA      4,    1(  0,  0)
C 0000AB38    58107048        L       1,   72(  0,  7)
C 0000AB3C    4130914C        LA      3,  332(  0,  9)
C 0000AB40    45F0C05C        BAL    15,   92(  0, 12)
C 0000AB44    5041F000        ST      4,    0(  1, 15)


  2105                             ->50

C 0000AB48    47FA0000        BC     15,    0( 10,  0)


  2106                    14:      %COMMENT OPERAND MUST BE FETCHED AND STORED
  2107                             CNAME (2,2);NEST =2

C 0000AB4C    41100002        LA      1,    2(  0,  0)
C 0000AB50    5010B040        ST      1,   64(  0, 11)
C 0000AB54    41100002        LA      1,    2(  0,  0)
C 0000AB58    5010B044        ST      1,   68(  0, 11)
C 0000AB5C    5810D3C4        L       1,  964(  0, 13)
C 0000AB60    45F0D074        BAL    15,  116(  0, 13)



C 0000AB64    41100002        LA      1,    2(  0,  0)
C 0000AB68    5010912C        ST      1,  300(  0,  9)


  2108                             %IF TYPE=5 %THEN %START; FAULT(42); TYPE=1; %FINISH;

C 0000AB6C    95058094        CLI    148(  8),  5
C 0000AB70    477A0000        BC      7,    0( 10,  0)



C 0000AB74    922AB043        MVI     67( 11), 42
C 0000AB78    5810D228        L       1,  552(  0, 13)
C 0000AB7C    45F0D074        BAL    15,  116(  0, 13)



C 0000AB80    92018094        MVI    148(  8),  1


  2109                             %IF TYPE=2 %THEN FREG(2)=1 %ELSE REGISTER(2)=1

C 0000AB84    95028094        CLI    148(  8),  2
C 0000AB88    477A03E0        BC      7,  992( 10,  0)
C 0000AB8C    41400001        LA      4,    1(  0,  0)
C 0000AB90    41100002        LA      1,    2(  0,  0)
C 0000AB94    4130918C        LA      3,  396(  0,  9)
C 0000AB98    45F0C05C        BAL    15,   92(  0, 12)
C 0000AB9C    5041F000        ST      4,    0(  1, 15)
C 0000ABA0    47FA03F4        BC     15, 1012( 10,  0)
C 0000ABA4    41400001        LA      4,    1(  0,  0)
C 0000ABA8    41100002        LA      1,    2(  0,  0)
C 0000ABAC    4130914C        LA      3,  332(  0,  9)
C 0000ABB0    45F0C05C        BAL    15,   92(  0, 12)
C 0000ABB4    5041F000        ST      4,    0(  1, 15)


  2110                             NAM=0;ARR=0;ROUT=0

C 0000ABB8    92008091        MVI    145(  8),  0



C 0000ABBC    92008092        MVI    146(  8),  0



C 0000ABC0    92008090        MVI    144(  8),  0


  2111                             LONGREAL=1 %IF PREC=3

C 0000ABC4    95038093        CLI    147(  8),  3
C 0000ABC8    477A040C        BC      7, 1036( 10,  0)
C 0000ABCC    92017071        MVI    113(  7),  1


  2112                             ->80 %IF QP=1 %AND A(P)=2

C 0000ABD0    41100001        LA      1,    1(  0,  0)
C 0000ABD4    59107050        C       1,   80(  0,  7)
C 0000ABD8    477A0432        BC      7, 1074( 10,  0)
C 0000ABDC    58108040        L       1,   64(  0,  8)
C 0000ABE0    413092FC        LA      3,  764(  0,  9)
C 0000ABE4    45F0C05C        BAL    15,   92(  0, 12)
C 0000ABE8    4811F000        LH      1,    0(  1, 15)
C 0000ABEC    41200002        LA      2,    2(  0,  0)
C 0000ABF0    1912            CR      1,  2
C 0000ABF2    478A0000        BC      8,    0( 10,  0)


  2113                    16:      ->15 %IF TYPE=1

C 0000ABF6    95018094        CLI    148(  8),  1
C 0000ABFA    478A0000        BC      8,    0( 10,  0)


  2114                             REAL=1; LONGREAL=1 %IF PREC=3

C 0000ABFE    92017070        MVI    112(  7),  1



C 0000AC02    95038093        CLI    147(  8),  3
C 0000AC06    477A044A        BC      7, 1098( 10,  0)
C 0000AC0A    92017071        MVI    113(  7),  1


  2115                             ->161 %IF A(P)=2;             ! EXPRESSION ENDED

C 0000AC0E    58108040        L       1,   64(  0,  8)
C 0000AC12    413092FC        LA      3,  764(  0,  9)
C 0000AC16    45F0C05C        BAL    15,   92(  0, 12)
C 0000AC1A    4811F000        LH      1,    0(  1, 15)
C 0000AC1E    41200002        LA      2,    2(  0,  0)
C 0000AC22    1912            CR      1,  2
C 0000AC24    478A0000        BC      8,    0( 10,  0)


  2116                             C=PARKF(NEST,PREC)

C 0000AC28    D203B040912C    MVC     64(  4, 11),  300(  9)
C 0000AC2E    1F11            SLR     1,  1
C 0000AC30    43108093        IC      1,  147(  0,  8)
C 0000AC34    5010B044        ST      1,   68(  0, 11)
C 0000AC38    5810D418        L       1, 1048(  0, 13)
C 0000AC3C    45F0D074        BAL    15,  116(  0, 13)
C 0000AC40    50107048        ST      1,   72(  0,  7)


  2117                             FREG(NEST)=0

C 0000AC44    1F44            SLR     4,  4
C 0000AC46    5810912C        L       1,  300(  0,  9)
C 0000AC4A    4130918C        LA      3,  396(  0,  9)
C 0000AC4E    45F0C05C        BAL    15,   92(  0, 12)
C 0000AC52    5041F000        ST      4,    0(  1, 15)


  2118                    13:      ST(N0)=10; P=P+1

C 0000AC56    4140000A        LA      4,   10(  0,  0)
C 0000AC5A    5810D534        L       1, 1332(  0, 13)
C 0000AC5E    4130915C        LA      3,  348(  0,  9)
C 0000AC62    45F0C05C        BAL    15,   92(  0, 12)
C 0000AC66    5041F000        ST      4,    0(  1, 15)



C 0000AC6A    41100001        LA      1,    1(  0,  0)
C 0000AC6E    5A108040        A       1,   64(  0,  8)
C 0000AC72    50108040        ST      1,   64(  0,  8)


  2119                             ST(N0+1)=RBASE!(TYPE!PREC<<3!NAM<<6)<<8

C 0000AC76    1F11            SLR     1,  1
C 0000AC78    43108093        IC      1,  147(  0,  8)
C 0000AC7C    89100003        SLL     1,    3(  0)
C 0000AC80    1F22            SLR     2,  2
C 0000AC82    43208094        IC      2,  148(  0,  8)
C 0000AC86    1612            OR      1,  2
C 0000AC88    1F22            SLR     2,  2
C 0000AC8A    43208091        IC      2,  145(  0,  8)
C 0000AC8E    89200006        SLL     2,    6(  0)
C 0000AC92    1612            OR      1,  2
C 0000AC94    1851            LR      5,  1
C 0000AC96    89500008        SLL     5,    8(  0)
C 0000AC9A    565090F4        O       5,  244(  0,  9)
C 0000AC9E    1845            LR      4,  5
C 0000ACA0    41100001        LA      1,    1(  0,  0)
C 0000ACA4    5A10D534        A       1, 1332(  0, 13)
C 0000ACA8    4130915C        LA      3,  348(  0,  9)
C 0000ACAC    45F0C05C        BAL    15,   92(  0, 12)
C 0000ACB0    5041F000        ST      4,    0(  1, 15)


  2120                             ST(N0+2)=C; N0=N0+3; ->50

C 0000ACB4    58407048        L       4,   72(  0,  7)
C 0000ACB8    41100002        LA      1,    2(  0,  0)
C 0000ACBC    5A10D534        A       1, 1332(  0, 13)
C 0000ACC0    4130915C        LA      3,  348(  0,  9)
C 0000ACC4    45F0C05C        BAL    15,   92(  0, 12)
C 0000ACC8    5041F000        ST      4,    0(  1, 15)



C 0000ACCC    41100003        LA      1,    3(  0,  0)
C 0000ACD0    5A10D534        A       1, 1332(  0, 13)
C 0000ACD4    5010D534        ST      1, 1332(  0, 13)



C 0000ACD8    47FA0000        BC     15,    0( 10,  0)


  2121                    161:     ST(N0)=8; ST(N0+1)=NEST+512+PREC<<11

C 0000ACDC    41400008        LA      4,    8(  0,  0)
C 0000ACE0    5810D534        L       1, 1332(  0, 13)
C 0000ACE4    4130915C        LA      3,  348(  0,  9)
C 0000ACE8    45F0C05C        BAL    15,   92(  0, 12)
C 0000ACEC    5041F000        ST      4,    0(  1, 15)



C 0000ACF0    41400200        LA      4,  512(  0,  0)
C 0000ACF4    5A40912C        A       4,  300(  0,  9)
C 0000ACF8    1F11            SLR     1,  1
C 0000ACFA    43108093        IC      1,  147(  0,  8)
C 0000ACFE    8910000B        SLL     1,   11(  0)
C 0000AD02    1A41            AR      4,  1
C 0000AD04    41100001        LA      1,    1(  0,  0)
C 0000AD08    5A10D534        A       1, 1332(  0, 13)
C 0000AD0C    4130915C        LA      3,  348(  0,  9)
C 0000AD10    45F0C05C        BAL    15,   92(  0, 12)
C 0000AD14    5041F000        ST      4,    0(  1, 15)


  2122                             FREG(NEST)=1

C 0000AD18    41400001        LA      4,    1(  0,  0)
C 0000AD1C    5810912C        L       1,  300(  0,  9)
C 0000AD20    4130918C        LA      3,  396(  0,  9)
C 0000AD24    45F0C05C        BAL    15,   92(  0, 12)
C 0000AD28    5041F000        ST      4,    0(  1, 15)


  2123                             N0=N0+3; P=P+1; ->50

C 0000AD2C    41100003        LA      1,    3(  0,  0)
C 0000AD30    5A10D534        A       1, 1332(  0, 13)
C 0000AD34    5010D534        ST      1, 1332(  0, 13)



C 0000AD38    41100001        LA      1,    1(  0,  0)
C 0000AD3C    5A108040        A       1,   64(  0,  8)
C 0000AD40    50108040        ST      1,   64(  0,  8)



C 0000AD44    47FA0000        BC     15,    0( 10,  0)


  2124                    15:      C=NEST

C 0000AD48    D2037048912C    MVC     72(  4,  7),  300(  9)


  2125                             C=PARK(NEST)

C 0000AD4E    D203B040912C    MVC     64(  4, 11),  300(  9)
C 0000AD54    5810D414        L       1, 1044(  0, 13)
C 0000AD58    45F0D074        BAL    15,  116(  0, 13)
C 0000AD5C    50107048        ST      1,   72(  0,  7)


  2126                             REGISTER(NEST)=0 %UNLESS NEST=C

C 0000AD60    D503912C7048    CLC    300(  4,  9),   72(  7)
C 0000AD66    478A05B8        BC      8, 1464( 10,  0)
C 0000AD6A    1F44            SLR     4,  4
C 0000AD6C    5810912C        L       1,  300(  0,  9)
C 0000AD70    4130914C        LA      3,  332(  0,  9)
C 0000AD74    45F0C05C        BAL    15,   92(  0, 12)
C 0000AD78    5041F000        ST      4,    0(  1, 15)


  2127                             ->18 %IF C>0;     ! IN GENERAL REGISTER

C 0000AD7C    58107048        L       1,   72(  0,  7)
C 0000AD80    1211            LTR     1,  1
C 0000AD82    472A0000        BC      2,    0( 10,  0)


  2128                             C=!C!; PREC=0; ->13;          ! IN CORE EQUIVALENT TO INTEGER

C 0000AD86    58107048        L       1,   72(  0,  7)
C 0000AD8A    1011            LPR     1,  1
C 0000AD8C    50107048        ST      1,   72(  0,  7)



C 0000AD90    92008093        MVI    147(  8),  0



C 0000AD94    47F0A492        BC     15, 1170(  0, 10)


  2129                    18:      P=P+1; ->12

C 0000AD98    41100001        LA      1,    1(  0,  0)
C 0000AD9C    5A108040        A       1,   64(  0,  8)
C 0000ADA0    50108040        ST      1,   64(  0,  8)



C 0000ADA4    47F0A338        BC     15,  824(  0, 10)


  2130                    17:      %COMMENT OPND HAS BASE REGISTER COVER
  2131                             ST(N0)=2; ST(N0+1)=I!(TYPE!PREC<<3!NAM<<6)<<8

C 0000ADA8    41400002        LA      4,    2(  0,  0)
C 0000ADAC    5810D534        L       1, 1332(  0, 13)
C 0000ADB0    4130915C        LA      3,  348(  0,  9)
C 0000ADB4    45F0C05C        BAL    15,   92(  0, 12)
C 0000ADB8    5041F000        ST      4,    0(  1, 15)



C 0000ADBC    1F11            SLR     1,  1
C 0000ADBE    43108093        IC      1,  147(  0,  8)
C 0000ADC2    89100003        SLL     1,    3(  0)
C 0000ADC6    1F22            SLR     2,  2
C 0000ADC8    43208094        IC      2,  148(  0,  8)
C 0000ADCC    1612            OR      1,  2
C 0000ADCE    1F22            SLR     2,  2
C 0000ADD0    43208091        IC      2,  145(  0,  8)
C 0000ADD4    89200006        SLL     2,    6(  0)
C 0000ADD8    1612            OR      1,  2
C 0000ADDA    1851            LR      5,  1
C 0000ADDC    89500008        SLL     5,    8(  0)
C 0000ADE0    5650809C        O       5,  156(  0,  8)
C 0000ADE4    1845            LR      4,  5
C 0000ADE6    41100001        LA      1,    1(  0,  0)
C 0000ADEA    5A10D534        A       1, 1332(  0, 13)
C 0000ADEE    4130915C        LA      3,  348(  0,  9)
C 0000ADF2    45F0C05C        BAL    15,   92(  0, 12)
C 0000ADF6    5041F000        ST      4,    0(  1, 15)


  2132                             ST(N0+2)=K; P=P+4; N0=N0+3

C 0000ADFA    584080A4        L       4,  164(  0,  8)
C 0000ADFE    41100002        LA      1,    2(  0,  0)
C 0000AE02    5A10D534        A       1, 1332(  0, 13)
C 0000AE06    4130915C        LA      3,  348(  0,  9)
C 0000AE0A    45F0C05C        BAL    15,   92(  0, 12)
C 0000AE0E    5041F000        ST      4,    0(  1, 15)



C 0000AE12    41100004        LA      1,    4(  0,  0)
C 0000AE16    5A108040        A       1,   64(  0,  8)
C 0000AE1A    50108040        ST      1,   64(  0,  8)



C 0000AE1E    41100003        LA      1,    3(  0,  0)
C 0000AE22    5A10D534        A       1, 1332(  0, 13)
C 0000AE26    5010D534        ST      1, 1332(  0, 13)


  2133                             REAL=1 %IF TYPE=2

C 0000AE2A    95028094        CLI    148(  8),  2
C 0000AE2E    477A0672        BC      7, 1650( 10,  0)
C 0000AE32    92017070        MVI    112(  7),  1


  2134                             LONGREAL=1 %IF PREC=3

C 0000AE36    95038093        CLI    147(  8),  3
C 0000AE3A    477A067E        BC      7, 1662( 10,  0)
C 0000AE3E    92017071        MVI    113(  7),  1


  2135                             ->50 %UNLESS UNASS=1 %AND(PREC=0 %OR PREC=3)

C 0000AE42    950190DC        CLI    220(  9),  1
C 0000AE46    477A0000        BC      7,    0( 10,  0)
C 0000AE4A    95008093        CLI    147(  8),  0
C 0000AE4E    478A0696        BC      8, 1686( 10,  0)
C 0000AE52    95038093        CLI    147(  8),  3
C 0000AE56    477A0000        BC      7,    0( 10,  0)


  2136                             ->50 %IF NAM=1

C 0000AE5A    95018091        CLI    145(  8),  1
C 0000AE5E    478A0000        BC      8,    0( 10,  0)


  2137                             PSS(X'D5',BYTES(PREC),I,K,GLA,128);      ! CLC V,=X'80808080'

C 0000AE62    411000D5        LA      1,  213(  0,  0)
C 0000AE66    5010B040        ST      1,   64(  0, 11)
C 0000AE6A    1F11            SLR     1,  1
C 0000AE6C    43108093        IC      1,  147(  0,  8)
C 0000AE70    4130D108        LA      3,  264(  0, 13)
C 0000AE74    45F0C05C        BAL    15,   92(  0, 12)
C 0000AE78    4311F000        IC      1,    0(  1, 15)
C 0000AE7C    5410D018        N       1,   24(  0, 13)
C 0000AE80    5010B044        ST      1,   68(  0, 11)
C 0000AE84    D203B048809C    MVC     72(  4, 11),  156(  8)
C 0000AE8A    D203B04C80A4    MVC     76(  4, 11),  164(  8)
C 0000AE90    D203B050D150    MVC     80(  4, 11),  336( 13)
C 0000AE96    41100080        LA      1,  128(  0,  0)
C 0000AE9A    5010B054        ST      1,   84(  0, 11)
C 0000AE9E    5810D1BC        L       1,  444(  0, 13)
C 0000AEA2    45F0D074        BAL    15,  116(  0, 13)


  2138                             PRX(X'47',8,0,CODER,40); ->50;;! CHECK ASSIGNED

C 0000AEA6    41100047        LA      1,   71(  0,  0)
C 0000AEAA    5010B040        ST      1,   64(  0, 11)
C 0000AEAE    41100008        LA      1,    8(  0,  0)
C 0000AEB2    5010B044        ST      1,   68(  0, 11)
C 0000AEB6    1F11            SLR     1,  1
C 0000AEB8    5010B048        ST      1,   72(  0, 11)
C 0000AEBC    D203B04CD144    MVC     76(  4, 11),  324( 13)
C 0000AEC2    41100028        LA      1,   40(  0,  0)
C 0000AEC6    5010B050        ST      1,   80(  0, 11)
C 0000AECA    5810D1C0        L       1,  448(  0, 13)
C 0000AECE    45F0D074        BAL    15,  116(  0, 13)



C 0000AED2    47FA0000        BC     15,    0( 10,  0)


  2139                    171:     ->10 %UNLESS A(P+2)=4 %AND A(P+3)=2 %AND A(P+4)=9

C 0000AED6    41100002        LA      1,    2(  0,  0)
C 0000AEDA    5A108040        A       1,   64(  0,  8)
C 0000AEDE    413092FC        LA      3,  764(  0,  9)
C 0000AEE2    45F0C05C        BAL    15,   92(  0, 12)
C 0000AEE6    4811F000        LH      1,    0(  1, 15)
C 0000AEEA    41200004        LA      2,    4(  0,  0)
C 0000AEEE    1912            CR      1,  2
C 0000AEF0    4770A1E4        BC      7,  484(  0, 10)
C 0000AEF4    41100003        LA      1,    3(  0,  0)
C 0000AEF8    5A108040        A       1,   64(  0,  8)
C 0000AEFC    413092FC        LA      3,  764(  0,  9)
C 0000AF00    45F0C05C        BAL    15,   92(  0, 12)
C 0000AF04    4811F000        LH      1,    0(  1, 15)
C 0000AF08    41200002        LA      2,    2(  0,  0)
C 0000AF0C    1912            CR      1,  2
C 0000AF0E    4770A1E4        BC      7,  484(  0, 10)
C 0000AF12    41100004        LA      1,    4(  0,  0)
C 0000AF16    5A108040        A       1,   64(  0,  8)
C 0000AF1A    413092FC        LA      3,  764(  0,  9)
C 0000AF1E    45F0C05C        BAL    15,   92(  0, 12)
C 0000AF22    4811F000        LH      1,    0(  1, 15)
C 0000AF26    41200009        LA      2,    9(  0,  0)
C 0000AF2A    1912            CR      1,  2
C 0000AF2C    4770A1E4        BC      7,  484(  0, 10)


  2140                             ->10 %UNLESS A(P+5)<256 %AND A(P+6)=2 %AND A(P+7)=2=A(P+8)

C 0000AF30    41100005        LA      1,    5(  0,  0)
C 0000AF34    5A108040        A       1,   64(  0,  8)
C 0000AF38    413092FC        LA      3,  764(  0,  9)
C 0000AF3C    45F0C05C        BAL    15,   92(  0, 12)
C 0000AF40    4811F000        LH      1,    0(  1, 15)
C 0000AF44    41200100        LA      2,  256(  0,  0)
C 0000AF48    1912            CR      1,  2
C 0000AF4A    47B0A1E4        BC     11,  484(  0, 10)
C 0000AF4E    41100006        LA      1,    6(  0,  0)
C 0000AF52    5A108040        A       1,   64(  0,  8)
C 0000AF56    413092FC        LA      3,  764(  0,  9)
C 0000AF5A    45F0C05C        BAL    15,   92(  0, 12)
C 0000AF5E    4811F000        LH      1,    0(  1, 15)
C 0000AF62    41200002        LA      2,    2(  0,  0)
C 0000AF66    1912            CR      1,  2
C 0000AF68    4770A1E4        BC      7,  484(  0, 10)
C 0000AF6C    41100007        LA      1,    7(  0,  0)
C 0000AF70    5A108040        A       1,   64(  0,  8)
C 0000AF74    413092FC        LA      3,  764(  0,  9)
C 0000AF78    45F0C05C        BAL    15,   92(  0, 12)
C 0000AF7C    4811F000        LH      1,    0(  1, 15)
C 0000AF80    1851            LR      5,  1
C 0000AF82    41100002        LA      1,    2(  0,  0)
C 0000AF86    1915            CR      1,  5
C 0000AF88    4770A1E4        BC      7,  484(  0, 10)
C 0000AF8C    1851            LR      5,  1
C 0000AF8E    41100008        LA      1,    8(  0,  0)
C 0000AF92    5A108040        A       1,   64(  0,  8)
C 0000AF96    413092FC        LA      3,  764(  0,  9)
C 0000AF9A    45F0C05C        BAL    15,   92(  0, 12)
C 0000AF9E    4811F000        LH      1,    0(  1, 15)
C 0000AFA2    1915            CR      1,  5
C 0000AFA4    4770A1E4        BC      7,  484(  0, 10)


  2141                             FROM1(K,C); C=C+BYTES(PREC)*A(P+5)

C 0000AFA8    D203B04080A4    MVC     64(  4, 11),  164(  8)
C 0000AFAE    41107048        LA      1,   72(  0,  7)
C 0000AFB2    5010B044        ST      1,   68(  0, 11)
C 0000AFB6    5810D3FC        L       1, 1020(  0, 13)
C 0000AFBA    45F0D074        BAL    15,  116(  0, 13)



C 0000AFBE    1F11            SLR     1,  1
C 0000AFC0    43108093        IC      1,  147(  0,  8)
C 0000AFC4    4130D108        LA      3,  264(  0, 13)
C 0000AFC8    45F0C05C        BAL    15,   92(  0, 12)
C 0000AFCC    1F66            SLR     6,  6
C 0000AFCE    4361F000        IC      6,    0(  1, 15)
C 0000AFD2    41100005        LA      1,    5(  0,  0)
C 0000AFD6    5A108040        A       1,   64(  0,  8)
C 0000AFDA    413092FC        LA      3,  764(  0,  9)
C 0000AFDE    45F0C05C        BAL    15,   92(  0, 12)
C 0000AFE2    4851F000        LH      5,    0(  1, 15)
C 0000AFE6    1C46            MR      4,  6
C 0000AFE8    5A507048        A       5,   72(  0,  7)
C 0000AFEC    50507048        ST      5,   72(  0,  7)


  2142                             ->10 %UNLESS 0<C<4096; K=C; P=P+6; ->17

C 0000AFF0    58107048        L       1,   72(  0,  7)
C 0000AFF4    1211            LTR     1,  1
C 0000AFF6    47D0A1E4        BC     13,  484(  0, 10)
C 0000AFFA    1851            LR      5,  1
C 0000AFFC    5810D538        L       1, 1336(  0, 13)
C 0000B000    1915            CR      1,  5
C 0000B002    47D0A1E4        BC     13,  484(  0, 10)



C 0000B006    D20380A47048    MVC    164(  4,  8),   72(  7)



C 0000B00C    41100006        LA      1,    6(  0,  0)
C 0000B010    5A108040        A       1,   64(  0,  8)
C 0000B014    50108040        ST      1,   64(  0,  8)



C 0000B018    47F0A5E4        BC     15, 1508(  0, 10)


  2143                    19:      ->14 %UNLESS A(P+1)=2 %AND A(P+2)=1;    ! NO APP BIUT ENAME

C 0000B01C    41100001        LA      1,    1(  0,  0)
C 0000B020    5A108040        A       1,   64(  0,  8)
C 0000B024    413092FC        LA      3,  764(  0,  9)
C 0000B028    45F0C05C        BAL    15,   92(  0, 12)
C 0000B02C    4811F000        LH      1,    0(  1, 15)
C 0000B030    41200002        LA      2,    2(  0,  0)
C 0000B034    1912            CR      1,  2
C 0000B036    4770A388        BC      7,  904(  0, 10)
C 0000B03A    41100002        LA      1,    2(  0,  0)
C 0000B03E    5A108040        A       1,   64(  0,  8)
C 0000B042    413092FC        LA      3,  764(  0,  9)
C 0000B046    45F0C05C        BAL    15,   92(  0, 12)
C 0000B04A    4811F000        LH      1,    0(  1, 15)
C 0000B04E    41200001        LA      2,    1(  0,  0)
C 0000B052    1912            CR      1,  2
C 0000B054    4770A388        BC      7,  904(  0, 10)


  2144                             P=P+3; FROM1(K,FNAME); I=INREG

C 0000B058    41100003        LA      1,    3(  0,  0)
C 0000B05C    5A108040        A       1,   64(  0,  8)
C 0000B060    50108040        ST      1,   64(  0,  8)



C 0000B064    D203B04080A4    MVC     64(  4, 11),  164(  8)
C 0000B06A    41109130        LA      1,  304(  0,  9)
C 0000B06E    5010B044        ST      1,   68(  0, 11)
C 0000B072    5810D3FC        L       1, 1020(  0, 13)
C 0000B076    45F0D074        BAL    15,  116(  0, 13)



C 0000B07A    D203809C80AC    MVC    156(  4,  8),  172(  8)


  2145                             K=DISPLACEMENT(FNAME)

C 0000B080    D203B0409130    MVC     64(  4, 11),  304(  9)
C 0000B086    5810D394        L       1,  916(  0, 13)
C 0000B08A    45F0D074        BAL    15,  116(  0, 13)
C 0000B08E    501080A4        ST      1,  164(  0,  8)


  2146                             ->191 %IF I=-1; UNPACK

C 0000B092    5810D010        L       1,   16(  0, 13)
C 0000B096    5910809C        C       1,  156(  0,  8)
C 0000B09A    478A0000        BC      8,    0( 10,  0)



C 0000B09E    5810D448        L       1, 1096(  0, 13)
C 0000B0A2    45F0D074        BAL    15,  116(  0, 13)


  2147                             ->17 %IF ARR=0 %AND ROUT=0 %AND 1<=TYPE<=2 %AND A(P+1)=2         =A(P+2);                      ! NO APP OR SECOND ENAME

C 0000B0A6    95008092        CLI    146(  8),  0
C 0000B0AA    477A0948        BC      7, 2376( 10,  0)
C 0000B0AE    95008090        CLI    144(  8),  0
C 0000B0B2    477A0948        BC      7, 2376( 10,  0)
C 0000B0B6    1F11            SLR     1,  1
C 0000B0B8    43108094        IC      1,  148(  0,  8)
C 0000B0BC    41200001        LA      2,    1(  0,  0)
C 0000B0C0    1921            CR      2,  1
C 0000B0C2    473A0948        BC      3, 2376( 10,  0)
C 0000B0C6    41200002        LA      2,    2(  0,  0)
C 0000B0CA    1912            CR      1,  2
C 0000B0CC    473A0948        BC      3, 2376( 10,  0)
C 0000B0D0    41100001        LA      1,    1(  0,  0)
C 0000B0D4    5A108040        A       1,   64(  0,  8)
C 0000B0D8    413092FC        LA      3,  764(  0,  9)
C 0000B0DC    45F0C05C        BAL    15,   92(  0, 12)
C 0000B0E0    4811F000        LH      1,    0(  1, 15)
C 0000B0E4    1851            LR      5,  1
C 0000B0E6    41100002        LA      1,    2(  0,  0)
C 0000B0EA    1915            CR      1,  5
C 0000B0EC    477A0948        BC      7, 2376( 10,  0)
C 0000B0F0    1851            LR      5,  1
C 0000B0F2    41100002        LA      1,    2(  0,  0)
C 0000B0F6    5A108040        A       1,   64(  0,  8)
C 0000B0FA    413092FC        LA      3,  764(  0,  9)
C 0000B0FE    45F0C05C        BAL    15,   92(  0, 12)
C 0000B102    4811F000        LH      1,    0(  1, 15)
C 0000B106    1915            CR      1,  5
C 0000B108    4780A5E4        BC      8, 1508(  0, 10)


  2148                    191:     P=P-3; ->14

C 0000B10C    58108040        L       1,   64(  0,  8)
C 0000B110    41200003        LA      2,    3(  0,  0)
C 0000B114    1B12            SR      1,  2
C 0000B116    50108040        ST      1,   64(  0,  8)



C 0000B11A    47F0A388        BC     15,  904(  0, 10)


  2149                    REGVAR:  ->14 %UNLESS A(P+1)=2=A(P+2);! NO APP OR ENAME

C 0000B11E    41100001        LA      1,    1(  0,  0)
C 0000B122    5A108040        A       1,   64(  0,  8)
C 0000B126    413092FC        LA      3,  764(  0,  9)
C 0000B12A    45F0C05C        BAL    15,   92(  0, 12)
C 0000B12E    4811F000        LH      1,    0(  1, 15)
C 0000B132    1851            LR      5,  1
C 0000B134    41100002        LA      1,    2(  0,  0)
C 0000B138    1915            CR      1,  5
C 0000B13A    4770A388        BC      7,  904(  0, 10)
C 0000B13E    1851            LR      5,  1
C 0000B140    41100002        LA      1,    2(  0,  0)
C 0000B144    5A108040        A       1,   64(  0,  8)
C 0000B148    413092FC        LA      3,  764(  0,  9)
C 0000B14C    45F0C05C        BAL    15,   92(  0, 12)
C 0000B150    4811F000        LH      1,    0(  1, 15)
C 0000B154    1915            CR      1,  5
C 0000B156    4770A388        BC      7,  904(  0, 10)


  2150                             P=P+4; ST(N0)=9; ST(N0+1)=K

C 0000B15A    41100004        LA      1,    4(  0,  0)
C 0000B15E    5A108040        A       1,   64(  0,  8)
C 0000B162    50108040        ST      1,   64(  0,  8)



C 0000B166    41400009        LA      4,    9(  0,  0)
C 0000B16A    5810D534        L       1, 1332(  0, 13)
C 0000B16E    4130915C        LA      3,  348(  0,  9)
C 0000B172    45F0C05C        BAL    15,   92(  0, 12)
C 0000B176    5041F000        ST      4,    0(  1, 15)



C 0000B17A    584080A4        L       4,  164(  0,  8)
C 0000B17E    41100001        LA      1,    1(  0,  0)
C 0000B182    5A10D534        A       1, 1332(  0, 13)
C 0000B186    4130915C        LA      3,  348(  0,  9)
C 0000B18A    45F0C05C        BAL    15,   92(  0, 12)
C 0000B18E    5041F000        ST      4,    0(  1, 15)


  2151                             N0=N0+3; ->50

C 0000B192    41100003        LA      1,    3(  0,  0)
C 0000B196    5A10D534        A       1, 1332(  0, 13)
C 0000B19A    5010D534        ST      1, 1332(  0, 13)



C 0000B19E    47FA0000        BC     15,    0( 10,  0)


  2152                    SW(2):                                 !CONSTANT
  2153                             C=A(P); ST(N0+1)=P; ST(N0+2)=A(P+1)

C 0000B1A2    58108040        L       1,   64(  0,  8)
C 0000B1A6    413092FC        LA      3,  764(  0,  9)
C 0000B1AA    45F0C05C        BAL    15,   92(  0, 12)
C 0000B1AE    4811F000        LH      1,    0(  1, 15)
C 0000B1B2    50107048        ST      1,   72(  0,  7)



C 0000B1B6    58408040        L       4,   64(  0,  8)
C 0000B1BA    41100001        LA      1,    1(  0,  0)
C 0000B1BE    5A10D534        A       1, 1332(  0, 13)
C 0000B1C2    4130915C        LA      3,  348(  0,  9)
C 0000B1C6    45F0C05C        BAL    15,   92(  0, 12)
C 0000B1CA    5041F000        ST      4,    0(  1, 15)



C 0000B1CE    41100001        LA      1,    1(  0,  0)
C 0000B1D2    5A108040        A       1,   64(  0,  8)
C 0000B1D6    413092FC        LA      3,  764(  0,  9)
C 0000B1DA    45F0C05C        BAL    15,   92(  0, 12)
C 0000B1DE    4841F000        LH      4,    0(  1, 15)
C 0000B1E2    41100002        LA      1,    2(  0,  0)
C 0000B1E6    5A10D534        A       1, 1332(  0, 13)
C 0000B1EA    4130915C        LA      3,  348(  0,  9)
C 0000B1EE    45F0C05C        BAL    15,   92(  0, 12)
C 0000B1F2    5041F000        ST      4,    0(  1, 15)


  2154                             ->24 %IF C&7=2

C 0000B1F6    41100007        LA      1,    7(  0,  0)
C 0000B1FA    54107048        N       1,   72(  0,  7)
C 0000B1FE    41200002        LA      2,    2(  0,  0)
C 0000B202    1912            CR      1,  2
C 0000B204    478A0000        BC      8,    0( 10,  0)


  2155                             %IF C=5 %THEN %START

C 0000B208    41100005        LA      1,    5(  0,  0)
C 0000B20C    59107048        C       1,   72(  0,  7)
C 0000B210    477A0000        BC      7,    0( 10,  0)


  2156                             FAULT(42); P=P+A(P+1)&X'FE'+1

C 0000B214    922AB043        MVI     67( 11), 42
C 0000B218    5810D228        L       1,  552(  0, 13)
C 0000B21C    45F0D074        BAL    15,  116(  0, 13)



C 0000B220    41100001        LA      1,    1(  0,  0)
C 0000B224    5A108040        A       1,   64(  0,  8)
C 0000B228    413092FC        LA      3,  764(  0,  9)
C 0000B22C    45F0C05C        BAL    15,   92(  0, 12)
C 0000B230    4861F000        LH      6,    0(  1, 15)
C 0000B234    411000FE        LA      1,  254(  0,  0)
C 0000B238    1461            NR      6,  1
C 0000B23A    5A608040        A       6,   64(  0,  8)
C 0000B23E    41100001        LA      1,    1(  0,  0)
C 0000B242    1A61            AR      6,  1
C 0000B244    50608040        ST      6,   64(  0,  8)


  2157                             C=9; %FINISH

C 0000B248    41100009        LA      1,    9(  0,  0)
C 0000B24C    50107048        ST      1,   72(  0,  7)


  2158                             ->22 %UNLESS C>8;             !GO UNLESS IMMEDIATE

C 0000B250    41100008        LA      1,    8(  0,  0)
C 0000B254    59107048        C       1,   72(  0,  7)
C 0000B258    47BA0000        BC     11,    0( 10,  0)


  2159                             ST(N0)=0

C 0000B25C    1F44            SLR     4,  4
C 0000B25E    5810D534        L       1, 1332(  0, 13)
C 0000B262    4130915C        LA      3,  348(  0,  9)
C 0000B266    45F0C05C        BAL    15,   92(  0, 12)
C 0000B26A    5041F000        ST      4,    0(  1, 15)


  2160                    21:      N0=N0+3; P=P+3;

C 0000B26E    41100003        LA      1,    3(  0,  0)
C 0000B272    5A10D534        A       1, 1332(  0, 13)
C 0000B276    5010D534        ST      1, 1332(  0, 13)



C 0000B27A    41100003        LA      1,    3(  0,  0)
C 0000B27E    5A108040        A       1,   64(  0,  8)
C 0000B282    50108040        ST      1,   64(  0,  8)


  2161                             ->50

C 0000B286    47FA0000        BC     15,    0( 10,  0)


  2162                    22:      ST(N0)=1; P=P+1; ->21

C 0000B28A    41400001        LA      4,    1(  0,  0)
C 0000B28E    5810D534        L       1, 1332(  0, 13)
C 0000B292    4130915C        LA      3,  348(  0,  9)
C 0000B296    45F0C05C        BAL    15,   92(  0, 12)
C 0000B29A    5041F000        ST      4,    0(  1, 15)



C 0000B29E    41100001        LA      1,    1(  0,  0)
C 0000B2A2    5A108040        A       1,   64(  0,  8)
C 0000B2A6    50108040        ST      1,   64(  0,  8)



C 0000B2AA    47F0AAAA        BC     15, 2730(  0, 10)


  2163                    24:      REAL=1; P=P+2; ->22

C 0000B2AE    92017070        MVI    112(  7),  1



C 0000B2B2    41100002        LA      1,    2(  0,  0)
C 0000B2B6    5A108040        A       1,   64(  0,  8)
C 0000B2BA    50108040        ST      1,   64(  0,  8)



C 0000B2BE    47F0AAC6        BC     15, 2758(  0, 10)


  2164                    SW(3):SW(4):                 ! SUB EXPRESSION
  2165                             D=0; D=1 %IF MODE=1 %OR LASTOP=12;! INTEGER EXPONENTS

C 0000B2C2    1F11            SLR     1,  1
C 0000B2C4    5010704C        ST      1,   76(  0,  7)



C 0000B2C8    95017047        CLI     71(  7),  1
C 0000B2CC    478A0B18        BC      8, 2840( 10,  0)
C 0000B2D0    4110000C        LA      1,   12(  0,  0)
C 0000B2D4    5910707C        C       1,  124(  0,  7)
C 0000B2D8    477A0B20        BC      7, 2848( 10,  0)
C 0000B2DC    41100001        LA      1,    1(  0,  0)
C 0000B2E0    5010704C        ST      1,   76(  0,  7)


  2166                             CSEXP(0,D)

C 0000B2E4    1F11            SLR     1,  1
C 0000B2E6    5010B040        ST      1,   64(  0, 11)
C 0000B2EA    5810704C        L       1,   76(  0,  7)
C 0000B2EE    5010B044        ST      1,   68(  0, 11)
C 0000B2F2    5810D37C        L       1,  892(  0, 13)
C 0000B2F6    45F0D074        BAL    15,  116(  0, 13)


  2167                             ->32 %UNLESS OPND=4

C 0000B2FA    41100004        LA      1,    4(  0,  0)
C 0000B2FE    59107068        C       1,  104(  0,  7)
C 0000B302    477A0000        BC      7,    0( 10,  0)


  2168                             D=16*TYPE

C 0000B306    41100010        LA      1,   16(  0,  0)
C 0000B30A    1F22            SLR     2,  2
C 0000B30C    43208094        IC      2,  148(  0,  8)
C 0000B310    1C02            MR      0,  2
C 0000B312    5010704C        ST      1,   76(  0,  7)


  2169                             D=48 %IF TYPE=2 %AND PREC=0

C 0000B316    95028094        CLI    148(  8),  2
C 0000B31A    477A0B6A        BC      7, 2922( 10,  0)
C 0000B31E    95008093        CLI    147(  8),  0
C 0000B322    477A0B6A        BC      7, 2922( 10,  0)
C 0000B326    41100030        LA      1,   48(  0,  0)
C 0000B32A    5010704C        ST      1,   76(  0,  7)


  2170                             PRR(D,NEST,NEST);             !DEAL WITH MOD SIGNS

C 0000B32E    D203B040704C    MVC     64(  4, 11),   76(  7)
C 0000B334    D203B044912C    MVC     68(  4, 11),  300(  9)
C 0000B33A    D203B048912C    MVC     72(  4, 11),  300(  9)
C 0000B340    5810D1D0        L       1,  464(  0, 13)
C 0000B344    45F0D074        BAL    15,  116(  0, 13)


  2171                    32:      LONGREAL=1 %IF PREC=3

C 0000B348    95038093        CLI    147(  8),  3
C 0000B34C    477A0B90        BC      7, 2960( 10,  0)
C 0000B350    92017071        MVI    113(  7),  1


  2172                             ->80 %IF QP=1 %AND A(P)=2;    !ONE OPD EXPRESSION

C 0000B354    41100001        LA      1,    1(  0,  0)
C 0000B358    59107050        C       1,   80(  0,  7)
C 0000B35C    477A0BB6        BC      7, 2998( 10,  0)
C 0000B360    58108040        L       1,   64(  0,  8)
C 0000B364    413092FC        LA      3,  764(  0,  9)
C 0000B368    45F0C05C        BAL    15,   92(  0, 12)
C 0000B36C    4811F000        LH      1,    0(  1, 15)
C 0000B370    41200002        LA      2,    2(  0,  0)
C 0000B374    1912            CR      1,  2
C 0000B376    478A0000        BC      8,    0( 10,  0)


  2173                             ->16 ;                        !TO STORE RESULT

C 0000B37A    47F0A432        BC     15, 1074(  0, 10)


  2174                    50:      %COMMENT DEAL WITH OPERATOR
  2175                             ->60 %IF A(P-1)=2;            !EXPRESSION FINISHED

C 0000B37E    58108040        L       1,   64(  0,  8)
C 0000B382    0610            BCTR    1,  0
C 0000B384    413092FC        LA      3,  764(  0,  9)
C 0000B388    45F0C05C        BAL    15,   92(  0, 12)
C 0000B38C    4811F000        LH      1,    0(  1, 15)
C 0000B390    41200002        LA      2,    2(  0,  0)
C 0000B394    1912            CR      1,  2
C 0000B396    478A0000        BC      8,    0( 10,  0)


  2176                             OPERATOR=A(P)

C 0000B39A    58108040        L       1,   64(  0,  8)
C 0000B39E    413092FC        LA      3,  764(  0,  9)
C 0000B3A2    45F0C05C        BAL    15,   92(  0, 12)
C 0000B3A6    4811F000        LH      1,    0(  1, 15)
C 0000B3AA    50107074        ST      1,  116(  0,  7)


  2177                             %IF OPERATOR=12 %THEN %START; ! '.'

C 0000B3AE    4110000C        LA      1,   12(  0,  0)
C 0000B3B2    59107074        C       1,  116(  0,  7)
C 0000B3B6    477A0000        BC      7,    0( 10,  0)


  2178                             FAULT(42); OPERATOR=2; %FINISH;!   CHANGE TO +

C 0000B3BA    922AB043        MVI     67( 11), 42
C 0000B3BE    5810D228        L       1,  552(  0, 13)
C 0000B3C2    45F0D074        BAL    15,  116(  0, 13)



C 0000B3C6    41100002        LA      1,    2(  0,  0)
C 0000B3CA    50107074        ST      1,  116(  0,  7)


  2179                             OPERATOR = 6 %IF OPERATOR=13;     !%NULL == *

C 0000B3CE    4110000D        LA      1,   13(  0,  0)
C 0000B3D2    59107074        C       1,  116(  0,  7)
C 0000B3D6    477A0C1E        BC      7, 3102( 10,  0)
C 0000B3DA    41100006        LA      1,    6(  0,  0)
C 0000B3DE    50107074        ST      1,  116(  0,  7)


  2180                             REALOP=1 %IF OPERATOR=1 %OR OPERATOR=8

C 0000B3E2    41100001        LA      1,    1(  0,  0)
C 0000B3E6    59107074        C       1,  116(  0,  7)
C 0000B3EA    478A0C36        BC      8, 3126( 10,  0)
C 0000B3EE    41100008        LA      1,    8(  0,  0)
C 0000B3F2    59107074        C       1,  116(  0,  7)
C 0000B3F6    477A0C3A        BC      7, 3130( 10,  0)
C 0000B3FA    92017072        MVI    114(  7),  1


  2181                             OPERATOR=12 %IF OPERATOR=1

C 0000B3FE    41100001        LA      1,    1(  0,  0)
C 0000B402    59107074        C       1,  116(  0,  7)
C 0000B406    477A0C4E        BC      7, 3150( 10,  0)
C 0000B40A    4110000C        LA      1,   12(  0,  0)
C 0000B40E    50107074        ST      1,  116(  0,  7)


  2182                             NOPS=NOPS+1; LASTOP=OPERATOR

C 0000B412    41100001        LA      1,    1(  0,  0)
C 0000B416    5A107078        A       1,  120(  0,  7)
C 0000B41A    50107078        ST      1,  120(  0,  7)



C 0000B41E    D203707C7074    MVC    124(  4,  7),  116(  7)


  2183                             C=PRECEDENCE(OPERATOR)

C 0000B424    58107074        L       1,  116(  0,  7)
C 0000B428    4130D118        LA      3,  280(  0, 13)
C 0000B42C    45F0C05C        BAL    15,   92(  0, 12)
C 0000B430    4311F000        IC      1,    0(  1, 15)
C 0000B434    5410D018        N       1,   24(  0, 13)
C 0000B438    50107048        ST      1,   72(  0,  7)


  2184                    51:      ->52 %IF C>OPPREC(QP-1);      !OPERATOR MAY BE STORED

C 0000B43C    58107050        L       1,   80(  0,  7)
C 0000B440    0610            BCTR    1,  0
C 0000B442    413070C0        LA      3,  192(  0,  7)
C 0000B446    45F0C05C        BAL    15,   92(  0, 12)
C 0000B44A    5811F000        L       1,    0(  1, 15)
C 0000B44E    59107048        C       1,   72(  0,  7)
C 0000B452    474A0000        BC      4,    0( 10,  0)


  2185                             QP=QP-1

C 0000B456    58107050        L       1,   80(  0,  7)
C 0000B45A    0610            BCTR    1,  0
C 0000B45C    50107050        ST      1,   80(  0,  7)


  2186                             ST(N0)=OP(QP)

C 0000B460    58107050        L       1,   80(  0,  7)
C 0000B464    413070B0        LA      3,  176(  0,  7)
C 0000B468    45F0C05C        BAL    15,   92(  0, 12)
C 0000B46C    5841F000        L       4,    0(  1, 15)
C 0000B470    5810D534        L       1, 1332(  0, 13)
C 0000B474    4130915C        LA      3,  348(  0,  9)
C 0000B478    45F0C05C        BAL    15,   92(  0, 12)
C 0000B47C    5041F000        ST      4,    0(  1, 15)


  2187                             N0=N0+3; ->51;                !UNLOAD STACK

C 0000B480    41100003        LA      1,    3(  0,  0)
C 0000B484    5A10D534        A       1, 1332(  0, 13)
C 0000B488    5010D534        ST      1, 1332(  0, 13)



C 0000B48C    47F0AC78        BC     15, 3192(  0, 10)


  2188                    52:      OP(QP)=10+OPERATOR

C 0000B490    4140000A        LA      4,   10(  0,  0)
C 0000B494    5A407074        A       4,  116(  0,  7)
C 0000B498    58107050        L       1,   80(  0,  7)
C 0000B49C    413070B0        LA      3,  176(  0,  7)
C 0000B4A0    45F0C05C        BAL    15,   92(  0, 12)
C 0000B4A4    5041F000        ST      4,    0(  1, 15)


  2189                             OPPREC(QP)=C; ->1;            !FOR NEXT OPERAND

C 0000B4A8    58407048        L       4,   72(  0,  7)
C 0000B4AC    58107050        L       1,   80(  0,  7)
C 0000B4B0    413070C0        LA      3,  192(  0,  7)
C 0000B4B4    45F0C05C        BAL    15,   92(  0, 12)
C 0000B4B8    5041F000        ST      4,    0(  1, 15)



C 0000B4BC    47F0A0DC        BC     15,  220(  0, 10)


  2190                    60:      %COMMENT - END OF EXPRESSION
  2191                             %CYCLE JJ=QP-1,-1,0

C 0000B4C0    4140705C        LA      4,   92(  0,  7)
C 0000B4C4    5820D010        L       2,   16(  0, 13)
C 0000B4C8    1F33            SLR     3,  3
C 0000B4CA    902470DC        STM     2,  4,  220(  7)
C 0000B4CE    58107050        L       1,   80(  0,  7)
C 0000B4D2    0610            BCTR    1,  0
C 0000B4D4    50104000        ST      1,    0(  0,  4)


  2192                             ST(N0)=OP(JJ)

C 0000B4D8    5810705C        L       1,   92(  0,  7)
C 0000B4DC    413070B0        LA      3,  176(  0,  7)
C 0000B4E0    45F0C05C        BAL    15,   92(  0, 12)
C 0000B4E4    5841F000        L       4,    0(  1, 15)
C 0000B4E8    5810D534        L       1, 1332(  0, 13)
C 0000B4EC    4130915C        LA      3,  348(  0,  9)
C 0000B4F0    45F0C05C        BAL    15,   92(  0, 12)
C 0000B4F4    5041F000        ST      4,    0(  1, 15)


  2193                             N0=N0+3; %REPEAT;             !EMPTY OPERATOR STACK

C 0000B4F8    41100003        LA      1,    3(  0,  0)
C 0000B4FC    5A10D534        A       1, 1332(  0, 13)
C 0000B500    5010D534        ST      1, 1332(  0, 13)



C 0000B504    982470DC        LM      2,  4,  220(  7)
C 0000B508    58104000        L       1,    0(  0,  4)
C 0000B50C    1A12            AR      1,  2
C 0000B50E    59304000        C       3,    0(  0,  4)
C 0000B512    4770AD10        BC      7, 3344(  0, 10)


  2194                             REAL=1 %IF MODE#1 %AND REALOP=1

C 0000B516    95017047        CLI     71(  7),  1
C 0000B51A    478A0D66        BC      8, 3430( 10,  0)
C 0000B51E    95017072        CLI    114(  7),  1
C 0000B522    477A0D66        BC      7, 3430( 10,  0)
C 0000B526    92017070        MVI    112(  7),  1


  2195                             ->70 %IF REAL=1

C 0000B52A    95017070        CLI    112(  7),  1
C 0000B52E    478A0000        BC      8,    0( 10,  0)


  2196                             %COMMENT - CAN EVALUATE AS INTEGER
  2197                             PRINT ORDERS

C 0000B532    5810D530        L       1, 1328(  0, 13)
C 0000B536    45F0D074        BAL    15,  116(  0, 13)


  2198                    61:      ->71 %IF MODE>=2

C 0000B53A    95027047        CLI     71(  7),  2
C 0000B53E    47AA0000        BC     10,    0( 10,  0)


  2199                    72:      D=1; REG=REG-1 %IF 0>=REG

C 0000B542    41100001        LA      1,    1(  0,  0)
C 0000B546    5010704C        ST      1,   76(  0,  7)



C 0000B54A    58107040        L       1,   64(  0,  7)
C 0000B54E    1211            LTR     1,  1
C 0000B550    473A0D9A        BC      3, 3482( 10,  0)
C 0000B554    58107040        L       1,   64(  0,  7)
C 0000B558    0610            BCTR    1,  0
C 0000B55A    50107040        ST      1,   64(  0,  7)


  2200                             LOAD(D,REG,REAL) %UNLESS REAL=0 %AND 0>REG %AND DP(1)<0          %AND REGISTER(BS(1))<0;       ! RESULT IN LOCKED REG

C 0000B55E    95007070        CLI    112(  7),  0
C 0000B562    477A0DE4        BC      7, 3556( 10,  0)
C 0000B566    58107040        L       1,   64(  0,  7)
C 0000B56A    1211            LTR     1,  1
C 0000B56C    47BA0DE4        BC     11, 3556( 10,  0)
C 0000B570    41100001        LA      1,    1(  0,  0)
C 0000B574    413070A0        LA      3,  160(  0,  7)
C 0000B578    45F0C05C        BAL    15,   92(  0, 12)
C 0000B57C    5811F000        L       1,    0(  1, 15)
C 0000B580    1211            LTR     1,  1
C 0000B582    47BA0DE4        BC     11, 3556( 10,  0)
C 0000B586    41100001        LA      1,    1(  0,  0)
C 0000B58A    41307080        LA      3,  128(  0,  7)
C 0000B58E    45F0C05C        BAL    15,   92(  0, 12)
C 0000B592    5811F000        L       1,    0(  1, 15)
C 0000B596    4130914C        LA      3,  332(  0,  9)
C 0000B59A    45F0C05C        BAL    15,   92(  0, 12)
C 0000B59E    5811F000        L       1,    0(  1, 15)
C 0000B5A2    1211            LTR     1,  1
C 0000B5A4    474A0E04        BC      4, 3588( 10,  0)
C 0000B5A8    4110704C        LA      1,   76(  0,  7)
C 0000B5AC    5010B040        ST      1,   64(  0, 11)
C 0000B5B0    D203B0447040    MVC     68(  4, 11),   64(  7)
C 0000B5B6    1F11            SLR     1,  1
C 0000B5B8    43107070        IC      1,  112(  0,  7)
C 0000B5BC    5010B048        ST      1,   72(  0, 11)
C 0000B5C0    5810D52C        L       1, 1324(  0, 13)
C 0000B5C4    45F0D074        BAL    15,  116(  0, 13)


  2201                             NEST=BS(1)

C 0000B5C8    41100001        LA      1,    1(  0,  0)
C 0000B5CC    41307080        LA      3,  128(  0,  7)
C 0000B5D0    45F0C05C        BAL    15,   92(  0, 12)
C 0000B5D4    5811F000        L       1,    0(  1, 15)
C 0000B5D8    5010912C        ST      1,  300(  0,  9)


  2202                             %IF REAL=1 %THEN FREG(NEST)=0 %ELSE %START

C 0000B5DC    95017070        CLI    112(  7),  1
C 0000B5E0    477A0E36        BC      7, 3638( 10,  0)
C 0000B5E4    1F44            SLR     4,  4
C 0000B5E6    5810912C        L       1,  300(  0,  9)
C 0000B5EA    4130918C        LA      3,  396(  0,  9)
C 0000B5EE    45F0C05C        BAL    15,   92(  0, 12)
C 0000B5F2    5041F000        ST      4,    0(  1, 15)
C 0000B5F6    47FA0000        BC     15,    0( 10,  0)


  2203                             REGISTER(NEST)=0 %IF REGISTER(NEST)>0; %FINISH

C 0000B5FA    5810912C        L       1,  300(  0,  9)
C 0000B5FE    4130914C        LA      3,  332(  0,  9)
C 0000B602    45F0C05C        BAL    15,   92(  0, 12)
C 0000B606    5811F000        L       1,    0(  1, 15)
C 0000B60A    1211            LTR     1,  1
C 0000B60C    47DA0E5E        BC     13, 3678( 10,  0)
C 0000B610    1F44            SLR     4,  4
C 0000B612    5810912C        L       1,  300(  0,  9)
C 0000B616    4130914C        LA      3,  332(  0,  9)
C 0000B61A    45F0C05C        BAL    15,   92(  0, 12)
C 0000B61E    5041F000        ST      4,    0(  1, 15)


  2204                             PTYPE=1+30*LONGREAL+REAL

C 0000B622    4110001E        LA      1,   30(  0,  0)
C 0000B626    1F22            SLR     2,  2
C 0000B628    43207071        IC      2,  113(  0,  7)
C 0000B62C    1C02            MR      0,  2
C 0000B62E    41200001        LA      2,    1(  0,  0)
C 0000B632    1A12            AR      1,  2
C 0000B634    1F22            SLR     2,  2
C 0000B636    43207070        IC      2,  112(  0,  7)
C 0000B63A    1A12            AR      1,  2
C 0000B63C    50108098        ST      1,  152(  0,  8)


  2205                             N0=NOP; UNPACK; ->99

C 0000B640    D203D5347054    MVC   1332(  4, 13),   84(  7)



C 0000B646    5810D448        L       1, 1096(  0, 13)
C 0000B64A    45F0D074        BAL    15,  116(  0, 13)



C 0000B64E    47FA0000        BC     15,    0( 10,  0)


  2206                    70:      %COMMENT EVALUATE AS REAL
  2207                             FAULT(24) %IF MODE=1;         ! REAL IN INTEGER EXPRN

C 0000B652    95017047        CLI     71(  7),  1
C 0000B656    477A0EA2        BC      7, 3746( 10,  0)
C 0000B65A    9218B043        MVI     67( 11), 24
C 0000B65E    5810D228        L       1,  552(  0, 13)
C 0000B662    45F0D074        BAL    15,  116(  0, 13)


  2208                             LONGREAL=1 %IF MODE=3

C 0000B666    95037047        CLI     71(  7),  3
C 0000B66A    477A0EAE        BC      7, 3758( 10,  0)
C 0000B66E    92017071        MVI    113(  7),  1


  2209                             EVALUATE=16*LONGREAL

C 0000B672    41100010        LA      1,   16(  0,  0)
C 0000B676    1F22            SLR     2,  2
C 0000B678    43207071        IC      2,  113(  0,  7)
C 0000B67C    1C02            MR      0,  2
C 0000B67E    50107064        ST      1,  100(  0,  7)


  2210                             PRINT ORDERS

C 0000B682    5810D530        L       1, 1328(  0, 13)
C 0000B686    45F0D074        BAL    15,  116(  0, 13)


  2211                             ->72

C 0000B68A    47F0AD7E        BC     15, 3454(  0, 10)


  2212                    71:      LONGREAL=1 %IF MODE=3

C 0000B68E    95037047        CLI     71(  7),  3
C 0000B692    477A0ED6        BC      7, 3798( 10,  0)
C 0000B696    92017071        MVI    113(  7),  1


  2213                             REAL=1

C 0000B69A    92017070        MVI    112(  7),  1


  2214                             EVALUATE=16*LONGREAL

C 0000B69E    41100010        LA      1,   16(  0,  0)
C 0000B6A2    1F22            SLR     2,  2
C 0000B6A4    43207071        IC      2,  113(  0,  7)
C 0000B6A8    1C02            MR      0,  2
C 0000B6AA    50107064        ST      1,  100(  0,  7)


  2215                             ->72

C 0000B6AE    47F0AD7E        BC     15, 3454(  0, 10)


  2216                    80:      %COMMENT SINGLE OPERAND EXPRESSION
  2217                             BS(1)=NEST; DP(1)=-1

C 0000B6B2    5840912C        L       4,  300(  0,  9)
C 0000B6B6    41100001        LA      1,    1(  0,  0)
C 0000B6BA    41307080        LA      3,  128(  0,  7)
C 0000B6BE    45F0C05C        BAL    15,   92(  0, 12)
C 0000B6C2    5041F000        ST      4,    0(  1, 15)



C 0000B6C6    5840D010        L       4,   16(  0, 13)
C 0000B6CA    41100001        LA      1,    1(  0,  0)
C 0000B6CE    413070A0        LA      3,  160(  0,  7)
C 0000B6D2    45F0C05C        BAL    15,   92(  0, 12)
C 0000B6D6    5041F000        ST      4,    0(  1, 15)


  2218                             PT(1)=PREC<<3!TYPE

C 0000B6DA    1F44            SLR     4,  4
C 0000B6DC    43408093        IC      4,  147(  0,  8)
C 0000B6E0    89400003        SLL     4,    3(  0)
C 0000B6E4    1F11            SLR     1,  1
C 0000B6E6    43108094        IC      1,  148(  0,  8)
C 0000B6EA    1641            OR      4,  1
C 0000B6EC    41100001        LA      1,    1(  0,  0)
C 0000B6F0    41307090        LA      3,  144(  0,  7)
C 0000B6F4    45F0C05C        BAL    15,   92(  0, 12)
C 0000B6F8    5041F000        ST      4,    0(  1, 15)


  2219                             AFLAG=0; P=P+1

C 0000B6FC    920090C8        MVI    200(  9),  0



C 0000B700    41100001        LA      1,    1(  0,  0)
C 0000B704    5A108040        A       1,   64(  0,  8)
C 0000B708    50108040        ST      1,   64(  0,  8)


  2220                             FAULT(24) %IF TYPE=2 %AND MODE=1

C 0000B70C    95028094        CLI    148(  8),  2
C 0000B710    477A0F64        BC      7, 3940( 10,  0)
C 0000B714    95017047        CLI     71(  7),  1
C 0000B718    477A0F64        BC      7, 3940( 10,  0)
C 0000B71C    9218B043        MVI     67( 11), 24
C 0000B720    5810D228        L       1,  552(  0, 13)
C 0000B724    45F0D074        BAL    15,  116(  0, 13)


  2221                             ->61 %IF TYPE=1; ->71

C 0000B728    95018094        CLI    148(  8),  1
C 0000B72C    4780AD76        BC      8, 3446(  0, 10)



C 0000B730    47F0AECA        BC     15, 3786(  0, 10)


  2222                    99:      %END;->99
D 00000880    C2 C2 C2 C2 08 17 07 00 00 00 08 05 FF FF FF FF


C 0000B734    98AB70D0        LM     10, 11,  208(  7)
C 0000B738    D203D01470D8    MVC     20(  4, 13),  216(  7)



C 0000B73E    0000
C 0000B740    0000
C 0000B742    47FA0000        BC     15,    0( 10,  0)


  2223                         %INTEGERFN FINDR

C 0000B746    0000
C 0000B748    0000
C 0000B74A    47FA0000        BC     15,    0( 10,  0)
C 0000B74E    50F0B03C        ST     15,   60(  0, 11)
C 0000B752    D203B000D014    MVC      0(  4, 11),   20( 13)
C 0000B758    410008AF        LA      0, 2223(  0,  0)
C 0000B75C    4000D014        STH     0,   20(  0, 13)
C 0000B760    186B            LR      6, 11
C 0000B762    41BB0000        LA     11,    0( 11,  0)
C 0000B766    41000004        LA      0,    4(  0,  0)
C 0000B76A    59BD0044        C      11,   68( 13,  0)
C 0000B76E    4720C054        BC      2,   84(  0, 12)
C 0000B772    05A0            BALR   10,  0


  2224                             %SHORTROUTINE
  2225                             %INTEGER I
  2226                             ->2 %IF 0>=REG

C 0000B774    58107040        L       1,   64(  0,  7)
C 0000B778    1211            LTR     1,  1
C 0000B77A    47CA0000        BC     12,    0( 10,  0)


  2227                             I=REG; ->1 %IF REGISTER(I)=0

C 0000B77E    D20360407040    MVC     64(  4,  6),   64(  7)



C 0000B784    58106040        L       1,   64(  0,  6)
C 0000B788    4130914C        LA      3,  332(  0,  9)
C 0000B78C    45F0C05C        BAL    15,   92(  0, 12)
C 0000B790    5811F000        L       1,    0(  1, 15)
C 0000B794    1211            LTR     1,  1
C 0000B796    478A0000        BC      8,    0( 10,  0)


  2228                    2:       %CYCLE I=1,1,RBASE-1

C 0000B79A    41406040        LA      4,   64(  0,  6)
C 0000B79E    41200001        LA      2,    1(  0,  0)
C 0000B7A2    50206044        ST      2,   68(  0,  6)
C 0000B7A6    583090F4        L       3,  244(  0,  9)
C 0000B7AA    0630            BCTR    3,  0
C 0000B7AC    90346048        STM     3,  4,   72(  6)
C 0000B7B0    41100001        LA      1,    1(  0,  0)
C 0000B7B4    50104000        ST      1,    0(  0,  4)


  2229                             ->1 %IF REGISTER(I)=0

C 0000B7B8    58106040        L       1,   64(  0,  6)
C 0000B7BC    4130914C        LA      3,  332(  0,  9)
C 0000B7C0    45F0C05C        BAL    15,   92(  0, 12)
C 0000B7C4    5811F000        L       1,    0(  1, 15)
C 0000B7C8    1211            LTR     1,  1
C 0000B7CA    478A0000        BC      8,    0( 10,  0)


  2230                             %REPEAT; FAULT(241)

C 0000B7CE    98246044        LM      2,  4,   68(  6)
C 0000B7D2    58104000        L       1,    0(  0,  4)
C 0000B7D6    8712A040        BXLE    1,  2,   64( 10)



C 0000B7DA    92F1B043        MVI     67( 11), 241
C 0000B7DE    5810D228        L       1,  552(  0, 13)
C 0000B7E2    45F0D074        BAL    15,  116(  0, 13)


  2231                    1:       REGISTER(I)=1; %RESULT=I; %END

C 0000B7E6    41400001        LA      4,    1(  0,  0)
C 0000B7EA    58106040        L       1,   64(  0,  6)
C 0000B7EE    4130914C        LA      3,  332(  0,  9)
C 0000B7F2    45F0C05C        BAL    15,   92(  0, 12)
C 0000B7F6    5041F000        ST      4,    0(  1, 15)



C 0000B7FA    58106040        L       1,   64(  0,  6)
C 0000B7FE    D203D0146000    MVC     20(  4, 13),    0(  6)
C 0000B804    984F6010        LM      4, 15,   16(  6)
C 0000B808    07FF            BCR    15, 15


D 00000890    C2 C2 C2 C2 08 AF 06 05 46 49 4E 44 52 FF FF FF 01 60 40 01 49 00 00 00 FF FF FF FF


C 0000B80A    4100000B        LA      0,   11(  0,  0)
C 0000B80E    45F0C054        BAL    15,   84(  0, 12)


  2232                         %INTEGERFN FINDPR

C 0000B812    0000
C 0000B814    0000
C 0000B816    47FA0000        BC     15,    0( 10,  0)
C 0000B81A    50F0B03C        ST     15,   60(  0, 11)
C 0000B81E    D203B000D014    MVC      0(  4, 11),   20( 13)
C 0000B824    410008B8        LA      0, 2232(  0,  0)
C 0000B828    4000D014        STH     0,   20(  0, 13)
C 0000B82C    186B            LR      6, 11
C 0000B82E    41BB0000        LA     11,    0( 11,  0)
C 0000B832    41000004        LA      0,    4(  0,  0)
C 0000B836    59BD0044        C      11,   68( 13,  0)
C 0000B83A    4720C054        BC      2,   84(  0, 12)
C 0000B83E    05A0            BALR   10,  0


  2233                             %INTEGER I
  2234                             %CYCLE I=0,2,6

C 0000B840    41406040        LA      4,   64(  0,  6)
C 0000B844    41200002        LA      2,    2(  0,  0)
C 0000B848    41300006        LA      3,    6(  0,  0)
C 0000B84C    90246044        STM     2,  4,   68(  6)
C 0000B850    1F11            SLR     1,  1
C 0000B852    50104000        ST      1,    0(  0,  4)


  2235                             ->FOUND %IF REGISTER(I)=0 %AND REGISTER(I+1)=0

C 0000B856    58106040        L       1,   64(  0,  6)
C 0000B85A    4130914C        LA      3,  332(  0,  9)
C 0000B85E    45F0C05C        BAL    15,   92(  0, 12)
C 0000B862    5811F000        L       1,    0(  1, 15)
C 0000B866    1211            LTR     1,  1
C 0000B868    477A004A        BC      7,   74( 10,  0)
C 0000B86C    41100001        LA      1,    1(  0,  0)
C 0000B870    5A106040        A       1,   64(  0,  6)
C 0000B874    4130914C        LA      3,  332(  0,  9)
C 0000B878    45F0C05C        BAL    15,   92(  0, 12)
C 0000B87C    5811F000        L       1,    0(  1, 15)
C 0000B880    1211            LTR     1,  1
C 0000B882    0000
C 0000B884    0000
C 0000B886    478A0000        BC      8,    0( 10,  0)


  2236                             %REPEAT

C 0000B88A    98246044        LM      2,  4,   68(  6)
C 0000B88E    58104000        L       1,    0(  0,  4)
C 0000B892    8712A012        BXLE    1,  2,   18( 10)


  2237                             FAULT(242)

C 0000B896    92F2B043        MVI     67( 11), 242
C 0000B89A    5810D228        L       1,  552(  0, 13)
C 0000B89E    45F0D074        BAL    15,  116(  0, 13)


  2238                    FOUND:   REGISTER(I)=1

C 0000B8A2    41400001        LA      4,    1(  0,  0)
C 0000B8A6    58106040        L       1,   64(  0,  6)
C 0000B8AA    4130914C        LA      3,  332(  0,  9)
C 0000B8AE    45F0C05C        BAL    15,   92(  0, 12)
C 0000B8B2    5041F000        ST      4,    0(  1, 15)


  2239                             REGISTER(I+1)=1

C 0000B8B6    41400001        LA      4,    1(  0,  0)
C 0000B8BA    41100001        LA      1,    1(  0,  0)
C 0000B8BE    5A106040        A       1,   64(  0,  6)
C 0000B8C2    4130914C        LA      3,  332(  0,  9)
C 0000B8C6    45F0C05C        BAL    15,   92(  0, 12)
C 0000B8CA    5041F000        ST      4,    0(  1, 15)


  2240                             %RESULT=I

C 0000B8CE    58106040        L       1,   64(  0,  6)
C 0000B8D2    D203D0146000    MVC     20(  4, 13),    0(  6)
C 0000B8D8    984F6010        LM      4, 15,   16(  6)
C 0000B8DC    07FF            BCR    15, 15


  2241                             %END
D 000008AC    C2 C2 C2 C2 08 B8 06 06 46 49 4E 44 50 52 FF FF 01 60 40 01 49 FE A6 C0 FF FF FF FF


C 0000B8DE    4100000B        LA      0,   11(  0,  0)
C 0000B8E2    45F0C054        BAL    15,   84(  0, 12)


  2242                         %INTEGERFN FIND FR

C 0000B8E6    0000
C 0000B8E8    0000
C 0000B8EA    47FA0000        BC     15,    0( 10,  0)
C 0000B8EE    50F0B03C        ST     15,   60(  0, 11)
C 0000B8F2    D203B000D014    MVC      0(  4, 11),   20( 13)
C 0000B8F8    410008C2        LA      0, 2242(  0,  0)
C 0000B8FC    4000D014        STH     0,   20(  0, 13)
C 0000B900    186B            LR      6, 11
C 0000B902    41BB0000        LA     11,    0( 11,  0)
C 0000B906    41000004        LA      0,    4(  0,  0)
C 0000B90A    59BD0044        C      11,   68( 13,  0)
C 0000B90E    4720C054        BC      2,   84(  0, 12)
C 0000B912    05A0            BALR   10,  0


  2243                             %SHORTROUTINE
  2244                             %INTEGER I
  2245                             %CYCLE I=6,-2,0

C 0000B914    41406040        LA      4,   64(  0,  6)
C 0000B918    41200002        LA      2,    2(  0,  0)
C 0000B91C    1322            LCR     2,  2
C 0000B91E    1F33            SLR     3,  3
C 0000B920    90246044        STM     2,  4,   68(  6)
C 0000B924    41100006        LA      1,    6(  0,  0)
C 0000B928    50104000        ST      1,    0(  0,  4)


  2246                             ->1 %IF FREG (I)=0

C 0000B92C    58106040        L       1,   64(  0,  6)
C 0000B930    4130918C        LA      3,  396(  0,  9)
C 0000B934    45F0C05C        BAL    15,   92(  0, 12)
C 0000B938    5811F000        L       1,    0(  1, 15)
C 0000B93C    1211            LTR     1,  1
C 0000B93E    478A0000        BC      8,    0( 10,  0)


  2247                             %REPEAT; FAULT(242)

C 0000B942    98246044        LM      2,  4,   68(  6)
C 0000B946    58104000        L       1,    0(  0,  4)
C 0000B94A    1A12            AR      1,  2
C 0000B94C    59304000        C       3,    0(  0,  4)
C 0000B950    4770A014        BC      7,   20(  0, 10)



C 0000B954    92F2B043        MVI     67( 11), 242
C 0000B958    5810D228        L       1,  552(  0, 13)
C 0000B95C    45F0D074        BAL    15,  116(  0, 13)


  2248                    1:       FREG(I)=1; %RESULT=I

C 0000B960    41400001        LA      4,    1(  0,  0)
C 0000B964    58106040        L       1,   64(  0,  6)
C 0000B968    4130918C        LA      3,  396(  0,  9)
C 0000B96C    45F0C05C        BAL    15,   92(  0, 12)
C 0000B970    5041F000        ST      4,    0(  1, 15)



C 0000B974    58106040        L       1,   64(  0,  6)
C 0000B978    D203D0146000    MVC     20(  4, 13),    0(  6)
C 0000B97E    984F6010        LM      4, 15,   16(  6)
C 0000B982    07FF            BCR    15, 15


  2249                             %END
D 000008C8    C2 C2 C2 C2 08 C2 06 06 46 49 4E 44 46 52 00 01 01 60 40 01 49 FE A7 18 FF FF FF FF


C 0000B984    4100000B        LA      0,   11(  0,  0)
C 0000B988    45F0C054        BAL    15,   84(  0, 12)


  2250                         %ROUTINE     LOAD(%INTEGERNAME N,%INTEGER REG,MODE)

C 0000B98C    0000
C 0000B98E    0000
C 0000B990    47FA0000        BC     15,    0( 10,  0)
C 0000B994    50F0B03C        ST     15,   60(  0, 11)
C 0000B998    D203B000D014    MVC      0(  4, 11),   20( 13)
C 0000B99E    410008CA        LA      0, 2250(  0,  0)
C 0000B9A2    4000D014        STH     0,   20(  0, 13)
C 0000B9A6    186B            LR      6, 11
C 0000B9A8    41BB0000        LA     11,    0( 11,  0)
C 0000B9AC    41000004        LA      0,    4(  0,  0)
C 0000B9B0    59BD0044        C      11,   68( 13,  0)
C 0000B9B4    4720C054        BC      2,   84(  0, 12)
C 0000B9B8    05A0            BALR   10,  0


  2251                             %SHORTROUTINE
  2252                             %INTEGER I,X
  2253                             %INTEGERNAME BSI,DPI,PTI
  2254                             I=N; ->NOCHOICE %UNLESS I=0

C 0000B9BA    58F06040        L      15,   64(  0,  6)
C 0000B9BE    5810F000        L       1,    0(  0, 15)
C 0000B9C2    5010604C        ST      1,   76(  0,  6)



C 0000B9C6    5810604C        L       1,   76(  0,  6)
C 0000B9CA    1211            LTR     1,  1
C 0000B9CC    477A0000        BC      7,    0( 10,  0)


  2255                             I=1; ->CHOSEN %IF DP(1)<0 %AND REGISTER(BS(1))>=0

C 0000B9D0    41100001        LA      1,    1(  0,  0)
C 0000B9D4    5010604C        ST      1,   76(  0,  6)



C 0000B9D8    41100001        LA      1,    1(  0,  0)
C 0000B9DC    413070A0        LA      3,  160(  0,  7)
C 0000B9E0    45F0C05C        BAL    15,   92(  0, 12)
C 0000B9E4    5811F000        L       1,    0(  1, 15)
C 0000B9E8    1211            LTR     1,  1
C 0000B9EA    47BA0056        BC     11,   86( 10,  0)
C 0000B9EE    41100001        LA      1,    1(  0,  0)
C 0000B9F2    41307080        LA      3,  128(  0,  7)
C 0000B9F6    45F0C05C        BAL    15,   92(  0, 12)
C 0000B9FA    5811F000        L       1,    0(  1, 15)
C 0000B9FE    4130914C        LA      3,  332(  0,  9)
C 0000BA02    45F0C05C        BAL    15,   92(  0, 12)
C 0000BA06    5811F000        L       1,    0(  1, 15)
C 0000BA0A    1211            LTR     1,  1
C 0000BA0C    47AA0000        BC     10,    0( 10,  0)


  2256                             I=2; ->CHOSEN %IF DP(2)<0 %AND REGISTER(BS(2))>=0

C 0000BA10    41100002        LA      1,    2(  0,  0)
C 0000BA14    5010604C        ST      1,   76(  0,  6)



C 0000BA18    41100002        LA      1,    2(  0,  0)
C 0000BA1C    413070A0        LA      3,  160(  0,  7)
C 0000BA20    45F0C05C        BAL    15,   92(  0, 12)
C 0000BA24    5811F000        L       1,    0(  1, 15)
C 0000BA28    1211            LTR     1,  1
C 0000BA2A    47BA0096        BC     11,  150( 10,  0)
C 0000BA2E    41100002        LA      1,    2(  0,  0)
C 0000BA32    41307080        LA      3,  128(  0,  7)
C 0000BA36    45F0C05C        BAL    15,   92(  0, 12)
C 0000BA3A    5811F000        L       1,    0(  1, 15)
C 0000BA3E    4130914C        LA      3,  332(  0,  9)
C 0000BA42    45F0C05C        BAL    15,   92(  0, 12)
C 0000BA46    5811F000        L       1,    0(  1, 15)
C 0000BA4A    1211            LTR     1,  1
C 0000BA4C    47AA0000        BC     10,    0( 10,  0)


  2257                             ->CHOSEN %IF MODE=0 %AND (PT(2)=255 %OR PT(2)&24=8)

C 0000BA50    58106048        L       1,   72(  0,  6)
C 0000BA54    1211            LTR     1,  1
C 0000BA56    477A00DA        BC      7,  218( 10,  0)
C 0000BA5A    41100002        LA      1,    2(  0,  0)
C 0000BA5E    41307090        LA      3,  144(  0,  7)
C 0000BA62    45F0C05C        BAL    15,   92(  0, 12)
C 0000BA66    5811F000        L       1,    0(  1, 15)
C 0000BA6A    412000FF        LA      2,  255(  0,  0)
C 0000BA6E    1912            CR      1,  2
C 0000BA70    478A0000        BC      8,    0( 10,  0)
C 0000BA74    41100002        LA      1,    2(  0,  0)
C 0000BA78    41307090        LA      3,  144(  0,  7)
C 0000BA7C    45F0C05C        BAL    15,   92(  0, 12)
C 0000BA80    5851F000        L       5,    0(  1, 15)
C 0000BA84    41100018        LA      1,   24(  0,  0)
C 0000BA88    1451            NR      5,  1
C 0000BA8A    41100008        LA      1,    8(  0,  0)
C 0000BA8E    1951            CR      5,  1
C 0000BA90    478A0000        BC      8,    0( 10,  0)


  2258                             ->CHOSEN %IF MODE=1 %AND (PT(2)&7=1 %OR (EVALUATE>0 %AND           PT(2)&24=0)); I=1

C 0000BA94    41100001        LA      1,    1(  0,  0)
C 0000BA98    59106048        C       1,   72(  0,  6)
C 0000BA9C    477A012A        BC      7,  298( 10,  0)
C 0000BAA0    41100002        LA      1,    2(  0,  0)
C 0000BAA4    41307090        LA      3,  144(  0,  7)
C 0000BAA8    45F0C05C        BAL    15,   92(  0, 12)
C 0000BAAC    5851F000        L       5,    0(  1, 15)
C 0000BAB0    41100007        LA      1,    7(  0,  0)
C 0000BAB4    1451            NR      5,  1
C 0000BAB6    41100001        LA      1,    1(  0,  0)
C 0000BABA    1951            CR      5,  1
C 0000BABC    478A0000        BC      8,    0( 10,  0)
C 0000BAC0    58107064        L       1,  100(  0,  7)
C 0000BAC4    1211            LTR     1,  1
C 0000BAC6    47DA012A        BC     13,  298( 10,  0)
C 0000BACA    41100002        LA      1,    2(  0,  0)
C 0000BACE    41307090        LA      3,  144(  0,  7)
C 0000BAD2    45F0C05C        BAL    15,   92(  0, 12)
C 0000BAD6    5851F000        L       5,    0(  1, 15)
C 0000BADA    41100018        LA      1,   24(  0,  0)
C 0000BADE    1451            NR      5,  1
C 0000BAE0    478A0000        BC      8,    0( 10,  0)



C 0000BAE4    41100001        LA      1,    1(  0,  0)
C 0000BAE8    5010604C        ST      1,   76(  0,  6)


  2259                    CHOSEN:  N=I

C 0000BAEC    5810604C        L       1,   76(  0,  6)
C 0000BAF0    58F06040        L      15,   64(  0,  6)
C 0000BAF4    5010F000        ST      1,    0(  0, 15)


  2260                    NOCHOICE:BSI==BS(I);DPI==DP(I);PTI==PT(I)

C 0000BAF8    5810604C        L       1,   76(  0,  6)
C 0000BAFC    41307080        LA      3,  128(  0,  7)
C 0000BB00    45F0C05C        BAL    15,   92(  0, 12)
C 0000BB04    4141F000        LA      4,    0(  1, 15)
C 0000BB08    50406054        ST      4,   84(  0,  6)



C 0000BB0C    5810604C        L       1,   76(  0,  6)
C 0000BB10    413070A0        LA      3,  160(  0,  7)
C 0000BB14    45F0C05C        BAL    15,   92(  0, 12)
C 0000BB18    4141F000        LA      4,    0(  1, 15)
C 0000BB1C    50406058        ST      4,   88(  0,  6)



C 0000BB20    5810604C        L       1,   76(  0,  6)
C 0000BB24    41307090        LA      3,  144(  0,  7)
C 0000BB28    45F0C05C        BAL    15,   92(  0, 12)
C 0000BB2C    4141F000        LA      4,    0(  1, 15)
C 0000BB30    5040605C        ST      4,   92(  0,  6)


  2261                             ->SHORT CONST %IF MODE=0 %AND PTI=255

C 0000BB34    58106048        L       1,   72(  0,  6)
C 0000BB38    1211            LTR     1,  1
C 0000BB3A    477A0196        BC      7,  406( 10,  0)
C 0000BB3E    58F0605C        L      15,   92(  0,  6)
C 0000BB42    5810F000        L       1,    0(  0, 15)
C 0000BB46    412000FF        LA      2,  255(  0,  0)
C 0000BB4A    1912            CR      1,  2
C 0000BB4C    478A0000        BC      8,    0( 10,  0)


  2262                             TEST(I) %IF MODE=1 %OR PTI&64#0

C 0000BB50    41100001        LA      1,    1(  0,  0)
C 0000BB54    59106048        C       1,   72(  0,  6)
C 0000BB58    478A01B2        BC      8,  434( 10,  0)
C 0000BB5C    41100040        LA      1,   64(  0,  0)
C 0000BB60    58F0605C        L      15,   92(  0,  6)
C 0000BB64    5410F000        N       1,    0(  0, 15)
C 0000BB68    478A01C0        BC      8,  448( 10,  0)
C 0000BB6C    D203B040604C    MVC     64(  4, 11),   76(  6)
C 0000BB72    5810D520        L       1, 1312(  0, 13)
C 0000BB76    45F0D074        BAL    15,  116(  0, 13)


  2263                             ->INREG %IF DPI<0

C 0000BB7A    58F06058        L      15,   88(  0,  6)
C 0000BB7E    5810F000        L       1,    0(  0, 15)
C 0000BB82    1211            LTR     1,  1
C 0000BB84    474A0000        BC      4,    0( 10,  0)


  2264                             ->NOFIND %IF REG>=0

C 0000BB88    58106044        L       1,   68(  0,  6)
C 0000BB8C    1211            LTR     1,  1
C 0000BB8E    47AA0000        BC     10,    0( 10,  0)


  2265                             %IF MODE=0 %THEN REG=FINDR %ELSE REG=FINDFR

C 0000BB92    58106048        L       1,   72(  0,  6)
C 0000BB96    1211            LTR     1,  1
C 0000BB98    477A01F2        BC      7,  498( 10,  0)
C 0000BB9C    5810D528        L       1, 1320(  0, 13)
C 0000BBA0    45F0D074        BAL    15,  116(  0, 13)
C 0000BBA4    50106044        ST      1,   68(  0,  6)
C 0000BBA8    47FA01FE        BC     15,  510( 10,  0)
C 0000BBAC    5810D540        L       1, 1344(  0, 13)
C 0000BBB0    45F0D074        BAL    15,  116(  0, 13)
C 0000BBB4    50106044        ST      1,   68(  0,  6)


  2266                    NOFIND:  X=MODE<<3! (PTI>>2&6)+2

C 0000BBB8    58F0605C        L      15,   92(  0,  6)
C 0000BBBC    5810F000        L       1,    0(  0, 15)
C 0000BBC0    88100002        SRL     1,    2(  0)
C 0000BBC4    41200006        LA      2,    6(  0,  0)
C 0000BBC8    1412            NR      1,  2
C 0000BBCA    1851            LR      5,  1
C 0000BBCC    58106048        L       1,   72(  0,  6)
C 0000BBD0    89100003        SLL     1,    3(  0)
C 0000BBD4    1615            OR      1,  5
C 0000BBD6    41200002        LA      2,    2(  0,  0)
C 0000BBDA    1A12            AR      1,  2
C 0000BBDC    50106050        ST      1,   80(  0,  6)


  2267                             DUMP(X,REG,DPI,0,BSI) ; ->98 ;! PICK UP VARIABLE

C 0000BBE0    D203B0406050    MVC     64(  4, 11),   80(  6)
C 0000BBE6    D203B0446044    MVC     68(  4, 11),   68(  6)
C 0000BBEC    58F06058        L      15,   88(  0,  6)
C 0000BBF0    5810F000        L       1,    0(  0, 15)
C 0000BBF4    5010B048        ST      1,   72(  0, 11)
C 0000BBF8    1F11            SLR     1,  1
C 0000BBFA    5010B04C        ST      1,   76(  0, 11)
C 0000BBFE    58F06054        L      15,   84(  0,  6)
C 0000BC02    5810F000        L       1,    0(  0, 15)
C 0000BC06    5010B050        ST      1,   80(  0, 11)
C 0000BC0A    5810D458        L       1, 1112(  0, 13)
C 0000BC0E    45F0D074        BAL    15,  116(  0, 13)



C 0000BC12    47FA0000        BC     15,    0( 10,  0)


  2268                    INREG:   ->90 %IF MODE=1

C 0000BC16    41100001        LA      1,    1(  0,  0)
C 0000BC1A    59106048        C       1,   72(  0,  6)
C 0000BC1E    478A0000        BC      8,    0( 10,  0)


  2269                             ->99 %IF BSI=REG

C 0000BC22    58F06054        L      15,   84(  0,  6)
C 0000BC26    5810F000        L       1,    0(  0, 15)
C 0000BC2A    59106044        C       1,   68(  0,  6)
C 0000BC2E    478A0000        BC      8,    0( 10,  0)


  2270                             ->LOCKED %IF REGISTER(BSI)<0

C 0000BC32    58F06054        L      15,   84(  0,  6)
C 0000BC36    5810F000        L       1,    0(  0, 15)
C 0000BC3A    4130914C        LA      3,  332(  0,  9)
C 0000BC3E    45F0C05C        BAL    15,   92(  0, 12)
C 0000BC42    5811F000        L       1,    0(  1, 15)
C 0000BC46    1211            LTR     1,  1
C 0000BC48    474A0000        BC      4,    0( 10,  0)


  2271                             ->99 %IF 0>REG

C 0000BC4C    58106044        L       1,   68(  0,  6)
C 0000BC50    1211            LTR     1,  1
C 0000BC52    474A0000        BC      4,    0( 10,  0)


  2272                             REGISTER(BSI)=0

C 0000BC56    1F44            SLR     4,  4
C 0000BC58    58F06054        L      15,   84(  0,  6)
C 0000BC5C    5810F000        L       1,    0(  0, 15)
C 0000BC60    4130914C        LA      3,  332(  0,  9)
C 0000BC64    45F0C05C        BAL    15,   92(  0, 12)
C 0000BC68    5041F000        ST      4,    0(  1, 15)


  2273                    SWOP:    PRR(X'18',REG,BSI); ->98

C 0000BC6C    41100018        LA      1,   24(  0,  0)
C 0000BC70    5010B040        ST      1,   64(  0, 11)
C 0000BC74    D203B0446044    MVC     68(  4, 11),   68(  6)
C 0000BC7A    58F06054        L      15,   84(  0,  6)
C 0000BC7E    5810F000        L       1,    0(  0, 15)
C 0000BC82    5010B048        ST      1,   72(  0, 11)
C 0000BC86    5810D1D0        L       1,  464(  0, 13)
C 0000BC8A    45F0D074        BAL    15,  116(  0, 13)



C 0000BC8E    47FA0000        BC     15,    0( 10,  0)


  2274                    LOCKED:  REG=FINDR %IF 0>REG; ->SWOP

C 0000BC92    58106044        L       1,   68(  0,  6)
C 0000BC96    1211            LTR     1,  1
C 0000BC98    47BA02EE        BC     11,  750( 10,  0)
C 0000BC9C    5810D528        L       1, 1320(  0, 13)
C 0000BCA0    45F0D074        BAL    15,  116(  0, 13)
C 0000BCA4    50106044        ST      1,   68(  0,  6)



C 0000BCA8    47F0A2B2        BC     15,  690(  0, 10)


  2275                    90:      ->91 %IF BSI=0;             !CURRENTLY CAN LEAVE NOTHING INFR0

C 0000BCAC    58F06054        L      15,   84(  0,  6)
C 0000BCB0    5810F000        L       1,    0(  0, 15)
C 0000BCB4    1211            LTR     1,  1
C 0000BCB6    478A0000        BC      8,    0( 10,  0)


  2276                             ->99 %IF BSI=REG %OR 0>REG

C 0000BCBA    58F06054        L      15,   84(  0,  6)
C 0000BCBE    5810F000        L       1,    0(  0, 15)
C 0000BCC2    59106044        C       1,   68(  0,  6)
C 0000BCC6    478A0000        BC      8,    0( 10,  0)
C 0000BCCA    58106044        L       1,   68(  0,  6)
C 0000BCCE    1211            LTR     1,  1
C 0000BCD0    474A0000        BC      4,    0( 10,  0)


  2277                    91:
  2278                             REG=FINDFR %IF 0>REG

C 0000BCD4    58106044        L       1,   68(  0,  6)
C 0000BCD8    1211            LTR     1,  1
C 0000BCDA    47BA0330        BC     11,  816( 10,  0)
C 0000BCDE    5810D540        L       1, 1344(  0, 13)
C 0000BCE2    45F0D074        BAL    15,  116(  0, 13)
C 0000BCE6    50106044        ST      1,   68(  0,  6)


  2279                             PRR(X'38'-EVALUATE,REG,BSI)

C 0000BCEA    41100038        LA      1,   56(  0,  0)
C 0000BCEE    5B107064        S       1,  100(  0,  7)
C 0000BCF2    5010B040        ST      1,   64(  0, 11)
C 0000BCF6    D203B0446044    MVC     68(  4, 11),   68(  6)
C 0000BCFC    58F06054        L      15,   84(  0,  6)
C 0000BD00    5810F000        L       1,    0(  0, 15)
C 0000BD04    5010B048        ST      1,   72(  0, 11)
C 0000BD08    5810D1D0        L       1,  464(  0, 13)
C 0000BD0C    45F0D074        BAL    15,  116(  0, 13)


  2280                             FREG(BSI)=0; ->98

C 0000BD10    1F44            SLR     4,  4
C 0000BD12    58F06054        L      15,   84(  0,  6)
C 0000BD16    5810F000        L       1,    0(  0, 15)
C 0000BD1A    4130918C        LA      3,  396(  0,  9)
C 0000BD1E    45F0C05C        BAL    15,   92(  0, 12)
C 0000BD22    5041F000        ST      4,    0(  1, 15)



C 0000BD26    47FA0000        BC     15,    0( 10,  0)


  2281                    SHORT CONST:   REG=FINDR %IF 0>REG

C 0000BD2A    58106044        L       1,   68(  0,  6)
C 0000BD2E    1211            LTR     1,  1
C 0000BD30    47BA0386        BC     11,  902( 10,  0)
C 0000BD34    5810D528        L       1, 1320(  0, 13)
C 0000BD38    45F0D074        BAL    15,  116(  0, 13)
C 0000BD3C    50106044        ST      1,   68(  0,  6)


  2282                                 DUMP(0,REG,DPI,0,0);      !LOAD ADDRESS

C 0000BD40    1F11            SLR     1,  1
C 0000BD42    5010B040        ST      1,   64(  0, 11)
C 0000BD46    D203B0446044    MVC     68(  4, 11),   68(  6)
C 0000BD4C    58F06058        L      15,   88(  0,  6)
C 0000BD50    5810F000        L       1,    0(  0, 15)
C 0000BD54    5010B048        ST      1,   72(  0, 11)
C 0000BD58    1F11            SLR     1,  1
C 0000BD5A    5010B04C        ST      1,   76(  0, 11)
C 0000BD5E    1F11            SLR     1,  1
C 0000BD60    5010B050        ST      1,   80(  0, 11)
C 0000BD64    5810D458        L       1, 1112(  0, 13)
C 0000BD68    45F0D074        BAL    15,  116(  0, 13)


  2283                    98:      BSI=REG; DPI=-2

C 0000BD6C    58106044        L       1,   68(  0,  6)
C 0000BD70    58F06054        L      15,   84(  0,  6)
C 0000BD74    5010F000        ST      1,    0(  0, 15)



C 0000BD78    41100002        LA      1,    2(  0,  0)
C 0000BD7C    1311            LCR     1,  1
C 0000BD7E    58F06058        L      15,   88(  0,  6)
C 0000BD82    5010F000        ST      1,    0(  0, 15)


  2284                    99:      %END
D 000008E4    C2 C2 C2 C2 08 CA 06 04 4C 4F 41 44 41 60 5C 03 50 54 49 05 41 60 58 03 44 50 49 A8 41 60 54 03 42 53 49 C0 01 60 50 01 58 FE A5 D4 01 60 4C 01 49 FE A5 DC 01 60 48 04 4D 4F 44 45 01 60 44 03 52 45 47 02 41 60 40 01 4E 00 00 00 FF FF FF FF


C 0000BD86    D203D0146000    MVC     20(  4, 13),    0(  6)
C 0000BD8C    984F6010        LM      4, 15,   16(  6)
C 0000BD90    07FF            BCR    15, 15


  2285                         %ROUTINE PLANT(%INTEGER OPCODE,R1,R2)

C 0000BD92    0000
C 0000BD94    0000
C 0000BD96    47FA0000        BC     15,    0( 10,  0)
C 0000BD9A    50F0B03C        ST     15,   60(  0, 11)
C 0000BD9E    D203B000D014    MVC      0(  4, 11),   20( 13)
C 0000BDA4    410008ED        LA      0, 2285(  0,  0)
C 0000BDA8    4000D014        STH     0,   20(  0, 13)
C 0000BDAC    186B            LR      6, 11
C 0000BDAE    41BB0000        LA     11,    0( 11,  0)
C 0000BDB2    41000004        LA      0,    4(  0,  0)
C 0000BDB6    59BD0044        C      11,   68( 13,  0)
C 0000BDBA    4720C054        BC      2,   84(  0, 12)
C 0000BDBE    05A0            BALR   10,  0


  2286                             %SHORTROUTINE
  2287                             %INTEGER BSR2
  2288                             BSR2=BS(R2);R1=BS(R1)

C 0000BDC0    58106048        L       1,   72(  0,  6)
C 0000BDC4    41307080        LA      3,  128(  0,  7)
C 0000BDC8    45F0C05C        BAL    15,   92(  0, 12)
C 0000BDCC    5811F000        L       1,    0(  1, 15)
C 0000BDD0    5010604C        ST      1,   76(  0,  6)



C 0000BDD4    58106044        L       1,   68(  0,  6)
C 0000BDD8    41307080        LA      3,  128(  0,  7)
C 0000BDDC    45F0C05C        BAL    15,   92(  0, 12)
C 0000BDE0    5811F000        L       1,    0(  1, 15)
C 0000BDE4    50106044        ST      1,   68(  0,  6)


  2289                             ->RROP %IF DP(R2)<0

C 0000BDE8    58106048        L       1,   72(  0,  6)
C 0000BDEC    413070A0        LA      3,  160(  0,  7)
C 0000BDF0    45F0C05C        BAL    15,   92(  0, 12)
C 0000BDF4    5811F000        L       1,    0(  1, 15)
C 0000BDF8    1211            LTR     1,  1
C 0000BDFA    474A0000        BC      4,    0( 10,  0)


  2290                             %IF PT(R2)&24=16 %AND X'5A'<=OPCODE<=X'5B' %THEN            OPCODE=OPCODE-16;             ! CAN PLANT HALF LENGTH OP

C 0000BDFE    58106048        L       1,   72(  0,  6)
C 0000BE02    41307090        LA      3,  144(  0,  7)
C 0000BE06    45F0C05C        BAL    15,   92(  0, 12)
C 0000BE0A    5851F000        L       5,    0(  1, 15)
C 0000BE0E    41100018        LA      1,   24(  0,  0)
C 0000BE12    1451            NR      5,  1
C 0000BE14    41100010        LA      1,   16(  0,  0)
C 0000BE18    1951            CR      5,  1
C 0000BE1A    477A0084        BC      7,  132( 10,  0)
C 0000BE1E    58106040        L       1,   64(  0,  6)
C 0000BE22    4120005A        LA      2,   90(  0,  0)
C 0000BE26    1921            CR      2,  1
C 0000BE28    473A0084        BC      3,  132( 10,  0)
C 0000BE2C    4120005B        LA      2,   91(  0,  0)
C 0000BE30    1912            CR      1,  2
C 0000BE32    473A0084        BC      3,  132( 10,  0)
C 0000BE36    58106040        L       1,   64(  0,  6)
C 0000BE3A    41200010        LA      2,   16(  0,  0)
C 0000BE3E    1B12            SR      1,  2
C 0000BE40    50106040        ST      1,   64(  0,  6)


  2291                             PRX(OPCODE,R1,0,BSR2,DP(R2));->99

C 0000BE44    D203B0406040    MVC     64(  4, 11),   64(  6)
C 0000BE4A    D203B0446044    MVC     68(  4, 11),   68(  6)
C 0000BE50    1F11            SLR     1,  1
C 0000BE52    5010B048        ST      1,   72(  0, 11)
C 0000BE56    D203B04C604C    MVC     76(  4, 11),   76(  6)
C 0000BE5C    58106048        L       1,   72(  0,  6)
C 0000BE60    413070A0        LA      3,  160(  0,  7)
C 0000BE64    45F0C05C        BAL    15,   92(  0, 12)
C 0000BE68    5811F000        L       1,    0(  1, 15)
C 0000BE6C    5010B050        ST      1,   80(  0, 11)
C 0000BE70    5810D1C0        L       1,  448(  0, 13)
C 0000BE74    45F0D074        BAL    15,  116(  0, 13)



C 0000BE78    47FA0000        BC     15,    0( 10,  0)


  2292                    RROP:    PRR(OPCODE-64,R1,BSR2)

C 0000BE7C    58106040        L       1,   64(  0,  6)
C 0000BE80    41200040        LA      2,   64(  0,  0)
C 0000BE84    1B12            SR      1,  2
C 0000BE86    5010B040        ST      1,   64(  0, 11)
C 0000BE8A    D203B0446044    MVC     68(  4, 11),   68(  6)
C 0000BE90    D203B048604C    MVC     72(  4, 11),   76(  6)
C 0000BE96    5810D1D0        L       1,  464(  0, 13)
C 0000BE9A    45F0D074        BAL    15,  116(  0, 13)


  2293                             %IF REAL=1 %THEN FREG(BSR2)=0

C 0000BE9E    95017070        CLI    112(  7),  1
C 0000BEA2    477A00F8        BC      7,  248( 10,  0)
C 0000BEA6    1F44            SLR     4,  4
C 0000BEA8    5810604C        L       1,   76(  0,  6)
C 0000BEAC    4130918C        LA      3,  396(  0,  9)
C 0000BEB0    45F0C05C        BAL    15,   92(  0, 12)
C 0000BEB4    5041F000        ST      4,    0(  1, 15)


  2294                             %IF REAL=0 %AND REGISTER(BSR2)>0 %THEN REGISTER(BSR2)=0

C 0000BEB8    95007070        CLI    112(  7),  0
C 0000BEBC    477A0128        BC      7,  296( 10,  0)
C 0000BEC0    5810604C        L       1,   76(  0,  6)
C 0000BEC4    4130914C        LA      3,  332(  0,  9)
C 0000BEC8    45F0C05C        BAL    15,   92(  0, 12)
C 0000BECC    5811F000        L       1,    0(  1, 15)
C 0000BED0    1211            LTR     1,  1
C 0000BED2    47DA0128        BC     13,  296( 10,  0)
C 0000BED6    1F44            SLR     4,  4
C 0000BED8    5810604C        L       1,   76(  0,  6)
C 0000BEDC    4130914C        LA      3,  332(  0,  9)
C 0000BEE0    45F0C05C        BAL    15,   92(  0, 12)
C 0000BEE4    5041F000        ST      4,    0(  1, 15)


  2295                    99:      %END
D 00000934    C2 C2 C2 C2 08 ED 06 05 50 4C 41 4E 54 FE A6 B8 01 60 4C 04 42 53 52 32 01 60 48 02 52 32 A6 E8 01 60 44 02 52 31 A6 F0 01 60 40 06 4F 50 43 4F 44 45 A5 DC FF FF FF FF


C 0000BEE8    D203D0146000    MVC     20(  4, 13),    0(  6)
C 0000BEEE    984F6010        LM      4, 15,   16(  6)
C 0000BEF2    07FF            BCR    15, 15


  2296                         %ROUTINE TEST(%INTEGER N)

C 0000BEF4    0000
C 0000BEF6    0000
C 0000BEF8    47FA0000        BC     15,    0( 10,  0)
C 0000BEFC    50F0B03C        ST     15,   60(  0, 11)
C 0000BF00    D203B000D014    MVC      0(  4, 11),   20( 13)
C 0000BF06    410008F8        LA      0, 2296(  0,  0)
C 0000BF0A    4000D014        STH     0,   20(  0, 13)
C 0000BF0E    186B            LR      6, 11
C 0000BF10    41BB0000        LA     11,    0( 11,  0)
C 0000BF14    41000004        LA      0,    4(  0,  0)
C 0000BF18    59BD0044        C      11,   68( 13,  0)
C 0000BF1C    4720C054        BC      2,   84(  0, 12)
C 0000BF20    05A0            BALR   10,  0


  2297                             %SHORTROUTINE
  2298                             %COMMENT INSPECTS OPERAND - MAKES TYPE CONVERSIONS ETC.
  2299                             %INTEGER X
  2300                             %INTEGERNAME LBASE,LDISP,LPTYPE
  2301                             %BYTEINTEGER LPREC
  2302                             LPTYPE==PT(N); LDISP==DP(N)

C 0000BF22    58106040        L       1,   64(  0,  6)
C 0000BF26    41307090        LA      3,  144(  0,  7)
C 0000BF2A    45F0C05C        BAL    15,   92(  0, 12)
C 0000BF2E    4141F000        LA      4,    0(  1, 15)
C 0000BF32    50406050        ST      4,   80(  0,  6)



C 0000BF36    58106040        L       1,   64(  0,  6)
C 0000BF3A    413070A0        LA      3,  160(  0,  7)
C 0000BF3E    45F0C05C        BAL    15,   92(  0, 12)
C 0000BF42    4141F000        LA      4,    0(  1, 15)
C 0000BF46    5040604C        ST      4,   76(  0,  6)


  2303                             LBASE==BS(N); LPREC=LPTYPE>>3&3

C 0000BF4A    58106040        L       1,   64(  0,  6)
C 0000BF4E    41307080        LA      3,  128(  0,  7)
C 0000BF52    45F0C05C        BAL    15,   92(  0, 12)
C 0000BF56    4141F000        LA      4,    0(  1, 15)
C 0000BF5A    50406048        ST      4,   72(  0,  6)



C 0000BF5E    58F06050        L      15,   80(  0,  6)
C 0000BF62    5810F000        L       1,    0(  0, 15)
C 0000BF66    88100003        SRL     1,    3(  0)
C 0000BF6A    41200003        LA      2,    3(  0,  0)
C 0000BF6E    1412            NR      1,  2
C 0000BF70    42106054        STC     1,   84(  0,  6)
C 0000BF74    5510D018        CL      1,   24(  0, 13)
C 0000BF78    472C0058        BC      2,   88( 12,  0)


  2304                             -> SHORT CONST %IF LPTYPE=255

C 0000BF7C    5810F000        L       1,    0(  0, 15)
C 0000BF80    412000FF        LA      2,  255(  0,  0)
C 0000BF84    1912            CR      1,  2
C 0000BF86    478A0000        BC      8,    0( 10,  0)


  2305                             -> START %UNLESS LPTYPE&64 #0 ;! GO UNLESS NAME TYPE

C 0000BF8A    41100040        LA      1,   64(  0,  0)
C 0000BF8E    5410F000        N       1,    0(  0, 15)
C 0000BF92    478A0000        BC      8,    0( 10,  0)


  2306                             RP13=R13;R13=LBASE<<12!LDISP

C 0000BF96    D20390C090BC    MVC    192(  4,  9),  188(  9)



C 0000BF9C    58F06048        L      15,   72(  0,  6)
C 0000BFA0    5810F000        L       1,    0(  0, 15)
C 0000BFA4    8910000C        SLL     1,   12(  0)
C 0000BFA8    58F0604C        L      15,   76(  0,  6)
C 0000BFAC    5610F000        O       1,    0(  0, 15)
C 0000BFB0    501090BC        ST      1,  188(  0,  9)


  2307                             PRX(X'58',LINK,0,LBASE,LDISP) %UNLESS R13=RP13

C 0000BFB4    D50390BC90C0    CLC    188(  4,  9),  192(  9)
C 0000BFBA    478A00D0        BC      8,  208( 10,  0)
C 0000BFBE    41100058        LA      1,   88(  0,  0)
C 0000BFC2    5010B040        ST      1,   64(  0, 11)
C 0000BFC6    D203B044D148    MVC     68(  4, 11),  328( 13)
C 0000BFCC    1F11            SLR     1,  1
C 0000BFCE    5010B048        ST      1,   72(  0, 11)
C 0000BFD2    58F06048        L      15,   72(  0,  6)
C 0000BFD6    5810F000        L       1,    0(  0, 15)
C 0000BFDA    5010B04C        ST      1,   76(  0, 11)
C 0000BFDE    58F0604C        L      15,   76(  0,  6)
C 0000BFE2    5810F000        L       1,    0(  0, 15)
C 0000BFE6    5010B050        ST      1,   80(  0, 11)
C 0000BFEA    5810D1C0        L       1,  448(  0, 13)
C 0000BFEE    45F0D074        BAL    15,  116(  0, 13)


  2308                             LPTYPE=LPTYPE&31; LBASE=LINK;LDISP=0

C 0000BFF2    4110001F        LA      1,   31(  0,  0)
C 0000BFF6    58F06050        L      15,   80(  0,  6)
C 0000BFFA    5410F000        N       1,    0(  0, 15)
C 0000BFFE    5010F000        ST      1,    0(  0, 15)



C 0000C002    5810D148        L       1,  328(  0, 13)
C 0000C006    58F06048        L      15,   72(  0,  6)
C 0000C00A    5010F000        ST      1,    0(  0, 15)



C 0000C00E    1F11            SLR     1,  1
C 0000C010    58F0604C        L      15,   76(  0,  6)
C 0000C014    5010F000        ST      1,    0(  0, 15)


  2309                    START:   -> FLOATING %IF REAL#0

C 0000C018    95007070        CLI    112(  7),  0
C 0000C01C    477A0000        BC      7,    0( 10,  0)


  2310                             -> FINISH %IF LPREC=0 %OR (LPREC=2 %AND 12<=OPCODE<=13)

C 0000C020    95006054        CLI     84(  6),  0
C 0000C024    478A0000        BC      8,    0( 10,  0)
C 0000C028    95026054        CLI     84(  6),  2
C 0000C02C    477A0126        BC      7,  294( 10,  0)
C 0000C030    58107060        L       1,   96(  0,  7)
C 0000C034    4120000C        LA      2,   12(  0,  0)
C 0000C038    1921            CR      2,  1
C 0000C03A    473A0126        BC      3,  294( 10,  0)
C 0000C03E    4120000D        LA      2,   13(  0,  0)
C 0000C042    1912            CR      1,  2
C 0000C044    47CA0000        BC     12,    0( 10,  0)


  2311                    PICKUP:  LOAD(N,-1,0)

C 0000C048    41106040        LA      1,   64(  0,  6)
C 0000C04C    5010B040        ST      1,   64(  0, 11)
C 0000C050    5810D010        L       1,   16(  0, 13)
C 0000C054    5010B044        ST      1,   68(  0, 11)
C 0000C058    1F11            SLR     1,  1
C 0000C05A    5010B048        ST      1,   72(  0, 11)
C 0000C05E    5810D52C        L       1, 1324(  0, 13)
C 0000C062    45F0D074        BAL    15,  116(  0, 13)


  2312                             LPREC=0; ->FINISH

C 0000C066    92006054        MVI     84(  6),  0



C 0000C06A    47FA0000        BC     15,    0( 10,  0)


  2313                    SHORTCONST:    LPREC=0; -> PICK UP %IF REAL=0

C 0000C06E    92006054        MVI     84(  6),  0



C 0000C072    95007070        CLI    112(  7),  0
C 0000C076    4780A126        BC      8,  294(  0, 10)


  2314                                   ->INGLA %IF 0<=LDISP<=2;! THESE 3 ALWAYS IN THE GLA

C 0000C07A    58F0604C        L      15,   76(  0,  6)
C 0000C07E    5810F000        L       1,    0(  0, 15)
C 0000C082    1211            LTR     1,  1
C 0000C084    475A0170        BC      5,  368( 10,  0)
C 0000C088    41200002        LA      2,    2(  0,  0)
C 0000C08C    1912            CR      1,  2
C 0000C08E    47CA0000        BC     12,    0( 10,  0)


  2315                             A(-2)=9; A(-1)=LDISP

C 0000C092    41400009        LA      4,    9(  0,  0)
C 0000C096    41100002        LA      1,    2(  0,  0)
C 0000C09A    1311            LCR     1,  1
C 0000C09C    413092FC        LA      3,  764(  0,  9)
C 0000C0A0    45F0C05C        BAL    15,   92(  0, 12)
C 0000C0A4    4041F000        STH     4,    0(  1, 15)
C 0000C0A8    494F1000        CH      4,    0( 15,  1)
C 0000C0AC    477C0058        BC      7,   88( 12,  0)



C 0000C0B0    58F0604C        L      15,   76(  0,  6)
C 0000C0B4    5840F000        L       4,    0(  0, 15)
C 0000C0B8    5810D010        L       1,   16(  0, 13)
C 0000C0BC    413092FC        LA      3,  764(  0,  9)
C 0000C0C0    45F0C05C        BAL    15,   92(  0, 12)
C 0000C0C4    4041F000        STH     4,    0(  1, 15)
C 0000C0C8    494F1000        CH      4,    0( 15,  1)
C 0000C0CC    477C0058        BC      7,   88( 12,  0)


  2316                             LDISP= SORT CONST(-2,LONGREAL,2);! COMPILE TIME FLOAT

C 0000C0D0    41100002        LA      1,    2(  0,  0)
C 0000C0D4    1311            LCR     1,  1
C 0000C0D6    5010B040        ST      1,   64(  0, 11)
C 0000C0DA    1F11            SLR     1,  1
C 0000C0DC    43107071        IC      1,  113(  0,  7)
C 0000C0E0    5010B044        ST      1,   68(  0, 11)
C 0000C0E4    41100002        LA      1,    2(  0,  0)
C 0000C0E8    5010B048        ST      1,   72(  0, 11)
C 0000C0EC    5810D44C        L       1, 1100(  0, 13)
C 0000C0F0    45F0D074        BAL    15,  116(  0, 13)
C 0000C0F4    58F0604C        L      15,   76(  0,  6)
C 0000C0F8    5010F000        ST      1,    0(  0, 15)


  2317                    1:       LBASE=GLA; -> FINISH

C 0000C0FC    5810D150        L       1,  336(  0, 13)
C 0000C100    58F06048        L      15,   72(  0,  6)
C 0000C104    5010F000        ST      1,    0(  0, 15)



C 0000C108    47FA0000        BC     15,    0( 10,  0)


  2318                    INGLA:   LDISP= 8*LDISP+40; ->1

C 0000C10C    41100008        LA      1,    8(  0,  0)
C 0000C110    58F0604C        L      15,   76(  0,  6)
C 0000C114    5C00F000        M       0,    0(  0, 15)
C 0000C118    41200028        LA      2,   40(  0,  0)
C 0000C11C    1A12            AR      1,  2
C 0000C11E    5010F000        ST      1,    0(  0, 15)



C 0000C122    47F0A1DA        BC     15,  474(  0, 10)


  2319                    FLOATING:->FLOAT IT %IF LPTYPE&7=1     ;! INTEGER - RUN TIME FLOAT

C 0000C126    41100007        LA      1,    7(  0,  0)
C 0000C12A    58F06050        L      15,   80(  0,  6)
C 0000C12E    5410F000        N       1,    0(  0, 15)
C 0000C132    41200001        LA      2,    1(  0,  0)
C 0000C136    1912            CR      1,  2
C 0000C138    478A0000        BC      8,    0( 10,  0)


  2320                             ->FINISH %IF LPREC=3 %OR EVALUATE=0

C 0000C13C    95036054        CLI     84(  6),  3
C 0000C140    478A0000        BC      8,    0( 10,  0)
C 0000C144    58107064        L       1,  100(  0,  7)
C 0000C148    1211            LTR     1,  1
C 0000C14A    478A0000        BC      8,    0( 10,  0)


  2321                             %COMMENT MUST STRETCH A 32 BIT REAL
  2322                             FREG(LBASE)=1 %IF LDISP<0

C 0000C14E    58F0604C        L      15,   76(  0,  6)
C 0000C152    5810F000        L       1,    0(  0, 15)
C 0000C156    1211            LTR     1,  1
C 0000C158    47BA0252        BC     11,  594( 10,  0)
C 0000C15C    41400001        LA      4,    1(  0,  0)
C 0000C160    58F06048        L      15,   72(  0,  6)
C 0000C164    5810F000        L       1,    0(  0, 15)
C 0000C168    4130918C        LA      3,  396(  0,  9)
C 0000C16C    45F0C05C        BAL    15,   92(  0, 12)
C 0000C170    5041F000        ST      4,    0(  1, 15)


  2323                             X=FINDFR;PRR(X'2B',X,X);      !FIND AND CLEAR REGISTER

C 0000C174    5810D540        L       1, 1344(  0, 13)
C 0000C178    45F0D074        BAL    15,  116(  0, 13)
C 0000C17C    50106044        ST      1,   68(  0,  6)



C 0000C180    4110002B        LA      1,   43(  0,  0)
C 0000C184    5010B040        ST      1,   64(  0, 11)
C 0000C188    D203B0446044    MVC     68(  4, 11),   68(  6)
C 0000C18E    D203B0486044    MVC     72(  4, 11),   68(  6)
C 0000C194    5810D1D0        L       1,  464(  0, 13)
C 0000C198    45F0D074        BAL    15,  116(  0, 13)


  2324                             %IF LDISP<0 %THEN %START

C 0000C19C    58F0604C        L      15,   76(  0,  6)
C 0000C1A0    5810F000        L       1,    0(  0, 15)
C 0000C1A4    1211            LTR     1,  1
C 0000C1A6    47BA0000        BC     11,    0( 10,  0)


  2325                             PRR(X'38',X,LBASE);           ! LER_X,LBASE

C 0000C1AA    41100038        LA      1,   56(  0,  0)
C 0000C1AE    5010B040        ST      1,   64(  0, 11)
C 0000C1B2    D203B0446044    MVC     68(  4, 11),   68(  6)
C 0000C1B8    58F06048        L      15,   72(  0,  6)
C 0000C1BC    5810F000        L       1,    0(  0, 15)
C 0000C1C0    5010B048        ST      1,   72(  0, 11)
C 0000C1C4    5810D1D0        L       1,  464(  0, 13)
C 0000C1C8    45F0D074        BAL    15,  116(  0, 13)


  2326                             FREG(LBASE)=0;

C 0000C1CC    1F44            SLR     4,  4
C 0000C1CE    58F06048        L      15,   72(  0,  6)
C 0000C1D2    5810F000        L       1,    0(  0, 15)
C 0000C1D6    4130918C        LA      3,  396(  0,  9)
C 0000C1DA    45F0C05C        BAL    15,   92(  0, 12)
C 0000C1DE    5041F000        ST      4,    0(  1, 15)


  2327                             %FINISH %ELSE PRX(X'78',X,0,LBASE,LDISP)

C 0000C1E2    47FA0000        BC     15,    0( 10,  0)
C 0000C1E6    41100078        LA      1,  120(  0,  0)
C 0000C1EA    5010B040        ST      1,   64(  0, 11)
C 0000C1EE    D203B0446044    MVC     68(  4, 11),   68(  6)
C 0000C1F4    1F11            SLR     1,  1
C 0000C1F6    5010B048        ST      1,   72(  0, 11)
C 0000C1FA    58F06048        L      15,   72(  0,  6)
C 0000C1FE    5810F000        L       1,    0(  0, 15)
C 0000C202    5010B04C        ST      1,   76(  0, 11)
C 0000C206    58F0604C        L      15,   76(  0,  6)
C 0000C20A    5810F000        L       1,    0(  0, 15)
C 0000C20E    5010B050        ST      1,   80(  0, 11)
C 0000C212    5810D1C0        L       1,  448(  0, 13)
C 0000C216    45F0D074        BAL    15,  116(  0, 13)


  2328                             LBASE=X;LDISP=-2; ->FINISH

C 0000C21A    58106044        L       1,   68(  0,  6)
C 0000C21E    58F06048        L      15,   72(  0,  6)
C 0000C222    5010F000        ST      1,    0(  0, 15)



C 0000C226    41100002        LA      1,    2(  0,  0)
C 0000C22A    1311            LCR     1,  1
C 0000C22C    58F0604C        L      15,   76(  0,  6)
C 0000C230    5010F000        ST      1,    0(  0, 15)



C 0000C234    47FA0000        BC     15,    0( 10,  0)


  2329                    FLOATIT: LOAD(N,1,0);PPJ(43); REGISTER(1)=0

C 0000C238    41106040        LA      1,   64(  0,  6)
C 0000C23C    5010B040        ST      1,   64(  0, 11)
C 0000C240    41100001        LA      1,    1(  0,  0)
C 0000C244    5010B044        ST      1,   68(  0, 11)
C 0000C248    1F11            SLR     1,  1
C 0000C24A    5010B048        ST      1,   72(  0, 11)
C 0000C24E    5810D52C        L       1, 1324(  0, 13)
C 0000C252    45F0D074        BAL    15,  116(  0, 13)



C 0000C256    922BB043        MVI     67( 11), 43
C 0000C25A    5810D46C        L       1, 1132(  0, 13)
C 0000C25E    45F0D074        BAL    15,  116(  0, 13)



C 0000C262    1F44            SLR     4,  4
C 0000C264    41100001        LA      1,    1(  0,  0)
C 0000C268    4130914C        LA      3,  332(  0,  9)
C 0000C26C    45F0C05C        BAL    15,   92(  0, 12)
C 0000C270    5041F000        ST      4,    0(  1, 15)


  2330                             LBASE=0; LDISP=-2

C 0000C274    1F11            SLR     1,  1
C 0000C276    58F06048        L      15,   72(  0,  6)
C 0000C27A    5010F000        ST      1,    0(  0, 15)



C 0000C27E    41100002        LA      1,    2(  0,  0)
C 0000C282    1311            LCR     1,  1
C 0000C284    58F0604C        L      15,   76(  0,  6)
C 0000C288    5010F000        ST      1,    0(  0, 15)


  2331                    FINISH:  LPTYPE=(1+REAL)!LPREC<<3

C 0000C28C    1F11            SLR     1,  1
C 0000C28E    43107070        IC      1,  112(  0,  7)
C 0000C292    41200001        LA      2,    1(  0,  0)
C 0000C296    1A12            AR      1,  2
C 0000C298    1851            LR      5,  1
C 0000C29A    1F11            SLR     1,  1
C 0000C29C    43106054        IC      1,   84(  0,  6)
C 0000C2A0    89100003        SLL     1,    3(  0)
C 0000C2A4    1651            OR      5,  1
C 0000C2A6    58F06050        L      15,   80(  0,  6)
C 0000C2AA    5050F000        ST      5,    0(  0, 15)


  2332                             %IF LONGREAL=1 %AND REAL=1 %THEN LPTYPE=LPTYPE!24

C 0000C2AE    95017071        CLI    113(  7),  1
C 0000C2B2    477A03A8        BC      7,  936( 10,  0)
C 0000C2B6    95017070        CLI    112(  7),  1
C 0000C2BA    477A03A8        BC      7,  936( 10,  0)
C 0000C2BE    41100018        LA      1,   24(  0,  0)
C 0000C2C2    5610F000        O       1,    0(  0, 15)
C 0000C2C6    5010F000        ST      1,    0(  0, 15)


  2333                             %END
D 0000096C    C2 C2 C2 C2 08 F8 06 04 54 45 53 54 09 60 54 05 4C 50 52 45 43 00 00 02 41 60 50 06 4C 50 54 59 50 45 A7 48 41 60 4C 05 4C 44 49 53 50 FE A6 F8 41 60 48 05 4C 42 41 53 45 FF E6 08 01 60 44 01 58 00 00 02 01 60 40 01 4E 00 00 00 FF FF FF FF


C 0000C2CA    D203D0146000    MVC     20(  4, 13),    0(  6)
C 0000C2D0    984F6010        LM      4, 15,   16(  6)
C 0000C2D4    07FF            BCR    15, 15


  2334                         %ROUTINE     MULT(%INTEGERNAME RESULT)

C 0000C2D6    0000
C 0000C2D8    0000
C 0000C2DA    47FA0000        BC     15,    0( 10,  0)
C 0000C2DE    50F0B03C        ST     15,   60(  0, 11)
C 0000C2E2    D203B000D014    MVC      0(  4, 11),   20( 13)
C 0000C2E8    4100091E        LA      0, 2334(  0,  0)
C 0000C2EC    4000D014        STH     0,   20(  0, 13)
C 0000C2F0    186B            LR      6, 11
C 0000C2F2    41BB0000        LA     11,    0( 11,  0)
C 0000C2F6    41000004        LA      0,    4(  0,  0)
C 0000C2FA    59BD0044        C      11,   68( 13,  0)
C 0000C2FE    4720C054        BC      2,   84(  0, 12)
C 0000C302    05A0            BALR   10,  0


  2335                             %SHORTROUTINE
  2336                             %INTEGER I,K
  2337                             %CYCLE I=1,1,2

C 0000C304    41406044        LA      4,   68(  0,  6)
C 0000C308    41200001        LA      2,    1(  0,  0)
C 0000C30C    41300002        LA      3,    2(  0,  0)
C 0000C310    9024604C        STM     2,  4,   76(  6)
C 0000C314    41100001        LA      1,    1(  0,  0)
C 0000C318    50104000        ST      1,    0(  0,  4)


  2338                             ->30 %IF PT(I)=255 %AND DP(I)=2

C 0000C31C    58106044        L       1,   68(  0,  6)
C 0000C320    41307090        LA      3,  144(  0,  7)
C 0000C324    45F0C05C        BAL    15,   92(  0, 12)
C 0000C328    5811F000        L       1,    0(  1, 15)
C 0000C32C    412000FF        LA      2,  255(  0,  0)
C 0000C330    1912            CR      1,  2
C 0000C332    477A004C        BC      7,   76( 10,  0)
C 0000C336    58106044        L       1,   68(  0,  6)
C 0000C33A    413070A0        LA      3,  160(  0,  7)
C 0000C33E    45F0C05C        BAL    15,   92(  0, 12)
C 0000C342    5811F000        L       1,    0(  1, 15)
C 0000C346    41200002        LA      2,    2(  0,  0)
C 0000C34A    1912            CR      1,  2
C 0000C34C    478A0000        BC      8,    0( 10,  0)


  2339                             ->1 %IF DP(I)<0 %AND REGISTER(BS(I))>=0

C 0000C350    58106044        L       1,   68(  0,  6)
C 0000C354    413070A0        LA      3,  160(  0,  7)
C 0000C358    45F0C05C        BAL    15,   92(  0, 12)
C 0000C35C    5811F000        L       1,    0(  1, 15)
C 0000C360    1211            LTR     1,  1
C 0000C362    47BA0084        BC     11,  132( 10,  0)
C 0000C366    58106044        L       1,   68(  0,  6)
C 0000C36A    41307080        LA      3,  128(  0,  7)
C 0000C36E    45F0C05C        BAL    15,   92(  0, 12)
C 0000C372    5811F000        L       1,    0(  1, 15)
C 0000C376    4130914C        LA      3,  332(  0,  9)
C 0000C37A    45F0C05C        BAL    15,   92(  0, 12)
C 0000C37E    5811F000        L       1,    0(  1, 15)
C 0000C382    1211            LTR     1,  1
C 0000C384    47AA0000        BC     10,    0( 10,  0)


  2340                    5:       %REPEAT

C 0000C388    9824604C        LM      2,  4,   76(  6)
C 0000C38C    58104000        L       1,    0(  0,  4)
C 0000C390    8712A014        BXLE    1,  2,   20( 10)


  2341                             I=1; K=FINDPR

C 0000C394    41100001        LA      1,    1(  0,  0)
C 0000C398    50106044        ST      1,   68(  0,  6)



C 0000C39C    5810D53C        L       1, 1340(  0, 13)
C 0000C3A0    45F0D074        BAL    15,  116(  0, 13)
C 0000C3A4    50106048        ST      1,   72(  0,  6)


  2342                             LOAD(I,K+1,0); ->11

C 0000C3A8    41106044        LA      1,   68(  0,  6)
C 0000C3AC    5010B040        ST      1,   64(  0, 11)
C 0000C3B0    41100001        LA      1,    1(  0,  0)
C 0000C3B4    5A106048        A       1,   72(  0,  6)
C 0000C3B8    5010B044        ST      1,   68(  0, 11)
C 0000C3BC    1F11            SLR     1,  1
C 0000C3BE    5010B048        ST      1,   72(  0, 11)
C 0000C3C2    5810D52C        L       1, 1324(  0, 13)
C 0000C3C6    45F0D074        BAL    15,  116(  0, 13)



C 0000C3CA    47FA0000        BC     15,    0( 10,  0)


  2343                    1:       ->14 %IF BS(I)&1=1 %AND I>0 %AND REGISTER(BS(I)-1)=0

C 0000C3CE    58106044        L       1,   68(  0,  6)
C 0000C3D2    41307080        LA      3,  128(  0,  7)
C 0000C3D6    45F0C05C        BAL    15,   92(  0, 12)
C 0000C3DA    5851F000        L       5,    0(  1, 15)
C 0000C3DE    41100001        LA      1,    1(  0,  0)
C 0000C3E2    1451            NR      5,  1
C 0000C3E4    41100001        LA      1,    1(  0,  0)
C 0000C3E8    1951            CR      5,  1
C 0000C3EA    477A011A        BC      7,  282( 10,  0)
C 0000C3EE    58106044        L       1,   68(  0,  6)
C 0000C3F2    1211            LTR     1,  1
C 0000C3F4    47DA011A        BC     13,  282( 10,  0)
C 0000C3F8    58106044        L       1,   68(  0,  6)
C 0000C3FC    41307080        LA      3,  128(  0,  7)
C 0000C400    45F0C05C        BAL    15,   92(  0, 12)
C 0000C404    5851F000        L       5,    0(  1, 15)
C 0000C408    0650            BCTR    5,  0
C 0000C40A    1815            LR      1,  5
C 0000C40C    4130914C        LA      3,  332(  0,  9)
C 0000C410    45F0C05C        BAL    15,   92(  0, 12)
C 0000C414    5811F000        L       1,    0(  1, 15)
C 0000C418    1211            LTR     1,  1
C 0000C41A    478A0000        BC      8,    0( 10,  0)


  2344                             ->12 %IF BS(I)&1=0 %AND REGISTER(BS(I)+1)=0

C 0000C41E    58106044        L       1,   68(  0,  6)
C 0000C422    41307080        LA      3,  128(  0,  7)
C 0000C426    45F0C05C        BAL    15,   92(  0, 12)
C 0000C42A    5851F000        L       5,    0(  1, 15)
C 0000C42E    41100001        LA      1,    1(  0,  0)
C 0000C432    1451            NR      5,  1
C 0000C434    477A015E        BC      7,  350( 10,  0)
C 0000C438    58106044        L       1,   68(  0,  6)
C 0000C43C    41307080        LA      3,  128(  0,  7)
C 0000C440    45F0C05C        BAL    15,   92(  0, 12)
C 0000C444    5851F000        L       5,    0(  1, 15)
C 0000C448    41100001        LA      1,    1(  0,  0)
C 0000C44C    1A51            AR      5,  1
C 0000C44E    1815            LR      1,  5
C 0000C450    4130914C        LA      3,  332(  0,  9)
C 0000C454    45F0C05C        BAL    15,   92(  0, 12)
C 0000C458    5811F000        L       1,    0(  1, 15)
C 0000C45C    1211            LTR     1,  1
C 0000C45E    478A0000        BC      8,    0( 10,  0)


  2345                             ->5

C 0000C462    47F0A084        BC     15,  132(  0, 10)


  2346                    12:      K=BS(I); REGISTER(K+1)=1

C 0000C466    58106044        L       1,   68(  0,  6)
C 0000C46A    41307080        LA      3,  128(  0,  7)
C 0000C46E    45F0C05C        BAL    15,   92(  0, 12)
C 0000C472    5811F000        L       1,    0(  1, 15)
C 0000C476    50106048        ST      1,   72(  0,  6)



C 0000C47A    41400001        LA      4,    1(  0,  0)
C 0000C47E    41100001        LA      1,    1(  0,  0)
C 0000C482    5A106048        A       1,   72(  0,  6)
C 0000C486    4130914C        LA      3,  332(  0,  9)
C 0000C48A    45F0C05C        BAL    15,   92(  0, 12)
C 0000C48E    5041F000        ST      4,    0(  1, 15)


  2347                             PRR(X'18',K+1,K); ->13

C 0000C492    41100018        LA      1,   24(  0,  0)
C 0000C496    5010B040        ST      1,   64(  0, 11)
C 0000C49A    41100001        LA      1,    1(  0,  0)
C 0000C49E    5A106048        A       1,   72(  0,  6)
C 0000C4A2    5010B044        ST      1,   68(  0, 11)
C 0000C4A6    D203B0486048    MVC     72(  4, 11),   72(  6)
C 0000C4AC    5810D1D0        L       1,  464(  0, 13)
C 0000C4B0    45F0D074        BAL    15,  116(  0, 13)



C 0000C4B4    47FA0000        BC     15,    0( 10,  0)


  2348                    14:      REGISTER(BS(I)-1)=1

C 0000C4B8    41400001        LA      4,    1(  0,  0)
C 0000C4BC    58106044        L       1,   68(  0,  6)
C 0000C4C0    41307080        LA      3,  128(  0,  7)
C 0000C4C4    45F0C05C        BAL    15,   92(  0, 12)
C 0000C4C8    5851F000        L       5,    0(  1, 15)
C 0000C4CC    0650            BCTR    5,  0
C 0000C4CE    1815            LR      1,  5
C 0000C4D0    4130914C        LA      3,  332(  0,  9)
C 0000C4D4    45F0C05C        BAL    15,   92(  0, 12)
C 0000C4D8    5041F000        ST      4,    0(  1, 15)


  2349                    11:      BS(I)=BS(I)-1

C 0000C4DC    58106044        L       1,   68(  0,  6)
C 0000C4E0    41307080        LA      3,  128(  0,  7)
C 0000C4E4    45F0C05C        BAL    15,   92(  0, 12)
C 0000C4E8    5851F000        L       5,    0(  1, 15)
C 0000C4EC    0650            BCTR    5,  0
C 0000C4EE    1845            LR      4,  5
C 0000C4F0    58106044        L       1,   68(  0,  6)
C 0000C4F4    41307080        LA      3,  128(  0,  7)
C 0000C4F8    45F0C05C        BAL    15,   92(  0, 12)
C 0000C4FC    5041F000        ST      4,    0(  1, 15)


  2350                    13:      TEST(3-I); PLANT(X'5C',I,3-I);! MULTIPLY

C 0000C500    41100003        LA      1,    3(  0,  0)
C 0000C504    5B106044        S       1,   68(  0,  6)
C 0000C508    5010B040        ST      1,   64(  0, 11)
C 0000C50C    5810D520        L       1, 1312(  0, 13)
C 0000C510    45F0D074        BAL    15,  116(  0, 13)



C 0000C514    4110005C        LA      1,   92(  0,  0)
C 0000C518    5010B040        ST      1,   64(  0, 11)
C 0000C51C    D203B0446044    MVC     68(  4, 11),   68(  6)
C 0000C522    41100003        LA      1,    3(  0,  0)
C 0000C526    5B106044        S       1,   68(  0,  6)
C 0000C52A    5010B048        ST      1,   72(  0, 11)
C 0000C52E    5810D524        L       1, 1316(  0, 13)
C 0000C532    45F0D074        BAL    15,  116(  0, 13)


  2351                             ->15 %IF CHECKSP=0

C 0000C536    950090D7        CLI    215(  9),  0
C 0000C53A    478A0000        BC      8,    0( 10,  0)


  2352                             PRX(X'8F',BS(I),0,0,32);      ! SLDA ?,32

C 0000C53E    4110008F        LA      1,  143(  0,  0)
C 0000C542    5010B040        ST      1,   64(  0, 11)
C 0000C546    58106044        L       1,   68(  0,  6)
C 0000C54A    41307080        LA      3,  128(  0,  7)
C 0000C54E    45F0C05C        BAL    15,   92(  0, 12)
C 0000C552    5811F000        L       1,    0(  1, 15)
C 0000C556    5010B044        ST      1,   68(  0, 11)
C 0000C55A    1F11            SLR     1,  1
C 0000C55C    5010B048        ST      1,   72(  0, 11)
C 0000C560    1F11            SLR     1,  1
C 0000C562    5010B04C        ST      1,   76(  0, 11)
C 0000C566    41100020        LA      1,   32(  0,  0)
C 0000C56A    5010B050        ST      1,   80(  0, 11)
C 0000C56E    5810D1C0        L       1,  448(  0, 13)
C 0000C572    45F0D074        BAL    15,  116(  0, 13)


  2353                    15:      RESULT=257+BS(I)-CHECKSP

C 0000C576    58106044        L       1,   68(  0,  6)
C 0000C57A    41307080        LA      3,  128(  0,  7)
C 0000C57E    45F0C05C        BAL    15,   92(  0, 12)
C 0000C582    5851F000        L       5,    0(  1, 15)
C 0000C586    41100101        LA      1,  257(  0,  0)
C 0000C58A    1A51            AR      5,  1
C 0000C58C    1F11            SLR     1,  1
C 0000C58E    431090D7        IC      1,  215(  0,  9)
C 0000C592    1B51            SR      5,  1
C 0000C594    58F06040        L      15,   64(  0,  6)
C 0000C598    5050F000        ST      5,    0(  0, 15)


  2354                             REGISTER(BS(I)+CHECKSP)=0

C 0000C59C    1F44            SLR     4,  4
C 0000C59E    58106044        L       1,   68(  0,  6)
C 0000C5A2    41307080        LA      3,  128(  0,  7)
C 0000C5A6    45F0C05C        BAL    15,   92(  0, 12)
C 0000C5AA    5851F000        L       5,    0(  1, 15)
C 0000C5AE    1F11            SLR     1,  1
C 0000C5B0    431090D7        IC      1,  215(  0,  9)
C 0000C5B4    1A51            AR      5,  1
C 0000C5B6    1815            LR      1,  5
C 0000C5B8    4130914C        LA      3,  332(  0,  9)
C 0000C5BC    45F0C05C        BAL    15,   92(  0, 12)
C 0000C5C0    5041F000        ST      4,    0(  1, 15)


  2355                             AFLAG=CHECKS

C 0000C5C4    D20090C890CA    MVC    200(  1,  9),  202(  9)


  2356                             ->99

C 0000C5CA    47FA0000        BC     15,    0( 10,  0)


  2357                    30:      K= 3-I; LOAD(K,-1,0)

C 0000C5CE    41100003        LA      1,    3(  0,  0)
C 0000C5D2    5B106044        S       1,   68(  0,  6)
C 0000C5D6    50106048        ST      1,   72(  0,  6)



C 0000C5DA    41106048        LA      1,   72(  0,  6)
C 0000C5DE    5010B040        ST      1,   64(  0, 11)
C 0000C5E2    5810D010        L       1,   16(  0, 13)
C 0000C5E6    5010B044        ST      1,   68(  0, 11)
C 0000C5EA    1F11            SLR     1,  1
C 0000C5EC    5010B048        ST      1,   72(  0, 11)
C 0000C5F0    5810D52C        L       1, 1324(  0, 13)
C 0000C5F4    45F0D074        BAL    15,  116(  0, 13)


  2358                             PRR(X'1A',BS(K),BS(K))

C 0000C5F8    4110001A        LA      1,   26(  0,  0)
C 0000C5FC    5010B040        ST      1,   64(  0, 11)
C 0000C600    58106048        L       1,   72(  0,  6)
C 0000C604    41307080        LA      3,  128(  0,  7)
C 0000C608    45F0C05C        BAL    15,   92(  0, 12)
C 0000C60C    5811F000        L       1,    0(  1, 15)
C 0000C610    5010B044        ST      1,   68(  0, 11)
C 0000C614    58106048        L       1,   72(  0,  6)
C 0000C618    41307080        LA      3,  128(  0,  7)
C 0000C61C    45F0C05C        BAL    15,   92(  0, 12)
C 0000C620    5811F000        L       1,    0(  1, 15)
C 0000C624    5010B048        ST      1,   72(  0, 11)
C 0000C628    5810D1D0        L       1,  464(  0, 13)
C 0000C62C    45F0D074        BAL    15,  116(  0, 13)


  2359                             AFLAG=1; RESULT=256+BS(K)

C 0000C630    920190C8        MVI    200(  9),  1



C 0000C634    58106048        L       1,   72(  0,  6)
C 0000C638    41307080        LA      3,  128(  0,  7)
C 0000C63C    45F0C05C        BAL    15,   92(  0, 12)
C 0000C640    5851F000        L       5,    0(  1, 15)
C 0000C644    41100100        LA      1,  256(  0,  0)
C 0000C648    1A51            AR      5,  1
C 0000C64A    58F06040        L      15,   64(  0,  6)
C 0000C64E    5050F000        ST      5,    0(  0, 15)


  2360                    99:      %END
D 000009BC    C2 C2 C2 C2 09 1E 06 04 4D 55 4C 54 01 60 48 01 4B 00 00 00 01 60 44 01 49 FE A7 40 41 60 40 06 52 45 53 55 4C 54 A6 F0 FF FF FF FF


C 0000C652    D203D0146000    MVC     20(  4, 13),    0(  6)
C 0000C658    984F6010        LM      4, 15,   16(  6)
C 0000C65C    07FF            BCR    15, 15


  2361                         %ROUTINE     DIV(%INTEGERNAME RESULT)

C 0000C65E    0000
C 0000C660    0000
C 0000C662    47FA0000        BC     15,    0( 10,  0)
C 0000C666    50F0B03C        ST     15,   60(  0, 11)
C 0000C66A    D203B000D014    MVC      0(  4, 11),   20( 13)
C 0000C670    41000939        LA      0, 2361(  0,  0)
C 0000C674    4000D014        STH     0,   20(  0, 13)
C 0000C678    186B            LR      6, 11
C 0000C67A    41BB0000        LA     11,    0( 11,  0)
C 0000C67E    41000004        LA      0,    4(  0,  0)
C 0000C682    59BD0044        C      11,   68( 13,  0)
C 0000C686    4720C054        BC      2,   84(  0, 12)
C 0000C68A    05A0            BALR   10,  0


  2362                             %SHORTROUTINE
  2363                             %INTEGER I,K
  2364                             ->3 %IF DP(1)<0

C 0000C68C    41100001        LA      1,    1(  0,  0)
C 0000C690    413070A0        LA      3,  160(  0,  7)
C 0000C694    45F0C05C        BAL    15,   92(  0, 12)
C 0000C698    5811F000        L       1,    0(  1, 15)
C 0000C69C    1211            LTR     1,  1
C 0000C69E    474A0000        BC      4,    0( 10,  0)


  2365                    1:       K=FIND PR

C 0000C6A2    5810D53C        L       1, 1340(  0, 13)
C 0000C6A6    45F0D074        BAL    15,  116(  0, 13)
C 0000C6AA    50106048        ST      1,   72(  0,  6)


  2366                    2:       I=1; LOAD(I,K,0); ->10

C 0000C6AE    41100001        LA      1,    1(  0,  0)
C 0000C6B2    50106044        ST      1,   68(  0,  6)



C 0000C6B6    41106044        LA      1,   68(  0,  6)
C 0000C6BA    5010B040        ST      1,   64(  0, 11)
C 0000C6BE    D203B0446048    MVC     68(  4, 11),   72(  6)
C 0000C6C4    1F11            SLR     1,  1
C 0000C6C6    5010B048        ST      1,   72(  0, 11)
C 0000C6CA    5810D52C        L       1, 1324(  0, 13)
C 0000C6CE    45F0D074        BAL    15,  116(  0, 13)



C 0000C6D2    47FA0000        BC     15,    0( 10,  0)


  2367                    3:       ->4 %IF BS(1)&1=0 %AND REGISTER(BS(1)+1)=0

C 0000C6D6    41100001        LA      1,    1(  0,  0)
C 0000C6DA    41307080        LA      3,  128(  0,  7)
C 0000C6DE    45F0C05C        BAL    15,   92(  0, 12)
C 0000C6E2    5851F000        L       5,    0(  1, 15)
C 0000C6E6    41100001        LA      1,    1(  0,  0)
C 0000C6EA    1451            NR      5,  1
C 0000C6EC    477A008E        BC      7,  142( 10,  0)
C 0000C6F0    41100001        LA      1,    1(  0,  0)
C 0000C6F4    41307080        LA      3,  128(  0,  7)
C 0000C6F8    45F0C05C        BAL    15,   92(  0, 12)
C 0000C6FC    5851F000        L       5,    0(  1, 15)
C 0000C700    41100001        LA      1,    1(  0,  0)
C 0000C704    1A51            AR      5,  1
C 0000C706    1815            LR      1,  5
C 0000C708    4130914C        LA      3,  332(  0,  9)
C 0000C70C    45F0C05C        BAL    15,   92(  0, 12)
C 0000C710    5811F000        L       1,    0(  1, 15)
C 0000C714    1211            LTR     1,  1
C 0000C716    478A0000        BC      8,    0( 10,  0)


  2368                             K=FINDPR; ->2

C 0000C71A    5810D53C        L       1, 1340(  0, 13)
C 0000C71E    45F0D074        BAL    15,  116(  0, 13)
C 0000C722    50106048        ST      1,   72(  0,  6)



C 0000C726    47F0A022        BC     15,   34(  0, 10)


  2369                    4:       ->1 %IF REGISTER(BS(1))<0;    !A CLAIMED REGISTER

C 0000C72A    41100001        LA      1,    1(  0,  0)
C 0000C72E    41307080        LA      3,  128(  0,  7)
C 0000C732    45F0C05C        BAL    15,   92(  0, 12)
C 0000C736    5811F000        L       1,    0(  1, 15)
C 0000C73A    4130914C        LA      3,  332(  0,  9)
C 0000C73E    45F0C05C        BAL    15,   92(  0, 12)
C 0000C742    5811F000        L       1,    0(  1, 15)
C 0000C746    1211            LTR     1,  1
C 0000C748    4740A016        BC      4,   22(  0, 10)


  2370                             REGISTER(BS(1)+1)=1; K=BS(1)

C 0000C74C    41400001        LA      4,    1(  0,  0)
C 0000C750    41100001        LA      1,    1(  0,  0)
C 0000C754    41307080        LA      3,  128(  0,  7)
C 0000C758    45F0C05C        BAL    15,   92(  0, 12)
C 0000C75C    5851F000        L       5,    0(  1, 15)
C 0000C760    41100001        LA      1,    1(  0,  0)
C 0000C764    1A51            AR      5,  1
C 0000C766    1815            LR      1,  5
C 0000C768    4130914C        LA      3,  332(  0,  9)
C 0000C76C    45F0C05C        BAL    15,   92(  0, 12)
C 0000C770    5041F000        ST      4,    0(  1, 15)



C 0000C774    41100001        LA      1,    1(  0,  0)
C 0000C778    41307080        LA      3,  128(  0,  7)
C 0000C77C    45F0C05C        BAL    15,   92(  0, 12)
C 0000C780    5811F000        L       1,    0(  1, 15)
C 0000C784    50106048        ST      1,   72(  0,  6)


  2371                    10:      PRX(X'8E',K,0,0,32);          ! SRDA K,32

C 0000C788    4110008E        LA      1,  142(  0,  0)
C 0000C78C    5010B040        ST      1,   64(  0, 11)
C 0000C790    D203B0446048    MVC     68(  4, 11),   72(  6)
C 0000C796    1F11            SLR     1,  1
C 0000C798    5010B048        ST      1,   72(  0, 11)
C 0000C79C    1F11            SLR     1,  1
C 0000C79E    5010B04C        ST      1,   76(  0, 11)
C 0000C7A2    41100020        LA      1,   32(  0,  0)
C 0000C7A6    5010B050        ST      1,   80(  0, 11)
C 0000C7AA    5810D1C0        L       1,  448(  0, 13)
C 0000C7AE    45F0D074        BAL    15,  116(  0, 13)


  2372                             TEST(2); PLANT(X'5D',1,2);    ! DIVIDE

C 0000C7B2    41100002        LA      1,    2(  0,  0)
C 0000C7B6    5010B040        ST      1,   64(  0, 11)
C 0000C7BA    5810D520        L       1, 1312(  0, 13)
C 0000C7BE    45F0D074        BAL    15,  116(  0, 13)



C 0000C7C2    4110005D        LA      1,   93(  0,  0)
C 0000C7C6    5010B040        ST      1,   64(  0, 11)
C 0000C7CA    41100001        LA      1,    1(  0,  0)
C 0000C7CE    5010B044        ST      1,   68(  0, 11)
C 0000C7D2    41100002        LA      1,    2(  0,  0)
C 0000C7D6    5010B048        ST      1,   72(  0, 11)
C 0000C7DA    5810D524        L       1, 1316(  0, 13)
C 0000C7DE    45F0D074        BAL    15,  116(  0, 13)


  2373                             ->20 %IF CHECKSP=0

C 0000C7E2    950090D7        CLI    215(  9),  0
C 0000C7E6    478A0000        BC      8,    0( 10,  0)


  2374                             ->20 %IF OPCODE=17; PRR(X'12',K,K);     ! LTR

C 0000C7EA    41100011        LA      1,   17(  0,  0)
C 0000C7EE    59107060        C       1,   96(  0,  7)
C 0000C7F2    478A0000        BC      8,    0( 10,  0)



C 0000C7F6    41100012        LA      1,   18(  0,  0)
C 0000C7FA    5010B040        ST      1,   64(  0, 11)
C 0000C7FE    D203B0446048    MVC     68(  4, 11),   72(  6)
C 0000C804    D203B0486048    MVC     72(  4, 11),   72(  6)
C 0000C80A    5810D1D0        L       1,  464(  0, 13)
C 0000C80E    45F0D074        BAL    15,  116(  0, 13)


  2375                             PRX(X'47',7,0,CODER,64);         ! BC 7,64(CODE)

C 0000C812    41100047        LA      1,   71(  0,  0)
C 0000C816    5010B040        ST      1,   64(  0, 11)
C 0000C81A    41100007        LA      1,    7(  0,  0)
C 0000C81E    5010B044        ST      1,   68(  0, 11)
C 0000C822    1F11            SLR     1,  1
C 0000C824    5010B048        ST      1,   72(  0, 11)
C 0000C828    D203B04CD144    MVC     76(  4, 11),  324( 13)
C 0000C82E    41100040        LA      1,   64(  0,  0)
C 0000C832    5010B050        ST      1,   80(  0, 11)
C 0000C836    5810D1C0        L       1,  448(  0, 13)
C 0000C83A    45F0D074        BAL    15,  116(  0, 13)


  2376                    20:      REGISTER(K)=0

C 0000C83E    1F44            SLR     4,  4
C 0000C840    58106048        L       1,   72(  0,  6)
C 0000C844    4130914C        LA      3,  332(  0,  9)
C 0000C848    45F0C05C        BAL    15,   92(  0, 12)
C 0000C84C    5041F000        ST      4,    0(  1, 15)


  2377                             AFLAG=0;RESULT=K+257

C 0000C850    920090C8        MVI    200(  9),  0



C 0000C854    41100101        LA      1,  257(  0,  0)
C 0000C858    5A106048        A       1,   72(  0,  6)
C 0000C85C    58F06040        L      15,   64(  0,  6)
C 0000C860    5010F000        ST      1,    0(  0, 15)


  2378                             %END
D 000009E8    C2 C2 C2 C2 09 39 06 03 44 49 56 01 01 60 48 01 4B 00 00 00 01 60 44 01 49 FE A7 40 41 60 40 06 52 45 53 55 4C 54 A6 F0 FF FF FF FF


C 0000C864    D203D0146000    MVC     20(  4, 13),    0(  6)
C 0000C86A    984F6010        LM      4, 15,   16(  6)
C 0000C86E    07FF            BCR    15, 15


  2379                         %ROUTINE PRINT ORDERS

C 0000C870    0000
C 0000C872    0000
C 0000C874    47FA0000        BC     15,    0( 10,  0)
C 0000C878    50F0B03C        ST     15,   60(  0, 11)
C 0000C87C    D203B000D014    MVC      0(  4, 11),   20( 13)
C 0000C882    4100094B        LA      0, 2379(  0,  0)
C 0000C886    4000D014        STH     0,   20(  0, 13)
C 0000C88A    186B            LR      6, 11
C 0000C88C    41BB0000        LA     11,    0( 11,  0)
C 0000C890    41000004        LA      0,    4(  0,  0)
C 0000C894    59BD0044        C      11,   68( 13,  0)
C 0000C898    4720C054        BC      2,   84(  0, 12)
C 0000C89C    05A0            BALR   10,  0


  2380                             %SHORTROUTINE
  2381                             %SWITCH S(0:49)

C 0000C89E    0700            BCR     0,  0
C 0000C8A0    47FA0000        BC     15,    0( 10,  0)
C 0000C8A4    0200
C 0000C8A6    0000
C 0000C8A8    0000
C 0000C8AA    0031
C 0000C8AC    0000
C 0000C8AE    0000
C 0000C8B0    0000
C 0000C8B2    0000
C 0000C8B4    0000
C 0000C8B6    0000
C 0000C8B8    0000
C 0000C8BA    0000
C 0000C8BC    0000
C 0000C8BE    0000
C 0000C8C0    0000
C 0000C8C2    0000
C 0000C8C4    0000
C 0000C8C6    0000
C 0000C8C8    0000
C 0000C8CA    0000
C 0000C8CC    0000
C 0000C8CE    0000
C 0000C8D0    0000
C 0000C8D2    0000
C 0000C8D4    0000
C 0000C8D6    0000
C 0000C8D8    0000
C 0000C8DA    0000
C 0000C8DC    0000
C 0000C8DE    0000
C 0000C8E0    0000
C 0000C8E2    0000
C 0000C8E4    0000
C 0000C8E6    0000
C 0000C8E8    0000
C 0000C8EA    0000
C 0000C8EC    0000
C 0000C8EE    0000
C 0000C8F0    0000
C 0000C8F2    0000
C 0000C8F4    0000
C 0000C8F6    0000
C 0000C8F8    0000
C 0000C8FA    0000
C 0000C8FC    0000
C 0000C8FE    0000
C 0000C900    0000
C 0000C902    0000
C 0000C904    0000
C 0000C906    0000
C 0000C908    0000
C 0000C90A    0000
C 0000C90C    0000
C 0000C90E    0000
C 0000C910    0000
C 0000C912    0000


  2382                             %INTEGER C,D,LAST,KK
  2383                             LAST=N0-6

C 0000C914    5810D534        L       1, 1332(  0, 13)
C 0000C918    41200006        LA      2,    6(  0,  0)
C 0000C91C    1B12            SR      1,  2
C 0000C91E    50106048        ST      1,   72(  0,  6)


  2384                             %CYCLE JJ=NOP,3,LAST

C 0000C922    4140705C        LA      4,   92(  0,  7)
C 0000C926    41200003        LA      2,    3(  0,  0)
C 0000C92A    58306048        L       3,   72(  0,  6)
C 0000C92E    90246050        STM     2,  4,   80(  6)
C 0000C932    58107054        L       1,   84(  0,  7)
C 0000C936    50104000        ST      1,    0(  0,  4)


  2385                             OPCODE=ST(JJ)

C 0000C93A    5810705C        L       1,   92(  0,  7)
C 0000C93E    4130915C        LA      3,  348(  0,  9)
C 0000C942    45F0C05C        BAL    15,   92(  0, 12)
C 0000C946    5811F000        L       1,    0(  1, 15)
C 0000C94A    50107060        ST      1,   96(  0,  7)


  2386                             -> SKIP %IF 10>=OPCODE %OR OPCODE=24

C 0000C94E    58107060        L       1,   96(  0,  7)
C 0000C952    4120000A        LA      2,   10(  0,  0)
C 0000C956    1921            CR      2,  1
C 0000C958    47AA0000        BC     10,    0( 10,  0)
C 0000C95C    41100018        LA      1,   24(  0,  0)
C 0000C960    59107060        C       1,   96(  0,  7)
C 0000C964    478A0000        BC      8,    0( 10,  0)


  2387                             %IF OPCODE=11 %OR OPCODE=23 %THEN KK=1 %ELSE KK=2

C 0000C968    4110000B        LA      1,   11(  0,  0)
C 0000C96C    59107060        C       1,   96(  0,  7)
C 0000C970    478A00E2        BC      8,  226( 10,  0)
C 0000C974    41100017        LA      1,   23(  0,  0)
C 0000C978    59107060        C       1,   96(  0,  7)
C 0000C97C    477A00EE        BC      7,  238( 10,  0)
C 0000C980    41100001        LA      1,    1(  0,  0)
C 0000C984    5010604C        ST      1,   76(  0,  6)
C 0000C988    47FA00F6        BC     15,  246( 10,  0)
C 0000C98C    41100002        LA      1,    2(  0,  0)
C 0000C990    5010604C        ST      1,   76(  0,  6)


  2388                             %CYCLE KK=KK,-1,1

C 0000C994    4140604C        LA      4,   76(  0,  6)
C 0000C998    5820D010        L       2,   16(  0, 13)
C 0000C99C    41300001        LA      3,    1(  0,  0)
C 0000C9A0    9024605C        STM     2,  4,   92(  6)
C 0000C9A4    5810604C        L       1,   76(  0,  6)
C 0000C9A8    50104000        ST      1,    0(  0,  4)


  2389                             POP(OPHEAD,C,DP(KK))

C 0000C9AC    4110706C        LA      1,  108(  0,  7)
C 0000C9B0    5010B040        ST      1,   64(  0, 11)
C 0000C9B4    41106040        LA      1,   64(  0,  6)
C 0000C9B8    5010B044        ST      1,   68(  0, 11)
C 0000C9BC    5810604C        L       1,   76(  0,  6)
C 0000C9C0    413070A0        LA      3,  160(  0,  7)
C 0000C9C4    45F0C05C        BAL    15,   92(  0, 12)
C 0000C9C8    4111F000        LA      1,    0(  1, 15)
C 0000C9CC    5010B048        ST      1,   72(  0, 11)
C 0000C9D0    5810D3DC        L       1,  988(  0, 13)
C 0000C9D4    45F0D074        BAL    15,  116(  0, 13)


  2390                             PT(KK)=C>>8; BS(KK)=C&15

C 0000C9D8    58406040        L       4,   64(  0,  6)
C 0000C9DC    88400008        SRL     4,    8(  0)
C 0000C9E0    5810604C        L       1,   76(  0,  6)
C 0000C9E4    41307090        LA      3,  144(  0,  7)
C 0000C9E8    45F0C05C        BAL    15,   92(  0, 12)
C 0000C9EC    5041F000        ST      4,    0(  1, 15)



C 0000C9F0    4140000F        LA      4,   15(  0,  0)
C 0000C9F4    54406040        N       4,   64(  0,  6)
C 0000C9F8    5810604C        L       1,   76(  0,  6)
C 0000C9FC    41307080        LA      3,  128(  0,  7)
C 0000CA00    45F0C05C        BAL    15,   92(  0, 12)
C 0000CA04    5041F000        ST      4,    0(  1, 15)


  2391                             %REPEAT

C 0000CA08    9824605C        LM      2,  4,   92(  6)
C 0000CA0C    58104000        L       1,    0(  0,  4)
C 0000CA10    1A12            AR      1,  2
C 0000CA12    59304000        C       3,    0(  0,  4)
C 0000CA16    4770A10A        BC      7,  266(  0, 10)


  2392                    SKIP:    -> S(OPCODE+25*REAL)

C 0000CA1A    41100019        LA      1,   25(  0,  0)
C 0000CA1E    1F22            SLR     2,  2
C 0000CA20    43207070        IC      2,  112(  0,  7)
C 0000CA24    1C02            MR      0,  2
C 0000CA26    5A107060        A       1,   96(  0,  7)
C 0000CA2A    1A11            AR      1,  1
C 0000CA2C    4811A00E        LH      1,   14(  1, 10)
C 0000CA30    47F1A000        BC     15,    0(  1, 10)


  2393                    S(0):                                  ! INTEGER CONST<4096 IN INT EXP
  2394                    S(25):                                 ! INT CONST<4096 IN REAL EXRRN
  2395                             D=X'FF00'; C=ST(JJ+2);->99

C 0000CA34    5810D54C        L       1, 1356(  0, 13)
C 0000CA38    50106044        ST      1,   68(  0,  6)



C 0000CA3C    41100002        LA      1,    2(  0,  0)
C 0000CA40    5A10705C        A       1,   92(  0,  7)
C 0000CA44    4130915C        LA      3,  348(  0,  9)
C 0000CA48    45F0C05C        BAL    15,   92(  0, 12)
C 0000CA4C    5811F000        L       1,    0(  1, 15)
C 0000CA50    50106040        ST      1,   64(  0,  6)



C 0000CA54    47FA0000        BC     15,    0( 10,  0)


  2396                    S(1):                                  ! LONG INT CONST IN INT EXPRN
  2397                             C=SORT CONST(ST(JJ+1),0,1)

C 0000CA58    41100001        LA      1,    1(  0,  0)
C 0000CA5C    5A10705C        A       1,   92(  0,  7)
C 0000CA60    4130915C        LA      3,  348(  0,  9)
C 0000CA64    45F0C05C        BAL    15,   92(  0, 12)
C 0000CA68    5811F000        L       1,    0(  1, 15)
C 0000CA6C    5010B040        ST      1,   64(  0, 11)
C 0000CA70    1F11            SLR     1,  1
C 0000CA72    5010B044        ST      1,   68(  0, 11)
C 0000CA76    41100001        LA      1,    1(  0,  0)
C 0000CA7A    5010B048        ST      1,   72(  0, 11)
C 0000CA7E    5810D44C        L       1, 1100(  0, 13)
C 0000CA82    45F0D074        BAL    15,  116(  0, 13)
C 0000CA86    50106040        ST      1,   64(  0,  6)


  2398                             D=256+GLA;->99

C 0000CA8A    41100100        LA      1,  256(  0,  0)
C 0000CA8E    5A10D150        A       1,  336(  0, 13)
C 0000CA92    50106044        ST      1,   68(  0,  6)



C 0000CA96    47FA0000        BC     15,    0( 10,  0)


  2399                    S(26):                                 ! LONG ICONST IN EXPRN
  2400                             D=512+GLA; D=D+3<<11 %IF LONGREAL=1

C 0000CA9A    41100200        LA      1,  512(  0,  0)
C 0000CA9E    5A10D150        A       1,  336(  0, 13)
C 0000CAA2    50106044        ST      1,   68(  0,  6)



C 0000CAA6    95017071        CLI    113(  7),  1
C 0000CAAA    477A0220        BC      7,  544( 10,  0)
C 0000CAAE    41100003        LA      1,    3(  0,  0)
C 0000CAB2    8910000B        SLL     1,   11(  0)
C 0000CAB6    5A106044        A       1,   68(  0,  6)
C 0000CABA    50106044        ST      1,   68(  0,  6)


  2401                             C=SORT CONST(ST(JJ+1),LONGREAL,2);->99

C 0000CABE    41100001        LA      1,    1(  0,  0)
C 0000CAC2    5A10705C        A       1,   92(  0,  7)
C 0000CAC6    4130915C        LA      3,  348(  0,  9)
C 0000CACA    45F0C05C        BAL    15,   92(  0, 12)
C 0000CACE    5811F000        L       1,    0(  1, 15)
C 0000CAD2    5010B040        ST      1,   64(  0, 11)
C 0000CAD6    1F11            SLR     1,  1
C 0000CAD8    43107071        IC      1,  113(  0,  7)
C 0000CADC    5010B044        ST      1,   68(  0, 11)
C 0000CAE0    41100002        LA      1,    2(  0,  0)
C 0000CAE4    5010B048        ST      1,   72(  0, 11)
C 0000CAE8    5810D44C        L       1, 1100(  0, 13)
C 0000CAEC    45F0D074        BAL    15,  116(  0, 13)
C 0000CAF0    50106040        ST      1,   64(  0,  6)



C 0000CAF4    47FA0000        BC     15,    0( 10,  0)


  2402                    S(2):    S(27):                        !LOCAL VARIABLE
  2403                             D=ST(JJ+1); C=ST(JJ+2); ->99

C 0000CAF8    41100001        LA      1,    1(  0,  0)
C 0000CAFC    5A10705C        A       1,   92(  0,  7)
C 0000CB00    4130915C        LA      3,  348(  0,  9)
C 0000CB04    45F0C05C        BAL    15,   92(  0, 12)
C 0000CB08    5811F000        L       1,    0(  1, 15)
C 0000CB0C    50106044        ST      1,   68(  0,  6)



C 0000CB10    41100002        LA      1,    2(  0,  0)
C 0000CB14    5A10705C        A       1,   92(  0,  7)
C 0000CB18    4130915C        LA      3,  348(  0,  9)
C 0000CB1C    45F0C05C        BAL    15,   92(  0, 12)
C 0000CB20    5811F000        L       1,    0(  1, 15)
C 0000CB24    50106040        ST      1,   64(  0,  6)



C 0000CB28    47FA0000        BC     15,    0( 10,  0)


  2404                    S(33):                            ! REAL IN FR
  2405                             D=ST(JJ+1); C=-2; ->99

C 0000CB2C    41100001        LA      1,    1(  0,  0)
C 0000CB30    5A10705C        A       1,   92(  0,  7)
C 0000CB34    4130915C        LA      3,  348(  0,  9)
C 0000CB38    45F0C05C        BAL    15,   92(  0, 12)
C 0000CB3C    5811F000        L       1,    0(  1, 15)
C 0000CB40    50106044        ST      1,   68(  0,  6)



C 0000CB44    41100002        LA      1,    2(  0,  0)
C 0000CB48    1311            LCR     1,  1
C 0000CB4A    50106040        ST      1,   64(  0,  6)



C 0000CB4E    47FA0000        BC     15,    0( 10,  0)


  2406                    S(9):    S(34):                        !(INTEGER)  IN G.R.
  2407                             D=256+ST(JJ+1); C=-2; ->99

C 0000CB52    41100001        LA      1,    1(  0,  0)
C 0000CB56    5A10705C        A       1,   92(  0,  7)
C 0000CB5A    4130915C        LA      3,  348(  0,  9)
C 0000CB5E    45F0C05C        BAL    15,   92(  0, 12)
C 0000CB62    5851F000        L       5,    0(  1, 15)
C 0000CB66    41100100        LA      1,  256(  0,  0)
C 0000CB6A    1A51            AR      5,  1
C 0000CB6C    50506044        ST      5,   68(  0,  6)



C 0000CB70    41100002        LA      1,    2(  0,  0)
C 0000CB74    1311            LCR     1,  1
C 0000CB76    50106040        ST      1,   64(  0,  6)



C 0000CB7A    47FA0000        BC     15,    0( 10,  0)


  2408                    S(10):   S(35):                        !PARKED IN CORE
  2409                             C=ST(JJ+2);D=ST(JJ+1)

C 0000CB7E    41100002        LA      1,    2(  0,  0)
C 0000CB82    5A10705C        A       1,   92(  0,  7)
C 0000CB86    4130915C        LA      3,  348(  0,  9)
C 0000CB8A    45F0C05C        BAL    15,   92(  0, 12)
C 0000CB8E    5811F000        L       1,    0(  1, 15)
C 0000CB92    50106040        ST      1,   64(  0,  6)



C 0000CB96    41100001        LA      1,    1(  0,  0)
C 0000CB9A    5A10705C        A       1,   92(  0,  7)
C 0000CB9E    4130915C        LA      3,  348(  0,  9)
C 0000CBA2    45F0C05C        BAL    15,   92(  0, 12)
C 0000CBA6    5811F000        L       1,    0(  1, 15)
C 0000CBAA    50106044        ST      1,   68(  0,  6)


  2410                             %IF REAL=1 %AND D>>8&24=24 %THEN PUSH(LWSP(LEVEL),0,C) %ELSE          PUSH(WSP(LEVEL),0,C); ->99

C 0000CBAE    95017070        CLI    112(  7),  1
C 0000CBB2    477A035C        BC      7,  860( 10,  0)
C 0000CBB6    58106044        L       1,   68(  0,  6)
C 0000CBBA    88100008        SRL     1,    8(  0)
C 0000CBBE    41200018        LA      2,   24(  0,  0)
C 0000CBC2    1412            NR      1,  2
C 0000CBC4    41200018        LA      2,   24(  0,  0)
C 0000CBC8    1912            CR      1,  2
C 0000CBCA    477A035C        BC      7,  860( 10,  0)
C 0000CBCE    581090A8        L       1,  168(  0,  9)
C 0000CBD2    4130923C        LA      3,  572(  0,  9)
C 0000CBD6    45F0C05C        BAL    15,   92(  0, 12)
C 0000CBDA    4111F000        LA      1,    0(  1, 15)
C 0000CBDE    5010B040        ST      1,   64(  0, 11)
C 0000CBE2    1F11            SLR     1,  1
C 0000CBE4    5010B044        ST      1,   68(  0, 11)
C 0000CBE8    D203B0486040    MVC     72(  4, 11),   64(  6)
C 0000CBEE    5810D3E0        L       1,  992(  0, 13)
C 0000CBF2    45F0D074        BAL    15,  116(  0, 13)
C 0000CBF6    47FA0384        BC     15,  900( 10,  0)
C 0000CBFA    581090A8        L       1,  168(  0,  9)
C 0000CBFE    4130920C        LA      3,  524(  0,  9)
C 0000CC02    45F0C05C        BAL    15,   92(  0, 12)
C 0000CC06    4111F000        LA      1,    0(  1, 15)
C 0000CC0A    5010B040        ST      1,   64(  0, 11)
C 0000CC0E    1F11            SLR     1,  1
C 0000CC10    5010B044        ST      1,   68(  0, 11)
C 0000CC14    D203B0486040    MVC     72(  4, 11),   64(  6)
C 0000CC1A    5810D3E0        L       1,  992(  0, 13)
C 0000CC1E    45F0D074        BAL    15,  116(  0, 13)



C 0000CC22    47FA0000        BC     15,    0( 10,  0)


  2411                    S(11):                                 ! NEGATE IN INTEGER EXPRN
  2412                             -> 109 %UNLESS PT(1)=255 %AND DP(1)=1

C 0000CC26    41100001        LA      1,    1(  0,  0)
C 0000CC2A    41307090        LA      3,  144(  0,  7)
C 0000CC2E    45F0C05C        BAL    15,   92(  0, 12)
C 0000CC32    5811F000        L       1,    0(  1, 15)
C 0000CC36    412000FF        LA      2,  255(  0,  0)
C 0000CC3A    1912            CR      1,  2
C 0000CC3C    477A0000        BC      7,    0( 10,  0)
C 0000CC40    41100001        LA      1,    1(  0,  0)
C 0000CC44    413070A0        LA      3,  160(  0,  7)
C 0000CC48    45F0C05C        BAL    15,   92(  0, 12)
C 0000CC4C    5811F000        L       1,    0(  1, 15)
C 0000CC50    41200001        LA      2,    1(  0,  0)
C 0000CC54    1912            CR      1,  2
C 0000CC56    477A0000        BC      7,    0( 10,  0)


  2413                             AFLAG=0; D=256+GLA; C=16; ->99 ;! OPTIMISE (-1)

C 0000CC5A    920090C8        MVI    200(  9),  0



C 0000CC5E    41100100        LA      1,  256(  0,  0)
C 0000CC62    5A10D150        A       1,  336(  0, 13)
C 0000CC66    50106044        ST      1,   68(  0,  6)



C 0000CC6A    41100010        LA      1,   16(  0,  0)
C 0000CC6E    50106040        ST      1,   64(  0,  6)



C 0000CC72    47FA0000        BC     15,    0( 10,  0)


  2414                    S(36):                                 ! NEGATE IN REAL EXPRN
  2415                    109:     C=1; D=X'13'+REAL*(32-EVALUATE)

C 0000CC76    41100001        LA      1,    1(  0,  0)
C 0000CC7A    50106040        ST      1,   64(  0,  6)



C 0000CC7E    41100020        LA      1,   32(  0,  0)
C 0000CC82    5B107064        S       1,  100(  0,  7)
C 0000CC86    1851            LR      5,  1
C 0000CC88    1F11            SLR     1,  1
C 0000CC8A    43107070        IC      1,  112(  0,  7)
C 0000CC8E    1C41            MR      4,  1
C 0000CC90    41100013        LA      1,   19(  0,  0)
C 0000CC94    1A51            AR      5,  1
C 0000CC96    50506044        ST      5,   68(  0,  6)


  2416                             LOAD(C,-1,REAL)

C 0000CC9A    41106040        LA      1,   64(  0,  6)
C 0000CC9E    5010B040        ST      1,   64(  0, 11)
C 0000CCA2    5810D010        L       1,   16(  0, 13)
C 0000CCA6    5010B044        ST      1,   68(  0, 11)
C 0000CCAA    1F11            SLR     1,  1
C 0000CCAC    43107070        IC      1,  112(  0,  7)
C 0000CCB0    5010B048        ST      1,   72(  0, 11)
C 0000CCB4    5810D52C        L       1, 1324(  0, 13)
C 0000CCB8    45F0D074        BAL    15,  116(  0, 13)


  2417                             AFLAG=1

C 0000CCBC    920190C8        MVI    200(  9),  1


  2418                             PRR(D,BS(1),BS(1));           ! LCR,LCER,LCDR

C 0000CCC0    D203B0406044    MVC     64(  4, 11),   68(  6)
C 0000CCC6    41100001        LA      1,    1(  0,  0)
C 0000CCCA    41307080        LA      3,  128(  0,  7)
C 0000CCCE    45F0C05C        BAL    15,   92(  0, 12)
C 0000CCD2    5811F000        L       1,    0(  1, 15)
C 0000CCD6    5010B044        ST      1,   68(  0, 11)
C 0000CCDA    41100001        LA      1,    1(  0,  0)
C 0000CCDE    41307080        LA      3,  128(  0,  7)
C 0000CCE2    45F0C05C        BAL    15,   92(  0, 12)
C 0000CCE6    5811F000        L       1,    0(  1, 15)
C 0000CCEA    5010B048        ST      1,   72(  0, 11)
C 0000CCEE    5810D1D0        L       1,  464(  0, 13)
C 0000CCF2    45F0D074        BAL    15,  116(  0, 13)


  2419                    111:     D=(REAL+1+24*LONGREAL)<<8!BS(C)

C 0000CCF6    41100001        LA      1,    1(  0,  0)
C 0000CCFA    1F22            SLR     2,  2
C 0000CCFC    43207070        IC      2,  112(  0,  7)
C 0000CD00    1A12            AR      1,  2
C 0000CD02    41300018        LA      3,   24(  0,  0)
C 0000CD06    1F44            SLR     4,  4
C 0000CD08    43407071        IC      4,  113(  0,  7)
C 0000CD0C    1C24            MR      2,  4
C 0000CD0E    1A13            AR      1,  3
C 0000CD10    1851            LR      5,  1
C 0000CD12    58106040        L       1,   64(  0,  6)
C 0000CD16    41307080        LA      3,  128(  0,  7)
C 0000CD1A    45F0C05C        BAL    15,   92(  0, 12)
C 0000CD1E    5841F000        L       4,    0(  1, 15)
C 0000CD22    89500008        SLL     5,    8(  0)
C 0000CD26    1654            OR      5,  4
C 0000CD28    50506044        ST      5,   68(  0,  6)


  2420                             C=-2; ->99

C 0000CD2C    41100002        LA      1,    2(  0,  0)
C 0000CD30    1311            LCR     1,  1
C 0000CD32    50106040        ST      1,   64(  0,  6)



C 0000CD36    47FA0000        BC     15,    0( 10,  0)


  2421                    S(23):                                 !INITIAL NOT
  2422                             C=1; AFLAG=2; LOAD(C,-1,0)

C 0000CD3A    41100001        LA      1,    1(  0,  0)
C 0000CD3E    50106040        ST      1,   64(  0,  6)



C 0000CD42    920290C8        MVI    200(  9),  2



C 0000CD46    41106040        LA      1,   64(  0,  6)
C 0000CD4A    5010B040        ST      1,   64(  0, 11)
C 0000CD4E    5810D010        L       1,   16(  0, 13)
C 0000CD52    5010B044        ST      1,   68(  0, 11)
C 0000CD56    1F11            SLR     1,  1
C 0000CD58    5010B048        ST      1,   72(  0, 11)
C 0000CD5C    5810D52C        L       1, 1324(  0, 13)
C 0000CD60    45F0D074        BAL    15,  116(  0, 13)


  2423                             PRX(X'57',BS(1),0,GLA,16); ->111

C 0000CD64    41100057        LA      1,   87(  0,  0)
C 0000CD68    5010B040        ST      1,   64(  0, 11)
C 0000CD6C    41100001        LA      1,    1(  0,  0)
C 0000CD70    41307080        LA      3,  128(  0,  7)
C 0000CD74    45F0C05C        BAL    15,   92(  0, 12)
C 0000CD78    5811F000        L       1,    0(  1, 15)
C 0000CD7C    5010B044        ST      1,   68(  0, 11)
C 0000CD80    1F11            SLR     1,  1
C 0000CD82    5010B048        ST      1,   72(  0, 11)
C 0000CD86    D203B04CD150    MVC     76(  4, 11),  336( 13)
C 0000CD8C    41100010        LA      1,   16(  0,  0)
C 0000CD90    5010B050        ST      1,   80(  0, 11)
C 0000CD94    5810D1C0        L       1,  448(  0, 13)
C 0000CD98    45F0D074        BAL    15,  116(  0, 13)



C 0000CD9C    47F0A458        BC     15, 1112(  0, 10)


  2424                    S(12):   S(37):                        !ADDITION
  2425                             AFLAG=1;D=X'5A'

C 0000CDA0    920190C8        MVI    200(  9),  1



C 0000CDA4    4110005A        LA      1,   90(  0,  0)
C 0000CDA8    50106044        ST      1,   68(  0,  6)


  2426                    125:     C=0

C 0000CDAC    1F11            SLR     1,  1
C 0000CDAE    50106040        ST      1,   64(  0,  6)


  2427                    126:     LOAD(C,-1,REAL); TEST(3-C)

C 0000CDB2    41106040        LA      1,   64(  0,  6)
C 0000CDB6    5010B040        ST      1,   64(  0, 11)
C 0000CDBA    5810D010        L       1,   16(  0, 13)
C 0000CDBE    5010B044        ST      1,   68(  0, 11)
C 0000CDC2    1F11            SLR     1,  1
C 0000CDC4    43107070        IC      1,  112(  0,  7)
C 0000CDC8    5010B048        ST      1,   72(  0, 11)
C 0000CDCC    5810D52C        L       1, 1324(  0, 13)
C 0000CDD0    45F0D074        BAL    15,  116(  0, 13)



C 0000CDD4    41100003        LA      1,    3(  0,  0)
C 0000CDD8    5B106040        S       1,   64(  0,  6)
C 0000CDDC    5010B040        ST      1,   64(  0, 11)
C 0000CDE0    5810D520        L       1, 1312(  0, 13)
C 0000CDE4    45F0D074        BAL    15,  116(  0, 13)


  2428                             D=D+REAL*(X'20'-EVALUATE)

C 0000CDE8    41100020        LA      1,   32(  0,  0)
C 0000CDEC    5B107064        S       1,  100(  0,  7)
C 0000CDF0    1851            LR      5,  1
C 0000CDF2    1F11            SLR     1,  1
C 0000CDF4    43107070        IC      1,  112(  0,  7)
C 0000CDF8    1C41            MR      4,  1
C 0000CDFA    5A506044        A       5,   68(  0,  6)
C 0000CDFE    50506044        ST      5,   68(  0,  6)


  2429                             PLANT(D,C,3-C);->111

C 0000CE02    D203B0406044    MVC     64(  4, 11),   68(  6)
C 0000CE08    D203B0446040    MVC     68(  4, 11),   64(  6)
C 0000CE0E    41100003        LA      1,    3(  0,  0)
C 0000CE12    5B106040        S       1,   64(  0,  6)
C 0000CE16    5010B048        ST      1,   72(  0, 11)
C 0000CE1A    5810D524        L       1, 1316(  0, 13)
C 0000CE1E    45F0D074        BAL    15,  116(  0, 13)



C 0000CE22    47F0A458        BC     15, 1112(  0, 10)


  2430                    S(13):   S(38):                        !SUBTRACTION
  2431                             AFLAG=1; D=X'5B';C=1

C 0000CE26    920190C8        MVI    200(  9),  1



C 0000CE2A    4110005B        LA      1,   91(  0,  0)
C 0000CE2E    50106044        ST      1,   68(  0,  6)



C 0000CE32    41100001        LA      1,    1(  0,  0)
C 0000CE36    50106040        ST      1,   64(  0,  6)


  2432                             ->126 %UNLESS REAL=0 %AND PT(2)=255 %AND 1<=DP(2)<=2

C 0000CE3A    95007070        CLI    112(  7),  0
C 0000CE3E    4770A514        BC      7, 1300(  0, 10)
C 0000CE42    41100002        LA      1,    2(  0,  0)
C 0000CE46    41307090        LA      3,  144(  0,  7)
C 0000CE4A    45F0C05C        BAL    15,   92(  0, 12)
C 0000CE4E    5811F000        L       1,    0(  1, 15)
C 0000CE52    412000FF        LA      2,  255(  0,  0)
C 0000CE56    1912            CR      1,  2
C 0000CE58    4770A514        BC      7, 1300(  0, 10)
C 0000CE5C    41100002        LA      1,    2(  0,  0)
C 0000CE60    413070A0        LA      3,  160(  0,  7)
C 0000CE64    45F0C05C        BAL    15,   92(  0, 12)
C 0000CE68    5811F000        L       1,    0(  1, 15)
C 0000CE6C    41200001        LA      2,    1(  0,  0)
C 0000CE70    1921            CR      2,  1
C 0000CE72    4730A514        BC      3, 1300(  0, 10)
C 0000CE76    41200002        LA      2,    2(  0,  0)
C 0000CE7A    1912            CR      1,  2
C 0000CE7C    4730A514        BC      3, 1300(  0, 10)


  2433                             AFLAG=0; LOAD(C,-1,0)

C 0000CE80    920090C8        MVI    200(  9),  0



C 0000CE84    41106040        LA      1,   64(  0,  6)
C 0000CE88    5010B040        ST      1,   64(  0, 11)
C 0000CE8C    5810D010        L       1,   16(  0, 13)
C 0000CE90    5010B044        ST      1,   68(  0, 11)
C 0000CE94    1F11            SLR     1,  1
C 0000CE96    5010B048        ST      1,   72(  0, 11)
C 0000CE9A    5810D52C        L       1, 1324(  0, 13)
C 0000CE9E    45F0D074        BAL    15,  116(  0, 13)


  2434                             PRR(6,BS(1),0) %IF DP(2)=2

C 0000CEA2    41100002        LA      1,    2(  0,  0)
C 0000CEA6    413070A0        LA      3,  160(  0,  7)
C 0000CEAA    45F0C05C        BAL    15,   92(  0, 12)
C 0000CEAE    5811F000        L       1,    0(  1, 15)
C 0000CEB2    41200002        LA      2,    2(  0,  0)
C 0000CEB6    1912            CR      1,  2
C 0000CEB8    477A0648        BC      7, 1608( 10,  0)
C 0000CEBC    41100006        LA      1,    6(  0,  0)
C 0000CEC0    5010B040        ST      1,   64(  0, 11)
C 0000CEC4    41100001        LA      1,    1(  0,  0)
C 0000CEC8    41307080        LA      3,  128(  0,  7)
C 0000CECC    45F0C05C        BAL    15,   92(  0, 12)
C 0000CED0    5811F000        L       1,    0(  1, 15)
C 0000CED4    5010B044        ST      1,   68(  0, 11)
C 0000CED8    1F11            SLR     1,  1
C 0000CEDA    5010B048        ST      1,   72(  0, 11)
C 0000CEDE    5810D1D0        L       1,  464(  0, 13)
C 0000CEE2    45F0D074        BAL    15,  116(  0, 13)


  2435                             PRR(6,BS(1),0);->111          ;!BCTR TO SUBTRACT 1 OR 2

C 0000CEE6    41100006        LA      1,    6(  0,  0)
C 0000CEEA    5010B040        ST      1,   64(  0, 11)
C 0000CEEE    41100001        LA      1,    1(  0,  0)
C 0000CEF2    41307080        LA      3,  128(  0,  7)
C 0000CEF6    45F0C05C        BAL    15,   92(  0, 12)
C 0000CEFA    5811F000        L       1,    0(  1, 15)
C 0000CEFE    5010B044        ST      1,   68(  0, 11)
C 0000CF02    1F11            SLR     1,  1
C 0000CF04    5010B048        ST      1,   72(  0, 11)
C 0000CF08    5810D1D0        L       1,  464(  0, 13)
C 0000CF0C    45F0D074        BAL    15,  116(  0, 13)



C 0000CF10    47F0A458        BC     15, 1112(  0, 10)


  2436                    S(14):   D=X'57';                      !EXCLUSIVE OR

C 0000CF14    41100057        LA      1,   87(  0,  0)
C 0000CF18    50106044        ST      1,   68(  0,  6)


  2437                    141:     AFLAG=2; ->125

C 0000CF1C    920290C8        MVI    200(  9),  2



C 0000CF20    47F0A50E        BC     15, 1294(  0, 10)


  2438                    S(15):   D=X'56';->141;                !OR

C 0000CF24    41100056        LA      1,   86(  0,  0)
C 0000CF28    50106044        ST      1,   68(  0,  6)



C 0000CF2C    47F0A67E        BC     15, 1662(  0, 10)


  2439                    S(16):   MULT(D); C=-2; ->99

C 0000CF30    41106044        LA      1,   68(  0,  6)
C 0000CF34    5010B040        ST      1,   64(  0, 11)
C 0000CF38    5810D544        L       1, 1348(  0, 13)
C 0000CF3C    45F0D074        BAL    15,  116(  0, 13)



C 0000CF40    41100002        LA      1,    2(  0,  0)
C 0000CF44    1311            LCR     1,  1
C 0000CF46    50106040        ST      1,   64(  0,  6)



C 0000CF4A    47FA0000        BC     15,    0( 10,  0)


  2440                    S(17):S(18):   DIV(D); C=-2; ->99

C 0000CF4E    41106044        LA      1,   68(  0,  6)
C 0000CF52    5010B040        ST      1,   64(  0, 11)
C 0000CF56    5810D548        L       1, 1352(  0, 13)
C 0000CF5A    45F0D074        BAL    15,  116(  0, 13)



C 0000CF5E    41100002        LA      1,    2(  0,  0)
C 0000CF62    1311            LCR     1,  1
C 0000CF64    50106040        ST      1,   64(  0,  6)



C 0000CF68    47FA0000        BC     15,    0( 10,  0)


  2441                    S(19):   D=X'54';->141;                !AND

C 0000CF6C    41100054        LA      1,   84(  0,  0)
C 0000CF70    50106044        ST      1,   68(  0,  6)



C 0000CF74    47F0A67E        BC     15, 1662(  0, 10)


  2442                    S(20):S(21):                           !SLL(21) AND SLR
  2443                             D=0

C 0000CF78    1F11            SLR     1,  1
C 0000CF7A    50106044        ST      1,   68(  0,  6)


  2444                             C=1; LOAD(C,-1,0)

C 0000CF7E    41100001        LA      1,    1(  0,  0)
C 0000CF82    50106040        ST      1,   64(  0,  6)



C 0000CF86    41106040        LA      1,   64(  0,  6)
C 0000CF8A    5010B040        ST      1,   64(  0, 11)
C 0000CF8E    5810D010        L       1,   16(  0, 13)
C 0000CF92    5010B044        ST      1,   68(  0, 11)
C 0000CF96    1F11            SLR     1,  1
C 0000CF98    5010B048        ST      1,   72(  0, 11)
C 0000CF9C    5810D52C        L       1, 1324(  0, 13)
C 0000CFA0    45F0D074        BAL    15,  116(  0, 13)


  2445                             D=1 %IF PT(2)=255

C 0000CFA4    41100002        LA      1,    2(  0,  0)
C 0000CFA8    41307090        LA      3,  144(  0,  7)
C 0000CFAC    45F0C05C        BAL    15,   92(  0, 12)
C 0000CFB0    5811F000        L       1,    0(  1, 15)
C 0000CFB4    412000FF        LA      2,  255(  0,  0)
C 0000CFB8    1912            CR      1,  2
C 0000CFBA    477A0728        BC      7, 1832( 10,  0)
C 0000CFBE    41100001        LA      1,    1(  0,  0)
C 0000CFC2    50106044        ST      1,   68(  0,  6)


  2446                             C=2; LOAD(C,-1,0) %IF D=0

C 0000CFC6    41100002        LA      1,    2(  0,  0)
C 0000CFCA    50106040        ST      1,   64(  0,  6)



C 0000CFCE    58106044        L       1,   68(  0,  6)
C 0000CFD2    1211            LTR     1,  1
C 0000CFD4    477A0758        BC      7, 1880( 10,  0)
C 0000CFD8    41106040        LA      1,   64(  0,  6)
C 0000CFDC    5010B040        ST      1,   64(  0, 11)
C 0000CFE0    5810D010        L       1,   16(  0, 13)
C 0000CFE4    5010B044        ST      1,   68(  0, 11)
C 0000CFE8    1F11            SLR     1,  1
C 0000CFEA    5010B048        ST      1,   72(  0, 11)
C 0000CFEE    5810D52C        L       1, 1324(  0, 13)
C 0000CFF2    45F0D074        BAL    15,  116(  0, 13)


  2447                             PRX(X'89'+OPCODE-21,BS(1),0,BS(2),D*DP(2))

C 0000CFF6    41100089        LA      1,  137(  0,  0)
C 0000CFFA    5A107060        A       1,   96(  0,  7)
C 0000CFFE    41200015        LA      2,   21(  0,  0)
C 0000D002    1B12            SR      1,  2
C 0000D004    5010B040        ST      1,   64(  0, 11)
C 0000D008    41100001        LA      1,    1(  0,  0)
C 0000D00C    41307080        LA      3,  128(  0,  7)
C 0000D010    45F0C05C        BAL    15,   92(  0, 12)
C 0000D014    5811F000        L       1,    0(  1, 15)
C 0000D018    5010B044        ST      1,   68(  0, 11)
C 0000D01C    1F11            SLR     1,  1
C 0000D01E    5010B048        ST      1,   72(  0, 11)
C 0000D022    41100002        LA      1,    2(  0,  0)
C 0000D026    41307080        LA      3,  128(  0,  7)
C 0000D02A    45F0C05C        BAL    15,   92(  0, 12)
C 0000D02E    5811F000        L       1,    0(  1, 15)
C 0000D032    5010B04C        ST      1,   76(  0, 11)
C 0000D036    41100002        LA      1,    2(  0,  0)
C 0000D03A    413070A0        LA      3,  160(  0,  7)
C 0000D03E    45F0C05C        BAL    15,   92(  0, 12)
C 0000D042    5851F000        L       5,    0(  1, 15)
C 0000D046    5C406044        M       4,   68(  0,  6)
C 0000D04A    5050B050        ST      5,   80(  0, 11)
C 0000D04E    5810D1C0        L       1,  448(  0, 13)
C 0000D052    45F0D074        BAL    15,  116(  0, 13)


  2448                             REGISTER(BS(2))=0 %IF D=0

C 0000D056    58106044        L       1,   68(  0,  6)
C 0000D05A    1211            LTR     1,  1
C 0000D05C    477A07E0        BC      7, 2016( 10,  0)
C 0000D060    1F44            SLR     4,  4
C 0000D062    41100002        LA      1,    2(  0,  0)
C 0000D066    41307080        LA      3,  128(  0,  7)
C 0000D06A    45F0C05C        BAL    15,   92(  0, 12)
C 0000D06E    5811F000        L       1,    0(  1, 15)
C 0000D072    4130914C        LA      3,  332(  0,  9)
C 0000D076    45F0C05C        BAL    15,   92(  0, 12)
C 0000D07A    5041F000        ST      4,    0(  1, 15)


  2449                             C=1; AFLAG=0; ->111

C 0000D07E    41100001        LA      1,    1(  0,  0)
C 0000D082    50106040        ST      1,   64(  0,  6)



C 0000D086    920090C8        MVI    200(  9),  0



C 0000D08A    47F0A458        BC     15, 1112(  0, 10)


  2450                    S(22):   %CYCLE C=1,1,2

C 0000D08E    41406040        LA      4,   64(  0,  6)
C 0000D092    41200001        LA      2,    1(  0,  0)
C 0000D096    41300002        LA      3,    2(  0,  0)
C 0000D09A    90246068        STM     2,  4,  104(  6)
C 0000D09E    41100001        LA      1,    1(  0,  0)
C 0000D0A2    50104000        ST      1,    0(  0,  4)


  2451                             LOAD(C,-1,0)

C 0000D0A6    41106040        LA      1,   64(  0,  6)
C 0000D0AA    5010B040        ST      1,   64(  0, 11)
C 0000D0AE    5810D010        L       1,   16(  0, 13)
C 0000D0B2    5010B044        ST      1,   68(  0, 11)
C 0000D0B6    1F11            SLR     1,  1
C 0000D0B8    5010B048        ST      1,   72(  0, 11)
C 0000D0BC    5810D52C        L       1, 1324(  0, 13)
C 0000D0C0    45F0D074        BAL    15,  116(  0, 13)


  2452                             DUMP(1,BS(C),28+4*C,0,GLA)

C 0000D0C4    41100001        LA      1,    1(  0,  0)
C 0000D0C8    5010B040        ST      1,   64(  0, 11)
C 0000D0CC    58106040        L       1,   64(  0,  6)
C 0000D0D0    41307080        LA      3,  128(  0,  7)
C 0000D0D4    45F0C05C        BAL    15,   92(  0, 12)
C 0000D0D8    5811F000        L       1,    0(  1, 15)
C 0000D0DC    5010B044        ST      1,   68(  0, 11)
C 0000D0E0    41100004        LA      1,    4(  0,  0)
C 0000D0E4    5C006040        M       0,   64(  0,  6)
C 0000D0E8    4120001C        LA      2,   28(  0,  0)
C 0000D0EC    1A12            AR      1,  2
C 0000D0EE    5010B048        ST      1,   72(  0, 11)
C 0000D0F2    1F11            SLR     1,  1
C 0000D0F4    5010B04C        ST      1,   76(  0, 11)
C 0000D0F8    D203B050D150    MVC     80(  4, 11),  336( 13)
C 0000D0FE    5810D458        L       1, 1112(  0, 13)
C 0000D102    45F0D074        BAL    15,  116(  0, 13)


  2453                             REGISTER(BS(C))=0; %REPEAT

C 0000D106    1F44            SLR     4,  4
C 0000D108    58106040        L       1,   64(  0,  6)
C 0000D10C    41307080        LA      3,  128(  0,  7)
C 0000D110    45F0C05C        BAL    15,   92(  0, 12)
C 0000D114    5811F000        L       1,    0(  1, 15)
C 0000D118    4130914C        LA      3,  332(  0,  9)
C 0000D11C    45F0C05C        BAL    15,   92(  0, 12)
C 0000D120    5041F000        ST      4,    0(  1, 15)



C 0000D124    98246068        LM      2,  4,  104(  6)
C 0000D128    58104000        L       1,    0(  0,  4)
C 0000D12C    8712A804        BXLE    1,  2, 2052( 10)


  2454                             ->221 %IF REGISTER(0)#0

C 0000D130    1F11            SLR     1,  1
C 0000D132    4130914C        LA      3,  332(  0,  9)
C 0000D136    45F0C05C        BAL    15,   92(  0, 12)
C 0000D13A    5811F000        L       1,    0(  1, 15)
C 0000D13E    1211            LTR     1,  1
C 0000D140    477A0000        BC      7,    0( 10,  0)


  2455                             C=2; AFLAG=0

C 0000D144    41100002        LA      1,    2(  0,  0)
C 0000D148    50106040        ST      1,   64(  0,  6)



C 0000D14C    920090C8        MVI    200(  9),  0


  2456                             REGISTER(0)=1

C 0000D150    41400001        LA      4,    1(  0,  0)
C 0000D154    1F11            SLR     1,  1
C 0000D156    4130914C        LA      3,  332(  0,  9)
C 0000D15A    45F0C05C        BAL    15,   92(  0, 12)
C 0000D15E    5041F000        ST      4,    0(  1, 15)


  2457                             PPJ(15); BS(2)=0; ->111;      ! RESULT IN R0

C 0000D162    920FB043        MVI     67( 11), 15
C 0000D166    5810D46C        L       1, 1132(  0, 13)
C 0000D16A    45F0D074        BAL    15,  116(  0, 13)



C 0000D16E    1F44            SLR     4,  4
C 0000D170    41100002        LA      1,    2(  0,  0)
C 0000D174    41307080        LA      3,  128(  0,  7)
C 0000D178    45F0C05C        BAL    15,   92(  0, 12)
C 0000D17C    5041F000        ST      4,    0(  1, 15)



C 0000D180    47F0A458        BC     15, 1112(  0, 10)


  2458                    221:     C=FINDR; D=FINDR; PRR(X'18',C,0)

C 0000D184    5810D528        L       1, 1320(  0, 13)
C 0000D188    45F0D074        BAL    15,  116(  0, 13)
C 0000D18C    50106040        ST      1,   64(  0,  6)



C 0000D190    5810D528        L       1, 1320(  0, 13)
C 0000D194    45F0D074        BAL    15,  116(  0, 13)
C 0000D198    50106044        ST      1,   68(  0,  6)



C 0000D19C    41100018        LA      1,   24(  0,  0)
C 0000D1A0    5010B040        ST      1,   64(  0, 11)
C 0000D1A4    D203B0446040    MVC     68(  4, 11),   64(  6)
C 0000D1AA    1F11            SLR     1,  1
C 0000D1AC    5010B048        ST      1,   72(  0, 11)
C 0000D1B0    5810D1D0        L       1,  464(  0, 13)
C 0000D1B4    45F0D074        BAL    15,  116(  0, 13)


  2459                             PPJ(15); PRR(X'18',D,0); PRR(X'18',0,C)

C 0000D1B8    920FB043        MVI     67( 11), 15
C 0000D1BC    5810D46C        L       1, 1132(  0, 13)
C 0000D1C0    45F0D074        BAL    15,  116(  0, 13)



C 0000D1C4    41100018        LA      1,   24(  0,  0)
C 0000D1C8    5010B040        ST      1,   64(  0, 11)
C 0000D1CC    D203B0446044    MVC     68(  4, 11),   68(  6)
C 0000D1D2    1F11            SLR     1,  1
C 0000D1D4    5010B048        ST      1,   72(  0, 11)
C 0000D1D8    5810D1D0        L       1,  464(  0, 13)
C 0000D1DC    45F0D074        BAL    15,  116(  0, 13)



C 0000D1E0    41100018        LA      1,   24(  0,  0)
C 0000D1E4    5010B040        ST      1,   64(  0, 11)
C 0000D1E8    1F11            SLR     1,  1
C 0000D1EA    5010B044        ST      1,   68(  0, 11)
C 0000D1EE    D203B0486040    MVC     72(  4, 11),   64(  6)
C 0000D1F4    5810D1D0        L       1,  464(  0, 13)
C 0000D1F8    45F0D074        BAL    15,  116(  0, 13)


  2460                             REGISTER(C)=0; C=2; AFLAG=0; BS(2)=D; ->111

C 0000D1FC    1F44            SLR     4,  4
C 0000D1FE    58106040        L       1,   64(  0,  6)
C 0000D202    4130914C        LA      3,  332(  0,  9)
C 0000D206    45F0C05C        BAL    15,   92(  0, 12)
C 0000D20A    5041F000        ST      4,    0(  1, 15)



C 0000D20E    41100002        LA      1,    2(  0,  0)
C 0000D212    50106040        ST      1,   64(  0,  6)



C 0000D216    920090C8        MVI    200(  9),  0



C 0000D21A    58406044        L       4,   68(  0,  6)
C 0000D21E    41100002        LA      1,    2(  0,  0)
C 0000D222    41307080        LA      3,  128(  0,  7)
C 0000D226    45F0C05C        BAL    15,   92(  0, 12)
C 0000D22A    5041F000        ST      4,    0(  1, 15)



C 0000D22E    47F0A458        BC     15, 1112(  0, 10)


  2461                    S(39):S(40):S(42):S(44):S(45):S(46):S(48):  !INTEGER OP IN REAL
  2462                             FAULT(24);                    ! INTEGER OP IN REAL

C 0000D232    9218B043        MVI     67( 11), 24
C 0000D236    5810D228        L       1,  552(  0, 13)
C 0000D23A    45F0D074        BAL    15,  116(  0, 13)


  2463                             %IF OPCODE=23 %THEN OPCODE=36 %ELSE OPCODE=37;! \ -> -

C 0000D23E    41100017        LA      1,   23(  0,  0)
C 0000D242    59107060        C       1,   96(  0,  7)
C 0000D246    477A09B8        BC      7, 2488( 10,  0)
C 0000D24A    41100024        LA      1,   36(  0,  0)
C 0000D24E    50107060        ST      1,   96(  0,  7)
C 0000D252    47FA09C0        BC     15, 2496( 10,  0)
C 0000D256    41100025        LA      1,   37(  0,  0)
C 0000D25A    50107060        ST      1,   96(  0,  7)


  2464                             ->S(OPCODE);                  ! ! TREAT OTHERS AS +

C 0000D25E    58107060        L       1,   96(  0,  7)
C 0000D262    1A11            AR      1,  1
C 0000D264    4811A00E        LH      1,   14(  1, 10)
C 0000D268    47F1A000        BC     15,    0(  1, 10)


  2465                    S(41):                                 !REAL MULT
  2466                             D=X'5C';C=0

C 0000D26C    4110005C        LA      1,   92(  0,  0)
C 0000D270    50106044        ST      1,   68(  0,  6)



C 0000D274    1F11            SLR     1,  1
C 0000D276    50106040        ST      1,   64(  0,  6)


  2467                    410:     AFLAG=0; -> 126

C 0000D27A    920090C8        MVI    200(  9),  0



C 0000D27E    47F0A514        BC     15, 1300(  0, 10)


  2468                    S(43):                                 ! REAL DIVISION
  2469                             D=X'5D';C=1;->410

C 0000D282    4110005D        LA      1,   93(  0,  0)
C 0000D286    50106044        ST      1,   68(  0,  6)



C 0000D28A    41100001        LA      1,    1(  0,  0)
C 0000D28E    50106040        ST      1,   64(  0,  6)



C 0000D292    47F0A9DC        BC     15, 2524(  0, 10)


  2470                    S(47):                                 !REAL EXPONENTIATION
  2471                             C=1; LOAD(C,-1,1)

C 0000D296    41100001        LA      1,    1(  0,  0)
C 0000D29A    50106040        ST      1,   64(  0,  6)



C 0000D29E    41106040        LA      1,   64(  0,  6)
C 0000D2A2    5010B040        ST      1,   64(  0, 11)
C 0000D2A6    5810D010        L       1,   16(  0, 13)
C 0000D2AA    5010B044        ST      1,   68(  0, 11)
C 0000D2AE    41100001        LA      1,    1(  0,  0)
C 0000D2B2    5010B048        ST      1,   72(  0, 11)
C 0000D2B6    5810D52C        L       1, 1324(  0, 13)
C 0000D2BA    45F0D074        BAL    15,  116(  0, 13)


  2472                             ->222 %IF PT(2)=255 %AND DP(2)=2;       ! OPTIMISE **2

C 0000D2BE    41100002        LA      1,    2(  0,  0)
C 0000D2C2    41307090        LA      3,  144(  0,  7)
C 0000D2C6    45F0C05C        BAL    15,   92(  0, 12)
C 0000D2CA    5811F000        L       1,    0(  1, 15)
C 0000D2CE    412000FF        LA      2,  255(  0,  0)
C 0000D2D2    1912            CR      1,  2
C 0000D2D4    477A0A54        BC      7, 2644( 10,  0)
C 0000D2D8    41100002        LA      1,    2(  0,  0)
C 0000D2DC    413070A0        LA      3,  160(  0,  7)
C 0000D2E0    45F0C05C        BAL    15,   92(  0, 12)
C 0000D2E4    5811F000        L       1,    0(  1, 15)
C 0000D2E8    41200002        LA      2,    2(  0,  0)
C 0000D2EC    1912            CR      1,  2
C 0000D2EE    478A0000        BC      8,    0( 10,  0)


  2473                             PRR(X'38'-EVALUATE,0,BS(1))

C 0000D2F2    41100038        LA      1,   56(  0,  0)
C 0000D2F6    5B107064        S       1,  100(  0,  7)
C 0000D2FA    5010B040        ST      1,   64(  0, 11)
C 0000D2FE    1F11            SLR     1,  1
C 0000D300    5010B044        ST      1,   68(  0, 11)
C 0000D304    41100001        LA      1,    1(  0,  0)
C 0000D308    41307080        LA      3,  128(  0,  7)
C 0000D30C    45F0C05C        BAL    15,   92(  0, 12)
C 0000D310    5811F000        L       1,    0(  1, 15)
C 0000D314    5010B048        ST      1,   72(  0, 11)
C 0000D318    5810D1D0        L       1,  464(  0, 13)
C 0000D31C    45F0D074        BAL    15,  116(  0, 13)


  2474                             C=2; FAULT(39) %UNLESS PT(2)=255 %OR PT(2)&7<=1

C 0000D320    41100002        LA      1,    2(  0,  0)
C 0000D324    50106040        ST      1,   64(  0,  6)



C 0000D328    41100002        LA      1,    2(  0,  0)
C 0000D32C    41307090        LA      3,  144(  0,  7)
C 0000D330    45F0C05C        BAL    15,   92(  0, 12)
C 0000D334    5811F000        L       1,    0(  1, 15)
C 0000D338    412000FF        LA      2,  255(  0,  0)
C 0000D33C    1912            CR      1,  2
C 0000D33E    478A0AD0        BC      8, 2768( 10,  0)
C 0000D342    41100002        LA      1,    2(  0,  0)
C 0000D346    41307090        LA      3,  144(  0,  7)
C 0000D34A    45F0C05C        BAL    15,   92(  0, 12)
C 0000D34E    5851F000        L       5,    0(  1, 15)
C 0000D352    41100007        LA      1,    7(  0,  0)
C 0000D356    1451            NR      5,  1
C 0000D358    41100001        LA      1,    1(  0,  0)
C 0000D35C    1951            CR      5,  1
C 0000D35E    47CA0AD0        BC     12, 2768( 10,  0)
C 0000D362    9227B043        MVI     67( 11), 39
C 0000D366    5810D228        L       1,  552(  0, 13)
C 0000D36A    45F0D074        BAL    15,  116(  0, 13)


  2475                             LOAD(C,1,0); PPJ(36)

C 0000D36E    41106040        LA      1,   64(  0,  6)
C 0000D372    5010B040        ST      1,   64(  0, 11)
C 0000D376    41100001        LA      1,    1(  0,  0)
C 0000D37A    5010B044        ST      1,   68(  0, 11)
C 0000D37E    1F11            SLR     1,  1
C 0000D380    5010B048        ST      1,   72(  0, 11)
C 0000D384    5810D52C        L       1, 1324(  0, 13)
C 0000D388    45F0D074        BAL    15,  116(  0, 13)



C 0000D38C    9224B043        MVI     67( 11), 36
C 0000D390    5810D46C        L       1, 1132(  0, 13)
C 0000D394    45F0D074        BAL    15,  116(  0, 13)


  2476                             REGISTER(1)=0

C 0000D398    1F44            SLR     4,  4
C 0000D39A    41100001        LA      1,    1(  0,  0)
C 0000D39E    4130914C        LA      3,  332(  0,  9)
C 0000D3A2    45F0C05C        BAL    15,   92(  0, 12)
C 0000D3A6    5041F000        ST      4,    0(  1, 15)


  2477                             PRR(X'38'-EVALUATE,BS(1),0)

C 0000D3AA    41100038        LA      1,   56(  0,  0)
C 0000D3AE    5B107064        S       1,  100(  0,  7)
C 0000D3B2    5010B040        ST      1,   64(  0, 11)
C 0000D3B6    41100001        LA      1,    1(  0,  0)
C 0000D3BA    41307080        LA      3,  128(  0,  7)
C 0000D3BE    45F0C05C        BAL    15,   92(  0, 12)
C 0000D3C2    5811F000        L       1,    0(  1, 15)
C 0000D3C6    5010B044        ST      1,   68(  0, 11)
C 0000D3CA    1F11            SLR     1,  1
C 0000D3CC    5010B048        ST      1,   72(  0, 11)
C 0000D3D0    5810D1D0        L       1,  464(  0, 13)
C 0000D3D4    45F0D074        BAL    15,  116(  0, 13)


  2478                             C=1;->111

C 0000D3D8    41100001        LA      1,    1(  0,  0)
C 0000D3DC    50106040        ST      1,   64(  0,  6)



C 0000D3E0    47F0A458        BC     15, 1112(  0, 10)


  2479                    222:     PRR(X'3C'-EVALUATE,BS(1),BS(1))

C 0000D3E4    4110003C        LA      1,   60(  0,  0)
C 0000D3E8    5B107064        S       1,  100(  0,  7)
C 0000D3EC    5010B040        ST      1,   64(  0, 11)
C 0000D3F0    41100001        LA      1,    1(  0,  0)
C 0000D3F4    41307080        LA      3,  128(  0,  7)
C 0000D3F8    45F0C05C        BAL    15,   92(  0, 12)
C 0000D3FC    5811F000        L       1,    0(  1, 15)
C 0000D400    5010B044        ST      1,   68(  0, 11)
C 0000D404    41100001        LA      1,    1(  0,  0)
C 0000D408    41307080        LA      3,  128(  0,  7)
C 0000D40C    45F0C05C        BAL    15,   92(  0, 12)
C 0000D410    5811F000        L       1,    0(  1, 15)
C 0000D414    5010B048        ST      1,   72(  0, 11)
C 0000D418    5810D1D0        L       1,  464(  0, 13)
C 0000D41C    45F0D074        BAL    15,  116(  0, 13)


  2480                             C=1; ->111

C 0000D420    41100001        LA      1,    1(  0,  0)
C 0000D424    50106040        ST      1,   64(  0,  6)



C 0000D428    47F0A458        BC     15, 1112(  0, 10)


  2481                    99:      PUSH(OPHEAD,D,C) %UNLESS JJ=LAST

C 0000D42C    D503705C6048    CLC     92(  4,  7),   72(  6)
C 0000D432    478A0BB4        BC      8, 2996( 10,  0)
C 0000D436    4110706C        LA      1,  108(  0,  7)
C 0000D43A    5010B040        ST      1,   64(  0, 11)
C 0000D43E    D203B0446044    MVC     68(  4, 11),   68(  6)
C 0000D444    D203B0486040    MVC     72(  4, 11),   64(  6)
C 0000D44A    5810D3E0        L       1,  992(  0, 13)
C 0000D44E    45F0D074        BAL    15,  116(  0, 13)


  2482                    S(24):S(49): %REPEAT

C 0000D452    98246050        LM      2,  4,   80(  6)
C 0000D456    58104000        L       1,    0(  0,  4)
C 0000D45A    8712A098        BXLE    1,  2,  152( 10)


  2483                             DP(1)=C;PT(1)=D>>8;BS(1)=D&15 ;! FINAL RESULT

C 0000D45E    58406040        L       4,   64(  0,  6)
C 0000D462    41100001        LA      1,    1(  0,  0)
C 0000D466    413070A0        LA      3,  160(  0,  7)
C 0000D46A    45F0C05C        BAL    15,   92(  0, 12)
C 0000D46E    5041F000        ST      4,    0(  1, 15)



C 0000D472    58406044        L       4,   68(  0,  6)
C 0000D476    88400008        SRL     4,    8(  0)
C 0000D47A    41100001        LA      1,    1(  0,  0)
C 0000D47E    41307090        LA      3,  144(  0,  7)
C 0000D482    45F0C05C        BAL    15,   92(  0, 12)
C 0000D486    5041F000        ST      4,    0(  1, 15)



C 0000D48A    4140000F        LA      4,   15(  0,  0)
C 0000D48E    54406044        N       4,   68(  0,  6)
C 0000D492    41100001        LA      1,    1(  0,  0)
C 0000D496    41307080        LA      3,  128(  0,  7)
C 0000D49A    45F0C05C        BAL    15,   92(  0, 12)
C 0000D49E    5041F000        ST      4,    0(  1, 15)


  2484                             %END
D 00000A14    C2 C2 C2 C2 09 4B 06 0B 50 52 49 4E 54 4F 52 44 45 52 53 B0 01 60 4C 02 4B 4B A5 C4 01 60 48 04 4C 41 53 54 01 60 44 01 44 FE A5 D4 01 60 40 01 43 00 00 00 FF FF FF FF


C 0000D4A2    D203D0146000    MVC     20(  4, 13),    0(  6)
C 0000D4A8    984F6010        LM      4, 15,   16(  6)
C 0000D4AC    07FF            BCR    15, 15


  2485                99:      %END;               ! OF ROUTINE CSEXP
D 00000A4C    C2 C2 C2 C2 08 05 07 05 43 53 45 58 50 4F 52 44 01 D5 34 02 4E 30 4C 02 01 70 7C 06 4C 41 53 54 4F 50 53 54 01 70 78 04 4E 4F 50 53 01 70 74 08 4F 50 45 52 41 54 4F 52 09 70 72 06 52 45 41 4C 4F 50 00 00 09 70 71 08 4C 4F 4E 47 52 45 41 4C 09 70 70 04 52 45 41 4C 11 70 6C 06 4F 50 48 45 41 44 00 01 01 70 68 04 4F 50 4E 44 01 70 64 08 45 56 41 4C 55 41 54 45 01 70 60 06 4F 50 43 4F 44 45 FF FE 01 70 5C 02 4A 4A 00 FF 01 70 58 01 58 00 00 01 01 70 54 03 4E 4F 50 28 01 70 50 02 51 50 A6 40 01 70 4C 01 44 FE A6 54 01 70 48 01 43 FE A6 5C 09 70 47 04 4D 4F 44 45 01 70 40 03 52 45 47 00 FF FF FF FF


C 0000D4AE    D203D0147000    MVC     20(  4, 13),    0(  7)
C 0000D4B4    984F7010        LM      4, 15,   16(  7)
C 0000D4B8    07FF            BCR    15, 15


  2486                     %INTEGERFN SORT CONST(%INTEGER P,LONG,TYPE)

C 0000D4BA    0000
C 0000D4BC    0000
C 0000D4BE    47FA0000        BC     15,    0( 10,  0)
C 0000D4C2    50F0B03C        ST     15,   60(  0, 11)
C 0000D4C6    D203B000D014    MVC      0(  4, 11),   20( 13)
C 0000D4CC    410009B6        LA      0, 2486(  0,  0)
C 0000D4D0    4000D014        STH     0,   20(  0, 13)
C 0000D4D4    187B            LR      7, 11
C 0000D4D6    41BB0000        LA     11,    0( 11,  0)
C 0000D4DA    41000004        LA      0,    4(  0,  0)
C 0000D4DE    59BD0044        C      11,   68( 13,  0)
C 0000D4E2    4720C054        BC      2,   84(  0, 12)
C 0000D4E6    05A0            BALR   10,  0


  2487                         %SHORTROUTINE
  2488                         %LONGREAL CVALUE
  2489                         %INTEGER I,K
  2490                         ->50 %IF TYPE=2

C 0000D4E8    41100002        LA      1,    2(  0,  0)
C 0000D4EC    59107048        C       1,   72(  0,  7)
C 0000D4F0    478A0000        BC      8,    0( 10,  0)


  2491                         FAULT(24) %IF A(P)&7#1

C 0000D4F4    58107040        L       1,   64(  0,  7)
C 0000D4F8    413092FC        LA      3,  764(  0,  9)
C 0000D4FC    45F0C05C        BAL    15,   92(  0, 12)
C 0000D500    4861F000        LH      6,    0(  1, 15)
C 0000D504    41100007        LA      1,    7(  0,  0)
C 0000D508    1461            NR      6,  1
C 0000D50A    41100001        LA      1,    1(  0,  0)
C 0000D50E    1961            CR      6,  1
C 0000D510    478A0038        BC      8,   56( 10,  0)
C 0000D514    9218B043        MVI     67( 11), 24
C 0000D518    5810D228        L       1,  552(  0, 13)
C 0000D51C    45F0D074        BAL    15,  116(  0, 13)


  2492                         %IF A(P)=9 %THEN I=A(P+1) %ELSE FROMAR4(P+1,I)

C 0000D520    58107040        L       1,   64(  0,  7)
C 0000D524    413092FC        LA      3,  764(  0,  9)
C 0000D528    45F0C05C        BAL    15,   92(  0, 12)
C 0000D52C    4811F000        LH      1,    0(  1, 15)
C 0000D530    41200009        LA      2,    9(  0,  0)
C 0000D534    1912            CR      1,  2
C 0000D536    477A006E        BC      7,  110( 10,  0)
C 0000D53A    41100001        LA      1,    1(  0,  0)
C 0000D53E    5A107040        A       1,   64(  0,  7)
C 0000D542    413092FC        LA      3,  764(  0,  9)
C 0000D546    45F0C05C        BAL    15,   92(  0, 12)
C 0000D54A    4811F000        LH      1,    0(  1, 15)
C 0000D54E    50107058        ST      1,   88(  0,  7)
C 0000D552    47FA008A        BC     15,  138( 10,  0)
C 0000D556    41100001        LA      1,    1(  0,  0)
C 0000D55A    5A107040        A       1,   64(  0,  7)
C 0000D55E    5010B040        ST      1,   64(  0, 11)
C 0000D562    41107058        LA      1,   88(  0,  7)
C 0000D566    5010B044        ST      1,   68(  0, 11)
C 0000D56A    5810D218        L       1,  536(  0, 13)
C 0000D56E    45F0D074        BAL    15,  116(  0, 13)


  2493                40:      K=N0

C 0000D572    D203705C9088    MVC     92(  4,  7),  136(  9)


  2494                         ST(K)=I; N0=N0+1

C 0000D578    58407058        L       4,   88(  0,  7)
C 0000D57C    5810705C        L       1,   92(  0,  7)
C 0000D580    4130915C        LA      3,  348(  0,  9)
C 0000D584    45F0C05C        BAL    15,   92(  0, 12)
C 0000D588    5041F000        ST      4,    0(  1, 15)



C 0000D58C    41100001        LA      1,    1(  0,  0)
C 0000D590    5A109088        A       1,  136(  0,  9)
C 0000D594    50109088        ST      1,  136(  0,  9)


  2495                         %RESULT =K<<2

C 0000D598    5810705C        L       1,   92(  0,  7)
C 0000D59C    89100002        SLL     1,    2(  0)
C 0000D5A0    D203D0147000    MVC     20(  4, 13),    0(  7)
C 0000D5A6    984F7010        LM      4, 15,   16(  7)
C 0000D5AA    07FF            BCR    15, 15


  2496                50:      CVALUE=0

C 0000D5AC    6860D028        LD      6,   40(  0, 13)
C 0000D5B0    60607050        STD     6,   80(  0,  7)


  2497                         ->60 %UNLESS A(P)&7=1

C 0000D5B4    58107040        L       1,   64(  0,  7)
C 0000D5B8    413092FC        LA      3,  764(  0,  9)
C 0000D5BC    45F0C05C        BAL    15,   92(  0, 12)
C 0000D5C0    4861F000        LH      6,    0(  1, 15)
C 0000D5C4    41100007        LA      1,    7(  0,  0)
C 0000D5C8    1461            NR      6,  1
C 0000D5CA    41100001        LA      1,    1(  0,  0)
C 0000D5CE    1961            CR      6,  1
C 0000D5D0    477A0000        BC      7,    0( 10,  0)


  2498                         %IF A(P)=9 %THEN I=A(P+1) %ELSE FROMAR4(P+1,I)

C 0000D5D4    58107040        L       1,   64(  0,  7)
C 0000D5D8    413092FC        LA      3,  764(  0,  9)
C 0000D5DC    45F0C05C        BAL    15,   92(  0, 12)
C 0000D5E0    4811F000        LH      1,    0(  1, 15)
C 0000D5E4    41200009        LA      2,    9(  0,  0)
C 0000D5E8    1912            CR      1,  2
C 0000D5EA    477A0122        BC      7,  290( 10,  0)
C 0000D5EE    41100001        LA      1,    1(  0,  0)
C 0000D5F2    5A107040        A       1,   64(  0,  7)
C 0000D5F6    413092FC        LA      3,  764(  0,  9)
C 0000D5FA    45F0C05C        BAL    15,   92(  0, 12)
C 0000D5FE    4811F000        LH      1,    0(  1, 15)
C 0000D602    50107058        ST      1,   88(  0,  7)
C 0000D606    47FA013E        BC     15,  318( 10,  0)
C 0000D60A    41100001        LA      1,    1(  0,  0)
C 0000D60E    5A107040        A       1,   64(  0,  7)
C 0000D612    5010B040        ST      1,   64(  0, 11)
C 0000D616    41107058        LA      1,   88(  0,  7)
C 0000D61A    5010B044        ST      1,   68(  0, 11)
C 0000D61E    5810D218        L       1,  536(  0, 13)
C 0000D622    45F0D074        BAL    15,  116(  0, 13)


  2499                         CVALUE=I;->70

C 0000D626    58107058        L       1,   88(  0,  7)
C 0000D62A    45F0C0AC        BAL    15,  172(  0, 12)
C 0000D62E    2860            LDR     6,  0
C 0000D630    60607050        STD     6,   80(  0,  7)



C 0000D634    47FA0000        BC     15,    0( 10,  0)


  2500                60:      FROMAR8(P+1,CVALUE)

C 0000D638    41100001        LA      1,    1(  0,  0)
C 0000D63C    5A107040        A       1,   64(  0,  7)
C 0000D640    5010B040        ST      1,   64(  0, 11)
C 0000D644    41107050        LA      1,   80(  0,  7)
C 0000D648    5010B044        ST      1,   68(  0, 11)
C 0000D64C    5810D214        L       1,  532(  0, 13)
C 0000D650    45F0D074        BAL    15,  116(  0, 13)


  2501                70:      ->75 %IF LONG#0

C 0000D654    58107044        L       1,   68(  0,  7)
C 0000D658    1211            LTR     1,  1
C 0000D65A    477A0000        BC      7,    0( 10,  0)


  2502                         I=INTEGER(ADDR(CVALUE)); ->40

C 0000D65E    41107050        LA      1,   80(  0,  7)
C 0000D662    58101000        L       1,    0(  0,  1)
C 0000D666    50107058        ST      1,   88(  0,  7)



C 0000D66A    47F0A08A        BC     15,  138(  0, 10)


  2503                75:      K=(N0+1)&(-2)

C 0000D66E    41100001        LA      1,    1(  0,  0)
C 0000D672    5A109088        A       1,  136(  0,  9)
C 0000D676    1851            LR      5,  1
C 0000D678    41100002        LA      1,    2(  0,  0)
C 0000D67C    1311            LCR     1,  1
C 0000D67E    1861            LR      6,  1
C 0000D680    1456            NR      5,  6
C 0000D682    5050705C        ST      5,   92(  0,  7)


  2504                         ST(K)=INTEGER(ADDR(CVALUE))

C 0000D686    41107050        LA      1,   80(  0,  7)
C 0000D68A    58401000        L       4,    0(  0,  1)
C 0000D68E    5810705C        L       1,   92(  0,  7)
C 0000D692    4130915C        LA      3,  348(  0,  9)
C 0000D696    45F0C05C        BAL    15,   92(  0, 12)
C 0000D69A    5041F000        ST      4,    0(  1, 15)


  2505                         ST(K+1)=INTEGER(ADDR(CVALUE)+4)

C 0000D69E    41607050        LA      6,   80(  0,  7)
C 0000D6A2    41100004        LA      1,    4(  0,  0)
C 0000D6A6    1A61            AR      6,  1
C 0000D6A8    58406000        L       4,    0(  0,  6)
C 0000D6AC    41100001        LA      1,    1(  0,  0)
C 0000D6B0    5A10705C        A       1,   92(  0,  7)
C 0000D6B4    4130915C        LA      3,  348(  0,  9)
C 0000D6B8    45F0C05C        BAL    15,   92(  0, 12)
C 0000D6BC    5041F000        ST      4,    0(  1, 15)


  2506                         N0=K+2

C 0000D6C0    41100002        LA      1,    2(  0,  0)
C 0000D6C4    5A10705C        A       1,   92(  0,  7)
C 0000D6C8    50109088        ST      1,  136(  0,  9)


  2507                         %RESULT=K<<2

C 0000D6CC    5810705C        L       1,   92(  0,  7)
C 0000D6D0    89100002        SLL     1,    2(  0)
C 0000D6D4    D203D0147000    MVC     20(  4, 13),    0(  7)
C 0000D6DA    984F7010        LM      4, 15,   16(  7)
C 0000D6DE    07FF            BCR    15, 15


  2508                         %END
D 00000B14    C2 C2 C2 C2 09 B6 07 09 53 4F 52 54 43 4F 4E 53 54 00 00 06 01 70 5C 01 4B FE A7 40 01 70 58 01 49 FE A7 48 1A 70 50 06 43 56 41 4C 55 45 A6 F8 01 70 48 04 54 59 50 45 01 70 44 04 4C 4F 4E 47 01 70 40 01 50 70 71 08 FF FF FF FF


C 0000D6E0    4100000B        LA      0,   11(  0,  0)
C 0000D6E4    45F0C054        BAL    15,   84(  0, 12)


  2509                     %ROUTINE CSTREXP(%INTEGER REG)

C 0000D6E8    0000
C 0000D6EA    0000
C 0000D6EC    47FA0000        BC     15,    0( 10,  0)
C 0000D6F0    50F0B03C        ST     15,   60(  0, 11)
C 0000D6F4    D203B000D014    MVC      0(  4, 11),   20( 13)
C 0000D6FA    410009CD        LA      0, 2509(  0,  0)
C 0000D6FE    4000D014        STH     0,   20(  0, 13)
C 0000D702    187B            LR      7, 11
C 0000D704    41BB0000        LA     11,    0( 11,  0)
C 0000D708    41000004        LA      0,    4(  0,  0)
C 0000D70C    59BD0044        C      11,   68( 13,  0)
C 0000D710    4720C054        BC      2,   84(  0, 12)
C 0000D714    05A0            BALR   10,  0


  2510                         %SHORTROUTINE
  2511                         %COMMENT EVALUATES STRING EXPR USING CURRENT
  2512                         %COMMENT WORKAREA AND 1 SUBROUTINES LEAVES ADDR IN
  2513                         %COMMENT REG -VE IF STRING MUST BE MOVED TO WK.ARREA
  2514                         %INTEGER JJ,QQ,KK,WKAREA,PP
  2515                         SETEX %UNLESS STRINST#0

C 0000D716    5810910C        L       1,  268(  0,  9)
C 0000D71A    1211            LTR     1,  1
C 0000D71C    477A0012        BC      7,   18( 10,  0)
C 0000D720    5810D428        L       1, 1064(  0, 13)
C 0000D724    45F0D074        BAL    15,  116(  0, 13)


  2516                         PP=P

C 0000D728    D20370548040    MVC     84(  4,  7),   64(  8)


  2517                         JJ=TSEXP(QQ); ->71 %IF JJ=20 %AND REG>=0

C 0000D72E    41107048        LA      1,   72(  0,  7)
C 0000D732    5010B040        ST      1,   64(  0, 11)
C 0000D736    5810D478        L       1, 1144(  0, 13)
C 0000D73A    45F0D074        BAL    15,  116(  0, 13)
C 0000D73E    50107044        ST      1,   68(  0,  7)



C 0000D742    41100014        LA      1,   20(  0,  0)
C 0000D746    59107044        C       1,   68(  0,  7)
C 0000D74A    477A0042        BC      7,   66( 10,  0)
C 0000D74E    58107040        L       1,   64(  0,  7)
C 0000D752    1211            LTR     1,  1
C 0000D754    47AA0000        BC     10,    0( 10,  0)


  2518                         P=PP; REG=!REG!

C 0000D758    D20380407054    MVC     64(  4,  8),   84(  7)



C 0000D75E    58107040        L       1,   64(  0,  7)
C 0000D762    1011            LPR     1,  1
C 0000D764    50107040        ST      1,   64(  0,  7)


  2519                         WKAREA=GET STR WSP

C 0000D768    5810D424        L       1, 1060(  0, 13)
C 0000D76C    45F0D074        BAL    15,  116(  0, 13)
C 0000D770    50107050        ST      1,   80(  0,  7)


  2520                         PSI(X'92',0,RBASE,WKAREA);    ! CLEAR WORK AREA

C 0000D774    41100092        LA      1,  146(  0,  0)
C 0000D778    5010B040        ST      1,   64(  0, 11)
C 0000D77C    1F11            SLR     1,  1
C 0000D77E    5010B044        ST      1,   68(  0, 11)
C 0000D782    D203B04890F4    MVC     72(  4, 11),  244(  9)
C 0000D788    D203B04C7050    MVC     76(  4, 11),   80(  7)
C 0000D78E    5810D1B8        L       1,  440(  0, 13)
C 0000D792    45F0D074        BAL    15,  116(  0, 13)


  2521                         ->2 %IF A(P)=4

C 0000D796    58108040        L       1,   64(  0,  8)
C 0000D79A    413092FC        LA      3,  764(  0,  9)
C 0000D79E    45F0C05C        BAL    15,   92(  0, 12)
C 0000D7A2    4811F000        LH      1,    0(  1, 15)
C 0000D7A6    41200004        LA      2,    4(  0,  0)
C 0000D7AA    1912            CR      1,  2
C 0000D7AC    478A0000        BC      8,    0( 10,  0)


  2522                1:       FAULT(71)

C 0000D7B0    9247B043        MVI     67( 11), 71
C 0000D7B4    5810D228        L       1,  552(  0, 13)
C 0000D7B8    45F0D074        BAL    15,  116(  0, 13)


  2523                4:       P=PP; SKIP EXP; ->99

C 0000D7BC    D20380407054    MVC     64(  4,  8),   84(  7)



C 0000D7C2    5810D444        L       1, 1092(  0, 13)
C 0000D7C6    45F0D074        BAL    15,  116(  0, 13)



C 0000D7CA    47FA0000        BC     15,    0( 10,  0)


  2524                5:       FAULT(72); ->4

C 0000D7CE    9248B043        MVI     67( 11), 72
C 0000D7D2    5810D228        L       1,  552(  0, 13)
C 0000D7D6    45F0D074        BAL    15,  116(  0, 13)



C 0000D7DA    47F0A0A6        BC     15,  166(  0, 10)


  2525                2:       ->10 %IF A(P+1)=2

C 0000D7DE    41100001        LA      1,    1(  0,  0)
C 0000D7E2    5A108040        A       1,   64(  0,  8)
C 0000D7E6    413092FC        LA      3,  764(  0,  9)
C 0000D7EA    45F0C05C        BAL    15,   92(  0, 12)
C 0000D7EE    4811F000        LH      1,    0(  1, 15)
C 0000D7F2    41200002        LA      2,    2(  0,  0)
C 0000D7F6    1912            CR      1,  2
C 0000D7F8    478A0000        BC      8,    0( 10,  0)


  2526                         ->1 %UNLESS A(P+1)=1          ;!NAME

C 0000D7FC    41100001        LA      1,    1(  0,  0)
C 0000D800    5A108040        A       1,   64(  0,  8)
C 0000D804    413092FC        LA      3,  764(  0,  9)
C 0000D808    45F0C05C        BAL    15,   92(  0, 12)
C 0000D80C    4811F000        LH      1,    0(  1, 15)
C 0000D810    41200001        LA      2,    1(  0,  0)
C 0000D814    1912            CR      1,  2
C 0000D816    4770A09A        BC      7,  154(  0, 10)


  2527                         P=P+2; CNAME(2,1)

C 0000D81A    41100002        LA      1,    2(  0,  0)
C 0000D81E    5A108040        A       1,   64(  0,  8)
C 0000D822    50108040        ST      1,   64(  0,  8)



C 0000D826    41100002        LA      1,    2(  0,  0)
C 0000D82A    5010B040        ST      1,   64(  0, 11)
C 0000D82E    41100001        LA      1,    1(  0,  0)
C 0000D832    5010B044        ST      1,   68(  0, 11)
C 0000D836    5810D3C4        L       1,  964(  0, 13)
C 0000D83A    45F0D074        BAL    15,  116(  0, 13)


  2528                         ->1 %UNLESS TYPE=5;->20

C 0000D83E    95058094        CLI    148(  8),  5
C 0000D842    4770A09A        BC      7,  154(  0, 10)



C 0000D846    47FA0000        BC     15,    0( 10,  0)


  2529                10:      P=P+2;->14 %IF A(P)=5

C 0000D84A    41100002        LA      1,    2(  0,  0)
C 0000D84E    5A108040        A       1,   64(  0,  8)
C 0000D852    50108040        ST      1,   64(  0,  8)



C 0000D856    58108040        L       1,   64(  0,  8)
C 0000D85A    413092FC        LA      3,  764(  0,  9)
C 0000D85E    45F0C05C        BAL    15,   92(  0, 12)
C 0000D862    4811F000        LH      1,    0(  1, 15)
C 0000D866    41200005        LA      2,    5(  0,  0)
C 0000D86A    1912            CR      1,  2
C 0000D86C    478A0000        BC      8,    0( 10,  0)


  2530                         ->1 %UNLESS A(P)=9 %AND A(P+1)<127

C 0000D870    58108040        L       1,   64(  0,  8)
C 0000D874    413092FC        LA      3,  764(  0,  9)
C 0000D878    45F0C05C        BAL    15,   92(  0, 12)
C 0000D87C    4811F000        LH      1,    0(  1, 15)
C 0000D880    41200009        LA      2,    9(  0,  0)
C 0000D884    1912            CR      1,  2
C 0000D886    4770A09A        BC      7,  154(  0, 10)
C 0000D88A    41100001        LA      1,    1(  0,  0)
C 0000D88E    5A108040        A       1,   64(  0,  8)
C 0000D892    413092FC        LA      3,  764(  0,  9)
C 0000D896    45F0C05C        BAL    15,   92(  0, 12)
C 0000D89A    4811F000        LH      1,    0(  1, 15)
C 0000D89E    4120007F        LA      2,  127(  0,  0)
C 0000D8A2    1912            CR      1,  2
C 0000D8A4    47B0A09A        BC     11,  154(  0, 10)


  2531                         ->11 %IF A(P+1)=0

C 0000D8A8    41100001        LA      1,    1(  0,  0)
C 0000D8AC    5A108040        A       1,   64(  0,  8)
C 0000D8B0    413092FC        LA      3,  764(  0,  9)
C 0000D8B4    45F0C05C        BAL    15,   92(  0, 12)
C 0000D8B8    4811F000        LH      1,    0(  1, 15)
C 0000D8BC    1211            LTR     1,  1
C 0000D8BE    478A0000        BC      8,    0( 10,  0)


  2532                               PRX(X'41',1,0,0,A(P+1))

C 0000D8C2    41100041        LA      1,   65(  0,  0)
C 0000D8C6    5010B040        ST      1,   64(  0, 11)
C 0000D8CA    41100001        LA      1,    1(  0,  0)
C 0000D8CE    5010B044        ST      1,   68(  0, 11)
C 0000D8D2    1F11            SLR     1,  1
C 0000D8D4    5010B048        ST      1,   72(  0, 11)
C 0000D8D8    1F11            SLR     1,  1
C 0000D8DA    5010B04C        ST      1,   76(  0, 11)
C 0000D8DE    41100001        LA      1,    1(  0,  0)
C 0000D8E2    5A108040        A       1,   64(  0,  8)
C 0000D8E6    413092FC        LA      3,  764(  0,  9)
C 0000D8EA    45F0C05C        BAL    15,   92(  0, 12)
C 0000D8EE    4811F000        LH      1,    0(  1, 15)
C 0000D8F2    5010B050        ST      1,   80(  0, 11)
C 0000D8F6    5810D1C0        L       1,  448(  0, 13)
C 0000D8FA    45F0D074        BAL    15,  116(  0, 13)


  2533                         P=P+2;->20

C 0000D8FE    41100002        LA      1,    2(  0,  0)
C 0000D902    5A108040        A       1,   64(  0,  8)
C 0000D906    50108040        ST      1,   64(  0,  8)



C 0000D90A    47FA0000        BC     15,    0( 10,  0)


  2534                11:      P=P+2; ->21;                  ! NULL STRING

C 0000D90E    41100002        LA      1,    2(  0,  0)
C 0000D912    5A108040        A       1,   64(  0,  8)
C 0000D916    50108040        ST      1,   64(  0,  8)



C 0000D91A    47FA0000        BC     15,    0( 10,  0)


  2535                14:      %COMMENT STRING CONSTANT PUT IN CODE CF (TEXTTEXT)
  2536                         KK=(CA+6+A(P+1)-CODEBASE(LEVEL))&(-2)

C 0000D91E    41100001        LA      1,    1(  0,  0)
C 0000D922    5A108040        A       1,   64(  0,  8)
C 0000D926    413092FC        LA      3,  764(  0,  9)
C 0000D92A    45F0C05C        BAL    15,   92(  0, 12)
C 0000D92E    4861F000        LH      6,    0(  1, 15)
C 0000D932    581090A8        L       1,  168(  0,  9)
C 0000D936    4130917C        LA      3,  380(  0,  9)
C 0000D93A    45F0C05C        BAL    15,   92(  0, 12)
C 0000D93E    5851F000        L       5,    0(  1, 15)
C 0000D942    41100006        LA      1,    6(  0,  0)
C 0000D946    5A1090AC        A       1,  172(  0,  9)
C 0000D94A    1A16            AR      1,  6
C 0000D94C    1B15            SR      1,  5
C 0000D94E    1851            LR      5,  1
C 0000D950    41100002        LA      1,    2(  0,  0)
C 0000D954    1311            LCR     1,  1
C 0000D956    1861            LR      6,  1
C 0000D958    1456            NR      5,  6
C 0000D95A    5050704C        ST      5,   76(  0,  7)


  2537                         QQ=0;->15 %IF KK<4095

C 0000D95E    1F11            SLR     1,  1
C 0000D960    50107048        ST      1,   72(  0,  7)



C 0000D964    41100FFF        LA      1, 4095(  0,  0)
C 0000D968    5910704C        C       1,   76(  0,  7)
C 0000D96C    472A0000        BC      2,    0( 10,  0)


  2538                         KK=KK+4;QQ=1

C 0000D970    41100004        LA      1,    4(  0,  0)
C 0000D974    5A10704C        A       1,   76(  0,  7)
C 0000D978    5010704C        ST      1,   76(  0,  7)



C 0000D97C    41100001        LA      1,    1(  0,  0)
C 0000D980    50107048        ST      1,   72(  0,  7)


  2539                         PRX(X'58',1,GLA,0,PAGENO(KK)<<2)

C 0000D984    41100058        LA      1,   88(  0,  0)
C 0000D988    5010B040        ST      1,   64(  0, 11)
C 0000D98C    41B0B048        LA     11,   72(  0, 11)
C 0000D990    41100001        LA      1,    1(  0,  0)
C 0000D994    5AB0D050        A      11,   80(  0, 13)
C 0000D998    5010B000        ST      1,    0(  0, 11)
C 0000D99C    41B0B004        LA     11,    4(  0, 11)
C 0000D9A0    D203B000D150    MVC      0(  4, 11),  336( 13)
C 0000D9A6    41B0B008        LA     11,    8(  0, 11)
C 0000D9AA    1F11            SLR     1,  1
C 0000D9AC    5AB0D050        A      11,   80(  0, 13)
C 0000D9B0    5010B000        ST      1,    0(  0, 11)
C 0000D9B4    41B0B004        LA     11,    4(  0, 11)
C 0000D9B8    D203B040704C    MVC     64(  4, 11),   76(  7)
C 0000D9BE    5810D438        L       1, 1080(  0, 13)
C 0000D9C2    45F0D074        BAL    15,  116(  0, 13)
C 0000D9C6    1861            LR      6,  1
C 0000D9C8    89600002        SLL     6,    2(  0)
C 0000D9CC    5060B000        ST      6,    0(  0, 11)
C 0000D9D0    41000050        LA      0,   80(  0,  0)
C 0000D9D4    1BB0            SR     11,  0
C 0000D9D6    5810D1C0        L       1,  448(  0, 13)
C 0000D9DA    45F0D074        BAL    15,  116(  0, 13)


  2540                15:      PRX(X'45',1,10,QQ,KK&4095)

C 0000D9DE    41100045        LA      1,   69(  0,  0)
C 0000D9E2    5010B040        ST      1,   64(  0, 11)
C 0000D9E6    41100001        LA      1,    1(  0,  0)
C 0000D9EA    5010B044        ST      1,   68(  0, 11)
C 0000D9EE    4110000A        LA      1,   10(  0,  0)
C 0000D9F2    5010B048        ST      1,   72(  0, 11)
C 0000D9F6    D203B04C7048    MVC     76(  4, 11),   72(  7)
C 0000D9FC    41100FFF        LA      1, 4095(  0,  0)
C 0000DA00    5410704C        N       1,   76(  0,  7)
C 0000DA04    5010B050        ST      1,   80(  0, 11)
C 0000DA08    5810D1C0        L       1,  448(  0, 13)
C 0000DA0C    45F0D074        BAL    15,  116(  0, 13)


  2541                         P=P+1; %CYCLE KK=1,1,(A(P)+2)//2

C 0000DA10    41100001        LA      1,    1(  0,  0)
C 0000DA14    5A108040        A       1,   64(  0,  8)
C 0000DA18    50108040        ST      1,   64(  0,  8)



C 0000DA1C    4140704C        LA      4,   76(  0,  7)
C 0000DA20    41200001        LA      2,    1(  0,  0)
C 0000DA24    50207058        ST      2,   88(  0,  7)
C 0000DA28    58108040        L       1,   64(  0,  8)
C 0000DA2C    413092FC        LA      3,  764(  0,  9)
C 0000DA30    45F0C05C        BAL    15,   92(  0, 12)
C 0000DA34    4861F000        LH      6,    0(  1, 15)
C 0000DA38    41100002        LA      1,    2(  0,  0)
C 0000DA3C    1A61            AR      6,  1
C 0000DA3E    1856            LR      5,  6
C 0000DA40    1805            LR      0,  5
C 0000DA42    8E000020        SRDA    0,   32(  0)
C 0000DA46    41300002        LA      3,    2(  0,  0)
C 0000DA4A    1D03            DR      0,  3
C 0000DA4C    1831            LR      3,  1
C 0000DA4E    9034705C        STM     3,  4,   92(  7)
C 0000DA52    41100001        LA      1,    1(  0,  0)
C 0000DA56    50104000        ST      1,    0(  0,  4)


  2542                         PLANT(A(P)<<8!A(P+1))

C 0000DA5A    58108040        L       1,   64(  0,  8)
C 0000DA5E    413092FC        LA      3,  764(  0,  9)
C 0000DA62    45F0C05C        BAL    15,   92(  0, 12)
C 0000DA66    4861F000        LH      6,    0(  1, 15)
C 0000DA6A    41100001        LA      1,    1(  0,  0)
C 0000DA6E    5A108040        A       1,   64(  0,  8)
C 0000DA72    413092FC        LA      3,  764(  0,  9)
C 0000DA76    45F0C05C        BAL    15,   92(  0, 12)
C 0000DA7A    4851F000        LH      5,    0(  1, 15)
C 0000DA7E    89600008        SLL     6,    8(  0)
C 0000DA82    1665            OR      6,  5
C 0000DA84    5060B040        ST      6,   64(  0, 11)
C 0000DA88    5810D1CC        L       1,  460(  0, 13)
C 0000DA8C    45F0D074        BAL    15,  116(  0, 13)


  2543                         P=P+2;%REPEAT

C 0000DA90    41100002        LA      1,    2(  0,  0)
C 0000DA94    5A108040        A       1,   64(  0,  8)
C 0000DA98    50108040        ST      1,   64(  0,  8)



C 0000DA9C    98247058        LM      2,  4,   88(  7)
C 0000DAA0    58104000        L       1,    0(  0,  4)
C 0000DAA4    8712A340        BXLE    1,  2,  832( 10)


  2544                20:      PRX(X'41',2,RBASE,0,WKAREA)

C 0000DAA8    41100041        LA      1,   65(  0,  0)
C 0000DAAC    5010B040        ST      1,   64(  0, 11)
C 0000DAB0    41100002        LA      1,    2(  0,  0)
C 0000DAB4    5010B044        ST      1,   68(  0, 11)
C 0000DAB8    D203B04890F4    MVC     72(  4, 11),  244(  9)
C 0000DABE    1F11            SLR     1,  1
C 0000DAC0    5010B04C        ST      1,   76(  0, 11)
C 0000DAC4    D203B0507050    MVC     80(  4, 11),   80(  7)
C 0000DACA    5810D1C0        L       1,  448(  0, 13)
C 0000DACE    45F0D074        BAL    15,  116(  0, 13)


  2545                         PPJ(26)

C 0000DAD2    921AB043        MVI     67( 11), 26
C 0000DAD6    5810D46C        L       1, 1132(  0, 13)
C 0000DADA    45F0D074        BAL    15,  116(  0, 13)


  2546                21:      ->90 %IF A(P)=2;              ! END OF EXPRN

C 0000DADE    58108040        L       1,   64(  0,  8)
C 0000DAE2    413092FC        LA      3,  764(  0,  9)
C 0000DAE6    45F0C05C        BAL    15,   92(  0, 12)
C 0000DAEA    4811F000        LH      1,    0(  1, 15)
C 0000DAEE    41200002        LA      2,    2(  0,  0)
C 0000DAF2    1912            CR      1,  2
C 0000DAF4    478A0000        BC      8,    0( 10,  0)


  2547                         ->5 %UNLESS A(P+1)=12

C 0000DAF8    41100001        LA      1,    1(  0,  0)
C 0000DAFC    5A108040        A       1,   64(  0,  8)
C 0000DB00    413092FC        LA      3,  764(  0,  9)
C 0000DB04    45F0C05C        BAL    15,   92(  0, 12)
C 0000DB08    4811F000        LH      1,    0(  1, 15)
C 0000DB0C    4120000C        LA      2,   12(  0,  0)
C 0000DB10    1912            CR      1,  2
C 0000DB12    4770A0B8        BC      7,  184(  0, 10)


  2548                         P=P+1;->2

C 0000DB16    41100001        LA      1,    1(  0,  0)
C 0000DB1A    5A108040        A       1,   64(  0,  8)
C 0000DB1E    50108040        ST      1,   64(  0,  8)



C 0000DB22    47F0A0C8        BC     15,  200(  0, 10)


  2549                71:      DUMP(2,REG,K,I,0); ->99

C 0000DB26    41100002        LA      1,    2(  0,  0)
C 0000DB2A    5010B040        ST      1,   64(  0, 11)
C 0000DB2E    D203B0447040    MVC     68(  4, 11),   64(  7)
C 0000DB34    D203B04880A4    MVC     72(  4, 11),  164(  8)
C 0000DB3A    D203B04C809C    MVC     76(  4, 11),  156(  8)
C 0000DB40    1F11            SLR     1,  1
C 0000DB42    5010B050        ST      1,   80(  0, 11)
C 0000DB46    5810D458        L       1, 1112(  0, 13)
C 0000DB4A    45F0D074        BAL    15,  116(  0, 13)



C 0000DB4E    47FA0000        BC     15,    0( 10,  0)


  2550                90:      P=P+1

C 0000DB52    41100001        LA      1,    1(  0,  0)
C 0000DB56    5A108040        A       1,   64(  0,  8)
C 0000DB5A    50108040        ST      1,   64(  0,  8)


  2551                         PUSH(STR WSP(LEVEL),0,WKAREA)

C 0000DB5E    581090A8        L       1,  168(  0,  9)
C 0000DB62    4130927C        LA      3,  636(  0,  9)
C 0000DB66    45F0C05C        BAL    15,   92(  0, 12)
C 0000DB6A    4111F000        LA      1,    0(  1, 15)
C 0000DB6E    5010B040        ST      1,   64(  0, 11)
C 0000DB72    1F11            SLR     1,  1
C 0000DB74    5010B044        ST      1,   68(  0, 11)
C 0000DB78    D203B0487050    MVC     72(  4, 11),   80(  7)
C 0000DB7E    5810D3E0        L       1,  992(  0, 13)
C 0000DB82    45F0D074        BAL    15,  116(  0, 13)


  2552                         PRX(X'41',REG,0,RBASE,WKAREA)

C 0000DB86    41100041        LA      1,   65(  0,  0)
C 0000DB8A    5010B040        ST      1,   64(  0, 11)
C 0000DB8E    D203B0447040    MVC     68(  4, 11),   64(  7)
C 0000DB94    1F11            SLR     1,  1
C 0000DB96    5010B048        ST      1,   72(  0, 11)
C 0000DB9A    D203B04C90F4    MVC     76(  4, 11),  244(  9)
C 0000DBA0    D203B0507050    MVC     80(  4, 11),   80(  7)
C 0000DBA6    5810D1C0        L       1,  448(  0, 13)
C 0000DBAA    45F0D074        BAL    15,  116(  0, 13)


  2553                99:      PTYPE=5; UNPACK; %END

C 0000DBAE    41100005        LA      1,    5(  0,  0)
C 0000DBB2    50108098        ST      1,  152(  0,  8)



C 0000DBB6    5810D448        L       1, 1096(  0, 13)
C 0000DBBA    45F0D074        BAL    15,  116(  0, 13)


D 00000B60    C2 C2 C2 C2 09 CD 07 07 43 53 54 52 45 58 50 B8 01 70 54 02 50 50 00 02 01 70 50 06 57 4B 41 52 45 41 00 01 01 70 4C 02 4B 4B 00 01 01 70 48 02 51 51 00 19 01 70 44 02 4A 4A AB A0 01 70 40 03 52 45 47 19 FF FF FF FF


C 0000DBBE    D203D0147000    MVC     20(  4, 13),    0(  7)
C 0000DBC4    984F7010        LM      4, 15,   16(  7)
C 0000DBC8    07FF            BCR    15, 15


  2554                     %ROUTINE     CRES(%INTEGER MODE,LAB)

C 0000DBCA    0000
C 0000DBCC    0000
C 0000DBCE    47FA0000        BC     15,    0( 10,  0)
C 0000DBD2    50F0B03C        ST     15,   60(  0, 11)
C 0000DBD6    D203B000D014    MVC      0(  4, 11),   20( 13)
C 0000DBDC    410009FA        LA      0, 2554(  0,  0)
C 0000DBE0    4000D014        STH     0,   20(  0, 13)
C 0000DBE4    187B            LR      7, 11
C 0000DBE6    41BB0000        LA     11,    0( 11,  0)
C 0000DBEA    41000004        LA      0,    4(  0,  0)
C 0000DBEE    59BD0044        C      11,   68( 13,  0)
C 0000DBF2    4720C054        BC      2,   84(  0, 12)
C 0000DBF6    05A0            BALR   10,  0


  2555                         %ROUTINESPEC SKIP NAME
  2556                         %ROUTINESPEC FAIL(%INTEGER MASK)
  2557                         %SHORTROUTINE
  2558                         %INTEGER P1,P2,P3,W,SEXPRN
  2559                         %COMMENT MODE=0 UNCONDITIONAL # 0 CONDITIONAL
  2560                         %COMMENT ENTER WITH ADDR OF LHS IN R1 AND P ON PLUS'
  2561                         SEXPRN=0;W=GET DBLE WRD

C 0000DBF8    1F11            SLR     1,  1
C 0000DBFA    50107058        ST      1,   88(  0,  7)



C 0000DBFE    5810D3BC        L       1,  956(  0, 13)
C 0000DC02    45F0D074        BAL    15,  116(  0, 13)
C 0000DC06    50107054        ST      1,   84(  0,  7)


  2562                         P1=P;->1 %IF A(P)=4

C 0000DC0A    D20370488040    MVC     72(  4,  7),   64(  8)



C 0000DC10    58108040        L       1,   64(  0,  8)
C 0000DC14    413092FC        LA      3,  764(  0,  9)
C 0000DC18    45F0C05C        BAL    15,   92(  0, 12)
C 0000DC1C    4811F000        LH      1,    0(  1, 15)
C 0000DC20    41200004        LA      2,    4(  0,  0)
C 0000DC24    1912            CR      1,  2
C 0000DC26    478A0000        BC      8,    0( 10,  0)


  2563                1000:    P=P1;SKIP EXP

C 0000DC2A    D20380407048    MVC     64(  4,  8),   72(  7)



C 0000DC30    5810D444        L       1, 1092(  0, 13)
C 0000DC34    45F0D074        BAL    15,  116(  0, 13)


  2564                         FAULT(74);->99

C 0000DC38    924AB043        MVI     67( 11), 74
C 0000DC3C    5810D228        L       1,  552(  0, 13)
C 0000DC40    45F0D074        BAL    15,  116(  0, 13)



C 0000DC44    47FA0000        BC     15,    0( 10,  0)


  2565                1:       ->1000 %UNLESS TYPE=5

C 0000DC48    95058094        CLI    148(  8),  5
C 0000DC4C    4770A032        BC      7,   50(  0, 10)


  2566                         PRR(X'1B',2,2)                ;!SR_2,2

C 0000DC50    4110001B        LA      1,   27(  0,  0)
C 0000DC54    5010B040        ST      1,   64(  0, 11)
C 0000DC58    41100002        LA      1,    2(  0,  0)
C 0000DC5C    5010B044        ST      1,   68(  0, 11)
C 0000DC60    41100002        LA      1,    2(  0,  0)
C 0000DC64    5010B048        ST      1,   72(  0, 11)
C 0000DC68    5810D1D0        L       1,  464(  0, 13)
C 0000DC6C    45F0D074        BAL    15,  116(  0, 13)


  2567                         PRX(X'90',1,2,RBASE,W)        ;!STM_1,2,W(RBASE)

C 0000DC70    41100090        LA      1,  144(  0,  0)
C 0000DC74    5010B040        ST      1,   64(  0, 11)
C 0000DC78    41100001        LA      1,    1(  0,  0)
C 0000DC7C    5010B044        ST      1,   68(  0, 11)
C 0000DC80    41100002        LA      1,    2(  0,  0)
C 0000DC84    5010B048        ST      1,   72(  0, 11)
C 0000DC88    D203B04C90F4    MVC     76(  4, 11),  244(  9)
C 0000DC8E    D203B0507054    MVC     80(  4, 11),   84(  7)
C 0000DC94    5810D1C0        L       1,  448(  0, 13)
C 0000DC98    45F0D074        BAL    15,  116(  0, 13)


  2568                         P2=-1;P=P+2

C 0000DC9C    5810D010        L       1,   16(  0, 13)
C 0000DCA0    5010704C        ST      1,   76(  0,  7)



C 0000DCA4    41100002        LA      1,    2(  0,  0)
C 0000DCA8    5A108040        A       1,   64(  0,  8)
C 0000DCAC    50108040        ST      1,   64(  0,  8)


  2569                         ->10 %IF A(P-1)=3             ;!SUB EXPRESSION

C 0000DCB0    58108040        L       1,   64(  0,  8)
C 0000DCB4    0610            BCTR    1,  0
C 0000DCB6    413092FC        LA      3,  764(  0,  9)
C 0000DCBA    45F0C05C        BAL    15,   92(  0, 12)
C 0000DCBE    4811F000        LH      1,    0(  1, 15)
C 0000DCC2    41200003        LA      2,    3(  0,  0)
C 0000DCC6    1912            CR      1,  2
C 0000DCC8    478A0000        BC      8,    0( 10,  0)


  2570                         ->1000 %UNLESS A(P-1)=1

C 0000DCCC    58108040        L       1,   64(  0,  8)
C 0000DCD0    0610            BCTR    1,  0
C 0000DCD2    413092FC        LA      3,  764(  0,  9)
C 0000DCD6    45F0C05C        BAL    15,   92(  0, 12)
C 0000DCDA    4811F000        LH      1,    0(  1, 15)
C 0000DCDE    41200001        LA      2,    1(  0,  0)
C 0000DCE2    1912            CR      1,  2
C 0000DCE4    4770A032        BC      7,   50(  0, 10)


  2571                3:       P2=P;SKIP NAME

C 0000DCE8    D203704C8040    MVC     76(  4,  7),   64(  8)



C 0000DCEE    5810D554        L       1, 1364(  0, 13)
C 0000DCF2    45F0D074        BAL    15,  116(  0, 13)


  2572                         ->50 %IF A(P)=2               ;!END

C 0000DCF6    58108040        L       1,   64(  0,  8)
C 0000DCFA    413092FC        LA      3,  764(  0,  9)
C 0000DCFE    45F0C05C        BAL    15,   92(  0, 12)
C 0000DD02    4811F000        LH      1,    0(  1, 15)
C 0000DD06    41200002        LA      2,    2(  0,  0)
C 0000DD0A    1912            CR      1,  2
C 0000DD0C    478A0000        BC      8,    0( 10,  0)


  2573                         ->1000 %UNLESS A(P+1)=12      ;!ONLY - PERMITTED

C 0000DD10    41100001        LA      1,    1(  0,  0)
C 0000DD14    5A108040        A       1,   64(  0,  8)
C 0000DD18    413092FC        LA      3,  764(  0,  9)
C 0000DD1C    45F0C05C        BAL    15,   92(  0, 12)
C 0000DD20    4811F000        LH      1,    0(  1, 15)
C 0000DD24    4120000C        LA      2,   12(  0,  0)
C 0000DD28    1912            CR      1,  2
C 0000DD2A    4770A032        BC      7,   50(  0, 10)


  2574                         ->1000 %UNLESS A(P+2)=3; P=P+3

C 0000DD2E    41100002        LA      1,    2(  0,  0)
C 0000DD32    5A108040        A       1,   64(  0,  8)
C 0000DD36    413092FC        LA      3,  764(  0,  9)
C 0000DD3A    45F0C05C        BAL    15,   92(  0, 12)
C 0000DD3E    4811F000        LH      1,    0(  1, 15)
C 0000DD42    41200003        LA      2,    3(  0,  0)
C 0000DD46    1912            CR      1,  2
C 0000DD48    4770A032        BC      7,   50(  0, 10)



C 0000DD4C    41100003        LA      1,    3(  0,  0)
C 0000DD50    5A108040        A       1,   64(  0,  8)
C 0000DD54    50108040        ST      1,   64(  0,  8)


  2575                10:      CSTREXP(-4);          ! STRING MUST GO TO WK.AREA

C 0000DD58    41100004        LA      1,    4(  0,  0)
C 0000DD5C    1311            LCR     1,  1
C 0000DD5E    5010B040        ST      1,   64(  0, 11)
C 0000DD62    5810D380        L       1,  896(  0, 13)
C 0000DD66    45F0D074        BAL    15,  116(  0, 13)


  2576                                               ! IN CASE OF SIDE EFFECTS
  2577                         SEXPRN=SEXPRN+1

C 0000DD6A    41100001        LA      1,    1(  0,  0)
C 0000DD6E    5A107058        A       1,   88(  0,  7)
C 0000DD72    50107058        ST      1,   88(  0,  7)


  2578                         PRX(X'98',1,2,RBASE,W)

C 0000DD76    41100098        LA      1,  152(  0,  0)
C 0000DD7A    5010B040        ST      1,   64(  0, 11)
C 0000DD7E    41100001        LA      1,    1(  0,  0)
C 0000DD82    5010B044        ST      1,   68(  0, 11)
C 0000DD86    41100002        LA      1,    2(  0,  0)
C 0000DD8A    5010B048        ST      1,   72(  0, 11)
C 0000DD8E    D203B04C90F4    MVC     76(  4, 11),  244(  9)
C 0000DD94    D203B0507054    MVC     80(  4, 11),   84(  7)
C 0000DD9A    5810D1C0        L       1,  448(  0, 13)
C 0000DD9E    45F0D074        BAL    15,  116(  0, 13)


  2579                         PPJ(27)

C 0000DDA2    921BB043        MVI     67( 11), 27
C 0000DDA6    5810D46C        L       1, 1132(  0, 13)
C 0000DDAA    45F0D074        BAL    15,  116(  0, 13)


  2580                         FAIL(7)

C 0000DDAE    41100007        LA      1,    7(  0,  0)
C 0000DDB2    5010B040        ST      1,   64(  0, 11)
C 0000DDB6    5810D558        L       1, 1368(  0, 13)
C 0000DDBA    45F0D074        BAL    15,  116(  0, 13)


  2581                         PRX(X'90',1,2,RBASE,W);       ! SAVE R1 AND R2 FOR LATER

C 0000DDBE    41100090        LA      1,  144(  0,  0)
C 0000DDC2    5010B040        ST      1,   64(  0, 11)
C 0000DDC6    41100001        LA      1,    1(  0,  0)
C 0000DDCA    5010B044        ST      1,   68(  0, 11)
C 0000DDCE    41100002        LA      1,    2(  0,  0)
C 0000DDD2    5010B048        ST      1,   72(  0, 11)
C 0000DDD6    D203B04C90F4    MVC     76(  4, 11),  244(  9)
C 0000DDDC    D203B0507054    MVC     80(  4, 11),   84(  7)
C 0000DDE2    5810D1C0        L       1,  448(  0, 13)
C 0000DDE6    45F0D074        BAL    15,  116(  0, 13)


  2582                         ->15 %IF P2<0

C 0000DDEA    5810704C        L       1,   76(  0,  7)
C 0000DDEE    1211            LTR     1,  1
C 0000DDF0    474A0000        BC      4,    0( 10,  0)


  2583                         P3=P;P=P2

C 0000DDF4    D20370508040    MVC     80(  4,  7),   64(  8)



C 0000DDFA    D2038040704C    MVC     64(  4,  8),   76(  7)


  2584                         CNAME(1,4)

C 0000DE00    41100001        LA      1,    1(  0,  0)
C 0000DE04    5010B040        ST      1,   64(  0, 11)
C 0000DE08    41100004        LA      1,    4(  0,  0)
C 0000DE0C    5010B044        ST      1,   68(  0, 11)
C 0000DE10    5810D3C4        L       1,  964(  0, 13)
C 0000DE14    45F0D074        BAL    15,  116(  0, 13)


  2585                         FAULT(71) %UNLESS TYPE=5

C 0000DE18    95058094        CLI    148(  8),  5
C 0000DE1C    478A0234        BC      8,  564( 10,  0)
C 0000DE20    9247B043        MVI     67( 11), 71
C 0000DE24    5810D228        L       1,  552(  0, 13)
C 0000DE28    45F0D074        BAL    15,  116(  0, 13)


  2586                         P=P3

C 0000DE2C    D20380407050    MVC     64(  4,  8),   80(  7)


  2587                12:      ->1000 %UNLESS A(P)=1 %AND A(P+1)=12 %AND A(P+2)=1

C 0000DE32    58108040        L       1,   64(  0,  8)
C 0000DE36    413092FC        LA      3,  764(  0,  9)
C 0000DE3A    45F0C05C        BAL    15,   92(  0, 12)
C 0000DE3E    4811F000        LH      1,    0(  1, 15)
C 0000DE42    41200001        LA      2,    1(  0,  0)
C 0000DE46    1912            CR      1,  2
C 0000DE48    4770A032        BC      7,   50(  0, 10)
C 0000DE4C    41100001        LA      1,    1(  0,  0)
C 0000DE50    5A108040        A       1,   64(  0,  8)
C 0000DE54    413092FC        LA      3,  764(  0,  9)
C 0000DE58    45F0C05C        BAL    15,   92(  0, 12)
C 0000DE5C    4811F000        LH      1,    0(  1, 15)
C 0000DE60    4120000C        LA      2,   12(  0,  0)
C 0000DE64    1912            CR      1,  2
C 0000DE66    4770A032        BC      7,   50(  0, 10)
C 0000DE6A    41100002        LA      1,    2(  0,  0)
C 0000DE6E    5A108040        A       1,   64(  0,  8)
C 0000DE72    413092FC        LA      3,  764(  0,  9)
C 0000DE76    45F0C05C        BAL    15,   92(  0, 12)
C 0000DE7A    4811F000        LH      1,    0(  1, 15)
C 0000DE7E    41200001        LA      2,    1(  0,  0)
C 0000DE82    1912            CR      1,  2
C 0000DE84    4770A032        BC      7,   50(  0, 10)


  2588                         P=P+3;->3

C 0000DE88    41100003        LA      1,    3(  0,  0)
C 0000DE8C    5A108040        A       1,   64(  0,  8)
C 0000DE90    50108040        ST      1,   64(  0,  8)



C 0000DE94    47F0A0F0        BC     15,  240(  0, 10)


  2589                15:      PSI(X'95',0,4,0)

C 0000DE98    41100095        LA      1,  149(  0,  0)
C 0000DE9C    5010B040        ST      1,   64(  0, 11)
C 0000DEA0    1F11            SLR     1,  1
C 0000DEA2    5010B044        ST      1,   68(  0, 11)
C 0000DEA6    41100004        LA      1,    4(  0,  0)
C 0000DEAA    5010B048        ST      1,   72(  0, 11)
C 0000DEAE    1F11            SLR     1,  1
C 0000DEB0    5010B04C        ST      1,   76(  0, 11)
C 0000DEB4    5810D1B8        L       1,  440(  0, 13)
C 0000DEB8    45F0D074        BAL    15,  116(  0, 13)


  2590                         FAIL(7);->12

C 0000DEBC    41100007        LA      1,    7(  0,  0)
C 0000DEC0    5010B040        ST      1,   64(  0, 11)
C 0000DEC4    5810D558        L       1, 1368(  0, 13)
C 0000DEC8    45F0D074        BAL    15,  116(  0, 13)



C 0000DECC    47F0A23A        BC     15,  570(  0, 10)


  2591                50:      ->1000 %IF SEXPRN=0

C 0000DED0    58107058        L       1,   88(  0,  7)
C 0000DED4    1211            LTR     1,  1
C 0000DED6    4780A032        BC      8,   50(  0, 10)


  2592                         PRX(X'98',1,2,RBASE,W);       ! SAVE R1 AND R2 FOR LATER

C 0000DEDA    41100098        LA      1,  152(  0,  0)
C 0000DEDE    5010B040        ST      1,   64(  0, 11)
C 0000DEE2    41100001        LA      1,    1(  0,  0)
C 0000DEE6    5010B044        ST      1,   68(  0, 11)
C 0000DEEA    41100002        LA      1,    2(  0,  0)
C 0000DEEE    5010B048        ST      1,   72(  0, 11)
C 0000DEF2    D203B04C90F4    MVC     76(  4, 11),  244(  9)
C 0000DEF8    D203B0507054    MVC     80(  4, 11),   84(  7)
C 0000DEFE    5810D1C0        L       1,  448(  0, 13)
C 0000DF02    45F0D074        BAL    15,  116(  0, 13)


  2593                         PPJ(37)

C 0000DF06    9225B043        MVI     67( 11), 37
C 0000DF0A    5810D46C        L       1, 1132(  0, 13)
C 0000DF0E    45F0D074        BAL    15,  116(  0, 13)


  2594                         P3=P;P=P2

C 0000DF12    D20370508040    MVC     80(  4,  7),   64(  8)



C 0000DF18    D2038040704C    MVC     64(  4,  8),   76(  7)


  2595                         CNAME(1,4)

C 0000DF1E    41100001        LA      1,    1(  0,  0)
C 0000DF22    5010B040        ST      1,   64(  0, 11)
C 0000DF26    41100004        LA      1,    4(  0,  0)
C 0000DF2A    5010B044        ST      1,   68(  0, 11)
C 0000DF2E    5810D3C4        L       1,  964(  0, 13)
C 0000DF32    45F0D074        BAL    15,  116(  0, 13)


  2596                         FAULT(71) %UNLESS TYPE=5

C 0000DF36    95058094        CLI    148(  8),  5
C 0000DF3A    478A0352        BC      8,  850( 10,  0)
C 0000DF3E    9247B043        MVI     67( 11), 71
C 0000DF42    5810D228        L       1,  552(  0, 13)
C 0000DF46    45F0D074        BAL    15,  116(  0, 13)


  2597                         P=P3+1

C 0000DF4A    41100001        LA      1,    1(  0,  0)
C 0000DF4E    5A107050        A       1,   80(  0,  7)
C 0000DF52    50108040        ST      1,   64(  0,  8)


  2598                99:      PUSH(LWSP(LEVEL),0,W)

C 0000DF56    581090A8        L       1,  168(  0,  9)
C 0000DF5A    4130923C        LA      3,  572(  0,  9)
C 0000DF5E    45F0C05C        BAL    15,   92(  0, 12)
C 0000DF62    4111F000        LA      1,    0(  1, 15)
C 0000DF66    5010B040        ST      1,   64(  0, 11)
C 0000DF6A    1F11            SLR     1,  1
C 0000DF6C    5010B044        ST      1,   68(  0, 11)
C 0000DF70    D203B0487054    MVC     72(  4, 11),   84(  7)
C 0000DF76    5810D3E0        L       1,  992(  0, 13)
C 0000DF7A    45F0D074        BAL    15,  116(  0, 13)


  2599                         %RETURN

C 0000DF7E    D203D0147000    MVC     20(  4, 13),    0(  7)
C 0000DF84    984F7010        LM      4, 15,   16(  7)
C 0000DF88    07FF            BCR    15, 15


  2600                         %ROUTINE SKIP NAME

C 0000DF8A    47FA0000        BC     15,    0( 10,  0)
C 0000DF8E    50F0B03C        ST     15,   60(  0, 11)
C 0000DF92    D203B000D014    MVC      0(  4, 11),   20( 13)
C 0000DF98    41000A28        LA      0, 2600(  0,  0)
C 0000DF9C    4000D014        STH     0,   20(  0, 13)
C 0000DFA0    186B            LR      6, 11
C 0000DFA2    41BB0000        LA     11,    0( 11,  0)
C 0000DFA6    41000004        LA      0,    4(  0,  0)
C 0000DFAA    59BD0044        C      11,   68( 13,  0)
C 0000DFAE    4720C054        BC      2,   84(  0, 12)
C 0000DFB2    05A0            BALR   10,  0


  2601                    1:       P=P+1;SKIP APP

C 0000DFB4    41100001        LA      1,    1(  0,  0)
C 0000DFB8    5A108040        A       1,   64(  0,  8)
C 0000DFBC    50108040        ST      1,   64(  0,  8)



C 0000DFC0    5810D39C        L       1,  924(  0, 13)
C 0000DFC4    45F0D074        BAL    15,  116(  0, 13)


  2602                             P=P+1;%RETURN %IF A(P-1)=2

C 0000DFC8    41100001        LA      1,    1(  0,  0)
C 0000DFCC    5A108040        A       1,   64(  0,  8)
C 0000DFD0    50108040        ST      1,   64(  0,  8)



C 0000DFD4    58108040        L       1,   64(  0,  8)
C 0000DFD8    0610            BCTR    1,  0
C 0000DFDA    413092FC        LA      3,  764(  0,  9)
C 0000DFDE    45F0C05C        BAL    15,   92(  0, 12)
C 0000DFE2    4811F000        LH      1,    0(  1, 15)
C 0000DFE6    41200002        LA      2,    2(  0,  0)
C 0000DFEA    1912            CR      1,  2
C 0000DFEC    477A0048        BC      7,   72( 10,  0)
C 0000DFF0    D203D0146000    MVC     20(  4, 13),    0(  6)
C 0000DFF6    984F6010        LM      4, 15,   16(  6)
C 0000DFFA    07FF            BCR    15, 15


  2603                             P=P+1;->1

C 0000DFFC    41100001        LA      1,    1(  0,  0)
C 0000E000    5A108040        A       1,   64(  0,  8)
C 0000E004    50108040        ST      1,   64(  0,  8)



C 0000E008    47F0A000        BC     15,    0(  0, 10)


  2604                             %END
D 00000BA8    C2 C2 C2 C2 0A 28 06 08 53 4B 49 50 4E 41 4D 45 FF FF FF FF


C 0000E00C    D203D0146000    MVC     20(  4, 13),    0(  6)
C 0000E012    984F6010        LM      4, 15,   16(  6)
C 0000E016    07FF            BCR    15, 15


  2605                         %ROUTINE FAIL(%INTEGER MASK)

C 0000E018    47FA0000        BC     15,    0( 10,  0)
C 0000E01C    50F0B03C        ST     15,   60(  0, 11)
C 0000E020    D203B000D014    MVC      0(  4, 11),   20( 13)
C 0000E026    41000A2D        LA      0, 2605(  0,  0)
C 0000E02A    4000D014        STH     0,   20(  0, 13)
C 0000E02E    186B            LR      6, 11
C 0000E030    41BB0000        LA     11,    0( 11,  0)
C 0000E034    41000004        LA      0,    4(  0,  0)
C 0000E038    59BD0044        C      11,   68( 13,  0)
C 0000E03C    4720C054        BC      2,   84(  0, 12)
C 0000E040    05A0            BALR   10,  0


  2606                             %IF MODE=0 %THEN PRX(X'47',MASK,0,CODER,152) %ELSE P LOCAL JUMP(MASK,LAB)

C 0000E042    58107040        L       1,   64(  0,  7)
C 0000E046    1211            LTR     1,  1
C 0000E048    477A0038        BC      7,   56( 10,  0)
C 0000E04C    41100047        LA      1,   71(  0,  0)
C 0000E050    5010B040        ST      1,   64(  0, 11)
C 0000E054    D203B0446040    MVC     68(  4, 11),   64(  6)
C 0000E05A    1F11            SLR     1,  1
C 0000E05C    5010B048        ST      1,   72(  0, 11)
C 0000E060    D203B04CD144    MVC     76(  4, 11),  324( 13)
C 0000E066    41100098        LA      1,  152(  0,  0)
C 0000E06A    5010B050        ST      1,   80(  0, 11)
C 0000E06E    5810D1C0        L       1,  448(  0, 13)
C 0000E072    45F0D074        BAL    15,  116(  0, 13)
C 0000E076    47FA004C        BC     15,   76( 10,  0)
C 0000E07A    D203B0406040    MVC     64(  4, 11),   64(  6)
C 0000E080    D203B0447044    MVC     68(  4, 11),   68(  7)
C 0000E086    5810D348        L       1,  840(  0, 13)
C 0000E08A    45F0D074        BAL    15,  116(  0, 13)


  2607                             %END
D 00000BBC    C2 C2 C2 C2 0A 2D 06 04 46 41 49 4C 01 60 40 04 4D 41 53 4B FF FF FF FF


C 0000E08E    D203D0146000    MVC     20(  4, 13),    0(  6)
C 0000E094    984F6010        LM      4, 15,   16(  6)
C 0000E098    07FF            BCR    15, 15


  2608                         %END
D 00000BD4    C2 C2 C2 C2 09 FA 07 04 43 52 45 53 01 70 58 06 53 45 58 50 52 4E FF FF 01 70 54 01 57 00 00 0C 01 70 50 02 50 33 4C 02 01 70 4C 02 50 32 48 02 01 70 48 02 50 31 FF FE 01 70 44 03 4C 41 42 FF 01 70 40 04 4D 4F 44 45 FF FF FF FF


C 0000E09A    D203D0147000    MVC     20(  4, 13),    0(  7)
C 0000E0A0    984F7010        LM      4, 15,   16(  7)
C 0000E0A4    07FF            BCR    15, 15


  2609                     %ROUTINE CCOND(%INTEGER IU,NEARLAB,FARLAB)

C 0000E0A6    0000
C 0000E0A8    0000
C 0000E0AA    47FA0000        BC     15,    0( 10,  0)
C 0000E0AE    50F0B03C        ST     15,   60(  0, 11)
C 0000E0B2    D203B000D014    MVC      0(  4, 11),   20( 13)
C 0000E0B8    41000A31        LA      0, 2609(  0,  0)
C 0000E0BC    4000D014        STH     0,   20(  0, 13)
C 0000E0C0    187B            LR      7, 11
C 0000E0C2    41BB0000        LA     11,    0( 11,  0)
C 0000E0C6    41000004        LA      0,    4(  0,  0)
C 0000E0CA    59BD0044        C      11,   68( 13,  0)
C 0000E0CE    4720C054        BC      2,   84(  0, 12)
C 0000E0D2    05A0            BALR   10,  0


  2610                               %COMMENT IU=0 FOR IF =1 FOR UNLESS
  2611                               %ROUTINESPEC CCC
  2612                         %ROUTINESPEC CSC(%INTEGERNAME FLAB)
  2613                         %COMMENT  P ON ALT OF (SC)
  2614                         %INTEGER T,C,FAILPT,BASE,DISP
  2615                         %INTEGER JNPORFP,TP,CLAUSES
  2616                         CLAUSES=0

C 0000E0D4    1F11            SLR     1,  1
C 0000E0D6    50107068        ST      1,  104(  0,  7)


  2617                         T=A(P+1+A(P+1))

C 0000E0DA    41100001        LA      1,    1(  0,  0)
C 0000E0DE    5A108040        A       1,   64(  0,  8)
C 0000E0E2    413092FC        LA      3,  764(  0,  9)
C 0000E0E6    45F0C05C        BAL    15,   92(  0, 12)
C 0000E0EA    4861F000        LH      6,    0(  1, 15)
C 0000E0EE    41100001        LA      1,    1(  0,  0)
C 0000E0F2    5A108040        A       1,   64(  0,  8)
C 0000E0F6    1A16            AR      1,  6
C 0000E0F8    413092FC        LA      3,  764(  0,  9)
C 0000E0FC    45F0C05C        BAL    15,   92(  0, 12)
C 0000E100    4811F000        LH      1,    0(  1, 15)
C 0000E104    5010704C        ST      1,   76(  0,  7)


  2618                         T=0 %IF T=3;                  !0=SC  1=%AND 2=%OR

C 0000E108    41100003        LA      1,    3(  0,  0)
C 0000E10C    5910704C        C       1,   76(  0,  7)
C 0000E110    477A0046        BC      7,   70( 10,  0)
C 0000E114    1F11            SLR     1,  1
C 0000E116    5010704C        ST      1,   76(  0,  7)


  2619                         TP=T ; TP=TP+1 %IF T=0

C 0000E11A    D2037064704C    MVC    100(  4,  7),   76(  7)



C 0000E120    5810704C        L       1,   76(  0,  7)
C 0000E124    1211            LTR     1,  1
C 0000E126    477A0062        BC      7,   98( 10,  0)
C 0000E12A    41100001        LA      1,    1(  0,  0)
C 0000E12E    5A107064        A       1,  100(  0,  7)
C 0000E132    50107064        ST      1,  100(  0,  7)


  2620                         %IF IU!!(TP-1)=0 %THEN JNPORFP=FARLAB %ELSE JNPORFP=NEARLAB

C 0000E136    58107064        L       1,  100(  0,  7)
C 0000E13A    0610            BCTR    1,  0
C 0000E13C    1851            LR      5,  1
C 0000E13E    57507040        X       5,   64(  0,  7)
C 0000E142    477A007C        BC      7,  124( 10,  0)
C 0000E146    D20370607048    MVC     96(  4,  7),   72(  7)
C 0000E14C    47FA0080        BC     15,  128( 10,  0)
C 0000E150    50207060        ST      2,   96(  0,  7)


  2621                         FAILPT = 0; CCC ;  -> 99

C 0000E154    1F11            SLR     1,  1
C 0000E156    50107054        ST      1,   84(  0,  7)



C 0000E15A    5810D560        L       1, 1376(  0, 13)
C 0000E15E    45F0D074        BAL    15,  116(  0, 13)



C 0000E162    0000
C 0000E164    0000
C 0000E166    47FA0000        BC     15,    0( 10,  0)


  2622                               %ROUTINE CCOMP(%INTEGER C)

C 0000E16A    0000
C 0000E16C    0000
C 0000E16E    47FA0000        BC     15,    0( 10,  0)
C 0000E172    50F0B03C        ST     15,   60(  0, 11)
C 0000E176    D203B000D014    MVC      0(  4, 11),   20( 13)
C 0000E17C    41000A3E        LA      0, 2622(  0,  0)
C 0000E180    4000D014        STH     0,   20(  0, 13)
C 0000E184    186B            LR      6, 11
C 0000E186    41BB0000        LA     11,    0( 11,  0)
C 0000E18A    41000004        LA      0,    4(  0,  0)
C 0000E18E    59BD0044        C      11,   68( 13,  0)
C 0000E192    4720C054        BC      2,   84(  0, 12)
C 0000E196    05A0            BALR   10,  0


  2623                             %SHORTROUTINE
  2624                                   ! C=1 FIRST TIME, 2 SECOND
  2625                             %INTEGER M,L,Q,R,T
  2626                             %OWNBYTEINTEGERARRAY FCOMP(1:7)=8,10,2,7,12,4,7;
K 00000DF4    00 00 00 00
K 00000DF8    08 0A 02 07
K 00000DFC    0C 04 07 00
K 00000E00    00 01 00 01
K 00000E04    00 00 00 01
K 00000E08    00 00 00 07
  2627                             %OWNBYTEINTEGERARRAY BCOMP(1:7)=8,12,4,7,10,2,7;
K 00000E0C    00 00 00 00
K 00000E10    08 0C 04 07
K 00000E14    0A 02 07 00
K 00000E18    00 01 00 01
K 00000E1C    00 00 00 01
K 00000E20    00 00 00 07
  2628                             %SWITCH SW(-10:2)

C 0000E198    47FA0000        BC     15,    0( 10,  0)
C 0000E19C    02FF
C 0000E19E    FFF6
C 0000E1A0    0000
C 0000E1A2    0002
C 0000E1A4    0000
C 0000E1A6    0000
C 0000E1A8    0000
C 0000E1AA    0000
C 0000E1AC    0000
C 0000E1AE    0000
C 0000E1B0    0000
C 0000E1B2    0000
C 0000E1B4    0000
C 0000E1B6    0000
C 0000E1B8    0000
C 0000E1BA    0000
C 0000E1BC    0000
C 0000E1BE    0000


  2629                             M=A(P)

C 0000E1C0    58108040        L       1,   64(  0,  8)
C 0000E1C4    413092FC        LA      3,  764(  0,  9)
C 0000E1C8    45F0C05C        BAL    15,   92(  0, 12)
C 0000E1CC    4811F000        LH      1,    0(  1, 15)
C 0000E1D0    50106044        ST      1,   68(  0,  6)


  2630                             P=P+1; ->SW(C) %UNLESS M=8

C 0000E1D4    41100001        LA      1,    1(  0,  0)
C 0000E1D8    5A108040        A       1,   64(  0,  8)
C 0000E1DC    50108040        ST      1,   64(  0,  8)



C 0000E1E0    41100008        LA      1,    8(  0,  0)
C 0000E1E4    59106044        C       1,   68(  0,  6)
C 0000E1E8    478A0062        BC      8,   98( 10,  0)
C 0000E1EC    58106040        L       1,   64(  0,  6)
C 0000E1F0    1A11            AR      1,  1
C 0000E1F2    4811A020        LH      1,   32(  1, 10)
C 0000E1F6    47F1A000        BC     15,    0(  1, 10)


  2631                             FAULT(73); SKIP EXP; ->1

C 0000E1FA    9249B043        MVI     67( 11), 73
C 0000E1FE    5810D228        L       1,  552(  0, 13)
C 0000E202    45F0D074        BAL    15,  116(  0, 13)



C 0000E206    5810D444        L       1, 1092(  0, 13)
C 0000E20A    45F0D074        BAL    15,  116(  0, 13)



C 0000E20E    47FA0000        BC     15,    0( 10,  0)


  2632                    SW(-10):                               ! FIRST OPERAND SIMPLE STRING
  2633                             CSTREXP(1); NEST=1; DUMP(2,2,DISP,0,BASE); ->161

C 0000E212    41100001        LA      1,    1(  0,  0)
C 0000E216    5010B040        ST      1,   64(  0, 11)
C 0000E21A    5810D380        L       1,  896(  0, 13)
C 0000E21E    45F0D074        BAL    15,  116(  0, 13)



C 0000E222    41100001        LA      1,    1(  0,  0)
C 0000E226    5010912C        ST      1,  300(  0,  9)



C 0000E22A    41100002        LA      1,    2(  0,  0)
C 0000E22E    5010B040        ST      1,   64(  0, 11)
C 0000E232    41100002        LA      1,    2(  0,  0)
C 0000E236    5010B044        ST      1,   68(  0, 11)
C 0000E23A    D203B048705C    MVC     72(  4, 11),   92(  7)
C 0000E240    1F11            SLR     1,  1
C 0000E242    5010B04C        ST      1,   76(  0, 11)
C 0000E246    D203B0507058    MVC     80(  4, 11),   88(  7)
C 0000E24C    5810D458        L       1, 1112(  0, 13)
C 0000E250    45F0D074        BAL    15,  116(  0, 13)



C 0000E254    47FA0000        BC     15,    0( 10,  0)


  2634                    SW(-9):  T=P; R=TSEXP(Q)

C 0000E258    D20360548040    MVC     84(  4,  6),   64(  8)



C 0000E25E    4110604C        LA      1,   76(  0,  6)
C 0000E262    5010B040        ST      1,   64(  0, 11)
C 0000E266    5810D478        L       1, 1144(  0, 13)
C 0000E26A    45F0D074        BAL    15,  116(  0, 13)
C 0000E26E    50106050        ST      1,   80(  0,  6)


  2635                             ->REG1 %IF R=10 %AND A(P)=2

C 0000E272    4110000A        LA      1,   10(  0,  0)
C 0000E276    59106050        C       1,   80(  0,  6)
C 0000E27A    477A0100        BC      7,  256( 10,  0)
C 0000E27E    58108040        L       1,   64(  0,  8)
C 0000E282    413092FC        LA      3,  764(  0,  9)
C 0000E286    45F0C05C        BAL    15,   92(  0, 12)
C 0000E28A    4811F000        LH      1,    0(  1, 15)
C 0000E28E    41200002        LA      2,    2(  0,  0)
C 0000E292    1912            CR      1,  2
C 0000E294    478A0000        BC      8,    0( 10,  0)


  2636                             ->REG2 %IF R=11 %AND A(P)=2

C 0000E298    4110000B        LA      1,   11(  0,  0)
C 0000E29C    59106050        C       1,   80(  0,  6)
C 0000E2A0    477A0126        BC      7,  294( 10,  0)
C 0000E2A4    58108040        L       1,   64(  0,  8)
C 0000E2A8    413092FC        LA      3,  764(  0,  9)
C 0000E2AC    45F0C05C        BAL    15,   92(  0, 12)
C 0000E2B0    4811F000        LH      1,    0(  1, 15)
C 0000E2B4    41200002        LA      2,    2(  0,  0)
C 0000E2B8    1912            CR      1,  2
C 0000E2BA    478A0000        BC      8,    0( 10,  0)


  2637                             P=T; CSEXP(0,0)

C 0000E2BE    D20380406054    MVC     64(  4,  8),   84(  6)



C 0000E2C4    1F11            SLR     1,  1
C 0000E2C6    5010B040        ST      1,   64(  0, 11)
C 0000E2CA    9200B047        MVI     71( 11),  0
C 0000E2CE    5810D37C        L       1,  892(  0, 13)
C 0000E2D2    45F0D074        BAL    15,  116(  0, 13)


  2638                             ->REG3 %IF TYPE=2

C 0000E2D6    95028094        CLI    148(  8),  2
C 0000E2DA    478A0000        BC      8,    0( 10,  0)


  2639                             PRR(X'19',DISP,NEST); ->20;   !CR

C 0000E2DE    41100019        LA      1,   25(  0,  0)
C 0000E2E2    5010B040        ST      1,   64(  0, 11)
C 0000E2E6    D203B044705C    MVC     68(  4, 11),   92(  7)
C 0000E2EC    D203B048912C    MVC     72(  4, 11),  300(  9)
C 0000E2F2    5810D1D0        L       1,  464(  0, 13)
C 0000E2F6    45F0D074        BAL    15,  116(  0, 13)



C 0000E2FA    47FA0000        BC     15,    0( 10,  0)


  2640                    REG1:    Q=X'59'; ->RCOM

C 0000E2FE    41100059        LA      1,   89(  0,  0)
C 0000E302    5010604C        ST      1,   76(  0,  6)



C 0000E306    47FA0000        BC     15,    0( 10,  0)


  2641                    REG2:    Q=X'49'

C 0000E30A    41100049        LA      1,   73(  0,  0)
C 0000E30E    5010604C        ST      1,   76(  0,  6)


  2642                    RCOM:    PRX(Q,DISP,0,I,K); ->20;      !C OR CH

C 0000E312    D203B040604C    MVC     64(  4, 11),   76(  6)
C 0000E318    D203B044705C    MVC     68(  4, 11),   92(  7)
C 0000E31E    1F11            SLR     1,  1
C 0000E320    5010B048        ST      1,   72(  0, 11)
C 0000E324    D203B04C809C    MVC     76(  4, 11),  156(  8)
C 0000E32A    D203B05080A4    MVC     80(  4, 11),  164(  8)
C 0000E330    5810D1C0        L       1,  448(  0, 13)
C 0000E334    45F0D074        BAL    15,  116(  0, 13)



C 0000E338    47FA0000        BC     15,    0( 10,  0)


  2643                    REG3:    PRR(X'18',1,DISP); ->37 ;     !TO FLOAT ETC

C 0000E33C    41100018        LA      1,   24(  0,  0)
C 0000E340    5010B040        ST      1,   64(  0, 11)
C 0000E344    41100001        LA      1,    1(  0,  0)
C 0000E348    5010B044        ST      1,   68(  0, 11)
C 0000E34C    D203B048705C    MVC     72(  4, 11),   92(  7)
C 0000E352    5810D1D0        L       1,  464(  0, 13)
C 0000E356    45F0D074        BAL    15,  116(  0, 13)



C 0000E35A    47FA0000        BC     15,    0( 10,  0)


  2644                    SW(-5):                                !FIRST OPERAND LONG REAL
  2645                             CSEXP(0,3); Q=X'69';          ! COMPILE LONG

C 0000E35E    1F11            SLR     1,  1
C 0000E360    5010B040        ST      1,   64(  0, 11)
C 0000E364    9203B047        MVI     71( 11),  3
C 0000E368    5810D37C        L       1,  892(  0, 13)
C 0000E36C    45F0D074        BAL    15,  116(  0, 13)



C 0000E370    41100069        LA      1,  105(  0,  0)
C 0000E374    5010604C        ST      1,   76(  0,  6)


  2646                    51:      PRX(Q,NEST,0,BASE,DISP); ->21

C 0000E378    D203B040604C    MVC     64(  4, 11),   76(  6)
C 0000E37E    D203B044912C    MVC     68(  4, 11),  300(  9)
C 0000E384    1F11            SLR     1,  1
C 0000E386    5010B048        ST      1,   72(  0, 11)
C 0000E38A    D203B04C7058    MVC     76(  4, 11),   88(  7)
C 0000E390    D203B050705C    MVC     80(  4, 11),   92(  7)
C 0000E396    5810D1C0        L       1,  448(  0, 13)
C 0000E39A    45F0D074        BAL    15,  116(  0, 13)



C 0000E39E    47FA0000        BC     15,    0( 10,  0)


  2647                    SW(-4):                                !FIRST OPERAND SHORT REAL
  2648                             Q=X'79'; CSEXP(0,2)

C 0000E3A2    41100079        LA      1,  121(  0,  0)
C 0000E3A6    5010604C        ST      1,   76(  0,  6)



C 0000E3AA    1F11            SLR     1,  1
C 0000E3AC    5010B040        ST      1,   64(  0, 11)
C 0000E3B0    9202B047        MVI     71( 11),  2
C 0000E3B4    5810D37C        L       1,  892(  0, 13)
C 0000E3B8    45F0D074        BAL    15,  116(  0, 13)


  2649                    40:      ->51 %IF PREC=0;              !SHORT EXPRESSION

C 0000E3BC    95008093        CLI    147(  8),  0
C 0000E3C0    4780A1E0        BC      8,  480(  0, 10)


  2650                             PRR(X'2B',0,0)

C 0000E3C4    4110002B        LA      1,   43(  0,  0)
C 0000E3C8    5010B040        ST      1,   64(  0, 11)
C 0000E3CC    1F11            SLR     1,  1
C 0000E3CE    5010B044        ST      1,   68(  0, 11)
C 0000E3D2    1F11            SLR     1,  1
C 0000E3D4    5010B048        ST      1,   72(  0, 11)
C 0000E3D8    5810D1D0        L       1,  464(  0, 13)
C 0000E3DC    45F0D074        BAL    15,  116(  0, 13)


  2651                             PRX(X'78',0,0,BASE,DISP);     !STETCH IST OPN

C 0000E3E0    41100078        LA      1,  120(  0,  0)
C 0000E3E4    5010B040        ST      1,   64(  0, 11)
C 0000E3E8    1F11            SLR     1,  1
C 0000E3EA    5010B044        ST      1,   68(  0, 11)
C 0000E3EE    1F11            SLR     1,  1
C 0000E3F0    5010B048        ST      1,   72(  0, 11)
C 0000E3F4    D203B04C7058    MVC     76(  4, 11),   88(  7)
C 0000E3FA    D203B050705C    MVC     80(  4, 11),   92(  7)
C 0000E400    5810D1C0        L       1,  448(  0, 13)
C 0000E404    45F0D074        BAL    15,  116(  0, 13)


  2652                             PRR(X'29',0,NEST); ->20

C 0000E408    41100029        LA      1,   41(  0,  0)
C 0000E40C    5010B040        ST      1,   64(  0, 11)
C 0000E410    1F11            SLR     1,  1
C 0000E412    5010B044        ST      1,   68(  0, 11)
C 0000E416    D203B048912C    MVC     72(  4, 11),  300(  9)
C 0000E41C    5810D1D0        L       1,  464(  0, 13)
C 0000E420    45F0D074        BAL    15,  116(  0, 13)



C 0000E424    47FA0000        BC     15,    0( 10,  0)


  2653                    SW(-3):                                !FIRST OPERAND ASHORT CONSTANY
  2654                             CSEXP(0,0)

C 0000E428    1F11            SLR     1,  1
C 0000E42A    5010B040        ST      1,   64(  0, 11)
C 0000E42E    9200B047        MVI     71( 11),  0
C 0000E432    5810D37C        L       1,  892(  0, 13)
C 0000E436    45F0D074        BAL    15,  116(  0, 13)


  2655                             ->30 %IF VALUE=0

C 0000E43A    5810807C        L       1,  124(  0,  8)
C 0000E43E    1211            LTR     1,  1
C 0000E440    478A0000        BC      8,    0( 10,  0)


  2656                             ->36 %IF TYPE=2

C 0000E444    95028094        CLI    148(  8),  2
C 0000E448    478A0000        BC      8,    0( 10,  0)


  2657                             R=2

C 0000E44C    41100002        LA      1,    2(  0,  0)
C 0000E450    50106050        ST      1,   80(  0,  6)


  2658                             R=1 %IF NEST=2

C 0000E454    41100002        LA      1,    2(  0,  0)
C 0000E458    5910912C        C       1,  300(  0,  9)
C 0000E45C    477A02D0        BC      7,  720( 10,  0)
C 0000E460    41100001        LA      1,    1(  0,  0)
C 0000E464    50106050        ST      1,   80(  0,  6)


  2659                             DUMP(0,R,VALUE,0,0);          !LOAD ADDR FOR CONSTANT

C 0000E468    1F11            SLR     1,  1
C 0000E46A    5010B040        ST      1,   64(  0, 11)
C 0000E46E    D203B0446050    MVC     68(  4, 11),   80(  6)
C 0000E474    D203B048807C    MVC     72(  4, 11),  124(  8)
C 0000E47A    1F11            SLR     1,  1
C 0000E47C    5010B04C        ST      1,   76(  0, 11)
C 0000E480    1F11            SLR     1,  1
C 0000E482    5010B050        ST      1,   80(  0, 11)
C 0000E486    5810D458        L       1, 1112(  0, 13)
C 0000E48A    45F0D074        BAL    15,  116(  0, 13)


  2660                    29:      PRR(X'19',R,NEST); ->20;      !CR2,1

C 0000E48E    41100019        LA      1,   25(  0,  0)
C 0000E492    5010B040        ST      1,   64(  0, 11)
C 0000E496    D203B0446050    MVC     68(  4, 11),   80(  6)
C 0000E49C    D203B048912C    MVC     72(  4, 11),  300(  9)
C 0000E4A2    5810D1D0        L       1,  464(  0, 13)
C 0000E4A6    45F0D074        BAL    15,  116(  0, 13)



C 0000E4AA    47FA0000        BC     15,    0( 10,  0)


  2661                    30:                                    !COMPARISONS WITH ZERO
  2662                             ->35 %IF TYPE=5

C 0000E4AE    95058094        CLI    148(  8),  5
C 0000E4B2    478A0000        BC      8,    0( 10,  0)


  2663                             ->32 %IF AFLAG=1

C 0000E4B6    950190C8        CLI    200(  9),  1
C 0000E4BA    478A0000        BC      8,    0( 10,  0)


  2664                             ->31 %IF TYPE=2

C 0000E4BE    95028094        CLI    148(  8),  2
C 0000E4C2    478A0000        BC      8,    0( 10,  0)


  2665                             ->32 %IF AFLAG=2 %AND 7<=FCOMP(M)<=8

C 0000E4C6    950290C8        CLI    200(  9),  2
C 0000E4CA    477A035E        BC      7,  862( 10,  0)
C 0000E4CE    58106044        L       1,   68(  0,  6)
C 0000E4D2    4130D56C        LA      3, 1388(  0, 13)
C 0000E4D6    45F0C05C        BAL    15,   92(  0, 12)
C 0000E4DA    4311F000        IC      1,    0(  1, 15)
C 0000E4DE    5410D018        N       1,   24(  0, 13)
C 0000E4E2    41200007        LA      2,    7(  0,  0)
C 0000E4E6    1921            CR      2,  1
C 0000E4E8    473A035E        BC      3,  862( 10,  0)
C 0000E4EC    41200008        LA      2,    8(  0,  0)
C 0000E4F0    1912            CR      1,  2
C 0000E4F2    47CA0000        BC     12,    0( 10,  0)


  2666                    31:      PRR((TYPE-1)*(2-PREC&1)*16+X'12',NEST,NEST);   !LTR,LTER,LTDR

C 0000E4F6    1F11            SLR     1,  1
C 0000E4F8    43108094        IC      1,  148(  0,  8)
C 0000E4FC    0610            BCTR    1,  0
C 0000E4FE    1851            LR      5,  1
C 0000E500    41100001        LA      1,    1(  0,  0)
C 0000E504    1F22            SLR     2,  2
C 0000E506    43208093        IC      2,  147(  0,  8)
C 0000E50A    1412            NR      1,  2
C 0000E50C    41200002        LA      2,    2(  0,  0)
C 0000E510    1B21            SR      2,  1
C 0000E512    50206058        ST      2,   88(  0,  6)
C 0000E516    5C406058        M       4,   88(  0,  6)
C 0000E51A    41100010        LA      1,   16(  0,  0)
C 0000E51E    1C41            MR      4,  1
C 0000E520    41100012        LA      1,   18(  0,  0)
C 0000E524    1A51            AR      5,  1
C 0000E526    5050B040        ST      5,   64(  0, 11)
C 0000E52A    D203B044912C    MVC     68(  4, 11),  300(  9)
C 0000E530    D203B048912C    MVC     72(  4, 11),  300(  9)
C 0000E536    5810D1D0        L       1,  464(  0, 13)
C 0000E53A    45F0D074        BAL    15,  116(  0, 13)


  2667                    32:      ->21 %IF C=-3; ->20

C 0000E53E    41100003        LA      1,    3(  0,  0)
C 0000E542    1311            LCR     1,  1
C 0000E544    59106040        C       1,   64(  0,  6)
C 0000E548    478A0000        BC      8,    0( 10,  0)



C 0000E54C    47FA0000        BC     15,    0( 10,  0)


  2668                    35:      PSI(X'95',0,NEST,0); ->20;    ! NULL STRING LENGTH=0

C 0000E550    41100095        LA      1,  149(  0,  0)
C 0000E554    5010B040        ST      1,   64(  0, 11)
C 0000E558    1F11            SLR     1,  1
C 0000E55A    5010B044        ST      1,   68(  0, 11)
C 0000E55E    D203B048912C    MVC     72(  4, 11),  300(  9)
C 0000E564    1F11            SLR     1,  1
C 0000E566    5010B04C        ST      1,   76(  0, 11)
C 0000E56A    5810D1B8        L       1,  440(  0, 13)
C 0000E56E    45F0D074        BAL    15,  116(  0, 13)



C 0000E572    47FA0000        BC     15,    0( 10,  0)


  2669                    36:      DUMP(0,1,VALUE,0,0);

C 0000E576    1F11            SLR     1,  1
C 0000E578    5010B040        ST      1,   64(  0, 11)
C 0000E57C    41100001        LA      1,    1(  0,  0)
C 0000E580    5010B044        ST      1,   68(  0, 11)
C 0000E584    D203B048807C    MVC     72(  4, 11),  124(  8)
C 0000E58A    1F11            SLR     1,  1
C 0000E58C    5010B04C        ST      1,   76(  0, 11)
C 0000E590    1F11            SLR     1,  1
C 0000E592    5010B050        ST      1,   80(  0, 11)
C 0000E596    5810D458        L       1, 1112(  0, 13)
C 0000E59A    45F0D074        BAL    15,  116(  0, 13)


  2670                    37:      PPJ(43);

C 0000E59E    922BB043        MVI     67( 11), 43
C 0000E5A2    5810D46C        L       1, 1132(  0, 13)
C 0000E5A6    45F0D074        BAL    15,  116(  0, 13)


  2671                             PRR((1-PREC&1)*16+X'29',0,NEST);        ! CDR OR CER

C 0000E5AA    41100001        LA      1,    1(  0,  0)
C 0000E5AE    1F22            SLR     2,  2
C 0000E5B0    43208093        IC      2,  147(  0,  8)
C 0000E5B4    1412            NR      1,  2
C 0000E5B6    41200001        LA      2,    1(  0,  0)
C 0000E5BA    1B21            SR      2,  1
C 0000E5BC    1852            LR      5,  2
C 0000E5BE    41100010        LA      1,   16(  0,  0)
C 0000E5C2    1C41            MR      4,  1
C 0000E5C4    41100029        LA      1,   41(  0,  0)
C 0000E5C8    1A51            AR      5,  1
C 0000E5CA    5050B040        ST      5,   64(  0, 11)
C 0000E5CE    1F11            SLR     1,  1
C 0000E5D0    5010B044        ST      1,   68(  0, 11)
C 0000E5D4    D203B048912C    MVC     72(  4, 11),  300(  9)
C 0000E5DA    5810D1D0        L       1,  464(  0, 13)
C 0000E5DE    45F0D074        BAL    15,  116(  0, 13)


  2672                             ->20

C 0000E5E2    47FA0000        BC     15,    0( 10,  0)


  2673                    SW(-2):  Q=X'49';                      !OPERAND SHORT

C 0000E5E6    41100049        LA      1,   73(  0,  0)
C 0000E5EA    5010604C        ST      1,   76(  0,  6)


  2674                    24:      CSEXP(0,0); ->25 %IF TYPE=2

C 0000E5EE    1F11            SLR     1,  1
C 0000E5F0    5010B040        ST      1,   64(  0, 11)
C 0000E5F4    9200B047        MVI     71( 11),  0
C 0000E5F8    5810D37C        L       1,  892(  0, 13)
C 0000E5FC    45F0D074        BAL    15,  116(  0, 13)



C 0000E600    95028094        CLI    148(  8),  2
C 0000E604    478A0000        BC      8,    0( 10,  0)


  2675                              PRX(Q,NEST,0,BASE,DISP); ->21;          ! C OR CH

C 0000E608    D203B040604C    MVC     64(  4, 11),   76(  6)
C 0000E60E    D203B044912C    MVC     68(  4, 11),  300(  9)
C 0000E614    1F11            SLR     1,  1
C 0000E616    5010B048        ST      1,   72(  0, 11)
C 0000E61A    D203B04C7058    MVC     76(  4, 11),   88(  7)
C 0000E620    D203B050705C    MVC     80(  4, 11),   92(  7)
C 0000E626    5810D1C0        L       1,  448(  0, 13)
C 0000E62A    45F0D074        BAL    15,  116(  0, 13)



C 0000E62E    47FA0000        BC     15,    0( 10,  0)


  2676                    25:      R=2; R=6 %IF Q=X'49';         ! HERE FOR REALS

C 0000E632    41100002        LA      1,    2(  0,  0)
C 0000E636    50106050        ST      1,   80(  0,  6)



C 0000E63A    41100049        LA      1,   73(  0,  0)
C 0000E63E    5910604C        C       1,   76(  0,  6)
C 0000E642    477A04B6        BC      7, 1206( 10,  0)
C 0000E646    41100006        LA      1,    6(  0,  0)
C 0000E64A    50106050        ST      1,   80(  0,  6)


  2677                    26:      DUMP(R,1,DISP,0,BASE); ->37

C 0000E64E    D203B0406050    MVC     64(  4, 11),   80(  6)
C 0000E654    41100001        LA      1,    1(  0,  0)
C 0000E658    5010B044        ST      1,   68(  0, 11)
C 0000E65C    D203B048705C    MVC     72(  4, 11),   92(  7)
C 0000E662    1F11            SLR     1,  1
C 0000E664    5010B04C        ST      1,   76(  0, 11)
C 0000E668    D203B0507058    MVC     80(  4, 11),   88(  7)
C 0000E66E    5810D458        L       1, 1112(  0, 13)
C 0000E672    45F0D074        BAL    15,  116(  0, 13)



C 0000E676    47F0A406        BC     15, 1030(  0, 10)


  2678                    SW(-1):  ! FIRST OPERAND A BYTE
  2679                             T=P; R=TSEXP(Q); L=1

C 0000E67A    D20360548040    MVC     84(  4,  6),   64(  8)



C 0000E680    4110604C        LA      1,   76(  0,  6)
C 0000E684    5010B040        ST      1,   64(  0, 11)
C 0000E688    5810D478        L       1, 1144(  0, 13)
C 0000E68C    45F0D074        BAL    15,  116(  0, 13)
C 0000E690    50106050        ST      1,   80(  0,  6)



C 0000E694    41100001        LA      1,    1(  0,  0)
C 0000E698    50106048        ST      1,   72(  0,  6)


  2680                             ->18 %IF R=11 %AND A(P)=2

C 0000E69C    4110000B        LA      1,   11(  0,  0)
C 0000E6A0    59106050        C       1,   80(  0,  6)
C 0000E6A4    477A052A        BC      7, 1322( 10,  0)
C 0000E6A8    58108040        L       1,   64(  0,  8)
C 0000E6AC    413092FC        LA      3,  764(  0,  9)
C 0000E6B0    45F0C05C        BAL    15,   92(  0, 12)
C 0000E6B4    4811F000        LH      1,    0(  1, 15)
C 0000E6B8    41200002        LA      2,    2(  0,  0)
C 0000E6BC    1912            CR      1,  2
C 0000E6BE    478A0000        BC      8,    0( 10,  0)


  2681                             ->19 %IF R=1 %AND A(P)=2

C 0000E6C2    41100001        LA      1,    1(  0,  0)
C 0000E6C6    59106050        C       1,   80(  0,  6)
C 0000E6CA    477A0550        BC      7, 1360( 10,  0)
C 0000E6CE    58108040        L       1,   64(  0,  8)
C 0000E6D2    413092FC        LA      3,  764(  0,  9)
C 0000E6D6    45F0C05C        BAL    15,   92(  0, 12)
C 0000E6DA    4811F000        LH      1,    0(  1, 15)
C 0000E6DE    41200002        LA      2,    2(  0,  0)
C 0000E6E2    1912            CR      1,  2
C 0000E6E4    478A0000        BC      8,    0( 10,  0)


  2682                             P=T;CSEXP(0,0); ->14 %IF TYPE=2

C 0000E6E8    D20380406054    MVC     64(  4,  8),   84(  6)



C 0000E6EE    1F11            SLR     1,  1
C 0000E6F0    5010B040        ST      1,   64(  0, 11)
C 0000E6F4    9200B047        MVI     71( 11),  0
C 0000E6F8    5810D37C        L       1,  892(  0, 13)
C 0000E6FC    45F0D074        BAL    15,  116(  0, 13)



C 0000E700    95028094        CLI    148(  8),  2
C 0000E704    478A0000        BC      8,    0( 10,  0)


  2683                             R=2; R=1 %IF NEST=2

C 0000E708    41100002        LA      1,    2(  0,  0)
C 0000E70C    50106050        ST      1,   80(  0,  6)



C 0000E710    41100002        LA      1,    2(  0,  0)
C 0000E714    5910912C        C       1,  300(  0,  9)
C 0000E718    477A058C        BC      7, 1420( 10,  0)
C 0000E71C    41100001        LA      1,    1(  0,  0)
C 0000E720    50106050        ST      1,   80(  0,  6)


  2684                             DUMP(4,R,DISP,0,BASE); ->29

C 0000E724    41100004        LA      1,    4(  0,  0)
C 0000E728    5010B040        ST      1,   64(  0, 11)
C 0000E72C    D203B0446050    MVC     68(  4, 11),   80(  6)
C 0000E732    D203B048705C    MVC     72(  4, 11),   92(  7)
C 0000E738    1F11            SLR     1,  1
C 0000E73A    5010B04C        ST      1,   76(  0, 11)
C 0000E73E    D203B0507058    MVC     80(  4, 11),   88(  7)
C 0000E744    5810D458        L       1, 1112(  0, 13)
C 0000E748    45F0D074        BAL    15,  116(  0, 13)



C 0000E74C    47F0A2F6        BC     15,  758(  0, 10)


  2685                    14:      R=4; ->26

C 0000E750    41100004        LA      1,    4(  0,  0)
C 0000E754    50106050        ST      1,   80(  0,  6)



C 0000E758    47F0A4B6        BC     15, 1206(  0, 10)


  2686                    18:      PSS(X'D5',L,BASE,DISP,I,K); ->20;       ! CLC COMPARISONS

C 0000E75C    411000D5        LA      1,  213(  0,  0)
C 0000E760    5010B040        ST      1,   64(  0, 11)
C 0000E764    D203B0446048    MVC     68(  4, 11),   72(  6)
C 0000E76A    D203B0487058    MVC     72(  4, 11),   88(  7)
C 0000E770    D203B04C705C    MVC     76(  4, 11),   92(  7)
C 0000E776    D203B050809C    MVC     80(  4, 11),  156(  8)
C 0000E77C    D203B05480A4    MVC     84(  4, 11),  164(  8)
C 0000E782    5810D1BC        L       1,  444(  0, 13)
C 0000E786    45F0D074        BAL    15,  116(  0, 13)



C 0000E78A    47FA0000        BC     15,    0( 10,  0)


  2687                    19:      PSI(X'95',Q,BASE,DISP);->20;  !CLI FOR BYTE/INTEGER

C 0000E78E    41100095        LA      1,  149(  0,  0)
C 0000E792    5010B040        ST      1,   64(  0, 11)
C 0000E796    D203B044604C    MVC     68(  4, 11),   76(  6)
C 0000E79C    D203B0487058    MVC     72(  4, 11),   88(  7)
C 0000E7A2    D203B04C705C    MVC     76(  4, 11),   92(  7)
C 0000E7A8    5810D1B8        L       1,  440(  0, 13)
C 0000E7AC    45F0D074        BAL    15,  116(  0, 13)



C 0000E7B0    47FA0000        BC     15,    0( 10,  0)


  2688                    SW(0):                                 !FIRST OPERAND INTEGER
  2689                             T=P; R=TSEXP(Q); L=4

C 0000E7B4    D20360548040    MVC     84(  4,  6),   64(  8)



C 0000E7BA    4110604C        LA      1,   76(  0,  6)
C 0000E7BE    5010B040        ST      1,   64(  0, 11)
C 0000E7C2    5810D478        L       1, 1144(  0, 13)
C 0000E7C6    45F0D074        BAL    15,  116(  0, 13)
C 0000E7CA    50106050        ST      1,   80(  0,  6)



C 0000E7CE    41100004        LA      1,    4(  0,  0)
C 0000E7D2    50106048        ST      1,   72(  0,  6)


  2690                             ->RSTORE %UNLESS R=10 %AND A(P)=2

C 0000E7D6    4110000A        LA      1,   10(  0,  0)
C 0000E7DA    59106050        C       1,   80(  0,  6)
C 0000E7DE    477A0000        BC      7,    0( 10,  0)
C 0000E7E2    58108040        L       1,   64(  0,  8)
C 0000E7E6    413092FC        LA      3,  764(  0,  9)
C 0000E7EA    45F0C05C        BAL    15,   92(  0, 12)
C 0000E7EE    4811F000        LH      1,    0(  1, 15)
C 0000E7F2    41200002        LA      2,    2(  0,  0)
C 0000E7F6    1912            CR      1,  2
C 0000E7F8    477A0000        BC      7,    0( 10,  0)


  2691                             ->18 %IF 7<=FCOMP(M)<=8

C 0000E7FC    58106044        L       1,   68(  0,  6)
C 0000E800    4130D56C        LA      3, 1388(  0, 13)
C 0000E804    45F0C05C        BAL    15,   92(  0, 12)
C 0000E808    4311F000        IC      1,    0(  1, 15)
C 0000E80C    5410D018        N       1,   24(  0, 13)
C 0000E810    41200007        LA      2,    7(  0,  0)
C 0000E814    1921            CR      2,  1
C 0000E816    473A068C        BC      3, 1676( 10,  0)
C 0000E81A    41200008        LA      2,    8(  0,  0)
C 0000E81E    1912            CR      1,  2
C 0000E820    47C0A5C4        BC     12, 1476(  0, 10)


  2692                    RSTORE:  P=T; Q=X'59'; ->24

C 0000E824    D20380406054    MVC     64(  4,  8),   84(  6)



C 0000E82A    41100059        LA      1,   89(  0,  0)
C 0000E82E    5010604C        ST      1,   76(  0,  6)



C 0000E832    47F0A456        BC     15, 1110(  0, 10)


  2693                    SW(1):                                 !FIRST OPERAND EXPRESSION
  2694                    SW(2):                                 !2ND HALT OF DOUBLE SEDED
  2695                             T=P; PTYPEP=PTYPE; R=TSEXP(VALUE)

C 0000E836    D20360548040    MVC     84(  4,  6),   64(  8)



C 0000E83C    D20380B08098    MVC    176(  4,  8),  152(  8)



C 0000E842    4110807C        LA      1,  124(  0,  8)
C 0000E846    5010B040        ST      1,   64(  0, 11)
C 0000E84A    5810D478        L       1, 1144(  0, 13)
C 0000E84E    45F0D074        BAL    15,  116(  0, 13)
C 0000E852    50106050        ST      1,   80(  0,  6)


  2696                             PTYPE=PTYPEP;UNPACK

C 0000E856    D203809880B0    MVC    152(  4,  8),  176(  8)



C 0000E85C    5810D448        L       1, 1096(  0, 13)
C 0000E860    45F0D074        BAL    15,  116(  0, 13)


  2697                             ->30 %IF R=1 %AND VALUE=0 %AND(A(P)=2 %OR C=2)

C 0000E864    41100001        LA      1,    1(  0,  0)
C 0000E868    59106050        C       1,   80(  0,  6)
C 0000E86C    477A0708        BC      7, 1800( 10,  0)
C 0000E870    5810807C        L       1,  124(  0,  8)
C 0000E874    1211            LTR     1,  1
C 0000E876    477A0708        BC      7, 1800( 10,  0)
C 0000E87A    58108040        L       1,   64(  0,  8)
C 0000E87E    413092FC        LA      3,  764(  0,  9)
C 0000E882    45F0C05C        BAL    15,   92(  0, 12)
C 0000E886    4811F000        LH      1,    0(  1, 15)
C 0000E88A    41200002        LA      2,    2(  0,  0)
C 0000E88E    1912            CR      1,  2
C 0000E890    4780A316        BC      8,  790(  0, 10)
C 0000E894    41100002        LA      1,    2(  0,  0)
C 0000E898    59106040        C       1,   64(  0,  6)
C 0000E89C    4780A316        BC      8,  790(  0, 10)


  2698                             ->160 %IF TYPE=5

C 0000E8A0    95058094        CLI    148(  8),  5
C 0000E8A4    478A0000        BC      8,    0( 10,  0)


  2699                             ->150 %IF TYPE=2

C 0000E8A8    95028094        CLI    148(  8),  2
C 0000E8AC    478A0000        BC      8,    0( 10,  0)


  2700                             ->120 %IF R=0 %OR 14<=R<=15 %OR(A(P)=1 %AND C=1)

C 0000E8B0    58106050        L       1,   80(  0,  6)
C 0000E8B4    1211            LTR     1,  1
C 0000E8B6    478A0000        BC      8,    0( 10,  0)
C 0000E8BA    58106050        L       1,   80(  0,  6)
C 0000E8BE    4120000E        LA      2,   14(  0,  0)
C 0000E8C2    1921            CR      2,  1
C 0000E8C4    473A073A        BC      3, 1850( 10,  0)
C 0000E8C8    4120000F        LA      2,   15(  0,  0)
C 0000E8CC    1912            CR      1,  2
C 0000E8CE    47CA0000        BC     12,    0( 10,  0)
C 0000E8D2    58108040        L       1,   64(  0,  8)
C 0000E8D6    413092FC        LA      3,  764(  0,  9)
C 0000E8DA    45F0C05C        BAL    15,   92(  0, 12)
C 0000E8DE    4811F000        LH      1,    0(  1, 15)
C 0000E8E2    41200001        LA      2,    1(  0,  0)
C 0000E8E6    1912            CR      1,  2
C 0000E8E8    477A0760        BC      7, 1888( 10,  0)
C 0000E8EC    41100001        LA      1,    1(  0,  0)
C 0000E8F0    59106040        C       1,   64(  0,  6)
C 0000E8F4    478A0000        BC      8,    0( 10,  0)


  2701                             ->130 %IF UNASS=1 %OR R=100 %OR R=11 %OR R<=2

C 0000E8F8    950190DC        CLI    220(  9),  1
C 0000E8FC    478A0000        BC      8,    0( 10,  0)
C 0000E900    41100064        LA      1,  100(  0,  0)
C 0000E904    59106050        C       1,   80(  0,  6)
C 0000E908    478A0000        BC      8,    0( 10,  0)
C 0000E90C    4110000B        LA      1,   11(  0,  0)
C 0000E910    59106050        C       1,   80(  0,  6)
C 0000E914    478A0000        BC      8,    0( 10,  0)
C 0000E918    41100002        LA      1,    2(  0,  0)
C 0000E91C    59106050        C       1,   80(  0,  6)
C 0000E920    47AA0000        BC     10,    0( 10,  0)


  2702                             ->131 %IF R=50;               ! REGISTER VARIABLE

C 0000E924    41100032        LA      1,   50(  0,  0)
C 0000E928    59106050        C       1,   80(  0,  6)
C 0000E92C    478A0000        BC      8,    0( 10,  0)


  2703                             Q=X'59'; Q=X'49' %IF R=12

C 0000E930    41100059        LA      1,   89(  0,  0)
C 0000E934    5010604C        ST      1,   76(  0,  6)



C 0000E938    4110000C        LA      1,   12(  0,  0)
C 0000E93C    59106050        C       1,   80(  0,  6)
C 0000E940    477A07B4        BC      7, 1972( 10,  0)
C 0000E944    41100049        LA      1,   73(  0,  0)
C 0000E948    5010604C        ST      1,   76(  0,  6)


  2704                             PRX(Q,NEST,0,I,K); ->20

C 0000E94C    D203B040604C    MVC     64(  4, 11),   76(  6)
C 0000E952    D203B044912C    MVC     68(  4, 11),  300(  9)
C 0000E958    1F11            SLR     1,  1
C 0000E95A    5010B048        ST      1,   72(  0, 11)
C 0000E95E    D203B04C809C    MVC     76(  4, 11),  156(  8)
C 0000E964    D203B05080A4    MVC     80(  4, 11),  164(  8)
C 0000E96A    5810D1C0        L       1,  448(  0, 13)
C 0000E96E    45F0D074        BAL    15,  116(  0, 13)



C 0000E972    47FA0000        BC     15,    0( 10,  0)


  2705                    130:     !1ST OPND INTEGER IN NEST-2ND OPN SIMPLE INTEGER EXPRN
  2706                             R=NEST; REGISTER(R)=1 %IF REGISTER(R)=0

C 0000E976    D2036050912C    MVC     80(  4,  6),  300(  9)



C 0000E97C    58106050        L       1,   80(  0,  6)
C 0000E980    4130914C        LA      3,  332(  0,  9)
C 0000E984    45F0C05C        BAL    15,   92(  0, 12)
C 0000E988    5811F000        L       1,    0(  1, 15)
C 0000E98C    1211            LTR     1,  1
C 0000E98E    477A080E        BC      7, 2062( 10,  0)
C 0000E992    41400001        LA      4,    1(  0,  0)
C 0000E996    58106050        L       1,   80(  0,  6)
C 0000E99A    4130914C        LA      3,  332(  0,  9)
C 0000E99E    45F0C05C        BAL    15,   92(  0, 12)
C 0000E9A2    5041F000        ST      4,    0(  1, 15)


  2707                             P=T; CSEXP(0,1)

C 0000E9A6    D20380406054    MVC     64(  4,  8),   84(  6)



C 0000E9AC    1F11            SLR     1,  1
C 0000E9AE    5010B040        ST      1,   64(  0, 11)
C 0000E9B2    9201B047        MVI     71( 11),  1
C 0000E9B6    5810D37C        L       1,  892(  0, 13)
C 0000E9BA    45F0D074        BAL    15,  116(  0, 13)


  2708                             REGISTER(R)=0 %IF REGISTER(R)>0; ->29

C 0000E9BE    58106050        L       1,   80(  0,  6)
C 0000E9C2    4130914C        LA      3,  332(  0,  9)
C 0000E9C6    45F0C05C        BAL    15,   92(  0, 12)
C 0000E9CA    5811F000        L       1,    0(  1, 15)
C 0000E9CE    1211            LTR     1,  1
C 0000E9D0    47DA084E        BC     13, 2126( 10,  0)
C 0000E9D4    1F44            SLR     4,  4
C 0000E9D6    58106050        L       1,   80(  0,  6)
C 0000E9DA    4130914C        LA      3,  332(  0,  9)
C 0000E9DE    45F0C05C        BAL    15,   92(  0, 12)
C 0000E9E2    5041F000        ST      4,    0(  1, 15)



C 0000E9E6    47F0A2F6        BC     15,  758(  0, 10)


  2709                    131:      PRR(X'19',NEST,K); ->20

C 0000E9EA    41100019        LA      1,   25(  0,  0)
C 0000E9EE    5010B040        ST      1,   64(  0, 11)
C 0000E9F2    D203B044912C    MVC     68(  4, 11),  300(  9)
C 0000E9F8    D203B04880A4    MVC     72(  4, 11),  164(  8)
C 0000E9FE    5810D1D0        L       1,  464(  0, 13)
C 0000EA02    45F0D074        BAL    15,  116(  0, 13)



C 0000EA06    47FA0000        BC     15,    0( 10,  0)


  2710                    120:     !1ST OPND INTEGER EXPRN IN NEST-SECOND OPND UNKNOWN
  2711                             Q=PARK(NEST); P=T

C 0000EA0A    D203B040912C    MVC     64(  4, 11),  300(  9)
C 0000EA10    5810D414        L       1, 1044(  0, 13)
C 0000EA14    45F0D074        BAL    15,  116(  0, 13)
C 0000EA18    5010604C        ST      1,   76(  0,  6)



C 0000EA1C    D20380406054    MVC     64(  4,  8),   84(  6)


  2712                             CSEXP(0,0); ->122 %IF TYPE=2

C 0000EA22    1F11            SLR     1,  1
C 0000EA24    5010B040        ST      1,   64(  0, 11)
C 0000EA28    9200B047        MVI     71( 11),  0
C 0000EA2C    5810D37C        L       1,  892(  0, 13)
C 0000EA30    45F0D074        BAL    15,  116(  0, 13)



C 0000EA34    95028094        CLI    148(  8),  2
C 0000EA38    478A0000        BC      8,    0( 10,  0)


  2713                             UNPARK(X'59',NEST,Q); ->21

C 0000EA3C    41100059        LA      1,   89(  0,  0)
C 0000EA40    5010B040        ST      1,   64(  0, 11)
C 0000EA44    D203B044912C    MVC     68(  4, 11),  300(  9)
C 0000EA4A    D203B048604C    MVC     72(  4, 11),   76(  6)
C 0000EA50    5810D430        L       1, 1072(  0, 13)
C 0000EA54    45F0D074        BAL    15,  116(  0, 13)



C 0000EA58    47FA0000        BC     15,    0( 10,  0)


  2714                    122:     UNPARK(X'58',1,Q); ->37;       ! TO FLOAT FIRST OPERAND

C 0000EA5C    41100058        LA      1,   88(  0,  0)
C 0000EA60    5010B040        ST      1,   64(  0, 11)
C 0000EA64    41100001        LA      1,    1(  0,  0)
C 0000EA68    5010B044        ST      1,   68(  0, 11)
C 0000EA6C    D203B048604C    MVC     72(  4, 11),   76(  6)
C 0000EA72    5810D430        L       1, 1072(  0, 13)
C 0000EA76    45F0D074        BAL    15,  116(  0, 13)



C 0000EA7A    47F0A406        BC     15, 1030(  0, 10)


  2715                    150:     P=T; Q=PARKF(NEST,PREC);      !

C 0000EA7E    D20380406054    MVC     64(  4,  8),   84(  6)



C 0000EA84    D203B040912C    MVC     64(  4, 11),  300(  9)
C 0000EA8A    1F11            SLR     1,  1
C 0000EA8C    43108093        IC      1,  147(  0,  8)
C 0000EA90    5010B044        ST      1,   68(  0, 11)
C 0000EA94    5810D418        L       1, 1048(  0, 13)
C 0000EA98    45F0D074        BAL    15,  116(  0, 13)
C 0000EA9C    5010604C        ST      1,   76(  0,  6)


  2716                             ->155 %IF PREC=0

C 0000EAA0    95008093        CLI    147(  8),  0
C 0000EAA4    478A0000        BC      8,    0( 10,  0)


  2717                             CSEXP(0,3);                   !1ST OPND LONG REAL EXPR

C 0000EAA8    1F11            SLR     1,  1
C 0000EAAA    5010B040        ST      1,   64(  0, 11)
C 0000EAAE    9203B047        MVI     71( 11),  3
C 0000EAB2    5810D37C        L       1,  892(  0, 13)
C 0000EAB6    45F0D074        BAL    15,  116(  0, 13)


  2718                             PUSH(LWSP(LEVEL),0,Q)

C 0000EABA    581090A8        L       1,  168(  0,  9)
C 0000EABE    4130923C        LA      3,  572(  0,  9)
C 0000EAC2    45F0C05C        BAL    15,   92(  0, 12)
C 0000EAC6    4111F000        LA      1,    0(  1, 15)
C 0000EACA    5010B040        ST      1,   64(  0, 11)
C 0000EACE    1F11            SLR     1,  1
C 0000EAD0    5010B044        ST      1,   68(  0, 11)
C 0000EAD4    D203B048604C    MVC     72(  4, 11),   76(  6)
C 0000EADA    5810D3E0        L       1,  992(  0, 13)
C 0000EADE    45F0D074        BAL    15,  116(  0, 13)


  2719                             BASE=RBASE

C 0000EAE2    D203705890F4    MVC     88(  4,  7),  244(  9)


  2720                             DISP=Q; Q=X'69'; ->51

C 0000EAE8    D203705C604C    MVC     92(  4,  7),   76(  6)



C 0000EAEE    41100069        LA      1,  105(  0,  0)
C 0000EAF2    5010604C        ST      1,   76(  0,  6)



C 0000EAF6    47F0A1E0        BC     15,  480(  0, 10)


  2721                    155:     CSEXP(0,2);                   !1ST OPND SHORT REAL EXPRN

C 0000EAFA    1F11            SLR     1,  1
C 0000EAFC    5010B040        ST      1,   64(  0, 11)
C 0000EB00    9202B047        MVI     71( 11),  2
C 0000EB04    5810D37C        L       1,  892(  0, 13)
C 0000EB08    45F0D074        BAL    15,  116(  0, 13)


  2722                             PUSH(WSP(LEVEL),0,Q)

C 0000EB0C    581090A8        L       1,  168(  0,  9)
C 0000EB10    4130920C        LA      3,  524(  0,  9)
C 0000EB14    45F0C05C        BAL    15,   92(  0, 12)
C 0000EB18    4111F000        LA      1,    0(  1, 15)
C 0000EB1C    5010B040        ST      1,   64(  0, 11)
C 0000EB20    1F11            SLR     1,  1
C 0000EB22    5010B044        ST      1,   68(  0, 11)
C 0000EB26    D203B048604C    MVC     72(  4, 11),   76(  6)
C 0000EB2C    5810D3E0        L       1,  992(  0, 13)
C 0000EB30    45F0D074        BAL    15,  116(  0, 13)


  2723                             BASE=RBASE;DISP=Q

C 0000EB34    D203705890F4    MVC     88(  4,  7),  244(  9)



C 0000EB3A    D203705C604C    MVC     92(  4,  7),   76(  6)


  2724                             Q=X'79'; ->40

C 0000EB40    41100079        LA      1,  121(  0,  0)
C 0000EB44    5010604C        ST      1,   76(  0,  6)



C 0000EB48    47F0A224        BC     15,  548(  0, 10)


  2725                    160:     %COMMENT 1ST OPERAND A STRING EXPRESSION PTR IN NEST
  2726                             P=T; POP(STR WSP(LEVEL),R,T);! RMEOVE WKAREA WITH STRINGFROM FREE LIST TO PREVENT CORRUPTION

C 0000EB4C    D20380406054    MVC     64(  4,  8),   84(  6)



C 0000EB52    581090A8        L       1,  168(  0,  9)
C 0000EB56    4130927C        LA      3,  636(  0,  9)
C 0000EB5A    45F0C05C        BAL    15,   92(  0, 12)
C 0000EB5E    4111F000        LA      1,    0(  1, 15)
C 0000EB62    5010B040        ST      1,   64(  0, 11)
C 0000EB66    41106050        LA      1,   80(  0,  6)
C 0000EB6A    5010B044        ST      1,   68(  0, 11)
C 0000EB6E    41106054        LA      1,   84(  0,  6)
C 0000EB72    5010B048        ST      1,   72(  0, 11)
C 0000EB76    5810D3DC        L       1,  988(  0, 13)
C 0000EB7A    45F0D074        BAL    15,  116(  0, 13)


  2727                             R=PARK(NEST)

C 0000EB7E    D203B040912C    MVC     64(  4, 11),  300(  9)
C 0000EB84    5810D414        L       1, 1044(  0, 13)
C 0000EB88    45F0D074        BAL    15,  116(  0, 13)
C 0000EB8C    50106050        ST      1,   80(  0,  6)


  2728                             CSTREXP(1); NEST=1

C 0000EB90    41100001        LA      1,    1(  0,  0)
C 0000EB94    5010B040        ST      1,   64(  0, 11)
C 0000EB98    5810D380        L       1,  896(  0, 13)
C 0000EB9C    45F0D074        BAL    15,  116(  0, 13)



C 0000EBA0    41100001        LA      1,    1(  0,  0)
C 0000EBA4    5010912C        ST      1,  300(  0,  9)


  2729                             UNPARK(X'58',2,R)

C 0000EBA8    41100058        LA      1,   88(  0,  0)
C 0000EBAC    5010B040        ST      1,   64(  0, 11)
C 0000EBB0    41100002        LA      1,    2(  0,  0)
C 0000EBB4    5010B044        ST      1,   68(  0, 11)
C 0000EBB8    D203B0486050    MVC     72(  4, 11),   80(  6)
C 0000EBBE    5810D430        L       1, 1072(  0, 13)
C 0000EBC2    45F0D074        BAL    15,  116(  0, 13)


  2730                             PUSH(STR WSP(LEVEL),0,T)

C 0000EBC6    581090A8        L       1,  168(  0,  9)
C 0000EBCA    4130927C        LA      3,  636(  0,  9)
C 0000EBCE    45F0C05C        BAL    15,   92(  0, 12)
C 0000EBD2    4111F000        LA      1,    0(  1, 15)
C 0000EBD6    5010B040        ST      1,   64(  0, 11)
C 0000EBDA    1F11            SLR     1,  1
C 0000EBDC    5010B044        ST      1,   68(  0, 11)
C 0000EBE0    D203B0486054    MVC     72(  4, 11),   84(  6)
C 0000EBE6    5810D3E0        L       1,  992(  0, 13)
C 0000EBEA    45F0D074        BAL    15,  116(  0, 13)


  2731                    161:     ->162 %UNLESS 7<=FCOMP(M)<=8; ! OPTIMISE = & \=

C 0000EBEE    58106044        L       1,   68(  0,  6)
C 0000EBF2    4130D56C        LA      3, 1388(  0, 13)
C 0000EBF6    45F0C05C        BAL    15,   92(  0, 12)
C 0000EBFA    4311F000        IC      1,    0(  1, 15)
C 0000EBFE    5410D018        N       1,   24(  0, 13)
C 0000EC02    41200007        LA      2,    7(  0,  0)
C 0000EC06    1921            CR      2,  1
C 0000EC08    473A0000        BC      3,    0( 10,  0)
C 0000EC0C    41200008        LA      2,    8(  0,  0)
C 0000EC10    1912            CR      1,  2
C 0000EC12    473A0000        BC      3,    0( 10,  0)


  2732                             PRX(X'43',3,0,1,0);           ! IC TO SET UP FOR EX

C 0000EC16    41100043        LA      1,   67(  0,  0)
C 0000EC1A    5010B040        ST      1,   64(  0, 11)
C 0000EC1E    41100003        LA      1,    3(  0,  0)
C 0000EC22    5010B044        ST      1,   68(  0, 11)
C 0000EC26    1F11            SLR     1,  1
C 0000EC28    5010B048        ST      1,   72(  0, 11)
C 0000EC2C    41100001        LA      1,    1(  0,  0)
C 0000EC30    5010B04C        ST      1,   76(  0, 11)
C 0000EC34    1F11            SLR     1,  1
C 0000EC36    5010B050        ST      1,   80(  0, 11)
C 0000EC3A    5810D1C0        L       1,  448(  0, 13)
C 0000EC3E    45F0D074        BAL    15,  116(  0, 13)


  2733                             PRX(X'44',3,0,GLA,STRINST+6); ->20;     ! EX_3,COMPARISON

C 0000EC42    41100044        LA      1,   68(  0,  0)
C 0000EC46    5010B040        ST      1,   64(  0, 11)
C 0000EC4A    41100003        LA      1,    3(  0,  0)
C 0000EC4E    5010B044        ST      1,   68(  0, 11)
C 0000EC52    1F11            SLR     1,  1
C 0000EC54    5010B048        ST      1,   72(  0, 11)
C 0000EC58    D203B04CD150    MVC     76(  4, 11),  336( 13)
C 0000EC5E    41100006        LA      1,    6(  0,  0)
C 0000EC62    5A10910C        A       1,  268(  0,  9)
C 0000EC66    5010B050        ST      1,   80(  0, 11)
C 0000EC6A    5810D1C0        L       1,  448(  0, 13)
C 0000EC6E    45F0D074        BAL    15,  116(  0, 13)



C 0000EC72    47FA0000        BC     15,    0( 10,  0)


  2734                    162:     PPJ(35);                      ! GO TO SUBROUTINE FOR COMPARISON

C 0000EC76    9223B043        MVI     67( 11), 35
C 0000EC7A    5810D46C        L       1, 1132(  0, 13)
C 0000EC7E    45F0D074        BAL    15,  116(  0, 13)


  2735                    20:      MASK=FCOMP(M); ->1;           ! MASK FOR NORMAL COMPARISON

C 0000EC82    58106044        L       1,   68(  0,  6)
C 0000EC86    4130D56C        LA      3, 1388(  0, 13)
C 0000EC8A    45F0C05C        BAL    15,   92(  0, 12)
C 0000EC8E    4311F000        IC      1,    0(  1, 15)
C 0000EC92    5410D018        N       1,   24(  0, 13)
C 0000EC96    501090F0        ST      1,  240(  0,  9)



C 0000EC9A    47FA0000        BC     15,    0( 10,  0)


  2736                    21:      MASK=BCOMP(M);                ! BACKWARDS COMPARISON

C 0000EC9E    58106044        L       1,   68(  0,  6)
C 0000ECA2    4130D57C        LA      3, 1404(  0, 13)
C 0000ECA6    45F0C05C        BAL    15,   92(  0, 12)
C 0000ECAA    4311F000        IC      1,    0(  1, 15)
C 0000ECAE    5410D018        N       1,   24(  0, 13)
C 0000ECB2    501090F0        ST      1,  240(  0,  9)


  2737                    1:             %END
D 00000C20    C2 C2 C2 C2 0A 3E 06 05 43 43 4F 4D 50 00 00 44 01 60 54 01 54 00 00 06 01 60 50 01 52 FE A6 E8 01 60 4C 01 51 FE A6 F0 01 60 48 01 4C 00 00 01 01 60 44 01 4D 00 00 01 01 60 40 01 43 00 00 36 FF FF FF FF


C 0000ECB6    D203D0146000    MVC     20(  4, 13),    0(  6)
C 0000ECBC    984F6010        LM      4, 15,   16(  6)
C 0000ECC0    07FF            BCR    15, 15


  2738                         %ROUTINE CCC

C 0000ECC2    0000
C 0000ECC4    0000
C 0000ECC6    47FA0000        BC     15,    0( 10,  0)
C 0000ECCA    50F0B03C        ST     15,   60(  0, 11)
C 0000ECCE    D203B000D014    MVC      0(  4, 11),   20( 13)
C 0000ECD4    41000AB2        LA      0, 2738(  0,  0)
C 0000ECD8    4000D014        STH     0,   20(  0, 13)
C 0000ECDC    186B            LR      6, 11
C 0000ECDE    41BB0000        LA     11,    0( 11,  0)
C 0000ECE2    41000004        LA      0,    4(  0,  0)
C 0000ECE6    59BD0044        C      11,   68( 13,  0)
C 0000ECEA    4720C054        BC      2,   84(  0, 12)
C 0000ECEE    05A0            BALR   10,  0


  2739                             %SHORTROUTINE
  2740                             %INTEGER LINE,FLAB
  2741                             CSC(FLAB)

C 0000ECF0    41106044        LA      1,   68(  0,  6)
C 0000ECF4    5010B040        ST      1,   64(  0, 11)
C 0000ECF8    5810D564        L       1, 1380(  0, 13)
C 0000ECFC    45F0D074        BAL    15,  116(  0, 13)


  2742                             C=A(P) ; P=P+1

C 0000ED00    58108040        L       1,   64(  0,  8)
C 0000ED04    413092FC        LA      3,  764(  0,  9)
C 0000ED08    45F0C05C        BAL    15,   92(  0, 12)
C 0000ED0C    4811F000        LH      1,    0(  1, 15)
C 0000ED10    50107050        ST      1,   80(  0,  7)



C 0000ED14    41100001        LA      1,    1(  0,  0)
C 0000ED18    5A108040        A       1,   64(  0,  8)
C 0000ED1C    50108040        ST      1,   64(  0,  8)


  2743                             CLAUSES=CLAUSES+1

C 0000ED20    41100001        LA      1,    1(  0,  0)
C 0000ED24    5A107068        A       1,  104(  0,  7)
C 0000ED28    50107068        ST      1,  104(  0,  7)


  2744                             ->10 %IF T=0       %OR(CLAUSES>1 %AND C=2)

C 0000ED2C    5810704C        L       1,   76(  0,  7)
C 0000ED30    1211            LTR     1,  1
C 0000ED32    478A0000        BC      8,    0( 10,  0)
C 0000ED36    41100001        LA      1,    1(  0,  0)
C 0000ED3A    59107068        C       1,  104(  0,  7)
C 0000ED3E    47BA005E        BC     11,   94( 10,  0)
C 0000ED42    41100002        LA      1,    2(  0,  0)
C 0000ED46    59107050        C       1,   80(  0,  7)
C 0000ED4A    478A0000        BC      8,    0( 10,  0)


  2745                             -> 2 %IF FAILPT#0

C 0000ED4E    58107054        L       1,   84(  0,  7)
C 0000ED52    1211            LTR     1,  1
C 0000ED54    477A0000        BC      7,    0( 10,  0)


  2746                             FAILPT=1 ; LINE=1 ; ->3

C 0000ED58    41100001        LA      1,    1(  0,  0)
C 0000ED5C    50107054        ST      1,   84(  0,  7)



C 0000ED60    41100001        LA      1,    1(  0,  0)
C 0000ED64    50106040        ST      1,   64(  0,  6)



C 0000ED68    47FA0000        BC     15,    0( 10,  0)


  2747                    2:       LINE=0

C 0000ED6C    1F11            SLR     1,  1
C 0000ED6E    50106040        ST      1,   64(  0,  6)


  2748                    3:
  2749                             PLOCAL JUMP(MASK,JNPORFP)

C 0000ED72    D203B04090F0    MVC     64(  4, 11),  240(  9)
C 0000ED78    D203B0447060    MVC     68(  4, 11),   96(  7)
C 0000ED7E    5810D348        L       1,  840(  0, 13)
C 0000ED82    45F0D074        BAL    15,  116(  0, 13)


  2750                             %UNLESS FLAB=0 %THEN %START

C 0000ED86    58106044        L       1,   68(  0,  6)
C 0000ED8A    1211            LTR     1,  1
C 0000ED8C    478A0000        BC      8,    0( 10,  0)


  2751                             PUSH(LOCAL LABEL,CA,FLAB)

C 0000ED90    4110808E        LA      1,  142(  0,  8)
C 0000ED94    5010B040        ST      1,   64(  0, 11)
C 0000ED98    D203B04490AC    MVC     68(  4, 11),  172(  9)
C 0000ED9E    D203B0486044    MVC     72(  4, 11),   68(  6)
C 0000EDA4    5810D3E0        L       1,  992(  0, 13)
C 0000EDA8    45F0D074        BAL    15,  116(  0, 13)


  2752                             R13=0 %UNLESS R13=SAVE13 %AND CHNGE13=0

C 0000EDAC    D50390BC80B4    CLC    188(  4,  9),  180(  8)
C 0000EDB2    477A00D0        BC      7,  208( 10,  0)
C 0000EDB6    581080B8        L       1,  184(  0,  8)
C 0000EDBA    1211            LTR     1,  1
C 0000EDBC    478A00D6        BC      8,  214( 10,  0)
C 0000EDC0    1F11            SLR     1,  1
C 0000EDC2    501090BC        ST      1,  188(  0,  9)


  2753                             %FINISH
  2754                             CCC;                          !FIX NEXT CLAUSE

C 0000EDC6    5810D560        L       1, 1376(  0, 13)
C 0000EDCA    45F0D074        BAL    15,  116(  0, 13)


  2755                             -> 10 %IF LINE=0

C 0000EDCE    58106040        L       1,   64(  0,  6)
C 0000EDD2    1211            LTR     1,  1
C 0000EDD4    478A0000        BC      8,    0( 10,  0)


  2756                             MASK=MASK!!15 %IF JNPORFP=NEARLAB

C 0000EDD8    59207060        C       2,   96(  0,  7)
C 0000EDDC    477A00FC        BC      7,  252( 10,  0)
C 0000EDE0    4110000F        LA      1,   15(  0,  0)
C 0000EDE4    571090F0        X       1,  240(  0,  9)
C 0000EDE8    501090F0        ST      1,  240(  0,  9)


  2757                    10:      %END
D 00000C64    C2 C2 C2 C2 0A B2 06 03 43 43 43 00 01 60 44 04 46 4C 41 42 01 60 40 04 4C 49 4E 45 FF FF FF FF


C 0000EDEC    D203D0146000    MVC     20(  4, 13),    0(  6)
C 0000EDF2    984F6010        LM      4, 15,   16(  6)
C 0000EDF6    07FF            BCR    15, 15


  2758                         %ROUTINE CSC(%INTEGERNAME FLAB)

C 0000EDF8    0000
C 0000EDFA    0000
C 0000EDFC    47FA0000        BC     15,    0( 10,  0)
C 0000EE00    50F0B03C        ST     15,   60(  0, 11)
C 0000EE04    D203B000D014    MVC      0(  4, 11),   20( 13)
C 0000EE0A    41000AC6        LA      0, 2758(  0,  0)
C 0000EE0E    4000D014        STH     0,   20(  0, 13)
C 0000EE12    186B            LR      6, 11
C 0000EE14    41BB0000        LA     11,    0( 11,  0)
C 0000EE18    41000004        LA      0,    4(  0,  0)
C 0000EE1C    59BD0044        C      11,   68( 13,  0)
C 0000EE20    4720C054        BC      2,   84(  0, 12)
C 0000EE24    05A0            BALR   10,  0


  2759                             %SHORTROUTINE
  2760                             %INTEGER LINE,Q,R,S,TP,NEAR
  2761                             FLAB=0

C 0000EE26    1F11            SLR     1,  1
C 0000EE28    58F06040        L      15,   64(  0,  6)
C 0000EE2C    5010F000        ST      1,    0(  0, 15)


  2762                             S=A(P+1+A(P+1))

C 0000EE30    41100001        LA      1,    1(  0,  0)
C 0000EE34    5A108040        A       1,   64(  0,  8)
C 0000EE38    413092FC        LA      3,  764(  0,  9)
C 0000EE3C    45F0C05C        BAL    15,   92(  0, 12)
C 0000EE40    4851F000        LH      5,    0(  1, 15)
C 0000EE44    41100001        LA      1,    1(  0,  0)
C 0000EE48    5A108040        A       1,   64(  0,  8)
C 0000EE4C    1A15            AR      1,  5
C 0000EE4E    413092FC        LA      3,  764(  0,  9)
C 0000EE52    45F0C05C        BAL    15,   92(  0, 12)
C 0000EE56    4811F000        LH      1,    0(  1, 15)
C 0000EE5A    50106050        ST      1,   80(  0,  6)


  2763                             LINE=S

C 0000EE5E    D20360446050    MVC     68(  4,  6),   80(  6)


  2764                             NEAR=NEARLAB

C 0000EE64    50206058        ST      2,   88(  0,  6)


  2765                             ->START %IF T=0 %OR(S=2 %AND CLAUSES>0)

C 0000EE68    5810704C        L       1,   76(  0,  7)
C 0000EE6C    1211            LTR     1,  1
C 0000EE6E    478A0000        BC      8,    0( 10,  0)
C 0000EE72    41100002        LA      1,    2(  0,  0)
C 0000EE76    59106050        C       1,   80(  0,  6)
C 0000EE7A    477A0062        BC      7,   98( 10,  0)
C 0000EE7E    58107068        L       1,  104(  0,  7)
C 0000EE82    1211            LTR     1,  1
C 0000EE84    472A0000        BC      2,    0( 10,  0)


  2766                             PLABEL=PLABEL-1; NEAR=PLABEL

C 0000EE88    581090A4        L       1,  164(  0,  9)
C 0000EE8C    0610            BCTR    1,  0
C 0000EE8E    501090A4        ST      1,  164(  0,  9)



C 0000EE92    D203605890A4    MVC     88(  4,  6),  164(  9)


  2767                    START:   -> 1 %IF A(P)=1

C 0000EE98    58108040        L       1,   64(  0,  8)
C 0000EE9C    413092FC        LA      3,  764(  0,  9)
C 0000EEA0    45F0C05C        BAL    15,   92(  0, 12)
C 0000EEA4    4811F000        LH      1,    0(  1, 15)
C 0000EEA8    41200001        LA      2,    1(  0,  0)
C 0000EEAC    1912            CR      1,  2
C 0000EEAE    478A0000        BC      8,    0( 10,  0)


  2768                             P=P+2

C 0000EEB2    41100002        LA      1,    2(  0,  0)
C 0000EEB6    5A108040        A       1,   64(  0,  8)
C 0000EEBA    50108040        ST      1,   64(  0,  8)


  2769                             -> REDUND %IF T=0

C 0000EEBE    5810704C        L       1,   76(  0,  7)
C 0000EEC2    1211            LTR     1,  1
C 0000EEC4    478A0000        BC      8,    0( 10,  0)


  2770                             ->REDUND2 %IF T=A(P+1+A(P+1))

C 0000EEC8    41100001        LA      1,    1(  0,  0)
C 0000EECC    5A108040        A       1,   64(  0,  8)
C 0000EED0    413092FC        LA      3,  764(  0,  9)
C 0000EED4    45F0C05C        BAL    15,   92(  0, 12)
C 0000EED8    4851F000        LH      5,    0(  1, 15)
C 0000EEDC    41100001        LA      1,    1(  0,  0)
C 0000EEE0    5A108040        A       1,   64(  0,  8)
C 0000EEE4    1A15            AR      1,  5
C 0000EEE6    413092FC        LA      3,  764(  0,  9)
C 0000EEEA    45F0C05C        BAL    15,   92(  0, 12)
C 0000EEEE    4811F000        LH      1,    0(  1, 15)
C 0000EEF2    5910704C        C       1,   76(  0,  7)
C 0000EEF6    478A0000        BC      8,    0( 10,  0)


  2771                             FLAB=NEAR %UNLESS NEAR=NEARLAB

C 0000EEFA    59206058        C       2,   88(  0,  6)
C 0000EEFE    478A00E8        BC      8,  232( 10,  0)
C 0000EF02    58106058        L       1,   88(  0,  6)
C 0000EF06    58F06040        L      15,   64(  0,  6)
C 0000EF0A    5010F000        ST      1,    0(  0, 15)


  2772                             TP=T-1; ->LAST %IF NEAR=NEARLAB

C 0000EF0E    5810704C        L       1,   76(  0,  7)
C 0000EF12    0610            BCTR    1,  0
C 0000EF14    50106054        ST      1,   84(  0,  6)



C 0000EF18    59206058        C       2,   88(  0,  6)
C 0000EF1C    478A0000        BC      8,    0( 10,  0)


  2773                             CCOND(TP,NEAR,FARLAB); ->9

C 0000EF20    D203B0406054    MVC     64(  4, 11),   84(  6)
C 0000EF26    D203B0446058    MVC     68(  4, 11),   88(  6)
C 0000EF2C    D203B0487048    MVC     72(  4, 11),   72(  7)
C 0000EF32    5810D364        L       1,  868(  0, 13)
C 0000EF36    45F0D074        BAL    15,  116(  0, 13)



C 0000EF3A    47FA0000        BC     15,    0( 10,  0)


  2774                    REDUND:CCOND(IU,NEARLAB,FARLAB); ->9

C 0000EF3E    D203B0407040    MVC     64(  4, 11),   64(  7)
C 0000EF44    5020B044        ST      2,   68(  0, 11)
C 0000EF48    D203B0487048    MVC     72(  4, 11),   72(  7)
C 0000EF4E    5810D364        L       1,  868(  0, 13)
C 0000EF52    45F0D074        BAL    15,  116(  0, 13)



C 0000EF56    47FA0000        BC     15,    0( 10,  0)


  2775                    REDUND2: CCOND(IU,NEARLAB,FARLAB)

C 0000EF5A    D203B0407040    MVC     64(  4, 11),   64(  7)
C 0000EF60    5020B044        ST      2,   68(  0, 11)
C 0000EF64    D203B0487048    MVC     72(  4, 11),   72(  7)
C 0000EF6A    5810D364        L       1,  868(  0, 13)
C 0000EF6E    45F0D074        BAL    15,  116(  0, 13)


  2776                             MASK=MASK!!15 %IF JNPORFP=NEARLAB       ;->9

C 0000EF72    59207060        C       2,   96(  0,  7)
C 0000EF76    477A0160        BC      7,  352( 10,  0)
C 0000EF7A    4110000F        LA      1,   15(  0,  0)
C 0000EF7E    571090F0        X       1,  240(  0,  9)
C 0000EF82    501090F0        ST      1,  240(  0,  9)



C 0000EF86    47FA0000        BC     15,    0( 10,  0)


  2777                    LAST:    CCOND(IU,NEAR,FARLAB)

C 0000EF8A    D203B0407040    MVC     64(  4, 11),   64(  7)
C 0000EF90    D203B0446058    MVC     68(  4, 11),   88(  6)
C 0000EF96    D203B0487048    MVC     72(  4, 11),   72(  7)
C 0000EF9C    5810D364        L       1,  868(  0, 13)
C 0000EFA0    45F0D074        BAL    15,  116(  0, 13)


  2778                             NEARLAB=0; ->9

C 0000EFA4    1F44            SLR     4,  4



C 0000EFA6    47FA0000        BC     15,    0( 10,  0)


  2779                    1:       %COMMENT CLASSIFY SIMPLE CONDITION AND ACT ACCORDINGLY
  2780                             P=P+2; S=P; SKIP EXP

C 0000EFAA    41100002        LA      1,    2(  0,  0)
C 0000EFAE    5A108040        A       1,   64(  0,  8)
C 0000EFB2    50108040        ST      1,   64(  0,  8)



C 0000EFB6    D20360508040    MVC     80(  4,  6),   64(  8)



C 0000EFBC    5810D444        L       1, 1092(  0, 13)
C 0000EFC0    45F0D074        BAL    15,  116(  0, 13)


  2781                             ->21 %IF A(P)=8;              ! RESOLUTION (ALL OCCURRENCES)

C 0000EFC4    58108040        L       1,   64(  0,  8)
C 0000EFC8    413092FC        LA      3,  764(  0,  9)
C 0000EFCC    45F0C05C        BAL    15,   92(  0, 12)
C 0000EFD0    4811F000        LH      1,    0(  1, 15)
C 0000EFD4    41200008        LA      2,    8(  0,  0)
C 0000EFD8    1912            CR      1,  2
C 0000EFDA    478A0000        BC      8,    0( 10,  0)


  2782                             P=P+1; Q=TSEXP(R);            ! TEST MIDDLE OPERAND FIRST

C 0000EFDE    41100001        LA      1,    1(  0,  0)
C 0000EFE2    5A108040        A       1,   64(  0,  8)
C 0000EFE6    50108040        ST      1,   64(  0,  8)



C 0000EFEA    4110604C        LA      1,   76(  0,  6)
C 0000EFEE    5010B040        ST      1,   64(  0, 11)
C 0000EFF2    5810D478        L       1, 1144(  0, 13)
C 0000EFF6    45F0D074        BAL    15,  116(  0, 13)
C 0000EFFA    50106048        ST      1,   72(  0,  6)


  2783                             %IF TYPE=3 %THEN %START

C 0000EFFE    95038094        CLI    148(  8),  3
C 0000F002    477A0000        BC      7,    0( 10,  0)


  2784                             P=P+2; R=COPY RECORD TAG; %FINISH

C 0000F006    41100002        LA      1,    2(  0,  0)
C 0000F00A    5A108040        A       1,   64(  0,  8)
C 0000F00E    50108040        ST      1,   64(  0,  8)



C 0000F012    5810D38C        L       1,  908(  0, 13)
C 0000F016    45F0D074        BAL    15,  116(  0, 13)
C 0000F01A    5010604C        ST      1,   76(  0,  6)


  2785                             -> STR %IF TYPE=5

C 0000F01E    95058094        CLI    148(  8),  5
C 0000F022    478A0000        BC      8,    0( 10,  0)


  2786                             -> ZERO %IF Q=1 %AND R=0 %AND A(P)=2;! ! NOT DOUBLE SIDED

C 0000F026    41100001        LA      1,    1(  0,  0)
C 0000F02A    59106048        C       1,   72(  0,  6)
C 0000F02E    477A0230        BC      7,  560( 10,  0)
C 0000F032    5810604C        L       1,   76(  0,  6)
C 0000F036    1211            LTR     1,  1
C 0000F038    477A0230        BC      7,  560( 10,  0)
C 0000F03C    58108040        L       1,   64(  0,  8)
C 0000F040    413092FC        LA      3,  764(  0,  9)
C 0000F044    45F0C05C        BAL    15,   92(  0, 12)
C 0000F048    4811F000        LH      1,    0(  1, 15)
C 0000F04C    41200002        LA      2,    2(  0,  0)
C 0000F050    1912            CR      1,  2
C 0000F052    478A0000        BC      8,    0( 10,  0)


  2787                             P=S; Q=TSEXP(R);              ! TEST LHS

C 0000F056    D20380406050    MVC     64(  4,  8),   80(  6)



C 0000F05C    4110604C        LA      1,   76(  0,  6)
C 0000F060    5010B040        ST      1,   64(  0, 11)
C 0000F064    5810D478        L       1, 1144(  0, 13)
C 0000F068    45F0D074        BAL    15,  116(  0, 13)
C 0000F06C    50106048        ST      1,   72(  0,  6)


  2788                             -> CONST %IF 1<=Q<=2

C 0000F070    58106048        L       1,   72(  0,  6)
C 0000F074    41200001        LA      2,    1(  0,  0)
C 0000F078    1921            CR      2,  1
C 0000F07A    473A0262        BC      3,  610( 10,  0)
C 0000F07E    41200002        LA      2,    2(  0,  0)
C 0000F082    1912            CR      1,  2
C 0000F084    47CA0000        BC     12,    0( 10,  0)


  2789                             -> SIMPLE %IF Q=20

C 0000F088    41100014        LA      1,   20(  0,  0)
C 0000F08C    59106048        C       1,   72(  0,  6)
C 0000F090    478A0000        BC      8,    0( 10,  0)


  2790                             ->REGVAR %IF Q=50

C 0000F094    41100032        LA      1,   50(  0,  0)
C 0000F098    59106048        C       1,   72(  0,  6)
C 0000F09C    478A0000        BC      8,    0( 10,  0)


  2791                             -> STR %IF TYPE=5

C 0000F0A0    95058094        CLI    148(  8),  5
C 0000F0A4    478A0000        BC      8,    0( 10,  0)


  2792                             -> NORMAL %UNLESS UNASS=0 %AND 10<=Q<=15

C 0000F0A8    950090DC        CLI    220(  9),  0
C 0000F0AC    477A0000        BC      7,    0( 10,  0)
C 0000F0B0    58106048        L       1,   72(  0,  6)
C 0000F0B4    4120000A        LA      2,   10(  0,  0)
C 0000F0B8    1921            CR      2,  1
C 0000F0BA    473A0000        BC      3,    0( 10,  0)
C 0000F0BE    4120000F        LA      2,   15(  0,  0)
C 0000F0C2    1912            CR      1,  2
C 0000F0C4    473A0000        BC      3,    0( 10,  0)


  2793                    SIMPLE:  BASE=I; DISP=K; CCOMP(10-Q); ->8

C 0000F0C8    D2037058809C    MVC     88(  4,  7),  156(  8)



C 0000F0CE    D203705C80A4    MVC     92(  4,  7),  164(  8)



C 0000F0D4    4110000A        LA      1,   10(  0,  0)
C 0000F0D8    5B106048        S       1,   72(  0,  6)
C 0000F0DC    5010B040        ST      1,   64(  0, 11)
C 0000F0E0    5810D568        L       1, 1384(  0, 13)
C 0000F0E4    45F0D074        BAL    15,  116(  0, 13)



C 0000F0E8    47FA0000        BC     15,    0( 10,  0)


  2794                    REGVAR:  DISP=K; CCOMP(-9); ->8

C 0000F0EC    D203705C80A4    MVC     92(  4,  7),  164(  8)



C 0000F0F2    41100009        LA      1,    9(  0,  0)
C 0000F0F6    1311            LCR     1,  1
C 0000F0F8    5010B040        ST      1,   64(  0, 11)
C 0000F0FC    5810D568        L       1, 1384(  0, 13)
C 0000F100    45F0D074        BAL    15,  116(  0, 13)



C 0000F104    47FA0000        BC     15,    0( 10,  0)


  2795                    STR:     P=S; CSTREXP(1); NEST=1; CCOMP(1); ->8

C 0000F108    D20380406050    MVC     64(  4,  8),   80(  6)



C 0000F10E    41100001        LA      1,    1(  0,  0)
C 0000F112    5010B040        ST      1,   64(  0, 11)
C 0000F116    5810D380        L       1,  896(  0, 13)
C 0000F11A    45F0D074        BAL    15,  116(  0, 13)



C 0000F11E    41100001        LA      1,    1(  0,  0)
C 0000F122    5010912C        ST      1,  300(  0,  9)



C 0000F126    41100001        LA      1,    1(  0,  0)
C 0000F12A    5010B040        ST      1,   64(  0, 11)
C 0000F12E    5810D568        L       1, 1384(  0, 13)
C 0000F132    45F0D074        BAL    15,  116(  0, 13)



C 0000F136    47FA0000        BC     15,    0( 10,  0)


  2796                    CONST:   VALUE=R; CCOMP(-3); ->8

C 0000F13A    D203807C604C    MVC    124(  4,  8),   76(  6)



C 0000F140    41100003        LA      1,    3(  0,  0)
C 0000F144    1311            LCR     1,  1
C 0000F146    5010B040        ST      1,   64(  0, 11)
C 0000F14A    5810D568        L       1, 1384(  0, 13)
C 0000F14E    45F0D074        BAL    15,  116(  0, 13)



C 0000F152    47FA0000        BC     15,    0( 10,  0)


  2797                    21:      P=S+2; ->22 %UNLESS A(S)=4 %AND A(S+1)=1

C 0000F156    41100002        LA      1,    2(  0,  0)
C 0000F15A    5A106050        A       1,   80(  0,  6)
C 0000F15E    50108040        ST      1,   64(  0,  8)



C 0000F162    58106050        L       1,   80(  0,  6)
C 0000F166    413092FC        LA      3,  764(  0,  9)
C 0000F16A    45F0C05C        BAL    15,   92(  0, 12)
C 0000F16E    4811F000        LH      1,    0(  1, 15)
C 0000F172    41200004        LA      2,    4(  0,  0)
C 0000F176    1912            CR      1,  2
C 0000F178    477A0000        BC      7,    0( 10,  0)
C 0000F17C    41100001        LA      1,    1(  0,  0)
C 0000F180    5A106050        A       1,   80(  0,  6)
C 0000F184    413092FC        LA      3,  764(  0,  9)
C 0000F188    45F0C05C        BAL    15,   92(  0, 12)
C 0000F18C    4811F000        LH      1,    0(  1, 15)
C 0000F190    41200001        LA      2,    1(  0,  0)
C 0000F194    1912            CR      1,  2
C 0000F196    477A0000        BC      7,    0( 10,  0)


  2798                             CNAME(2,1)

C 0000F19A    41100002        LA      1,    2(  0,  0)
C 0000F19E    5010B040        ST      1,   64(  0, 11)
C 0000F1A2    41100001        LA      1,    1(  0,  0)
C 0000F1A6    5010B044        ST      1,   68(  0, 11)
C 0000F1AA    5810D3C4        L       1,  964(  0, 13)
C 0000F1AE    45F0D074        BAL    15,  116(  0, 13)


  2799                             ->23 %IF A(P)=2 %AND TYPE=5

C 0000F1B2    58108040        L       1,   64(  0,  8)
C 0000F1B6    413092FC        LA      3,  764(  0,  9)
C 0000F1BA    45F0C05C        BAL    15,   92(  0, 12)
C 0000F1BE    4811F000        LH      1,    0(  1, 15)
C 0000F1C2    41200002        LA      2,    2(  0,  0)
C 0000F1C6    1912            CR      1,  2
C 0000F1C8    477A03AE        BC      7,  942( 10,  0)
C 0000F1CC    95058094        CLI    148(  8),  5
C 0000F1D0    478A0000        BC      8,    0( 10,  0)


  2800                    22:      P=S; SKIP EXP

C 0000F1D4    D20380406050    MVC     64(  4,  8),   80(  6)



C 0000F1DA    5810D444        L       1, 1092(  0, 13)
C 0000F1DE    45F0D074        BAL    15,  116(  0, 13)


  2801                    28:      P=P+1; SKIP EXP

C 0000F1E2    41100001        LA      1,    1(  0,  0)
C 0000F1E6    5A108040        A       1,   64(  0,  8)
C 0000F1EA    50108040        ST      1,   64(  0,  8)



C 0000F1EE    5810D444        L       1, 1092(  0, 13)
C 0000F1F2    45F0D074        BAL    15,  116(  0, 13)


  2802                             FAULT(73); ->8

C 0000F1F6    9249B043        MVI     67( 11), 73
C 0000F1FA    5810D228        L       1,  552(  0, 13)
C 0000F1FE    45F0D074        BAL    15,  116(  0, 13)



C 0000F202    47FA0000        BC     15,    0( 10,  0)


  2803                    23:      P=P+2

C 0000F206    41100002        LA      1,    2(  0,  0)
C 0000F20A    5A108040        A       1,   64(  0,  8)
C 0000F20E    50108040        ST      1,   64(  0,  8)


  2804                             FLAB=NEAR %UNLESS NEAR=NEARLAB

C 0000F212    59206058        C       2,   88(  0,  6)
C 0000F216    478A0400        BC      8, 1024( 10,  0)
C 0000F21A    58106058        L       1,   88(  0,  6)
C 0000F21E    58F06040        L      15,   64(  0,  6)
C 0000F222    5010F000        ST      1,    0(  0, 15)


  2805                             %IF T#2 %THEN R=JNPORFP %ELSE %START

C 0000F226    41100002        LA      1,    2(  0,  0)
C 0000F22A    5910704C        C       1,   76(  0,  7)
C 0000F22E    478A0416        BC      8, 1046( 10,  0)
C 0000F232    D203604C7060    MVC     76(  4,  6),   96(  7)
C 0000F238    47FA0000        BC     15,    0( 10,  0)


  2806                             %IF JNPORFP#FARLAB %AND LINE=2 %AND CLAUSES>0           %THEN R=FARLAB %ELSE R=NEAR

C 0000F23C    D50370607048    CLC     96(  4,  7),   72(  7)
C 0000F242    478A0440        BC      8, 1088( 10,  0)
C 0000F246    41100002        LA      1,    2(  0,  0)
C 0000F24A    59106044        C       1,   68(  0,  6)
C 0000F24E    477A0440        BC      7, 1088( 10,  0)
C 0000F252    58107068        L       1,  104(  0,  7)
C 0000F256    1211            LTR     1,  1
C 0000F258    47DA0440        BC     13, 1088( 10,  0)
C 0000F25C    D203604C7048    MVC     76(  4,  6),   72(  7)
C 0000F262    47FA0446        BC     15, 1094( 10,  0)
C 0000F266    D203604C6058    MVC     76(  4,  6),   88(  6)


  2807                             %FINISH
  2808                             CRES(1,R)

C 0000F26C    41100001        LA      1,    1(  0,  0)
C 0000F270    5010B040        ST      1,   64(  0, 11)
C 0000F274    D203B044604C    MVC     68(  4, 11),   76(  6)
C 0000F27A    5810D400        L       1, 1024(  0, 13)
C 0000F27E    45F0D074        BAL    15,  116(  0, 13)


  2809                             ->28 %UNLESS A(P)=2           ;! NO DOUBLE SIDED RESOLUTION

C 0000F282    58108040        L       1,   64(  0,  8)
C 0000F286    413092FC        LA      3,  764(  0,  9)
C 0000F28A    45F0C05C        BAL    15,   92(  0, 12)
C 0000F28E    4811F000        LH      1,    0(  1, 15)
C 0000F292    41200002        LA      2,    2(  0,  0)
C 0000F296    1912            CR      1,  2
C 0000F298    4770A3BC        BC      7,  956(  0, 10)


  2810                             P=P+1;

C 0000F29C    41100001        LA      1,    1(  0,  0)
C 0000F2A0    5A108040        A       1,   64(  0,  8)
C 0000F2A4    50108040        ST      1,   64(  0,  8)


  2811                             MASK=15; ->10

C 0000F2A8    4110000F        LA      1,   15(  0,  0)
C 0000F2AC    501090F0        ST      1,  240(  0,  9)



C 0000F2B0    47FA0000        BC     15,    0( 10,  0)


  2812                    ZERO:    P=S; Q=TSEXP(R); -> SIMPLE %IF Q=11;    ! CLI FOR BYTE/ZERO

C 0000F2B4    D20380406050    MVC     64(  4,  8),   80(  6)



C 0000F2BA    4110604C        LA      1,   76(  0,  6)
C 0000F2BE    5010B040        ST      1,   64(  0, 11)
C 0000F2C2    5810D478        L       1, 1144(  0, 13)
C 0000F2C6    45F0D074        BAL    15,  116(  0, 13)
C 0000F2CA    50106048        ST      1,   72(  0,  6)



C 0000F2CE    4110000B        LA      1,   11(  0,  0)
C 0000F2D2    59106048        C       1,   72(  0,  6)
C 0000F2D6    4780A2A2        BC      8,  674(  0, 10)


  2813                             -> STR %IF TYPE=5

C 0000F2DA    95058094        CLI    148(  8),  5
C 0000F2DE    4780A2E2        BC      8,  738(  0, 10)


  2814                    NORMAL:  P=S; CSEXP(0,0); CCOMP(1)

C 0000F2E2    D20380406050    MVC     64(  4,  8),   80(  6)



C 0000F2E8    1F11            SLR     1,  1
C 0000F2EA    5010B040        ST      1,   64(  0, 11)
C 0000F2EE    9200B047        MVI     71( 11),  0
C 0000F2F2    5810D37C        L       1,  892(  0, 13)
C 0000F2F6    45F0D074        BAL    15,  116(  0, 13)



C 0000F2FA    41100001        LA      1,    1(  0,  0)
C 0000F2FE    5010B040        ST      1,   64(  0, 11)
C 0000F302    5810D568        L       1, 1384(  0, 13)
C 0000F306    45F0D074        BAL    15,  116(  0, 13)


  2815                    8:       P=P+1

C 0000F30A    41100001        LA      1,    1(  0,  0)
C 0000F30E    5A108040        A       1,   64(  0,  8)
C 0000F312    50108040        ST      1,   64(  0,  8)


  2816                                   ->10 %IF A(P-1)=2;      ! GO UNLESS DOUBLESIDED

C 0000F316    58108040        L       1,   64(  0,  8)
C 0000F31A    0610            BCTR    1,  0
C 0000F31C    413092FC        LA      3,  764(  0,  9)
C 0000F320    45F0C05C        BAL    15,   92(  0, 12)
C 0000F324    4811F000        LH      1,    0(  1, 15)
C 0000F328    41200002        LA      2,    2(  0,  0)
C 0000F32C    1912            CR      1,  2
C 0000F32E    478A0000        BC      8,    0( 10,  0)


  2817                             FLAB=NEAR %UNLESS NEAR=NEARLAB

C 0000F332    59206058        C       2,   88(  0,  6)
C 0000F336    478A0520        BC      8, 1312( 10,  0)
C 0000F33A    58106058        L       1,   88(  0,  6)
C 0000F33E    58F06040        L      15,   64(  0,  6)
C 0000F342    5010F000        ST      1,    0(  0, 15)


  2818                             ->ORCOND %IF T=2

C 0000F346    41100002        LA      1,    2(  0,  0)
C 0000F34A    5910704C        C       1,   76(  0,  7)
C 0000F34E    478A0000        BC      8,    0( 10,  0)


  2819                             R=JNPORFP; ->7

C 0000F352    D203604C7060    MVC     76(  4,  6),   96(  7)



C 0000F358    47FA0000        BC     15,    0( 10,  0)


  2820                    ORCOND:  %IF JNPORFP#FARLAB %AND LINE=2 %AND CLAUSES>0 %THEN R=FARLAB %ELSE R=NEAR

C 0000F35C    D50370607048    CLC     96(  4,  7),   72(  7)
C 0000F362    478A0560        BC      8, 1376( 10,  0)
C 0000F366    41100002        LA      1,    2(  0,  0)
C 0000F36A    59106044        C       1,   68(  0,  6)
C 0000F36E    477A0560        BC      7, 1376( 10,  0)
C 0000F372    58107068        L       1,  104(  0,  7)
C 0000F376    1211            LTR     1,  1
C 0000F378    47DA0560        BC     13, 1376( 10,  0)
C 0000F37C    D203604C7048    MVC     76(  4,  6),   72(  7)
C 0000F382    47FA0566        BC     15, 1382( 10,  0)
C 0000F386    D203604C6058    MVC     76(  4,  6),   88(  6)


  2821                    %COMMENT LAST DOUBLESIDED IN OR CONDITION IS SPECIAL
  2822                    7:
  2823                             PLOCAL JUMP(MASK!!15,R)

C 0000F38C    4110000F        LA      1,   15(  0,  0)
C 0000F390    571090F0        X       1,  240(  0,  9)
C 0000F394    5010B040        ST      1,   64(  0, 11)
C 0000F398    D203B044604C    MVC     68(  4, 11),   76(  6)
C 0000F39E    5810D348        L       1,  840(  0, 13)
C 0000F3A2    45F0D074        BAL    15,  116(  0, 13)


  2824                             CCOMP(2)

C 0000F3A6    41100002        LA      1,    2(  0,  0)
C 0000F3AA    5010B040        ST      1,   64(  0, 11)
C 0000F3AE    5810D568        L       1, 1384(  0, 13)
C 0000F3B2    45F0D074        BAL    15,  116(  0, 13)


  2825                    10:      MASK=MASK!!15 %IF T=1 %OR(T=0 %AND IU=0)

C 0000F3B6    41100001        LA      1,    1(  0,  0)
C 0000F3BA    5910704C        C       1,   76(  0,  7)
C 0000F3BE    478A05B0        BC      8, 1456( 10,  0)
C 0000F3C2    5810704C        L       1,   76(  0,  7)
C 0000F3C6    1211            LTR     1,  1
C 0000F3C8    477A05BC        BC      7, 1468( 10,  0)
C 0000F3CC    58107040        L       1,   64(  0,  7)
C 0000F3D0    1211            LTR     1,  1
C 0000F3D2    477A05BC        BC      7, 1468( 10,  0)
C 0000F3D6    4110000F        LA      1,   15(  0,  0)
C 0000F3DA    571090F0        X       1,  240(  0,  9)
C 0000F3DE    501090F0        ST      1,  240(  0,  9)


  2826                    9:       %END
D 00000C84    C2 C2 C2 C2 0A C6 06 03 43 53 43 60 01 60 58 04 4E 45 41 52 01 60 54 02 54 50 00 00 01 60 50 01 53 00 00 07 01 60 4C 01 52 00 00 05 01 60 48 01 51 FF FF FE 01 60 44 04 4C 49 4E 45 41 60 40 04 46 4C 41 42 FF FF FF FF


C 0000F3E2    D203D0146000    MVC     20(  4, 13),    0(  6)
C 0000F3E8    984F6010        LM      4, 15,   16(  6)
C 0000F3EC    07FF            BCR    15, 15


  2827                 99:           %END                    ;!OF CCOND
D 00000CCC    C2 C2 C2 C2 0A 31 07 05 43 43 4F 4E 44 60 58 04 01 70 68 07 43 4C 41 55 53 45 53 00 01 70 64 02 54 50 00 07 01 70 60 07 4A 4E 50 4F 52 46 50 01 01 70 5C 04 44 49 53 50 01 70 58 04 42 41 53 45 01 70 54 06 46 41 49 4C 50 54 A5 D8 01 70 50 01 43 00 00 01 01 70 4C 01 54 00 00 00 01 70 48 06 46 41 52 4C 41 42 87 74 01 70 44 06 46 41 52 4C 41 42 00 00 01 70 40 02 49 55 00 01 FF FF FF FF


C 0000F3EE    D203D0147000    MVC     20(  4, 13),    0(  7)
C 0000F3F4    984F7010        LM      4, 15,   16(  7)
C 0000F3F8    07FF            BCR    15, 15


  2828                     %ROUTINE FILL LOCAL JUMPS

C 0000F3FA    0000
C 0000F3FC    0000
C 0000F3FE    47FA0000        BC     15,    0( 10,  0)
C 0000F402    50F0B03C        ST     15,   60(  0, 11)
C 0000F406    D203B000D014    MVC      0(  4, 11),   20( 13)
C 0000F40C    41000B0C        LA      0, 2828(  0,  0)
C 0000F410    4000D014        STH     0,   20(  0, 13)
C 0000F414    187B            LR      7, 11
C 0000F416    41BB0000        LA     11,    0( 11,  0)
C 0000F41A    41000004        LA      0,    4(  0,  0)
C 0000F41E    59BD0044        C      11,   68( 13,  0)
C 0000F422    4720C054        BC      2,   84(  0, 12)
C 0000F426    05A0            BALR   10,  0


  2829                         %SHORTROUTINE
  2830                         %INTEGER T,C,J
  2831                1:       POP(LOCAL JUMP,T,C)

C 0000F428    4110808C        LA      1,  140(  0,  8)
C 0000F42C    5010B040        ST      1,   64(  0, 11)
C 0000F430    41107040        LA      1,   64(  0,  7)
C 0000F434    5010B044        ST      1,   68(  0, 11)
C 0000F438    41107044        LA      1,   68(  0,  7)
C 0000F43C    5010B048        ST      1,   72(  0, 11)
C 0000F440    5810D3DC        L       1,  988(  0, 13)
C 0000F444    45F0D074        BAL    15,  116(  0, 13)


  2832                         ->98 %IF T=-1

C 0000F448    5810D010        L       1,   16(  0, 13)
C 0000F44C    59107040        C       1,   64(  0,  7)
C 0000F450    478A0000        BC      8,    0( 10,  0)


  2833                         J=FIND(C,LOCAL LABEL)

C 0000F454    D203B0407044    MVC     64(  4, 11),   68(  7)
C 0000F45A    4810808E        LH      1,  142(  0,  8)
C 0000F45E    5010B044        ST      1,   68(  0, 11)
C 0000F462    5810D3E4        L       1,  996(  0, 13)
C 0000F466    45F0D074        BAL    15,  116(  0, 13)
C 0000F46A    50107048        ST      1,   72(  0,  7)


  2834                         FAULT(233) %IF J=-1

C 0000F46E    5810D010        L       1,   16(  0, 13)
C 0000F472    59107048        C       1,   72(  0,  7)
C 0000F476    477A005E        BC      7,   94( 10,  0)
C 0000F47A    92E9B043        MVI     67( 11), 233
C 0000F47E    5810D228        L       1,  552(  0, 13)
C 0000F482    45F0D074        BAL    15,  116(  0, 13)


  2835                         J=J-LOCAL ADDR

C 0000F486    58107048        L       1,   72(  0,  7)
C 0000F48A    5B108088        S       1,  136(  0,  8)
C 0000F48E    50107048        ST      1,   72(  0,  7)


  2836                         PLUG(T+2,J); ->1

C 0000F492    41100002        LA      1,    2(  0,  0)
C 0000F496    5A107040        A       1,   64(  0,  7)
C 0000F49A    5010B040        ST      1,   64(  0, 11)
C 0000F49E    D203B0447048    MVC     68(  4, 11),   72(  7)
C 0000F4A4    5810D1F0        L       1,  496(  0, 13)
C 0000F4A8    45F0D074        BAL    15,  116(  0, 13)



C 0000F4AC    47F0A000        BC     15,    0(  0, 10)


  2837                98:      CLEAR LIST(LOCAL LABEL)

C 0000F4B0    4110808E        LA      1,  142(  0,  8)
C 0000F4B4    5010B040        ST      1,   64(  0, 11)
C 0000F4B8    5810D350        L       1,  848(  0, 13)
C 0000F4BC    45F0D074        BAL    15,  116(  0, 13)


  2838                         %END
D 00000D4C    C2 C2 C2 C2 0B 0C 07 0E 46 49 4C 4C 4C 4F 43 41 4C 4A 55 4D 50 53 00 8E 01 70 48 01 4A 00 00 08 01 70 44 01 43 FE A6 F0 01 70 40 01 54 FE A6 F8 FF FF FF FF


C 0000F4C0    D203D0147000    MVC     20(  4, 13),    0(  7)
C 0000F4C6    984F7010        LM      4, 15,   16(  7)
C 0000F4CA    07FF            BCR    15, 15


  2839                     %ROUTINE P LOCAL JUMP(%INTEGER MASK,LABEL)

C 0000F4CC    0000
C 0000F4CE    0000
C 0000F4D0    47FA0000        BC     15,    0( 10,  0)
C 0000F4D4    50F0B03C        ST     15,   60(  0, 11)
C 0000F4D8    D203B000D014    MVC      0(  4, 11),   20( 13)
C 0000F4DE    41000B17        LA      0, 2839(  0,  0)
C 0000F4E2    4000D014        STH     0,   20(  0, 13)
C 0000F4E6    187B            LR      7, 11
C 0000F4E8    41BB0000        LA     11,    0( 11,  0)
C 0000F4EC    41000004        LA      0,    4(  0,  0)
C 0000F4F0    59BD0044        C      11,   68( 13,  0)
C 0000F4F4    4720C054        BC      2,   84(  0, 12)
C 0000F4F8    05A0            BALR   10,  0


  2840                         %SHORTROUTINE
  2841                         %RETURN %IF MASK=0

C 0000F4FA    58107040        L       1,   64(  0,  7)
C 0000F4FE    1211            LTR     1,  1
C 0000F500    477A0016        BC      7,   22( 10,  0)
C 0000F504    D203D0147000    MVC     20(  4, 13),    0(  7)
C 0000F50A    984F7010        LM      4, 15,   16(  7)
C 0000F50E    07FF            BCR    15, 15


  2842                         CHNGE13=1 %UNLESS SAVE13=R13

C 0000F510    D50380B490BC    CLC    180(  4,  8),  188(  9)
C 0000F516    478A0028        BC      8,   40( 10,  0)
C 0000F51A    41100001        LA      1,    1(  0,  0)
C 0000F51E    501080B8        ST      1,  184(  0,  8)


  2843                         ->1 %IF LABEL>21000

C 0000F522    5810D590        L       1, 1424(  0, 13)
C 0000F526    59107044        C       1,   68(  0,  7)
C 0000F52A    474A0000        BC      4,    0( 10,  0)


  2844                         PJ(MASK,LABEL); ->99

C 0000F52E    D203B0407040    MVC     64(  4, 11),   64(  7)
C 0000F534    D203B0447044    MVC     68(  4, 11),   68(  7)
C 0000F53A    5810D464        L       1, 1124(  0, 13)
C 0000F53E    45F0D074        BAL    15,  116(  0, 13)



C 0000F542    47FA0000        BC     15,    0( 10,  0)


  2845                1:       ->2 %UNLESS LOCAL BASE=0

C 0000F546    58108084        L       1,  132(  0,  8)
C 0000F54A    1211            LTR     1,  1
C 0000F54C    477A0000        BC      7,    0( 10,  0)


  2846                         LOCAL BASE=10; LOCAL ADDR=CODEBASE(LEVEL)

C 0000F550    4110000A        LA      1,   10(  0,  0)
C 0000F554    50108084        ST      1,  132(  0,  8)



C 0000F558    581090A8        L       1,  168(  0,  9)
C 0000F55C    4130917C        LA      3,  380(  0,  9)
C 0000F560    45F0C05C        BAL    15,   92(  0, 12)
C 0000F564    5811F000        L       1,    0(  1, 15)
C 0000F568    50108088        ST      1,  136(  0,  8)


  2847                         ->2 %IF SBFLAG=1 %OR 3000+800*COMPILER>CA-CODEBASE(LEVEL)

C 0000F56C    950190CB        CLI    203(  9),  1
C 0000F570    478A0000        BC      8,    0( 10,  0)
C 0000F574    41100320        LA      1,  800(  0,  0)
C 0000F578    1F22            SLR     2,  2
C 0000F57A    432090DA        IC      2,  218(  0,  9)
C 0000F57E    1C02            MR      0,  2
C 0000F580    41200BB8        LA      2, 3000(  0,  0)
C 0000F584    1A12            AR      1,  2
C 0000F586    1851            LR      5,  1
C 0000F588    581090A8        L       1,  168(  0,  9)
C 0000F58C    4130917C        LA      3,  380(  0,  9)
C 0000F590    45F0C05C        BAL    15,   92(  0, 12)
C 0000F594    5861F000        L       6,    0(  1, 15)
C 0000F598    581090AC        L       1,  172(  0,  9)
C 0000F59C    1B16            SR      1,  6
C 0000F59E    1915            CR      1,  5
C 0000F5A0    474A0000        BC      4,    0( 10,  0)


  2848                         LOCAL BASE=FIND PP

C 0000F5A4    5810D420        L       1, 1056(  0, 13)
C 0000F5A8    45F0D074        BAL    15,  116(  0, 13)
C 0000F5AC    50108084        ST      1,  132(  0,  8)


  2849                         FAULT(231) %IF LOCAL BASE<=0

C 0000F5B0    58108084        L       1,  132(  0,  8)
C 0000F5B4    1211            LTR     1,  1
C 0000F5B6    473A00CC        BC      3,  204( 10,  0)
C 0000F5BA    92E7B043        MVI     67( 11), 231
C 0000F5BE    5810D228        L       1,  552(  0, 13)
C 0000F5C2    45F0D074        BAL    15,  116(  0, 13)


  2850                         PRR(5,LOCAL BASE,0); LOCAL ADDR=CA

C 0000F5C6    41100005        LA      1,    5(  0,  0)
C 0000F5CA    5010B040        ST      1,   64(  0, 11)
C 0000F5CE    D203B0448084    MVC     68(  4, 11),  132(  8)
C 0000F5D4    1F11            SLR     1,  1
C 0000F5D6    5010B048        ST      1,   72(  0, 11)
C 0000F5DA    5810D1D0        L       1,  464(  0, 13)
C 0000F5DE    45F0D074        BAL    15,  116(  0, 13)



C 0000F5E2    D203808890AC    MVC    136(  4,  8),  172(  9)


  2851                2:       PUSH(LOCAL JUMP,CA,LABEL)

C 0000F5E8    4110808C        LA      1,  140(  0,  8)
C 0000F5EC    5010B040        ST      1,   64(  0, 11)
C 0000F5F0    D203B04490AC    MVC     68(  4, 11),  172(  9)
C 0000F5F6    D203B0487044    MVC     72(  4, 11),   68(  7)
C 0000F5FC    5810D3E0        L       1,  992(  0, 13)
C 0000F600    45F0D074        BAL    15,  116(  0, 13)


  2852                         PRX(X'47',MASK,LOCAL BASE,0,0)

C 0000F604    41100047        LA      1,   71(  0,  0)
C 0000F608    5010B040        ST      1,   64(  0, 11)
C 0000F60C    D203B0447040    MVC     68(  4, 11),   64(  7)
C 0000F612    D203B0488084    MVC     72(  4, 11),  132(  8)
C 0000F618    1F11            SLR     1,  1
C 0000F61A    5010B04C        ST      1,   76(  0, 11)
C 0000F61E    1F11            SLR     1,  1
C 0000F620    5010B050        ST      1,   80(  0, 11)
C 0000F624    5810D1C0        L       1,  448(  0, 13)
C 0000F628    45F0D074        BAL    15,  116(  0, 13)


  2853                99:      %END
D 00000D80    C2 C2 C2 C2 0B 17 07 0A 50 4C 4F 43 41 4C 4A 55 4D 50 FF FE 01 70 44 05 4C 41 42 45 4C FE A6 E8 01 70 40 04 4D 41 53 4B FF FF FF FF


C 0000F62C    D203D0147000    MVC     20(  4, 13),    0(  7)
C 0000F632    984F7010        LM      4, 15,   16(  7)
C 0000F636    07FF            BCR    15, 15


  2854                     %ROUTINE     CSNAME(%INTEGER Z,REG)

C 0000F638    0000
C 0000F63A    0000
C 0000F63C    47FA0000        BC     15,    0( 10,  0)
C 0000F640    50F0B03C        ST     15,   60(  0, 11)
C 0000F644    D203B000D014    MVC      0(  4, 11),   20( 13)
C 0000F64A    41000B26        LA      0, 2854(  0,  0)
C 0000F64E    4000D014        STH     0,   20(  0, 13)
C 0000F652    187B            LR      7, 11
C 0000F654    41BB0000        LA     11,    0( 11,  0)
C 0000F658    41000004        LA      0,    4(  0,  0)
C 0000F65C    59BD0044        C      11,   68( 13,  0)
C 0000F660    4720C054        BC      2,   84(  0, 12)
C 0000F664    05A0            BALR   10,  0


  2855                         %INTEGERARRAY B(0:5)

C 0000F666    50B0D024        ST     11,   36(  0, 13)
C 0000F66A    1F11            SLR     1,  1
C 0000F66C    41200005        LA      2,    5(  0,  0)
C 0000F670    41000004        LA      0,    4(  0,  0)
C 0000F674    9002B000        STM     0,  2,    0( 11)
C 0000F678    9201B001        MVI      1( 11),  1
C 0000F67C    41B0B010        LA     11,   16(  0, 11)
C 0000F680    45F0C034        BAL    15,   52(  0, 12)
C 0000F684    90037048        STM     0,  3,   72(  7)


  2856                         %OWNBYTEINTEGERARRAY PLABEL(0:45)=9,9,3,3,
K 00000E24    00 00 00 00
K 00000E28    09 09 03 03
  2857                               1,14(3),2,3,1,18,4,3,12(2),
K 00000E2C    01 0E 0E 0E
K 00000E30    02 03 01 12
K 00000E34    04 03 0C 0C
  2858                         33,42,34,35,32,12(16),5,12(8);
K 00000E38    21 2A 22 23
K 00000E3C    20 0C 0C 0C
K 00000E40    0C 0C 0C 0C
K 00000E44    0C 0C 0C 0C
K 00000E48    0C 0C 0C 0C
K 00000E4C    0C 05 0C 0C
K 00000E50    0C 0C 0C 0C
K 00000E54    0C 0C 00 00
K 00000E58    00 01 00 01
K 00000E5C    00 00 00 00
K 00000E60    00 00 00 2D
  2859                         %OWNBYTEINTEGERARRAY MODE(0:45)=16(2),
K 00000E64    00 00 00 00
  2860                         0(3),16(3),2,16(2),31,32,0,
K 00000E68    10 10 00 00
K 00000E6C    00 10 10 10
K 00000E70    02 10 10 1F
  2861                         18,31,18(3),63,47,23(2),18,31(7),
K 00000E74    20 00 12 1F
K 00000E78    12 12 12 3F
K 00000E7C    2F 17 17 12
K 00000E80    1F 1F 1F 1F
  2862                         31,23(2),47(2),18,16,2,23,16(2),
K 00000E84    1F 1F 1F 1F
K 00000E88    17 17 2F 2F
K 00000E8C    12 10 02 17
  2863                         23,0(3);
K 00000E90    10 10 17 00
K 00000E94    00 00 00 00
K 00000E98    00 01 00 01
K 00000E9C    00 00 00 00
K 00000EA0    00 00 00 2D
  2864                         ! TOP 4 BITS OF MODE = NO OF PARAMS BOTTOM 4 ALLOWED Z VALUE
  2865                         %SWITCH SW(0:45)

C 0000F688    0000
C 0000F68A    0000
C 0000F68C    47FA0000        BC     15,    0( 10,  0)
C 0000F690    0000
C 0000F692    0000
C 0000F694    0000
C 0000F696    002D
C 0000F698    0000
C 0000F69A    0000
C 0000F69C    0000
C 0000F69E    0000
C 0000F6A0    0000
C 0000F6A2    0000
C 0000F6A4    0000
C 0000F6A6    0000
C 0000F6A8    0000
C 0000F6AA    0000
C 0000F6AC    0000
C 0000F6AE    0000
C 0000F6B0    0000
C 0000F6B2    0000
C 0000F6B4    0000
C 0000F6B6    0000
C 0000F6B8    0000
C 0000F6BA    0000
C 0000F6BC    0000
C 0000F6BE    0000
C 0000F6C0    0000
C 0000F6C2    0000
C 0000F6C4    0000
C 0000F6C6    0000
C 0000F6C8    0000
C 0000F6CA    0000
C 0000F6CC    0000
C 0000F6CE    0000
C 0000F6D0    0000
C 0000F6D2    0000
C 0000F6D4    0000
C 0000F6D6    0000
C 0000F6D8    0000
C 0000F6DA    0000
C 0000F6DC    0000
C 0000F6DE    0000
C 0000F6E0    0000
C 0000F6E2    0000
C 0000F6E4    0000
C 0000F6E6    0000
C 0000F6E8    0000
C 0000F6EA    0000
C 0000F6EC    0000
C 0000F6EE    0000
C 0000F6F0    0000
C 0000F6F2    0000
C 0000F6F4    0000
C 0000F6F6    0000
C 0000F6F8    0000
C 0000F6FA    0000
C 0000F6FC    0000
C 0000F6FE    0000
C 0000F700    0000
C 0000F702    0000
C 0000F704    0000
C 0000F706    0000
C 0000F708    0000
C 0000F70A    0000
C 0000F70C    0000
C 0000F70E    0000
C 0000F710    0000
C 0000F712    0000
C 0000F714    0000
C 0000F716    0000
C 0000F718    0000
C 0000F71A    0000
C 0000F71C    0000
C 0000F71E    0000
C 0000F720    0000
C 0000F722    0000
C 0000F724    0000
C 0000F726    0000
C 0000F728    0000
C 0000F72A    0000
C 0000F72C    0000
C 0000F72E    0000
C 0000F730    0000
C 0000F732    0000
C 0000F734    0000
C 0000F736    0000
C 0000F738    0000
C 0000F73A    0000
C 0000F73C    0000
C 0000F73E    0000
C 0000F740    0000
C 0000F742    0000
C 0000F744    0000
C 0000F746    0000
C 0000F748    0000
C 0000F74A    0000
C 0000F74C    0000
C 0000F74E    0000


  2866                         %INTEGER PL,KK,PP,V,JJ
  2867                         KK=K; JJ=COUNTAPS

C 0000F750    D203705C80A4    MVC     92(  4,  7),  164(  8)



C 0000F756    5810D390        L       1,  912(  0, 13)
C 0000F75A    45F0D074        BAL    15,  116(  0, 13)
C 0000F75E    50107068        ST      1,  104(  0,  7)


  2868                         PL=PLABEL(KK); PP=P+1; V=MODE(K)

C 0000F762    5810705C        L       1,   92(  0,  7)
C 0000F766    4130D594        LA      3, 1428(  0, 13)
C 0000F76A    45F0C05C        BAL    15,   92(  0, 12)
C 0000F76E    4311F000        IC      1,    0(  1, 15)
C 0000F772    5410D018        N       1,   24(  0, 13)
C 0000F776    50107058        ST      1,   88(  0,  7)



C 0000F77A    41100001        LA      1,    1(  0,  0)
C 0000F77E    5A108040        A       1,   64(  0,  8)
C 0000F782    50107060        ST      1,   96(  0,  7)



C 0000F786    581080A4        L       1,  164(  0,  8)
C 0000F78A    4130D5A4        LA      3, 1444(  0, 13)
C 0000F78E    45F0C05C        BAL    15,   92(  0, 12)
C 0000F792    4311F000        IC      1,    0(  1, 15)
C 0000F796    5410D018        N       1,   24(  0, 13)
C 0000F79A    50107064        ST      1,  100(  0,  7)


  2869                         P=P+1; P=P+1 %IF V>>4#0

C 0000F79E    41100001        LA      1,    1(  0,  0)
C 0000F7A2    5A108040        A       1,   64(  0,  8)
C 0000F7A6    50108040        ST      1,   64(  0,  8)



C 0000F7AA    58107064        L       1,  100(  0,  7)
C 0000F7AE    88100004        SRL     1,    4(  0)
C 0000F7B2    1211            LTR     1,  1
C 0000F7B4    478A015E        BC      8,  350( 10,  0)
C 0000F7B8    41100001        LA      1,    1(  0,  0)
C 0000F7BC    5A108040        A       1,   64(  0,  8)
C 0000F7C0    50108040        ST      1,   64(  0,  8)


  2870                         ->1010 %IF V&15=15

C 0000F7C4    4110000F        LA      1,   15(  0,  0)
C 0000F7C8    54107064        N       1,  100(  0,  7)
C 0000F7CC    4120000F        LA      2,   15(  0,  0)
C 0000F7D0    1912            CR      1,  2
C 0000F7D2    0000
C 0000F7D4    0000
C 0000F7D6    478A0000        BC      8,    0( 10,  0)


  2871                         ->1001 %IF V>>4#JJ; V=V&15

C 0000F7DA    58107064        L       1,  100(  0,  7)
C 0000F7DE    88100004        SRL     1,    4(  0)
C 0000F7E2    59107068        C       1,  104(  0,  7)
C 0000F7E6    0000
C 0000F7E8    0000
C 0000F7EA    477A0000        BC      7,    0( 10,  0)



C 0000F7EE    4110000F        LA      1,   15(  0,  0)
C 0000F7F2    54107064        N       1,  100(  0,  7)
C 0000F7F6    50107064        ST      1,  100(  0,  7)


  2872                         ->1002 %IF V=0 %AND Z#0;      ! ROUTINE CALL IN EXPRESSION

C 0000F7FA    58107064        L       1,  100(  0,  7)
C 0000F7FE    1211            LTR     1,  1
C 0000F800    477A01AC        BC      7,  428( 10,  0)
C 0000F804    58107040        L       1,   64(  0,  7)
C 0000F808    1211            LTR     1,  1
C 0000F80A    0000
C 0000F80C    0000
C 0000F80E    477A0000        BC      7,    0( 10,  0)


  2873                         ->1003 %IF V=2 %AND Z#2;      ! FN CALLED INCORRECTLY

C 0000F812    41100002        LA      1,    2(  0,  0)
C 0000F816    59107064        C       1,  100(  0,  7)
C 0000F81A    477A01C8        BC      7,  456( 10,  0)
C 0000F81E    41100002        LA      1,    2(  0,  0)
C 0000F822    59107040        C       1,   64(  0,  7)
C 0000F826    0000
C 0000F828    0000
C 0000F82A    477A0000        BC      7,    0( 10,  0)


  2874                         ->1005 %IF Z=0 %AND V#0

C 0000F82E    58107040        L       1,   64(  0,  7)
C 0000F832    1211            LTR     1,  1
C 0000F834    477A01E0        BC      7,  480( 10,  0)
C 0000F838    58107064        L       1,  100(  0,  7)
C 0000F83C    1211            LTR     1,  1
C 0000F83E    0000
C 0000F840    0000
C 0000F842    477A0000        BC      7,    0( 10,  0)


  2875                1010:    ->SW(KK)

C 0000F846    5810705C        L       1,   92(  0,  7)
C 0000F84A    89100002        SLL     1,    2(  0)
C 0000F84E    5811A032        L       1,   50(  1, 10)
C 0000F852    47F1A000        BC     15,    0(  1, 10)


  2876                1001:    FAULT(19); PRINTNAME(FNAME)

C 0000F856    9213B043        MVI     67( 11), 19
C 0000F85A    5810D228        L       1,  552(  0, 13)
C 0000F85E    45F0D074        BAL    15,  116(  0, 13)



C 0000F862    D203B0409130    MVC     64(  4, 11),  304(  9)
C 0000F868    5810D230        L       1,  560(  0, 13)
C 0000F86C    45F0D074        BAL    15,  116(  0, 13)


  2877                1000:    P=PP; SKIP APP; P=P-1; ->99

C 0000F870    D20380407060    MVC     64(  4,  8),   96(  7)



C 0000F876    5810D39C        L       1,  924(  0, 13)
C 0000F87A    45F0D074        BAL    15,  116(  0, 13)



C 0000F87E    58108040        L       1,   64(  0,  8)
C 0000F882    0610            BCTR    1,  0
C 0000F884    50108040        ST      1,   64(  0,  8)



C 0000F888    0000
C 0000F88A    0000
C 0000F88C    47FA0000        BC     15,    0( 10,  0)


  2878                1002:    FAULT(23); ->1000

C 0000F890    9217B043        MVI     67( 11), 23
C 0000F894    5810D228        L       1,  552(  0, 13)
C 0000F898    45F0D074        BAL    15,  116(  0, 13)



C 0000F89C    47F0A20A        BC     15,  522(  0, 10)


  2879                1003:    FAULT(29); ->1000

C 0000F8A0    921DB043        MVI     67( 11), 29
C 0000F8A4    5810D228        L       1,  552(  0, 13)
C 0000F8A8    45F0D074        BAL    15,  116(  0, 13)



C 0000F8AC    47F0A20A        BC     15,  522(  0, 10)


  2880                1004:    FAULT(22); ->1000

C 0000F8B0    9216B043        MVI     67( 11), 22
C 0000F8B4    5810D228        L       1,  552(  0, 13)
C 0000F8B8    45F0D074        BAL    15,  116(  0, 13)



C 0000F8BC    47F0A20A        BC     15,  522(  0, 10)


  2881                1005:    FAULT(17); ->1000

C 0000F8C0    9211B043        MVI     67( 11), 17
C 0000F8C4    5810D228        L       1,  552(  0, 13)
C 0000F8C8    45F0D074        BAL    15,  116(  0, 13)



C 0000F8CC    47F0A20A        BC     15,  522(  0, 10)


  2882                1:       PPJ(PL); ->99

C 0000F8D0    58107058        L       1,   88(  0,  7)
C 0000F8D4    5010B040        ST      1,   64(  0, 11)
C 0000F8D8    5810D46C        L       1, 1132(  0, 13)
C 0000F8DC    45F0D074        BAL    15,  116(  0, 13)



C 0000F8E0    0000
C 0000F8E2    0000
C 0000F8E4    47FA0000        BC     15,    0( 10,  0)


  2883                SW(4):   CIOCP(1); ->99;               ! SKIP SYMBOL

C 0000F8E8    41100001        LA      1,    1(  0,  0)
C 0000F8EC    5010B040        ST      1,   64(  0, 11)
C 0000F8F0    5810D33C        L       1,  828(  0, 13)
C 0000F8F4    45F0D074        BAL    15,  116(  0, 13)



C 0000F8F8    0000
C 0000F8FA    0000
C 0000F8FC    47FA0000        BC     15,    0( 10,  0)


  2884                SW(2):   V=10;                         ! NEWLINE

C 0000F900    4110000A        LA      1,   10(  0,  0)
C 0000F904    50107064        ST      1,  100(  0,  7)


  2885                         PRX(X'41',1,0,0,V)

C 0000F908    41100041        LA      1,   65(  0,  0)
C 0000F90C    5010B040        ST      1,   64(  0, 11)
C 0000F910    41100001        LA      1,    1(  0,  0)
C 0000F914    5010B044        ST      1,   68(  0, 11)
C 0000F918    1F11            SLR     1,  1
C 0000F91A    5010B048        ST      1,   72(  0, 11)
C 0000F91E    1F11            SLR     1,  1
C 0000F920    5010B04C        ST      1,   76(  0, 11)
C 0000F924    D203B0507064    MVC     80(  4, 11),  100(  7)
C 0000F92A    5810D1C0        L       1,  448(  0, 13)
C 0000F92E    45F0D074        BAL    15,  116(  0, 13)


  2886                23:      CIOCP(3); ->99

C 0000F932    41100003        LA      1,    3(  0,  0)
C 0000F936    5010B040        ST      1,   64(  0, 11)
C 0000F93A    5810D33C        L       1,  828(  0, 13)
C 0000F93E    45F0D074        BAL    15,  116(  0, 13)



C 0000F942    0000
C 0000F944    0000
C 0000F946    47FA0000        BC     15,    0( 10,  0)


  2887                21:      PRX(X'41',1,0,0,V); ->1

C 0000F94A    41100041        LA      1,   65(  0,  0)
C 0000F94E    5010B040        ST      1,   64(  0, 11)
C 0000F952    41100001        LA      1,    1(  0,  0)
C 0000F956    5010B044        ST      1,   68(  0, 11)
C 0000F95A    1F11            SLR     1,  1
C 0000F95C    5010B048        ST      1,   72(  0, 11)
C 0000F960    1F11            SLR     1,  1
C 0000F962    5010B04C        ST      1,   76(  0, 11)
C 0000F966    D203B0507064    MVC     80(  4, 11),  100(  7)
C 0000F96C    5810D1C0        L       1,  448(  0, 13)
C 0000F970    45F0D074        BAL    15,  116(  0, 13)



C 0000F974    47F0A26A        BC     15,  618(  0, 10)


  2888                SW(3):   V=32; ->21;                   ! SPACE

C 0000F978    41100020        LA      1,   32(  0,  0)
C 0000F97C    50107064        ST      1,  100(  0,  7)



C 0000F980    47F0A2E4        BC     15,  740(  0, 10)


  2889                SW(5):   V=0;                          ! RUNOUT

C 0000F984    1F11            SLR     1,  1
C 0000F986    50107064        ST      1,  100(  0,  7)


  2890                51:      CSEXP(2,1); ->21

C 0000F98A    41100002        LA      1,    2(  0,  0)
C 0000F98E    5010B040        ST      1,   64(  0, 11)
C 0000F992    9201B047        MVI     71( 11),  1
C 0000F996    5810D37C        L       1,  892(  0, 13)
C 0000F99A    45F0D074        BAL    15,  116(  0, 13)



C 0000F99E    47F0A2E4        BC     15,  740(  0, 10)


  2891                SW(6):   V=10; ->51;                   ! NEWLINES(N)

C 0000F9A2    4110000A        LA      1,   10(  0,  0)
C 0000F9A6    50107064        ST      1,  100(  0,  7)



C 0000F9AA    47F0A324        BC     15,  804(  0, 10)


  2892                SW(7):   V=32; ->51;                   ! SPACES(N)

C 0000F9AE    41100020        LA      1,   32(  0,  0)
C 0000F9B2    50107064        ST      1,  100(  0,  7)



C 0000F9B6    47F0A324        BC     15,  804(  0, 10)


  2893                SW(0):SW(1):                           ! SELECT INPUT AND OUTPUT
  2894                         CSEXP(1,1); CIOCP(KK+8)

C 0000F9BA    41100001        LA      1,    1(  0,  0)
C 0000F9BE    5010B040        ST      1,   64(  0, 11)
C 0000F9C2    9201B047        MVI     71( 11),  1
C 0000F9C6    5810D37C        L       1,  892(  0, 13)
C 0000F9CA    45F0D074        BAL    15,  116(  0, 13)



C 0000F9CE    41100008        LA      1,    8(  0,  0)
C 0000F9D2    5A10705C        A       1,   92(  0,  7)
C 0000F9D6    5010B040        ST      1,   64(  0, 11)
C 0000F9DA    5810D33C        L       1,  828(  0, 13)
C 0000F9DE    45F0D074        BAL    15,  116(  0, 13)


  2895                         ->99

C 0000F9E2    0000
C 0000F9E4    0000
C 0000F9E6    47FA0000        BC     15,    0( 10,  0)


  2896                SW(9):                                 ! PRINTSYMBOL
  2897                         CSEXP(1,1); ->23

C 0000F9EA    41100001        LA      1,    1(  0,  0)
C 0000F9EE    5010B040        ST      1,   64(  0, 11)
C 0000F9F2    9201B047        MVI     71( 11),  1
C 0000F9F6    5810D37C        L       1,  892(  0, 13)
C 0000F9FA    45F0D074        BAL    15,  116(  0, 13)



C 0000F9FE    47F0A2CC        BC     15,  716(  0, 10)


  2898                SW(8):   CIOCP(2);                     ! NEXT SYMBOL

C 0000FA02    41100002        LA      1,    2(  0,  0)
C 0000FA06    5010B040        ST      1,   64(  0, 11)
C 0000FA0A    5810D33C        L       1,  828(  0, 13)
C 0000FA0E    45F0D074        BAL    15,  116(  0, 13)


  2899                81:      %UNLESS REG=1 %THEN PRR(X'18',REG,1)

C 0000FA12    41100001        LA      1,    1(  0,  0)
C 0000FA16    59107044        C       1,   68(  0,  7)
C 0000FA1A    478A03D6        BC      8,  982( 10,  0)
C 0000FA1E    41100018        LA      1,   24(  0,  0)
C 0000FA22    5010B040        ST      1,   64(  0, 11)
C 0000FA26    D203B0447044    MVC     68(  4, 11),   68(  7)
C 0000FA2C    41100001        LA      1,    1(  0,  0)
C 0000FA30    5010B048        ST      1,   72(  0, 11)
C 0000FA34    5810D1D0        L       1,  464(  0, 13)
C 0000FA38    45F0D074        BAL    15,  116(  0, 13)


  2900                82:      PTYPE=10001;UNPACK; ->99

C 0000FA3C    5810D5B4        L       1, 1460(  0, 13)
C 0000FA40    50108098        ST      1,  152(  0,  8)



C 0000FA44    5810D448        L       1, 1096(  0, 13)
C 0000FA48    45F0D074        BAL    15,  116(  0, 13)



C 0000FA4C    0000
C 0000FA4E    0000
C 0000FA50    47FA0000        BC     15,    0( 10,  0)


  2901                SW(10):  CIOCP(1);                     ! READ SYMBOL

C 0000FA54    41100001        LA      1,    1(  0,  0)
C 0000FA58    5010B040        ST      1,   64(  0, 11)
C 0000FA5C    5810D33C        L       1,  828(  0, 13)
C 0000FA60    45F0D074        BAL    15,  116(  0, 13)


  2902                106:     ->1004 %UNLESS A(P)=4 %AND A(P+1)=1

C 0000FA64    58108040        L       1,   64(  0,  8)
C 0000FA68    413092FC        LA      3,  764(  0,  9)
C 0000FA6C    45F0C05C        BAL    15,   92(  0, 12)
C 0000FA70    4811F000        LH      1,    0(  1, 15)
C 0000FA74    41200004        LA      2,    4(  0,  0)
C 0000FA78    1912            CR      1,  2
C 0000FA7A    4770A24A        BC      7,  586(  0, 10)
C 0000FA7E    41100001        LA      1,    1(  0,  0)
C 0000FA82    5A108040        A       1,   64(  0,  8)
C 0000FA86    413092FC        LA      3,  764(  0,  9)
C 0000FA8A    45F0C05C        BAL    15,   92(  0, 12)
C 0000FA8E    4811F000        LH      1,    0(  1, 15)
C 0000FA92    41200001        LA      2,    1(  0,  0)
C 0000FA96    1912            CR      1,  2
C 0000FA98    4770A24A        BC      7,  586(  0, 10)


  2903                         P=P+2; COPYTAG(A(P)); UNPACK

C 0000FA9C    41100002        LA      1,    2(  0,  0)
C 0000FAA0    5A108040        A       1,   64(  0,  8)
C 0000FAA4    50108040        ST      1,   64(  0,  8)



C 0000FAA8    58108040        L       1,   64(  0,  8)
C 0000FAAC    413092FC        LA      3,  764(  0,  9)
C 0000FAB0    45F0C05C        BAL    15,   92(  0, 12)
C 0000FAB4    4811F000        LH      1,    0(  1, 15)
C 0000FAB8    5010B040        ST      1,   64(  0, 11)
C 0000FABC    5810D408        L       1, 1032(  0, 13)
C 0000FAC0    45F0D074        BAL    15,  116(  0, 13)



C 0000FAC4    5810D448        L       1, 1096(  0, 13)
C 0000FAC8    45F0D074        BAL    15,  116(  0, 13)


  2904                         ->104 %UNLESS TYPE=1 %AND ARR=0 %AND ROUT=0

C 0000FACC    95018094        CLI    148(  8),  1
C 0000FAD0    0000
C 0000FAD2    0000
C 0000FAD4    477A0000        BC      7,    0( 10,  0)
C 0000FAD8    95008092        CLI    146(  8),  0
C 0000FADC    0000
C 0000FADE    0000
C 0000FAE0    477A0000        BC      7,    0( 10,  0)
C 0000FAE4    95008090        CLI    144(  8),  0
C 0000FAE8    0000
C 0000FAEA    0000
C 0000FAEC    477A0000        BC      7,    0( 10,  0)


  2905                         CNAME(1,1)

C 0000FAF0    41100001        LA      1,    1(  0,  0)
C 0000FAF4    5010B040        ST      1,   64(  0, 11)
C 0000FAF8    41100001        LA      1,    1(  0,  0)
C 0000FAFC    5010B044        ST      1,   68(  0, 11)
C 0000FB00    5810D3C4        L       1,  964(  0, 13)
C 0000FB04    45F0D074        BAL    15,  116(  0, 13)


  2906                102:     ->1004 %UNLESS A(P)=2; P=P+1; ->99

C 0000FB08    58108040        L       1,   64(  0,  8)
C 0000FB0C    413092FC        LA      3,  764(  0,  9)
C 0000FB10    45F0C05C        BAL    15,   92(  0, 12)
C 0000FB14    4811F000        LH      1,    0(  1, 15)
C 0000FB18    41200002        LA      2,    2(  0,  0)
C 0000FB1C    1912            CR      1,  2
C 0000FB1E    4770A24A        BC      7,  586(  0, 10)



C 0000FB22    41100001        LA      1,    1(  0,  0)
C 0000FB26    5A108040        A       1,   64(  0,  8)
C 0000FB2A    50108040        ST      1,   64(  0,  8)



C 0000FB2E    0000
C 0000FB30    0000
C 0000FB32    47FA0000        BC     15,    0( 10,  0)


  2907                104:     PLANT(X'1841'); REGISTER(4)=1

C 0000FB36    5810D5B8        L       1, 1464(  0, 13)
C 0000FB3A    5010B040        ST      1,   64(  0, 11)
C 0000FB3E    5810D1CC        L       1,  460(  0, 13)
C 0000FB42    45F0D074        BAL    15,  116(  0, 13)



C 0000FB46    41400001        LA      4,    1(  0,  0)
C 0000FB4A    41100004        LA      1,    4(  0,  0)
C 0000FB4E    4130914C        LA      3,  332(  0,  9)
C 0000FB52    45F0C05C        BAL    15,   92(  0, 12)
C 0000FB56    5041F000        ST      4,    0(  1, 15)


  2908                         CNAME(1,4); REGISTER(4)=0

C 0000FB5A    41100001        LA      1,    1(  0,  0)
C 0000FB5E    5010B040        ST      1,   64(  0, 11)
C 0000FB62    41100004        LA      1,    4(  0,  0)
C 0000FB66    5010B044        ST      1,   68(  0, 11)
C 0000FB6A    5810D3C4        L       1,  964(  0, 13)
C 0000FB6E    45F0D074        BAL    15,  116(  0, 13)



C 0000FB72    1F44            SLR     4,  4
C 0000FB74    41100004        LA      1,    4(  0,  0)
C 0000FB78    4130914C        LA      3,  332(  0,  9)
C 0000FB7C    45F0C05C        BAL    15,   92(  0, 12)
C 0000FB80    5041F000        ST      4,    0(  1, 15)


  2909                         ->1004 %UNLESS TYPE=1; ->102

C 0000FB84    95018094        CLI    148(  8),  1
C 0000FB88    4770A24A        BC      7,  586(  0, 10)



C 0000FB8C    47F0A4A2        BC     15, 1186(  0, 10)


  2910                SW(11):                                ! READ
  2911                         B(0)=1; B(1)=1000

C 0000FB90    41400001        LA      4,    1(  0,  0)
C 0000FB94    1F11            SLR     1,  1
C 0000FB96    41307048        LA      3,   72(  0,  7)
C 0000FB9A    45F0C05C        BAL    15,   92(  0, 12)
C 0000FB9E    5041F000        ST      4,    0(  1, 15)



C 0000FBA2    414003E8        LA      4, 1000(  0,  0)
C 0000FBA6    41100001        LA      1,    1(  0,  0)
C 0000FBAA    41307048        LA      3,   72(  0,  7)
C 0000FBAE    45F0C05C        BAL    15,   92(  0, 12)
C 0000FBB2    5041F000        ST      4,    0(  1, 15)


  2912                110:     JJ=10000; ->1004 %IF 0#Z#13; ->302

C 0000FBB6    5810D5BC        L       1, 1468(  0, 13)
C 0000FBBA    50107068        ST      1,  104(  0,  7)



C 0000FBBE    58107040        L       1,   64(  0,  7)
C 0000FBC2    1211            LTR     1,  1
C 0000FBC4    478A056C        BC      8, 1388( 10,  0)
C 0000FBC8    4120000D        LA      2,   13(  0,  0)
C 0000FBCC    1912            CR      1,  2
C 0000FBCE    4770A24A        BC      7,  586(  0, 10)



C 0000FBD2    0000
C 0000FBD4    0000
C 0000FBD6    47FA0000        BC     15,    0( 10,  0)


  2913                SW(12):                                ! WRITE
  2914                         CSEXP(1,1); P=P+1

C 0000FBDA    41100001        LA      1,    1(  0,  0)
C 0000FBDE    5010B040        ST      1,   64(  0, 11)
C 0000FBE2    9201B047        MVI     71( 11),  1
C 0000FBE6    5810D37C        L       1,  892(  0, 13)
C 0000FBEA    45F0D074        BAL    15,  116(  0, 13)



C 0000FBEE    41100001        LA      1,    1(  0,  0)
C 0000FBF2    5A108040        A       1,   64(  0,  8)
C 0000FBF6    50108040        ST      1,   64(  0,  8)


  2915                         JJ=P; V=TSEXP(KK)

C 0000FBFA    D20370688040    MVC    104(  4,  7),   64(  8)



C 0000FC00    4110705C        LA      1,   92(  0,  7)
C 0000FC04    5010B040        ST      1,   64(  0, 11)
C 0000FC08    5810D478        L       1, 1144(  0, 13)
C 0000FC0C    45F0D074        BAL    15,  116(  0, 13)
C 0000FC10    50107064        ST      1,  100(  0,  7)


  2916                         ->121 %UNLESS V=0

C 0000FC14    58107064        L       1,  100(  0,  7)
C 0000FC18    1211            LTR     1,  1
C 0000FC1A    0000
C 0000FC1C    0000
C 0000FC1E    477A0000        BC      7,    0( 10,  0)


  2917                         V=PARK(1); CSEXP(2,1)

C 0000FC22    41100001        LA      1,    1(  0,  0)
C 0000FC26    5010B040        ST      1,   64(  0, 11)
C 0000FC2A    5810D414        L       1, 1044(  0, 13)
C 0000FC2E    45F0D074        BAL    15,  116(  0, 13)
C 0000FC32    50107064        ST      1,  100(  0,  7)



C 0000FC36    41100002        LA      1,    2(  0,  0)
C 0000FC3A    5010B040        ST      1,   64(  0, 11)
C 0000FC3E    9201B047        MVI     71( 11),  1
C 0000FC42    5810D37C        L       1,  892(  0, 13)
C 0000FC46    45F0D074        BAL    15,  116(  0, 13)


  2918                         UNPARK(X'58',1,V)

C 0000FC4A    41100058        LA      1,   88(  0,  0)
C 0000FC4E    5010B040        ST      1,   64(  0, 11)
C 0000FC52    41100001        LA      1,    1(  0,  0)
C 0000FC56    5010B044        ST      1,   68(  0, 11)
C 0000FC5A    D203B0487064    MVC     72(  4, 11),  100(  7)
C 0000FC60    5810D430        L       1, 1072(  0, 13)
C 0000FC64    45F0D074        BAL    15,  116(  0, 13)


  2919                120:     PPJ(PL); ->99

C 0000FC68    58107058        L       1,   88(  0,  7)
C 0000FC6C    5010B040        ST      1,   64(  0, 11)
C 0000FC70    5810D46C        L       1, 1132(  0, 13)
C 0000FC74    45F0D074        BAL    15,  116(  0, 13)



C 0000FC78    0000
C 0000FC7A    0000
C 0000FC7C    47FA0000        BC     15,    0( 10,  0)


  2920                121:     P=JJ; REGISTER(1)=1

C 0000FC80    D20380407068    MVC     64(  4,  8),  104(  7)



C 0000FC86    41400001        LA      4,    1(  0,  0)
C 0000FC8A    41100001        LA      1,    1(  0,  0)
C 0000FC8E    4130914C        LA      3,  332(  0,  9)
C 0000FC92    45F0C05C        BAL    15,   92(  0, 12)
C 0000FC96    5041F000        ST      4,    0(  1, 15)


  2921                         CSEXP(2,1); REGISTER(1)=0; ->120

C 0000FC9A    41100002        LA      1,    2(  0,  0)
C 0000FC9E    5010B040        ST      1,   64(  0, 11)
C 0000FCA2    9201B047        MVI     71( 11),  1
C 0000FCA6    5810D37C        L       1,  892(  0, 13)
C 0000FCAA    45F0D074        BAL    15,  116(  0, 13)



C 0000FCAE    1F44            SLR     4,  4
C 0000FCB0    41100001        LA      1,    1(  0,  0)
C 0000FCB4    4130914C        LA      3,  332(  0,  9)
C 0000FCB8    45F0C05C        BAL    15,   92(  0, 12)
C 0000FCBC    5041F000        ST      4,    0(  1, 15)



C 0000FCC0    47F0A602        BC     15, 1538(  0, 10)


  2922                SW(13):                                ! NEWPAGE
  2923                         PRX(X'41',1,0,0,12);          ! LA 0,12

C 0000FCC4    41100041        LA      1,   65(  0,  0)
C 0000FCC8    5010B040        ST      1,   64(  0, 11)
C 0000FCCC    41100001        LA      1,    1(  0,  0)
C 0000FCD0    5010B044        ST      1,   68(  0, 11)
C 0000FCD4    1F11            SLR     1,  1
C 0000FCD6    5010B048        ST      1,   72(  0, 11)
C 0000FCDA    1F11            SLR     1,  1
C 0000FCDC    5010B04C        ST      1,   76(  0, 11)
C 0000FCE0    4110000C        LA      1,   12(  0,  0)
C 0000FCE4    5010B050        ST      1,   80(  0, 11)
C 0000FCE8    5810D1C0        L       1,  448(  0, 13)
C 0000FCEC    45F0D074        BAL    15,  116(  0, 13)


  2924                         CIOCP(5); ->99

C 0000FCF0    41100005        LA      1,    5(  0,  0)
C 0000FCF4    5010B040        ST      1,   64(  0, 11)
C 0000FCF8    5810D33C        L       1,  828(  0, 13)
C 0000FCFC    45F0D074        BAL    15,  116(  0, 13)



C 0000FD00    0000
C 0000FD02    0000
C 0000FD04    47FA0000        BC     15,    0( 10,  0)


  2925                SW(14):  ->1004 %UNLESS A(P)=4 %AND A(P+1)=1;! ADDR

C 0000FD08    58108040        L       1,   64(  0,  8)
C 0000FD0C    413092FC        LA      3,  764(  0,  9)
C 0000FD10    45F0C05C        BAL    15,   92(  0, 12)
C 0000FD14    4811F000        LH      1,    0(  1, 15)
C 0000FD18    41200004        LA      2,    4(  0,  0)
C 0000FD1C    1912            CR      1,  2
C 0000FD1E    4770A24A        BC      7,  586(  0, 10)
C 0000FD22    41100001        LA      1,    1(  0,  0)
C 0000FD26    5A108040        A       1,   64(  0,  8)
C 0000FD2A    413092FC        LA      3,  764(  0,  9)
C 0000FD2E    45F0C05C        BAL    15,   92(  0, 12)
C 0000FD32    4811F000        LH      1,    0(  1, 15)
C 0000FD36    41200001        LA      2,    1(  0,  0)
C 0000FD3A    1912            CR      1,  2
C 0000FD3C    4770A24A        BC      7,  586(  0, 10)


  2926                         P=P+2

C 0000FD40    41100002        LA      1,    2(  0,  0)
C 0000FD44    5A108040        A       1,   64(  0,  8)
C 0000FD48    50108040        ST      1,   64(  0,  8)


  2927                         CNAME(3,REG); ->1004 %UNLESS A(P)=2

C 0000FD4C    41100003        LA      1,    3(  0,  0)
C 0000FD50    5010B040        ST      1,   64(  0, 11)
C 0000FD54    D203B0447044    MVC     68(  4, 11),   68(  7)
C 0000FD5A    5810D3C4        L       1,  964(  0, 13)
C 0000FD5E    45F0D074        BAL    15,  116(  0, 13)



C 0000FD62    58108040        L       1,   64(  0,  8)
C 0000FD66    413092FC        LA      3,  764(  0,  9)
C 0000FD6A    45F0C05C        BAL    15,   92(  0, 12)
C 0000FD6E    4811F000        LH      1,    0(  1, 15)
C 0000FD72    41200002        LA      2,    2(  0,  0)
C 0000FD76    1912            CR      1,  2
C 0000FD78    4770A24A        BC      7,  586(  0, 10)


  2928                         P=P+1; ->82

C 0000FD7C    41100001        LA      1,    1(  0,  0)
C 0000FD80    5A108040        A       1,   64(  0,  8)
C 0000FD84    50108040        ST      1,   64(  0,  8)



C 0000FD88    47F0A3D6        BC     15,  982(  0, 10)


  2929                SW(16):                                ! INT
  2930                SW(17):                                ! INTPT
  2931                         CSEXP(0,3)

C 0000FD8C    1F11            SLR     1,  1
C 0000FD8E    5010B040        ST      1,   64(  0, 11)
C 0000FD92    9203B047        MVI     71( 11),  3
C 0000FD96    5810D37C        L       1,  892(  0, 13)
C 0000FD9A    45F0D074        BAL    15,  116(  0, 13)


  2932                         PRR(X'28',0,NEST)%UNLESS NEST=0

C 0000FD9E    5810912C        L       1,  300(  0,  9)
C 0000FDA2    1211            LTR     1,  1
C 0000FDA4    478A075E        BC      8, 1886( 10,  0)
C 0000FDA8    41100028        LA      1,   40(  0,  0)
C 0000FDAC    5010B040        ST      1,   64(  0, 11)
C 0000FDB0    1F11            SLR     1,  1
C 0000FDB2    5010B044        ST      1,   68(  0, 11)
C 0000FDB6    D203B048912C    MVC     72(  4, 11),  300(  9)
C 0000FDBC    5810D1D0        L       1,  464(  0, 13)
C 0000FDC0    45F0D074        BAL    15,  116(  0, 13)


  2933                         PPJ(PL); ->81

C 0000FDC4    58107058        L       1,   88(  0,  7)
C 0000FDC8    5010B040        ST      1,   64(  0, 11)
C 0000FDCC    5810D46C        L       1, 1132(  0, 13)
C 0000FDD0    45F0D074        BAL    15,  116(  0, 13)



C 0000FDD4    47F0A3AC        BC     15,  940(  0, 10)


  2934                SW(18):        CSEXP(6,3)      ;       ! FRACPT

C 0000FDD8    41100006        LA      1,    6(  0,  0)
C 0000FDDC    5010B040        ST      1,   64(  0, 11)
C 0000FDE0    9203B047        MVI     71( 11),  3
C 0000FDE4    5810D37C        L       1,  892(  0, 13)
C 0000FDE8    45F0D074        BAL    15,  116(  0, 13)


  2935                               PCLOD(32);              !INSERT FRACPT SR IN LINE

C 0000FDEC    41100020        LA      1,   32(  0,  0)
C 0000FDF0    5010B040        ST      1,   64(  0, 11)
C 0000FDF4    5810D1C8        L       1,  456(  0, 13)
C 0000FDF8    45F0D074        BAL    15,  116(  0, 13)


  2936                         PRR(X'28',REG,2) %UNLESS REG=2

C 0000FDFC    41100002        LA      1,    2(  0,  0)
C 0000FE00    59107044        C       1,   68(  0,  7)
C 0000FE04    478A07C0        BC      8, 1984( 10,  0)
C 0000FE08    41100028        LA      1,   40(  0,  0)
C 0000FE0C    5010B040        ST      1,   64(  0, 11)
C 0000FE10    D203B0447044    MVC     68(  4, 11),   68(  7)
C 0000FE16    41100002        LA      1,    2(  0,  0)
C 0000FE1A    5010B048        ST      1,   72(  0, 11)
C 0000FE1E    5810D1D0        L       1,  464(  0, 13)
C 0000FE22    45F0D074        BAL    15,  116(  0, 13)


  2937                         PTYPE=10032; UNPACK; ->99

C 0000FE26    5810D5C0        L       1, 1472(  0, 13)
C 0000FE2A    50108098        ST      1,  152(  0,  8)



C 0000FE2E    5810D448        L       1, 1096(  0, 13)
C 0000FE32    45F0D074        BAL    15,  116(  0, 13)



C 0000FE36    0000
C 0000FE38    0000
C 0000FE3A    47FA0000        BC     15,    0( 10,  0)


  2938                SW(19):                                ! PRINT
  2939                         B(0)=3;B(3)=1

C 0000FE3E    41400003        LA      4,    3(  0,  0)
C 0000FE42    1F11            SLR     1,  1
C 0000FE44    41307048        LA      3,   72(  0,  7)
C 0000FE48    45F0C05C        BAL    15,   92(  0, 12)
C 0000FE4C    5041F000        ST      4,    0(  1, 15)



C 0000FE50    41400001        LA      4,    1(  0,  0)
C 0000FE54    41100003        LA      1,    3(  0,  0)
C 0000FE58    41307048        LA      3,   72(  0,  7)
C 0000FE5C    45F0C05C        BAL    15,   92(  0, 12)
C 0000FE60    5041F000        ST      4,    0(  1, 15)


  2940                191:     B(1)=32;B(2)=1;->110

C 0000FE64    41400020        LA      4,   32(  0,  0)
C 0000FE68    41100001        LA      1,    1(  0,  0)
C 0000FE6C    41307048        LA      3,   72(  0,  7)
C 0000FE70    45F0C05C        BAL    15,   92(  0, 12)
C 0000FE74    5041F000        ST      4,    0(  1, 15)



C 0000FE78    41400001        LA      4,    1(  0,  0)
C 0000FE7C    41100002        LA      1,    2(  0,  0)
C 0000FE80    41307048        LA      3,   72(  0,  7)
C 0000FE84    45F0C05C        BAL    15,   92(  0, 12)
C 0000FE88    5041F000        ST      4,    0(  1, 15)



C 0000FE8C    47F0A550        BC     15, 1360(  0, 10)


  2941                SW(20):                                ! PRINTFL
  2942                         QPREAL=N0<<2+4

C 0000FE90    58109088        L       1,  136(  0,  9)
C 0000FE94    89100002        SLL     1,    2(  0)
C 0000FE98    41200004        LA      2,    4(  0,  0)
C 0000FE9C    1A12            AR      1,  2
C 0000FE9E    50109074        ST      1,  116(  0,  9)


  2943                         B(0)=2;->191

C 0000FEA2    41400002        LA      4,    2(  0,  0)
C 0000FEA6    1F11            SLR     1,  1
C 0000FEA8    41307048        LA      3,   72(  0,  7)
C 0000FEAC    45F0C05C        BAL    15,   92(  0, 12)
C 0000FEB0    5041F000        ST      4,    0(  1, 15)



C 0000FEB4    47F0A7FE        BC     15, 2046(  0, 10)


  2944                SW(39):  JJ=11032; ->210;              ! LONGREAL

C 0000FEB8    5810D5C4        L       1, 1476(  0, 13)
C 0000FEBC    50107068        ST      1,  104(  0,  7)



C 0000FEC0    0000
C 0000FEC2    0000
C 0000FEC4    47FA0000        BC     15,    0( 10,  0)


  2945                SW(21):  JJ=11002;                     ! REAL

C 0000FEC8    5810D5C8        L       1, 1480(  0, 13)
C 0000FECC    50107068        ST      1,  104(  0,  7)


  2946                210:     CSEXP(0,1); P=P+1

C 0000FED0    1F11            SLR     1,  1
C 0000FED2    5010B040        ST      1,   64(  0, 11)
C 0000FED6    9201B047        MVI     71( 11),  1
C 0000FEDA    5810D37C        L       1,  892(  0, 13)
C 0000FEDE    45F0D074        BAL    15,  116(  0, 13)



C 0000FEE2    41100001        LA      1,    1(  0,  0)
C 0000FEE6    5A108040        A       1,   64(  0,  8)
C 0000FEEA    50108040        ST      1,   64(  0,  8)


  2947                         ->212 %UNLESS NEST=0

C 0000FEEE    5810912C        L       1,  300(  0,  9)
C 0000FEF2    1211            LTR     1,  1
C 0000FEF4    0000
C 0000FEF6    0000
C 0000FEF8    477A0000        BC      7,    0( 10,  0)


  2948                         PLANT(X'1810'); NEST=1

C 0000FEFC    5810D5CC        L       1, 1484(  0, 13)
C 0000FF00    5010B040        ST      1,   64(  0, 11)
C 0000FF04    5810D1CC        L       1,  460(  0, 13)
C 0000FF08    45F0D074        BAL    15,  116(  0, 13)



C 0000FF0C    41100001        LA      1,    1(  0,  0)
C 0000FF10    5010912C        ST      1,  300(  0,  9)


  2949                212:     PTYPE=JJ; UNPACK; ->99

C 0000FF14    D20380987068    MVC    152(  4,  8),  104(  7)



C 0000FF1A    5810D448        L       1, 1096(  0, 13)
C 0000FF1E    45F0D074        BAL    15,  116(  0, 13)



C 0000FF22    0000
C 0000FF24    0000
C 0000FF26    47FA0000        BC     15,    0( 10,  0)


  2950                SW(22):  JJ=11001; ->210;              ! INTEGER

C 0000FF2A    5810D5D0        L       1, 1488(  0, 13)
C 0000FF2E    50107068        ST      1,  104(  0,  7)



C 0000FF32    47F0A86A        BC     15, 2154(  0, 10)


  2951                SW(23):  CSEXP(REG,3);                 ! MOD

C 0000FF36    D203B0407044    MVC     64(  4, 11),   68(  7)
C 0000FF3C    9203B047        MVI     71( 11),  3
C 0000FF40    5810D37C        L       1,  892(  0, 13)
C 0000FF44    45F0D074        BAL    15,  116(  0, 13)


  2952                         PRR(X'20',REG,REG); ->99;     ! LPDR

C 0000FF48    41100020        LA      1,   32(  0,  0)
C 0000FF4C    5010B040        ST      1,   64(  0, 11)
C 0000FF50    D203B0447044    MVC     68(  4, 11),   68(  7)
C 0000FF56    D203B0487044    MVC     72(  4, 11),   68(  7)
C 0000FF5C    5810D1D0        L       1,  464(  0, 13)
C 0000FF60    45F0D074        BAL    15,  116(  0, 13)



C 0000FF64    0000
C 0000FF66    0000
C 0000FF68    47FA0000        BC     15,    0( 10,  0)


  2953                SW(25):SW(26):SW(27):                  ! SQRT,LOG,SIN
  2954                SW(28):SW(29):SW (30):                 ! COS,TAN,EXP
  2955                         B(0)=1

C 0000FF6C    41400001        LA      4,    1(  0,  0)
C 0000FF70    1F11            SLR     1,  1
C 0000FF72    41307048        LA      3,   72(  0,  7)
C 0000FF76    45F0C05C        BAL    15,   92(  0, 12)
C 0000FF7A    5041F000        ST      4,    0(  1, 15)


  2956                301:     B(1)=32;JJ=10032;

C 0000FF7E    41400020        LA      4,   32(  0,  0)
C 0000FF82    41100001        LA      1,    1(  0,  0)
C 0000FF86    41307048        LA      3,   72(  0,  7)
C 0000FF8A    45F0C05C        BAL    15,   92(  0, 12)
C 0000FF8E    5041F000        ST      4,    0(  1, 15)



C 0000FF92    5810D5D4        L       1, 1492(  0, 13)
C 0000FF96    50107068        ST      1,  104(  0,  7)


  2957                         ->1004 %IF 2#Z#13

C 0000FF9A    58107040        L       1,   64(  0,  7)
C 0000FF9E    41200002        LA      2,    2(  0,  0)
C 0000FFA2    1921            CR      2,  1
C 0000FFA4    478A094C        BC      8, 2380( 10,  0)
C 0000FFA8    4120000D        LA      2,   13(  0,  0)
C 0000FFAC    1912            CR      1,  2
C 0000FFAE    4770A24A        BC      7,  586(  0, 10)


  2958                302:     REDEFINE EP(JJ,B)

C 0000FFB2    D203B0407068    MVC     64(  4, 11),  104(  7)
C 0000FFB8    98037048        LM      0,  3,   72(  7)
C 0000FFBC    9003B044        STM     0,  3,   68( 11)
C 0000FFC0    5810D338        L       1,  824(  0, 13)
C 0000FFC4    45F0D074        BAL    15,  116(  0, 13)


  2959                         CNAME(Z,REG);P=P-2;->99

C 0000FFC8    D203B0407040    MVC     64(  4, 11),   64(  7)
C 0000FFCE    D203B0447044    MVC     68(  4, 11),   68(  7)
C 0000FFD4    5810D3C4        L       1,  964(  0, 13)
C 0000FFD8    45F0D074        BAL    15,  116(  0, 13)



C 0000FFDC    58108040        L       1,   64(  0,  8)
C 0000FFE0    0610            BCTR    1,  0
C 0000FFE2    0610            BCTR    1,  0
C 0000FFE4    50108040        ST      1,   64(  0,  8)



C 0000FFE8    0000
C 0000FFEA    0000
C 0000FFEC    47FA0000        BC     15,    0( 10,  0)


  2960                SW(31):  ! MAP RECORD
  2961                         CSEXP(REG,1); FAULT(84) %UNLESS Z=15

C 0000FFF0    D203B0407044    MVC     64(  4, 11),   68(  7)
C 0000FFF6    9201B047        MVI     71( 11),  1
C 0000FFFA    5810D37C        L       1,  892(  0, 13)
C 0000FFFE    45F0D074        BAL    15,  116(  0, 13)



C 00010002    4110000F        LA      1,   15(  0,  0)
C 00010006    59107040        C       1,   64(  0,  7)
C 0001000A    478A09B4        BC      8, 2484( 10,  0)
C 0001000E    9254B043        MVI     67( 11), 84
C 00010012    5810D228        L       1,  552(  0, 13)
C 00010016    45F0D074        BAL    15,  116(  0, 13)


  2962                         PTYPE=3; UNPACK

C 0001001A    41100003        LA      1,    3(  0,  0)
C 0001001E    50108098        ST      1,  152(  0,  8)



C 00010022    5810D448        L       1, 1096(  0, 13)
C 00010026    45F0D074        BAL    15,  116(  0, 13)


  2963                         ->99

C 0001002A    0000
C 0001002C    0000
C 0001002E    47FA0000        BC     15,    0( 10,  0)


  2964                SW(32):  JJ=11011; ->210;              ! BYTEINTEGER

C 00010032    5810D5D8        L       1, 1496(  0, 13)
C 00010036    50107068        ST      1,  104(  0,  7)



C 0001003A    47F0A86A        BC     15, 2154(  0, 10)


  2965                SW(33):  JJ=11021; ->210;              ! SHORT INTEGER

C 0001003E    5810D5DC        L       1, 1500(  0, 13)
C 00010042    50107068        ST      1,  104(  0,  7)



C 00010046    47F0A86A        BC     15, 2154(  0, 10)


  2966                SW(34):SW(35):                         !RADIUS & ARCTAN
  2967                         B(0)=2; B(2)=32; ->301

C 0001004A    41400002        LA      4,    2(  0,  0)
C 0001004E    1F11            SLR     1,  1
C 00010050    41307048        LA      3,   72(  0,  7)
C 00010054    45F0C05C        BAL    15,   92(  0, 12)
C 00010058    5041F000        ST      4,    0(  1, 15)



C 0001005C    41400020        LA      4,   32(  0,  0)
C 00010060    41100002        LA      1,    2(  0,  0)
C 00010064    41307048        LA      3,   72(  0,  7)
C 00010068    45F0C05C        BAL    15,   92(  0, 12)
C 0001006C    5041F000        ST      4,    0(  1, 15)



C 00010070    47F0A918        BC     15, 2328(  0, 10)


  2968                SW(36):                                ! %INTEGERFN PARITY
  2969                               CSEXP(REG,1)

C 00010074    D203B0407044    MVC     64(  4, 11),   68(  7)
C 0001007A    9201B047        MVI     71( 11),  1
C 0001007E    5810D37C        L       1,  892(  0, 13)
C 00010082    45F0D074        BAL    15,  116(  0, 13)


  2970                               PRX(X'89',REG,0,0,31);  ! SLL REL,31

C 00010086    41100089        LA      1,  137(  0,  0)
C 0001008A    5010B040        ST      1,   64(  0, 11)
C 0001008E    D203B0447044    MVC     68(  4, 11),   68(  7)
C 00010094    1F11            SLR     1,  1
C 00010096    5010B048        ST      1,   72(  0, 11)
C 0001009A    1F11            SLR     1,  1
C 0001009C    5010B04C        ST      1,   76(  0, 11)
C 000100A0    4110001F        LA      1,   31(  0,  0)
C 000100A4    5010B050        ST      1,   80(  0, 11)
C 000100A8    5810D1C0        L       1,  448(  0, 13)
C 000100AC    45F0D074        BAL    15,  116(  0, 13)


  2971                               PRX(X'8A',REG,0,0,30);  ! SRA REG,30

C 000100B0    4110008A        LA      1,  138(  0,  0)
C 000100B4    5010B040        ST      1,   64(  0, 11)
C 000100B8    D203B0447044    MVC     68(  4, 11),   68(  7)
C 000100BE    1F11            SLR     1,  1
C 000100C0    5010B048        ST      1,   72(  0, 11)
C 000100C4    1F11            SLR     1,  1
C 000100C6    5010B04C        ST      1,   76(  0, 11)
C 000100CA    4110001E        LA      1,   30(  0,  0)
C 000100CE    5010B050        ST      1,   80(  0, 11)
C 000100D2    5810D1C0        L       1,  448(  0, 13)
C 000100D6    45F0D074        BAL    15,  116(  0, 13)


  2972                               PRX(X'5B',REG,0,GLA,16);! S_REG,,=F'-1'

C 000100DA    4110005B        LA      1,   91(  0,  0)
C 000100DE    5010B040        ST      1,   64(  0, 11)
C 000100E2    D203B0447044    MVC     68(  4, 11),   68(  7)
C 000100E8    1F11            SLR     1,  1
C 000100EA    5010B048        ST      1,   72(  0, 11)
C 000100EE    D203B04CD150    MVC     76(  4, 11),  336( 13)
C 000100F4    41100010        LA      1,   16(  0,  0)
C 000100F8    5010B050        ST      1,   80(  0, 11)
C 000100FC    5810D1C0        L       1,  448(  0, 13)
C 00010100    45F0D074        BAL    15,  116(  0, 13)


  2973                         ->99

C 00010104    0000
C 00010106    0000
C 00010108    47FA0000        BC     15,    0( 10,  0)


  2974                SW(37):  CSTREXP(1); CIOCP(7); ->99;   ! PRINT STRING

C 0001010C    41100001        LA      1,    1(  0,  0)
C 00010110    5010B040        ST      1,   64(  0, 11)
C 00010114    5810D380        L       1,  896(  0, 13)
C 00010118    45F0D074        BAL    15,  116(  0, 13)



C 0001011C    41100007        LA      1,    7(  0,  0)
C 00010120    5010B040        ST      1,   64(  0, 11)
C 00010124    5810D33C        L       1,  828(  0, 13)
C 00010128    45F0D074        BAL    15,  116(  0, 13)



C 0001012C    0000
C 0001012E    0000
C 00010130    47FA0000        BC     15,    0( 10,  0)


  2975                SW(38):  PRX(X'41',REG,0,0,10); ->82

C 00010134    41100041        LA      1,   65(  0,  0)
C 00010138    5010B040        ST      1,   64(  0, 11)
C 0001013C    D203B0447044    MVC     68(  4, 11),   68(  7)
C 00010142    1F11            SLR     1,  1
C 00010144    5010B048        ST      1,   72(  0, 11)
C 00010148    1F11            SLR     1,  1
C 0001014A    5010B04C        ST      1,   76(  0, 11)
C 0001014E    4110000A        LA      1,   10(  0,  0)
C 00010152    5010B050        ST      1,   80(  0, 11)
C 00010156    5810D1C0        L       1,  448(  0, 13)
C 0001015A    45F0D074        BAL    15,  116(  0, 13)



C 0001015E    47F0A3D6        BC     15,  982(  0, 10)


  2976                SW(40):                                ! PRINTCH
  2977                         CSEXP(1,1); CIOCP(5); ->99

C 00010162    41100001        LA      1,    1(  0,  0)
C 00010166    5010B040        ST      1,   64(  0, 11)
C 0001016A    9201B047        MVI     71( 11),  1
C 0001016E    5810D37C        L       1,  892(  0, 13)
C 00010172    45F0D074        BAL    15,  116(  0, 13)



C 00010176    41100005        LA      1,    5(  0,  0)
C 0001017A    5010B040        ST      1,   64(  0, 11)
C 0001017E    5810D33C        L       1,  828(  0, 13)
C 00010182    45F0D074        BAL    15,  116(  0, 13)



C 00010186    0000
C 00010188    0000
C 0001018A    47FA0000        BC     15,    0( 10,  0)


  2978                SW(41):                                ! READ CH
  2979                         CIOCP(4); ->106

C 0001018E    41100004        LA      1,    4(  0,  0)
C 00010192    5010B040        ST      1,   64(  0, 11)
C 00010196    5810D33C        L       1,  828(  0, 13)
C 0001019A    45F0D074        BAL    15,  116(  0, 13)



C 0001019E    47F0A3FE        BC     15, 1022(  0, 10)


  2980                SW(42):  JJ=11005; ->210;              ! STRING

C 000101A2    5810D5E0        L       1, 1504(  0, 13)
C 000101A6    50107068        ST      1,  104(  0,  7)



C 000101AA    47F0A86A        BC     15, 2154(  0, 10)


  2981                99:      %END
D 00000DAC    C2 C2 C2 C2 0B 26 07 06 43 53 4E 41 4D 45 00 00 01 70 68 02 4A 4A A6 C0 01 70 64 01 56 00 00 00 01 70 60 02 50 50 A6 F0 01 70 5C 02 4B 4B A6 F8 01 70 58 02 50 4C 00 01 01 70 44 03 52 45 47 74 01 70 40 01 5A 01 87 74 FF FF FF FF


C 000101AE    D203D0147000    MVC     20(  4, 13),    0(  7)
C 000101B4    984F7010        LM      4, 15,   16(  7)
C 000101B8    07FF            BCR    15, 15


  2982                     %ROUTINE     CIOCP(%INTEGER N)

C 000101BA    0000
C 000101BC    0000
C 000101BE    47FA0000        BC     15,    0( 10,  0)
C 000101C2    50F0B03C        ST     15,   60(  0, 11)
C 000101C6    D203B000D014    MVC      0(  4, 11),   20( 13)
C 000101CC    41000BA6        LA      0, 2982(  0,  0)
C 000101D0    4000D014        STH     0,   20(  0, 13)
C 000101D4    187B            LR      7, 11
C 000101D6    41BB0000        LA     11,    0( 11,  0)
C 000101DA    41000004        LA      0,    4(  0,  0)
C 000101DE    59BD0044        C      11,   68( 13,  0)
C 000101E2    4720C054        BC      2,   84(  0, 12)
C 000101E6    05A0            BALR   10,  0


  2983                         PRX(X'41',0,0,0,N);           ! LA 0,N

C 000101E8    41100041        LA      1,   65(  0,  0)
C 000101EC    5010B040        ST      1,   64(  0, 11)
C 000101F0    1F11            SLR     1,  1
C 000101F2    5010B044        ST      1,   68(  0, 11)
C 000101F6    1F11            SLR     1,  1
C 000101F8    5010B048        ST      1,   72(  0, 11)
C 000101FC    1F11            SLR     1,  1
C 000101FE    5010B04C        ST      1,   76(  0, 11)
C 00010202    D203B0507040    MVC     80(  4, 11),   64(  7)
C 00010208    5810D1C0        L       1,  448(  0, 13)
C 0001020C    45F0D074        BAL    15,  116(  0, 13)


  2984                         PRX(X'90',4,1,11,16);         ! STM 4,1,16(11)

C 00010210    41100090        LA      1,  144(  0,  0)
C 00010214    5010B040        ST      1,   64(  0, 11)
C 00010218    41100004        LA      1,    4(  0,  0)
C 0001021C    5010B044        ST      1,   68(  0, 11)
C 00010220    41100001        LA      1,    1(  0,  0)
C 00010224    5010B048        ST      1,   72(  0, 11)
C 00010228    4110000B        LA      1,   11(  0,  0)
C 0001022C    5010B04C        ST      1,   76(  0, 11)
C 00010230    41100010        LA      1,   16(  0,  0)
C 00010234    5010B050        ST      1,   80(  0, 11)
C 00010238    5810D1C0        L       1,  448(  0, 13)
C 0001023C    45F0D074        BAL    15,  116(  0, 13)


  2985                         PRX(X'98',12,14,GLA,140);     ! LM 12,14,=V(IOCP)

C 00010240    41100098        LA      1,  152(  0,  0)
C 00010244    5010B040        ST      1,   64(  0, 11)
C 00010248    4110000C        LA      1,   12(  0,  0)
C 0001024C    5010B044        ST      1,   68(  0, 11)
C 00010250    4110000E        LA      1,   14(  0,  0)
C 00010254    5010B048        ST      1,   72(  0, 11)
C 00010258    D203B04CD150    MVC     76(  4, 11),  336( 13)
C 0001025E    4110008C        LA      1,  140(  0,  0)
C 00010262    5010B050        ST      1,   80(  0, 11)
C 00010266    5810D1C0        L       1,  448(  0, 13)
C 0001026A    45F0D074        BAL    15,  116(  0, 13)


  2986                         PRR(X'05',15,14);             ! BALR 15,14

C 0001026E    41100005        LA      1,    5(  0,  0)
C 00010272    5010B040        ST      1,   64(  0, 11)
C 00010276    4110000F        LA      1,   15(  0,  0)
C 0001027A    5010B044        ST      1,   68(  0, 11)
C 0001027E    4110000E        LA      1,   14(  0,  0)
C 00010282    5010B048        ST      1,   72(  0, 11)
C 00010286    5810D1D0        L       1,  464(  0, 13)
C 0001028A    45F0D074        BAL    15,  116(  0, 13)


  2987                         R13=0

C 0001028E    1F11            SLR     1,  1
C 00010290    501090BC        ST      1,  188(  0,  9)


  2988                         %END
D 00000DF8    C2 C2 C2 C2 0B A6 07 05 43 49 4F 43 50 45 00 00 01 70 40 01 4E 4A A6 C0 FF FF FF FF


C 00010294    D203D0147000    MVC     20(  4, 13),    0(  7)
C 0001029A    984F7010        LM      4, 15,   16(  7)
C 0001029E    07FF            BCR    15, 15


  2989                     %ROUTINE     CANAME(%INTEGER Z,BS,DP,CLINK,BSRF,DPRF)

C 000102A0    0000
C 000102A2    0000
C 000102A4    47FA0000        BC     15,    0( 10,  0)
C 000102A8    50F0B03C        ST     15,   60(  0, 11)
C 000102AC    D203B000D014    MVC      0(  4, 11),   20( 13)
C 000102B2    41000BAD        LA      0, 2989(  0,  0)
C 000102B6    4000D014        STH     0,   20(  0, 13)
C 000102BA    187B            LR      7, 11
C 000102BC    41BB0000        LA     11,    0( 11,  0)
C 000102C0    41000004        LA      0,    4(  0,  0)
C 000102C4    59BD0044        C      11,   68( 13,  0)
C 000102C8    4720C054        BC      2,   84(  0, 12)
C 000102CC    05A0            BALR   10,  0


  2990                         ! BS& DP FOR ARRAY HEAD BSRF & DPRF POINT TO MULTIPLIER
  2991                         ! IN RECORD FORMAT FOR RECORD ARRAYS LINK POINTS TO LP CELL HOLDING
  2992                         ! DIMENSION OF ARRAY IN CASE THIS HAS TO BE DEDUCED & INSERTED
  2993                         %SHORTROUTINE
  2994                         %SWITCH S(0:3)

C 000102CE    0700            BCR     0,  0
C 000102D0    47FA0000        BC     15,    0( 10,  0)
C 000102D4    0200
C 000102D6    0000
C 000102D8    0000
C 000102DA    0003
C 000102DC    0000
C 000102DE    0000
C 000102E0    0000
C 000102E2    0000
C 000102E4    0000
C 000102E6    0000


  2995                         %INTEGER PTYPEP,KK,RR,PP,JJ,JJJ
  2996                         %INTEGER KKK,DIS,Q,PRECP,CHECKSP
  2997                         %INTEGER BASEREG,ARRP,BASIC DISP
  2998                         CHECKSP=CHECKS; CHECKSP=1 %IF TYPE=0; ! NO TYPE MUST GO TO PERM

C 000102E8    1F11            SLR     1,  1
C 000102EA    431090CA        IC      1,  202(  0,  9)
C 000102EE    50107080        ST      1,  128(  0,  7)



C 000102F2    95008094        CLI    148(  8),  0
C 000102F6    477A0034        BC      7,   52( 10,  0)
C 000102FA    41100001        LA      1,    1(  0,  0)
C 000102FE    50107080        ST      1,  128(  0,  7)


  2999                         PP=P; BASEREG=LINK

C 00010302    D20370648040    MVC    100(  4,  7),   64(  8)



C 00010308    D2037084D148    MVC    132(  4,  7),  328( 13)


  3000                         %IF INREG#0 %THEN %START

C 0001030E    581080AC        L       1,  172(  0,  8)
C 00010312    1211            LTR     1,  1
C 00010314    478A0000        BC      8,    0( 10,  0)


  3001                         CHECKSP=0 %IF TYPE#0; BASEREG=INREG

C 00010318    95008094        CLI    148(  8),  0
C 0001031C    478A0058        BC      8,   88( 10,  0)
C 00010320    1F11            SLR     1,  1
C 00010322    50107080        ST      1,  128(  0,  7)



C 00010326    D203708480AC    MVC    132(  4,  7),  172(  8)


  3002                         %FINISH
  3003                         JJ=J; PTYPEP=PTYPE

C 0001032C    D203706880A0    MVC    104(  4,  7),  160(  8)



C 00010332    D20370588098    MVC     88(  4,  7),  152(  8)


  3004                         ARRP=ARR

C 00010338    1F11            SLR     1,  1
C 0001033A    43108092        IC      1,  146(  0,  8)
C 0001033E    50107088        ST      1,  136(  0,  7)


  3005                         Q=COUNT APS; ->1 %UNLESS JJ=0

C 00010342    5810D390        L       1,  912(  0, 13)
C 00010346    45F0D074        BAL    15,  116(  0, 13)
C 0001034A    50107078        ST      1,  120(  0,  7)



C 0001034E    58107068        L       1,  104(  0,  7)
C 00010352    1211            LTR     1,  1
C 00010354    477A0000        BC      7,    0( 10,  0)


  3006                         FROM1(CLINK,JJ)

C 00010358    D203B040704C    MVC     64(  4, 11),   76(  7)
C 0001035E    41107068        LA      1,  104(  0,  7)
C 00010362    5010B044        ST      1,   68(  0, 11)
C 00010366    5810D3FC        L       1, 1020(  0, 13)
C 0001036A    45F0D074        BAL    15,  116(  0, 13)


  3007                         REPLACE1(CLINK,JJ!Q); JJ=Q

C 0001036E    D203B040704C    MVC     64(  4, 11),   76(  7)
C 00010374    58107068        L       1,  104(  0,  7)
C 00010378    56107078        O       1,  120(  0,  7)
C 0001037C    5010B044        ST      1,   68(  0, 11)
C 00010380    5810D3F0        L       1, 1008(  0, 13)
C 00010384    45F0D074        BAL    15,  116(  0, 13)



C 00010388    D20370687078    MVC    104(  4,  7),  120(  7)


  3008                1:       ->4 %IF JJ=Q#0

C 0001038E    58107078        L       1,  120(  0,  7)
C 00010392    59107068        C       1,  104(  0,  7)
C 00010396    477A00D2        BC      7,  210( 10,  0)
C 0001039A    1211            LTR     1,  1
C 0001039C    477A0000        BC      7,    0( 10,  0)


  3009                         FAULT(19); PRINTNAME(FNAME)

C 000103A0    9213B043        MVI     67( 11), 19
C 000103A4    5810D228        L       1,  552(  0, 13)
C 000103A8    45F0D074        BAL    15,  116(  0, 13)



C 000103AC    D203B0409130    MVC     64(  4, 11),  304(  9)
C 000103B2    5810D230        L       1,  560(  0, 13)
C 000103B6    45F0D074        BAL    15,  116(  0, 13)


  3010                         P=P+1; SKIP APP; ->99

C 000103BA    41100001        LA      1,    1(  0,  0)
C 000103BE    5A108040        A       1,   64(  0,  8)
C 000103C2    50108040        ST      1,   64(  0,  8)



C 000103C6    5810D39C        L       1,  924(  0, 13)
C 000103CA    45F0D074        BAL    15,  116(  0, 13)



C 000103CE    47FA0000        BC     15,    0( 10,  0)


  3011                4:
  3012                         %IF ARRP=2 %THEN FROM LIST(K,BASIC DISP,DP)

C 000103D2    41100002        LA      1,    2(  0,  0)
C 000103D6    59107088        C       1,  136(  0,  7)
C 000103DA    477A012E        BC      7,  302( 10,  0)
C 000103DE    D203B04080A4    MVC     64(  4, 11),  164(  8)
C 000103E4    4110708C        LA      1,  140(  0,  7)
C 000103E8    5010B044        ST      1,   68(  0, 11)
C 000103EC    41107048        LA      1,   72(  0,  7)
C 000103F0    5010B048        ST      1,   72(  0, 11)
C 000103F4    5810D3D8        L       1,  984(  0, 13)
C 000103F8    45F0D074        BAL    15,  116(  0, 13)


  3013                         ->12 %UNLESS CHECKSP=0 %AND JJ=1 %AND Z#3

C 000103FC    58107080        L       1,  128(  0,  7)
C 00010400    1211            LTR     1,  1
C 00010402    477A0000        BC      7,    0( 10,  0)
C 00010406    41100001        LA      1,    1(  0,  0)
C 0001040A    59107068        C       1,  104(  0,  7)
C 0001040E    477A0000        BC      7,    0( 10,  0)
C 00010412    41100003        LA      1,    3(  0,  0)
C 00010416    59107040        C       1,   64(  0,  7)
C 0001041A    478A0000        BC      8,    0( 10,  0)


  3014                         ->12 %UNLESS 2>=TYPE

C 0001041E    1F11            SLR     1,  1
C 00010420    43108094        IC      1,  148(  0,  8)
C 00010424    41200002        LA      2,    2(  0,  0)
C 00010428    1921            CR      2,  1
C 0001042A    475A0000        BC      5,    0( 10,  0)


  3015                         PRECP=PREC; KKK=0; P=PP+2; JJJ=TSEXP(KKK)

C 0001042E    1F11            SLR     1,  1
C 00010430    43108093        IC      1,  147(  0,  8)
C 00010434    5010707C        ST      1,  124(  0,  7)



C 00010438    1F11            SLR     1,  1
C 0001043A    50107070        ST      1,  112(  0,  7)



C 0001043E    41100002        LA      1,    2(  0,  0)
C 00010442    5A107064        A       1,  100(  0,  7)
C 00010446    50108040        ST      1,   64(  0,  8)



C 0001044A    41107070        LA      1,  112(  0,  7)
C 0001044E    5010B040        ST      1,   64(  0, 11)
C 00010452    5810D478        L       1, 1144(  0, 13)
C 00010456    45F0D074        BAL    15,  116(  0, 13)
C 0001045A    5010706C        ST      1,  108(  0,  7)


  3016                         %IF 3<=JJJ<=99 %THEN DIS=0 %ELSE DIS=KKK*BYTES(PRECP)

C 0001045E    5810706C        L       1,  108(  0,  7)
C 00010462    41200003        LA      2,    3(  0,  0)
C 00010466    1921            CR      2,  1
C 00010468    473A01B2        BC      3,  434( 10,  0)
C 0001046C    41200063        LA      2,   99(  0,  0)
C 00010470    1912            CR      1,  2
C 00010472    473A01B2        BC      3,  434( 10,  0)
C 00010476    1F11            SLR     1,  1
C 00010478    50107074        ST      1,  116(  0,  7)
C 0001047C    47FA01CE        BC     15,  462( 10,  0)
C 00010480    5810707C        L       1,  124(  0,  7)
C 00010484    4130D108        LA      3,  264(  0, 13)
C 00010488    45F0C05C        BAL    15,   92(  0, 12)
C 0001048C    1F66            SLR     6,  6
C 0001048E    4361F000        IC      6,    0(  1, 15)
C 00010492    58107070        L       1,  112(  0,  7)
C 00010496    1C06            MR      0,  6
C 00010498    50107074        ST      1,  116(  0,  7)


  3017                         ->12 %IF DIS>4095 %OR (ARRP=2 %AND DIS+BASIC DISP>4095)

C 0001049C    41100FFF        LA      1, 4095(  0,  0)
C 000104A0    59107074        C       1,  116(  0,  7)
C 000104A4    474A0000        BC      4,    0( 10,  0)
C 000104A8    41100002        LA      1,    2(  0,  0)
C 000104AC    59107088        C       1,  136(  0,  7)
C 000104B0    477A01F8        BC      7,  504( 10,  0)
C 000104B4    58107074        L       1,  116(  0,  7)
C 000104B8    5A10708C        A       1,  140(  0,  7)
C 000104BC    41200FFF        LA      2, 4095(  0,  0)
C 000104C0    1912            CR      1,  2
C 000104C2    472A0000        BC      2,    0( 10,  0)


  3018                         ->REGVAR %IF JJJ=50 %AND PRECP=1

C 000104C6    41100032        LA      1,   50(  0,  0)
C 000104CA    5910706C        C       1,  108(  0,  7)
C 000104CE    477A0210        BC      7,  528( 10,  0)
C 000104D2    41100001        LA      1,    1(  0,  0)
C 000104D6    5910707C        C       1,  124(  0,  7)
C 000104DA    478A0000        BC      8,    0( 10,  0)


  3019                         ->RDISP %IF JJJ=101

C 000104DE    41100065        LA      1,  101(  0,  0)
C 000104E2    5910706C        C       1,  108(  0,  7)
C 000104E6    478A0000        BC      8,    0( 10,  0)


  3020                         ->CONST %IF 1<=JJJ<=2

C 000104EA    5810706C        L       1,  108(  0,  7)
C 000104EE    41200001        LA      2,    1(  0,  0)
C 000104F2    1921            CR      2,  1
C 000104F4    473A0234        BC      3,  564( 10,  0)
C 000104F8    41200002        LA      2,    2(  0,  0)
C 000104FC    1912            CR      1,  2
C 000104FE    47CA0000        BC     12,    0( 10,  0)


  3021                         ->12 %UNLESS JJJ=100

C 00010502    41100064        LA      1,  100(  0,  0)
C 00010506    5910706C        C       1,  108(  0,  7)
C 0001050A    477A0000        BC      7,    0( 10,  0)


  3022                         DUMP(2+2*PREC,1,K,0,I); P=P+1; ->9

C 0001050E    1F11            SLR     1,  1
C 00010510    43108093        IC      1,  147(  0,  8)
C 00010514    1A11            AR      1,  1
C 00010516    41200002        LA      2,    2(  0,  0)
C 0001051A    1A12            AR      1,  2
C 0001051C    5010B040        ST      1,   64(  0, 11)
C 00010520    41100001        LA      1,    1(  0,  0)
C 00010524    5010B044        ST      1,   68(  0, 11)
C 00010528    D203B04880A4    MVC     72(  4, 11),  164(  8)
C 0001052E    1F11            SLR     1,  1
C 00010530    5010B04C        ST      1,   76(  0, 11)
C 00010534    D203B050809C    MVC     80(  4, 11),  156(  8)
C 0001053A    5810D458        L       1, 1112(  0, 13)
C 0001053E    45F0D074        BAL    15,  116(  0, 13)



C 00010542    41100001        LA      1,    1(  0,  0)
C 00010546    5A108040        A       1,   64(  0,  8)
C 0001054A    50108040        ST      1,   64(  0,  8)



C 0001054E    47FA0000        BC     15,    0( 10,  0)


  3023                REGVAR:  JJJ=K; P=P+1; ->8;            !CAN ONLY OPTIMISE BYTES

C 00010552    D203706C80A4    MVC    108(  4,  7),  164(  8)



C 00010558    41100001        LA      1,    1(  0,  0)
C 0001055C    5A108040        A       1,   64(  0,  8)
C 00010560    50108040        ST      1,   64(  0,  8)



C 00010564    47FA0000        BC     15,    0( 10,  0)


  3024                RDISP:   ->REGVAR %IF PRECP=1

C 00010568    41100001        LA      1,    1(  0,  0)
C 0001056C    5910707C        C       1,  124(  0,  7)
C 00010570    4780A284        BC      8,  644(  0, 10)


  3025                         PRR(X'18',1,K); P=P+1; ->9

C 00010574    41100018        LA      1,   24(  0,  0)
C 00010578    5010B040        ST      1,   64(  0, 11)
C 0001057C    41100001        LA      1,    1(  0,  0)
C 00010580    5010B044        ST      1,   68(  0, 11)
C 00010584    D203B04880A4    MVC     72(  4, 11),  164(  8)
C 0001058A    5810D1D0        L       1,  464(  0, 13)
C 0001058E    45F0D074        BAL    15,  116(  0, 13)



C 00010592    41100001        LA      1,    1(  0,  0)
C 00010596    5A108040        A       1,   64(  0,  8)
C 0001059A    50108040        ST      1,   64(  0,  8)



C 0001059E    47FA0000        BC     15,    0( 10,  0)


  3026                12:      P=PP+2; DIS=0

C 000105A2    41100002        LA      1,    2(  0,  0)
C 000105A6    5A107064        A       1,  100(  0,  7)
C 000105AA    50108040        ST      1,   64(  0,  8)



C 000105AE    1F11            SLR     1,  1
C 000105B0    50107074        ST      1,  116(  0,  7)


  3027                         ->21 %UNLESS JJ=1

C 000105B4    41100001        LA      1,    1(  0,  0)
C 000105B8    59107068        C       1,  104(  0,  7)
C 000105BC    477A0000        BC      7,    0( 10,  0)


  3028                         CSEXP(1,1);P=P+1

C 000105C0    41100001        LA      1,    1(  0,  0)
C 000105C4    5010B040        ST      1,   64(  0, 11)
C 000105C8    9201B047        MVI     71( 11),  1
C 000105CC    5810D37C        L       1,  892(  0, 13)
C 000105D0    45F0D074        BAL    15,  116(  0, 13)



C 000105D4    41100001        LA      1,    1(  0,  0)
C 000105D8    5A108040        A       1,   64(  0,  8)
C 000105DC    50108040        ST      1,   64(  0,  8)


  3029                         ->10 %IF CHECKSP=1

C 000105E0    41100001        LA      1,    1(  0,  0)
C 000105E4    59107080        C       1,  128(  0,  7)
C 000105E8    478A0000        BC      8,    0( 10,  0)


  3030                9:       JJJ=1

C 000105EC    41100001        LA      1,    1(  0,  0)
C 000105F0    5010706C        ST      1,  108(  0,  7)


  3031                8:       %IF BASEREG#LINK %THEN ->5

C 000105F4    D5037084D148    CLC    132(  4,  7),  328( 13)
C 000105FA    477A0000        BC      7,    0( 10,  0)


  3032                         ->VECTOR %IF ARRP=2

C 000105FE    41100002        LA      1,    2(  0,  0)
C 00010602    59107088        C       1,  136(  0,  7)
C 00010606    478A0000        BC      8,    0( 10,  0)


  3033                         RP13=R13; R13=BS<<12!DP

C 0001060A    D20390C090BC    MVC    192(  4,  9),  188(  9)



C 00010610    58107044        L       1,   68(  0,  7)
C 00010614    8910000C        SLL     1,   12(  0)
C 00010618    56107048        O       1,   72(  0,  7)
C 0001061C    501090BC        ST      1,  188(  0,  9)


  3034                         PRX(X'58',LINK,0,BS,DP) %UNLESS R13=RP13; ! ADDR A0

C 00010620    D50390BC90C0    CLC    188(  4,  9),  192(  9)
C 00010626    478A0384        BC      8,  900( 10,  0)
C 0001062A    41100058        LA      1,   88(  0,  0)
C 0001062E    5010B040        ST      1,   64(  0, 11)
C 00010632    D203B044D148    MVC     68(  4, 11),  328( 13)
C 00010638    1F11            SLR     1,  1
C 0001063A    5010B048        ST      1,   72(  0, 11)
C 0001063E    D203B04C7044    MVC     76(  4, 11),   68(  7)
C 00010644    D203B0507048    MVC     80(  4, 11),   72(  7)
C 0001064A    5810D1C0        L       1,  448(  0, 13)
C 0001064E    45F0D074        BAL    15,  116(  0, 13)


  3035                         ->5

C 00010652    47FA0000        BC     15,    0( 10,  0)


  3036                VECTOR:  DIS=DIS+BASIC DISP; BASEREG=BS

C 00010656    58107074        L       1,  116(  0,  7)
C 0001065A    5A10708C        A       1,  140(  0,  7)
C 0001065E    50107074        ST      1,  116(  0,  7)



C 00010662    D20370847044    MVC    132(  4,  7),   68(  7)


  3037                5:       PTYPE=PTYPEP; UNPACK

C 00010668    D20380987058    MVC    152(  4,  8),   88(  7)



C 0001066E    5810D448        L       1, 1096(  0, 13)
C 00010672    45F0D074        BAL    15,  116(  0, 13)


  3038                         ->6 %IF JJJ=0

C 00010676    5810706C        L       1,  108(  0,  7)
C 0001067A    1211            LTR     1,  1
C 0001067C    478A0000        BC      8,    0( 10,  0)


  3039                         ->STR %IF TYPE=5

C 00010680    95058094        CLI    148(  8),  5
C 00010684    478A0000        BC      8,    0( 10,  0)


  3040                         ->S(PREC) %UNLESS TYPE=3;     ! RECORDS

C 00010688    95038094        CLI    148(  8),  3
C 0001068C    478A03D2        BC      8,  978( 10,  0)
C 00010690    1F11            SLR     1,  1
C 00010692    43108093        IC      1,  147(  0,  8)
C 00010696    1A11            AR      1,  1
C 00010698    4811A00E        LH      1,   14(  1, 10)
C 0001069C    47F1A000        BC     15,    0(  1, 10)


  3041                3:       PRX(X'4C',1,0,BSRF,DPRF); ->6

C 000106A0    4110004C        LA      1,   76(  0,  0)
C 000106A4    5010B040        ST      1,   64(  0, 11)
C 000106A8    41100001        LA      1,    1(  0,  0)
C 000106AC    5010B044        ST      1,   68(  0, 11)
C 000106B0    1F11            SLR     1,  1
C 000106B2    5010B048        ST      1,   72(  0, 11)
C 000106B6    D203B04C7050    MVC     76(  4, 11),   80(  7)
C 000106BC    D203B0507054    MVC     80(  4, 11),   84(  7)
C 000106C2    5810D1C0        L       1,  448(  0, 13)
C 000106C6    45F0D074        BAL    15,  116(  0, 13)



C 000106CA    47FA0000        BC     15,    0( 10,  0)


  3042                STR:     PRX(X'58',2,0,BS,DP+8);       ! ADDR OF DV

C 000106CE    41100058        LA      1,   88(  0,  0)
C 000106D2    5010B040        ST      1,   64(  0, 11)
C 000106D6    41100002        LA      1,    2(  0,  0)
C 000106DA    5010B044        ST      1,   68(  0, 11)
C 000106DE    1F11            SLR     1,  1
C 000106E0    5010B048        ST      1,   72(  0, 11)
C 000106E4    D203B04C7044    MVC     76(  4, 11),   68(  7)
C 000106EA    41100008        LA      1,    8(  0,  0)
C 000106EE    5A107048        A       1,   72(  0,  7)
C 000106F2    5010B050        ST      1,   80(  0, 11)
C 000106F6    5810D1C0        L       1,  448(  0, 13)
C 000106FA    45F0D074        BAL    15,  116(  0, 13)


  3043                         BSRF=2; DPRF=2; ->3

C 000106FE    41100002        LA      1,    2(  0,  0)
C 00010702    50107050        ST      1,   80(  0,  7)



C 00010706    41100002        LA      1,    2(  0,  0)
C 0001070A    50107054        ST      1,   84(  0,  7)



C 0001070E    47F0A3D2        BC     15,  978(  0, 10)


  3044                S(3):                                  !LONG REAL
  3045                S(0):    ! %INTEGER
  3046                               PCONST(X'89100002'! PREC); ->6;   ! SLL 1,2 OR 3

C 00010712    1F11            SLR     1,  1
C 00010714    43108093        IC      1,  147(  0,  8)
C 00010718    5610D5E8        O       1, 1512(  0, 13)
C 0001071C    5010B040        ST      1,   64(  0, 11)
C 00010720    5810D1B4        L       1,  436(  0, 13)
C 00010724    45F0D074        BAL    15,  116(  0, 13)



C 00010728    47FA0000        BC     15,    0( 10,  0)


  3047                S(2):    ! %SHORT
  3048                               PLANT(X'1A11');         ! AR 1,1

C 0001072C    5810D5EC        L       1, 1516(  0, 13)
C 00010730    5010B040        ST      1,   64(  0, 11)
C 00010734    5810D1CC        L       1,  460(  0, 13)
C 00010738    45F0D074        BAL    15,  116(  0, 13)


  3049                S(1):6:  DISP=DIS; INDEX=JJJ; BASE=BASEREG; ->99

C 0001073C    D20380787074    MVC    120(  4,  8),  116(  7)



C 00010742    D2038080706C    MVC    128(  4,  8),  108(  7)



C 00010748    D20380747084    MVC    116(  4,  8),  132(  7)



C 0001074E    47FA0000        BC     15,    0( 10,  0)


  3050                CONST:   JJJ=0; P=P+1;                 ! 1 D WITH A CONSTANT SUFFIX

C 00010752    1F11            SLR     1,  1
C 00010754    5010706C        ST      1,  108(  0,  7)



C 00010758    41100001        LA      1,    1(  0,  0)
C 0001075C    5A108040        A       1,   64(  0,  8)
C 00010760    50108040        ST      1,   64(  0,  8)


  3051                         ->8

C 00010764    47F0A326        BC     15,  806(  0, 10)


  3052                10:      ! 1 DIMENSION PLUS CHECKS
  3053                         DUMP(0,3,DP,0,BS);         ! ADDR ARRAYHEAD

C 00010768    1F11            SLR     1,  1
C 0001076A    5010B040        ST      1,   64(  0, 11)
C 0001076E    41100003        LA      1,    3(  0,  0)
C 00010772    5010B044        ST      1,   68(  0, 11)
C 00010776    D203B0487048    MVC     72(  4, 11),   72(  7)
C 0001077C    1F11            SLR     1,  1
C 0001077E    5010B04C        ST      1,   76(  0, 11)
C 00010782    D203B0507044    MVC     80(  4, 11),   68(  7)
C 00010788    5810D458        L       1, 1112(  0, 13)
C 0001078C    45F0D074        BAL    15,  116(  0, 13)


  3054                         PPJ(22+JJ); JJJ=1;            ! PERM CHECKS BOUNDS AND SHIFTS

C 00010790    41100016        LA      1,   22(  0,  0)
C 00010794    5A107068        A       1,  104(  0,  7)
C 00010798    5010B040        ST      1,   64(  0, 11)
C 0001079C    5810D46C        L       1, 1132(  0, 13)
C 000107A0    45F0D074        BAL    15,  116(  0, 13)



C 000107A4    41100001        LA      1,    1(  0,  0)
C 000107A8    5010706C        ST      1,  108(  0,  7)


  3055                11:      PTYPE=PTYPEP; UNPACK

C 000107AC    D20380987058    MVC    152(  4,  8),   88(  7)



C 000107B2    5810D448        L       1, 1096(  0, 13)
C 000107B6    45F0D074        BAL    15,  116(  0, 13)


  3056                         ->6

C 000107BA    47F0A46E        BC     15, 1134(  0, 10)


  3057                21:      ! TWO DIMENSIONS
  3058                         ->31 %UNLESS JJ=2 %AND CHECKSP=0

C 000107BE    41100002        LA      1,    2(  0,  0)
C 000107C2    59107068        C       1,  104(  0,  7)
C 000107C6    477A0000        BC      7,    0( 10,  0)
C 000107CA    58107080        L       1,  128(  0,  7)
C 000107CE    1211            LTR     1,  1
C 000107D0    477A0000        BC      7,    0( 10,  0)


  3059                         CSEXP(2,1);JJJ=2;P=P+1

C 000107D4    41100002        LA      1,    2(  0,  0)
C 000107D8    5010B040        ST      1,   64(  0, 11)
C 000107DC    9201B047        MVI     71( 11),  1
C 000107E0    5810D37C        L       1,  892(  0, 13)
C 000107E4    45F0D074        BAL    15,  116(  0, 13)



C 000107E8    41100002        LA      1,    2(  0,  0)
C 000107EC    5010706C        ST      1,  108(  0,  7)



C 000107F0    41100001        LA      1,    1(  0,  0)
C 000107F4    5A108040        A       1,   64(  0,  8)
C 000107F8    50108040        ST      1,   64(  0,  8)


  3060                         KK=P;Q=TSEXP(PP);P=KK

C 000107FC    D203705C8040    MVC     92(  4,  7),   64(  8)



C 00010802    41107064        LA      1,  100(  0,  7)
C 00010806    5010B040        ST      1,   64(  0, 11)
C 0001080A    5810D478        L       1, 1144(  0, 13)
C 0001080E    45F0D074        BAL    15,  116(  0, 13)
C 00010812    50107078        ST      1,  120(  0,  7)



C 00010816    D2038040705C    MVC     64(  4,  8),   92(  7)


  3061                         ->22 %UNLESS Q=0

C 0001081C    58107078        L       1,  120(  0,  7)
C 00010820    1211            LTR     1,  1
C 00010822    477A0000        BC      7,    0( 10,  0)


  3062                         JJJ=PARK(2)

C 00010826    41100002        LA      1,    2(  0,  0)
C 0001082A    5010B040        ST      1,   64(  0, 11)
C 0001082E    5810D414        L       1, 1044(  0, 13)
C 00010832    45F0D074        BAL    15,  116(  0, 13)
C 00010836    5010706C        ST      1,  108(  0,  7)


  3063                22:      CSEXP(1,1);P=P+1

C 0001083A    41100001        LA      1,    1(  0,  0)
C 0001083E    5010B040        ST      1,   64(  0, 11)
C 00010842    9201B047        MVI     71( 11),  1
C 00010846    5810D37C        L       1,  892(  0, 13)
C 0001084A    45F0D074        BAL    15,  116(  0, 13)



C 0001084E    41100001        LA      1,    1(  0,  0)
C 00010852    5A108040        A       1,   64(  0,  8)
C 00010856    50108040        ST      1,   64(  0,  8)


  3064                         PRX(X'4C',1,0,BS,DP+14);      ! MH 1,MULTIPLIER

C 0001085A    4110004C        LA      1,   76(  0,  0)
C 0001085E    5010B040        ST      1,   64(  0, 11)
C 00010862    41100001        LA      1,    1(  0,  0)
C 00010866    5010B044        ST      1,   68(  0, 11)
C 0001086A    1F11            SLR     1,  1
C 0001086C    5010B048        ST      1,   72(  0, 11)
C 00010870    D203B04C7044    MVC     76(  4, 11),   68(  7)
C 00010876    4110000E        LA      1,   14(  0,  0)
C 0001087A    5A107048        A       1,   72(  0,  7)
C 0001087E    5010B050        ST      1,   80(  0, 11)
C 00010882    5810D1C0        L       1,  448(  0, 13)
C 00010886    45F0D074        BAL    15,  116(  0, 13)


  3065                         UNPARK(X'5A',1,JJJ);          !ADD 1ST SUFFIX

C 0001088A    4110005A        LA      1,   90(  0,  0)
C 0001088E    5010B040        ST      1,   64(  0, 11)
C 00010892    41100001        LA      1,    1(  0,  0)
C 00010896    5010B044        ST      1,   68(  0, 11)
C 0001089A    D203B048706C    MVC     72(  4, 11),  108(  7)
C 000108A0    5810D430        L       1, 1072(  0, 13)
C 000108A4    45F0D074        BAL    15,  116(  0, 13)


  3066                         ->9

C 000108A8    47F0A31E        BC     15,  798(  0, 10)


  3067                31:      !MULTIDIMENSION - ALWAYS VIA PERM
  3068                         RR=GET ARR WSP

C 000108AC    5810D3B8        L       1,  952(  0, 13)
C 000108B0    45F0D074        BAL    15,  116(  0, 13)
C 000108B4    50107060        ST      1,   96(  0,  7)


  3069                         %CYCLE PP=0,1,JJ-1

C 000108B8    41407064        LA      4,  100(  0,  7)
C 000108BC    41200001        LA      2,    1(  0,  0)
C 000108C0    50207090        ST      2,  144(  0,  7)
C 000108C4    58307068        L       3,  104(  0,  7)
C 000108C8    0630            BCTR    3,  0
C 000108CA    90347094        STM     3,  4,  148(  7)
C 000108CE    1F11            SLR     1,  1
C 000108D0    50104000        ST      1,    0(  0,  4)


  3070                         CSEXP(0,1);P=P+1

C 000108D4    1F11            SLR     1,  1
C 000108D6    5010B040        ST      1,   64(  0, 11)
C 000108DA    9201B047        MVI     71( 11),  1
C 000108DE    5810D37C        L       1,  892(  0, 13)
C 000108E2    45F0D074        BAL    15,  116(  0, 13)



C 000108E6    41100001        LA      1,    1(  0,  0)
C 000108EA    5A108040        A       1,   64(  0,  8)
C 000108EE    50108040        ST      1,   64(  0,  8)


  3071                         DUMP(1,NEST,RR+PP<<2,0,RBASE)

C 000108F2    41100001        LA      1,    1(  0,  0)
C 000108F6    5010B040        ST      1,   64(  0, 11)
C 000108FA    D203B044912C    MVC     68(  4, 11),  300(  9)
C 00010900    58107064        L       1,  100(  0,  7)
C 00010904    89100002        SLL     1,    2(  0)
C 00010908    5A107060        A       1,   96(  0,  7)
C 0001090C    5010B048        ST      1,   72(  0, 11)
C 00010910    1F11            SLR     1,  1
C 00010912    5010B04C        ST      1,   76(  0, 11)
C 00010916    D203B05090F4    MVC     80(  4, 11),  244(  9)
C 0001091C    5810D458        L       1, 1112(  0, 13)
C 00010920    45F0D074        BAL    15,  116(  0, 13)


  3072                         %REPEAT

C 00010924    98247090        LM      2,  4,  144(  7)
C 00010928    58104000        L       1,    0(  0,  4)
C 0001092C    8712A602        BXLE    1,  2, 1538( 10)


  3073                         DUMP(0,1,RR+PP<<2,0,RBASE);   !LA  1,2

C 00010930    1F11            SLR     1,  1
C 00010932    5010B040        ST      1,   64(  0, 11)
C 00010936    41100001        LA      1,    1(  0,  0)
C 0001093A    5010B044        ST      1,   68(  0, 11)
C 0001093E    58107064        L       1,  100(  0,  7)
C 00010942    89100002        SLL     1,    2(  0)
C 00010946    5A107060        A       1,   96(  0,  7)
C 0001094A    5010B048        ST      1,   72(  0, 11)
C 0001094E    1F11            SLR     1,  1
C 00010950    5010B04C        ST      1,   76(  0, 11)
C 00010954    D203B05090F4    MVC     80(  4, 11),  244(  9)
C 0001095A    5810D458        L       1, 1112(  0, 13)
C 0001095E    45F0D074        BAL    15,  116(  0, 13)


  3074                         DUMP(0,2,DP,0,BS)             ;!LA  2,ARRAY HEAD

C 00010962    1F11            SLR     1,  1
C 00010964    5010B040        ST      1,   64(  0, 11)
C 00010968    41100002        LA      1,    2(  0,  0)
C 0001096C    5010B044        ST      1,   68(  0, 11)
C 00010970    D203B0487048    MVC     72(  4, 11),   72(  7)
C 00010976    1F11            SLR     1,  1
C 00010978    5010B04C        ST      1,   76(  0, 11)
C 0001097C    D203B0507044    MVC     80(  4, 11),   68(  7)
C 00010982    5810D458        L       1, 1112(  0, 13)
C 00010986    45F0D074        BAL    15,  116(  0, 13)


  3075                         PPJ(24);JJJ=1;

C 0001098A    9218B043        MVI     67( 11), 24
C 0001098E    5810D46C        L       1, 1132(  0, 13)
C 00010992    45F0D074        BAL    15,  116(  0, 13)



C 00010996    41100001        LA      1,    1(  0,  0)
C 0001099A    5010706C        ST      1,  108(  0,  7)


  3076                         PUSH(MDARR(LEVEL),0,RR)       ;!FREE WORK SPACE

C 0001099E    581090A8        L       1,  168(  0,  9)
C 000109A2    4130924C        LA      3,  588(  0,  9)
C 000109A6    45F0C05C        BAL    15,   92(  0, 12)
C 000109AA    4111F000        LA      1,    0(  1, 15)
C 000109AE    5010B040        ST      1,   64(  0, 11)
C 000109B2    1F11            SLR     1,  1
C 000109B4    5010B044        ST      1,   68(  0, 11)
C 000109B8    D203B0487060    MVC     72(  4, 11),   96(  7)
C 000109BE    5810D3E0        L       1,  992(  0, 13)
C 000109C2    45F0D074        BAL    15,  116(  0, 13)


  3077                         ->11

C 000109C6    47F0A4DE        BC     15, 1246(  0, 10)


  3078                99:      J=JJ; %END

C 000109CA    D20380A07068    MVC    160(  4,  8),  104(  7)


D 00000E14    C2 C2 C2 C2 0B AD 07 06 43 41 4E 41 4D 45 00 00 01 70 8C 08 42 41 53 49 43 44 49 53 01 70 88 04 41 52 52 50 01 70 84 07 42 41 53 45 52 45 47 F8 01 70 80 07 43 48 45 43 4B 53 50 03 01 70 7C 05 50 52 45 43 50 00 00 01 01 70 78 01 51 FE A7 28 01 70 74 03 44 49 53 01 01 70 70 03 4B 4B 4B 32 01 70 6C 03 4A 4A 4A 17 01 70 68 02 4A 4A 05 37 01 70 64 02 50 50 00 00 01 70 60 02 52 52 00 A8 01 70 5C 02 4B 4B 00 58 01 70 58 06 50 54 59 50 45 50 A7 50 01 70 54 04 44 50 52 46 01 70 50 04 42 53 52 46 01 70 4C 05 43 4C 49 4E 4B 00 00 01 01 70 48 02 44 50 00 00 01 70 44 02 42 53 00 41 01 70 40 01 5A 00 00 93 FF FF FF FF


C 000109D0    D203D0147000    MVC     20(  4, 13),    0(  7)
C 000109D6    984F7010        LM      4, 15,   16(  7)
C 000109DA    07FF            BCR    15, 15


  3079                     %ROUTINE     CENAME(%INTEGER Z,MODE,BS,DP)

C 000109DC    0000
C 000109DE    0000
C 000109E0    47FA0000        BC     15,    0( 10,  0)
C 000109E4    50F0B03C        ST     15,   60(  0, 11)
C 000109E8    D203B000D014    MVC      0(  4, 11),   20( 13)
C 000109EE    41000C07        LA      0, 3079(  0,  0)
C 000109F2    4000D014        STH     0,   20(  0, 13)
C 000109F6    187B            LR      7, 11
C 000109F8    41BB0000        LA     11,    0( 11,  0)
C 000109FC    41000004        LA      0,    4(  0,  0)
C 00010A00    59BD0044        C      11,   68( 13,  0)
C 00010A04    4720C054        BC      2,   84(  0, 12)
C 00010A08    05A0            BALR   10,  0


  3080                         %SHORTROUTINE
  3081                         %COMMENT MODE=0 POINTER TO RECORD IN CORE AT BS & DP
  3082                         %COMMENT MODE=1 POINTER TO RECORD IN REGISTER BS DP RUBBISH
  3083                         %COMMENT MODE=2 RECORD REG CLAIMED
  3084                ! P POINTS TO (ENAME)***** FNAME HOLD FORMAT NAME
  3085                         %INTEGER Q,QQQ,BSRF,DPRF
  3086                         ->2 %IF A(P)=1

C 00010A0A    58108040        L       1,   64(  0,  8)
C 00010A0E    413092FC        LA      3,  764(  0,  9)
C 00010A12    45F0C05C        BAL    15,   92(  0, 12)
C 00010A16    4811F000        LH      1,    0(  1, 15)
C 00010A1A    41200001        LA      2,    1(  0,  0)
C 00010A1E    1912            CR      1,  2
C 00010A20    478A0000        BC      8,    0( 10,  0)


  3087                         ->1 %IF Z>=14; FAULT(64)

C 00010A24    4110000E        LA      1,   14(  0,  0)
C 00010A28    59107040        C       1,   64(  0,  7)
C 00010A2C    47CA0000        BC     12,    0( 10,  0)



C 00010A30    9240B043        MVI     67( 11), 64
C 00010A34    5810D228        L       1,  552(  0, 13)
C 00010A38    45F0D074        BAL    15,  116(  0, 13)


  3088                          P=P-2

C 00010A3C    58108040        L       1,   64(  0,  8)
C 00010A40    0610            BCTR    1,  0
C 00010A42    0610            BCTR    1,  0
C 00010A44    50108040        ST      1,   64(  0,  8)


  3089                         PTYPE=1; UNPACK; ->99

C 00010A48    41100001        LA      1,    1(  0,  0)
C 00010A4C    50108098        ST      1,  152(  0,  8)



C 00010A50    5810D448        L       1, 1096(  0, 13)
C 00010A54    45F0D074        BAL    15,  116(  0, 13)



C 00010A58    47FA0000        BC     15,    0( 10,  0)


  3090                1:       BASE=BS; DISP=DP

C 00010A5C    D20380747048    MVC    116(  4,  8),   72(  7)



C 00010A62    D2038078704C    MVC    120(  4,  8),   76(  7)


  3091                         DISP=-1 %IF MODE#0

C 00010A68    58107044        L       1,   68(  0,  7)
C 00010A6C    1211            LTR     1,  1
C 00010A6E    478A0070        BC      8,  112( 10,  0)
C 00010A72    5810D010        L       1,   16(  0, 13)
C 00010A76    50108078        ST      1,  120(  0,  8)


  3092                         INDEX=0; ->99

C 00010A7A    1F11            SLR     1,  1
C 00010A7C    50108080        ST      1,  128(  0,  8)



C 00010A80    47FA0000        BC     15,    0( 10,  0)


  3093                2:       P=P+1; Q=DISPLACEMENT(FNAME); UNPACK

C 00010A84    41100001        LA      1,    1(  0,  0)
C 00010A88    5A108040        A       1,   64(  0,  8)
C 00010A8C    50108040        ST      1,   64(  0,  8)



C 00010A90    D203B0409130    MVC     64(  4, 11),  304(  9)
C 00010A96    5810D394        L       1,  916(  0, 13)
C 00010A9A    45F0D074        BAL    15,  116(  0, 13)
C 00010A9E    50107050        ST      1,   80(  0,  7)



C 00010AA2    5810D448        L       1, 1096(  0, 13)
C 00010AA6    45F0D074        BAL    15,  116(  0, 13)


  3094                         ! K POINTS TO CELL HOLD ING DETAILS FOR THOS CELL
  3095                         ->98 %IF Q=-1; ->50 %IF TYPE =3

C 00010AAA    5810D010        L       1,   16(  0, 13)
C 00010AAE    59107050        C       1,   80(  0,  7)
C 00010AB2    478A0000        BC      8,    0( 10,  0)



C 00010AB6    95038094        CLI    148(  8),  3
C 00010ABA    478A0000        BC      8,    0( 10,  0)


  3096                         ->20 %IF ARR=1

C 00010ABE    95018092        CLI    146(  8),  1
C 00010AC2    478A0000        BC      8,    0( 10,  0)


  3097                         ->30 %IF TYPE=5

C 00010AC6    95058094        CLI    148(  8),  5
C 00010ACA    478A0000        BC      8,    0( 10,  0)


  3098                         ->11 %IF MODE#0

C 00010ACE    58107044        L       1,   68(  0,  7)
C 00010AD2    1211            LTR     1,  1
C 00010AD4    477A0000        BC      7,    0( 10,  0)


  3099                         RP13=R13; R13=BS<<12!DP

C 00010AD8    D20390C090BC    MVC    192(  4,  9),  188(  9)



C 00010ADE    58107048        L       1,   72(  0,  7)
C 00010AE2    8910000C        SLL     1,   12(  0)
C 00010AE6    5610704C        O       1,   76(  0,  7)
C 00010AEA    501090BC        ST      1,  188(  0,  9)


  3100                         PRX(X'58',LINK,0,BS,DP) %UNLESS R13=RP13

C 00010AEE    D50390BC90C0    CLC    188(  4,  9),  192(  9)
C 00010AF4    478A0116        BC      8,  278( 10,  0)
C 00010AF8    41100058        LA      1,   88(  0,  0)
C 00010AFC    5010B040        ST      1,   64(  0, 11)
C 00010B00    D203B044D148    MVC     68(  4, 11),  328( 13)
C 00010B06    1F11            SLR     1,  1
C 00010B08    5010B048        ST      1,   72(  0, 11)
C 00010B0C    D203B04C7048    MVC     76(  4, 11),   72(  7)
C 00010B12    D203B050704C    MVC     80(  4, 11),   76(  7)
C 00010B18    5810D1C0        L       1,  448(  0, 13)
C 00010B1C    45F0D074        BAL    15,  116(  0, 13)


  3101                         BASE=LINK

C 00010B20    D2038074D148    MVC    116(  4,  8),  328( 13)


  3102                7:       INDEX=0; DISP=Q

C 00010B26    1F11            SLR     1,  1
C 00010B28    50108080        ST      1,  128(  0,  8)



C 00010B2C    D20380787050    MVC    120(  4,  8),   80(  7)


  3103                         %IF ROUT=1 %THEN FROM1(Q,DISP); ->99

C 00010B32    95018090        CLI    144(  8),  1
C 00010B36    477A0146        BC      7,  326( 10,  0)
C 00010B3A    D203B0407050    MVC     64(  4, 11),   80(  7)
C 00010B40    41108078        LA      1,  120(  0,  8)
C 00010B44    5010B044        ST      1,   68(  0, 11)
C 00010B48    5810D3FC        L       1, 1020(  0, 13)
C 00010B4C    45F0D074        BAL    15,  116(  0, 13)



C 00010B50    47FA0000        BC     15,    0( 10,  0)


  3104                11:      BASE=BS; ->7

C 00010B54    D20380747048    MVC    116(  4,  8),   72(  7)



C 00010B5A    47F0A11C        BC     15,  284(  0, 10)


  3105                20:      ! DEAL WITH ARRAY IN RECORD
  3106                         FROM LIST(FNAME,BSRF,QQQ)

C 00010B5E    D203B0409130    MVC     64(  4, 11),  304(  9)
C 00010B64    41107058        LA      1,   88(  0,  7)
C 00010B68    5010B044        ST      1,   68(  0, 11)
C 00010B6C    41107054        LA      1,   84(  0,  7)
C 00010B70    5010B048        ST      1,   72(  0, 11)
C 00010B74    5810D3D8        L       1,  984(  0, 13)
C 00010B78    45F0D074        BAL    15,  116(  0, 13)


  3107                         BSRF=BSRF>>4&15

C 00010B7C    58107058        L       1,   88(  0,  7)
C 00010B80    88100004        SRL     1,    4(  0)
C 00010B84    4120000F        LA      2,   15(  0,  0)
C 00010B88    1412            NR      1,  2
C 00010B8A    50107058        ST      1,   88(  0,  7)


  3108                         FROM1(QQQ,DPRF)

C 00010B8E    D203B0407054    MVC     64(  4, 11),   84(  7)
C 00010B94    4110705C        LA      1,   92(  0,  7)
C 00010B98    5010B044        ST      1,   68(  0, 11)
C 00010B9C    5810D3FC        L       1, 1020(  0, 13)
C 00010BA0    45F0D074        BAL    15,  116(  0, 13)


  3109                         ->21 %IF Z<10 %OR A(P+1)=1; K=DPRF+Q

C 00010BA4    4110000A        LA      1,   10(  0,  0)
C 00010BA8    59107040        C       1,   64(  0,  7)
C 00010BAC    472A0000        BC      2,    0( 10,  0)
C 00010BB0    41100001        LA      1,    1(  0,  0)
C 00010BB4    5A108040        A       1,   64(  0,  8)
C 00010BB8    413092FC        LA      3,  764(  0,  9)
C 00010BBC    45F0C05C        BAL    15,   92(  0, 12)
C 00010BC0    4811F000        LH      1,    0(  1, 15)
C 00010BC4    41200001        LA      2,    1(  0,  0)
C 00010BC8    1912            CR      1,  2
C 00010BCA    478A0000        BC      8,    0( 10,  0)



C 00010BCE    5810705C        L       1,   92(  0,  7)
C 00010BD2    5A107050        A       1,   80(  0,  7)
C 00010BD6    501080A4        ST      1,  164(  0,  8)


  3110                         I=BSRF;                       ! SS5V1

C 00010BDA    D203809C7058    MVC    156(  4,  8),   88(  7)


  3111                         DUMP(2,1,DP,0,BS) %IF MODE=0; ->99;    ! R1 NOW POINTS TO REORD

C 00010BE0    58107044        L       1,   68(  0,  7)
C 00010BE4    1211            LTR     1,  1
C 00010BE6    477A020A        BC      7,  522( 10,  0)
C 00010BEA    41100002        LA      1,    2(  0,  0)
C 00010BEE    5010B040        ST      1,   64(  0, 11)
C 00010BF2    41100001        LA      1,    1(  0,  0)
C 00010BF6    5010B044        ST      1,   68(  0, 11)
C 00010BFA    D203B048704C    MVC     72(  4, 11),   76(  7)
C 00010C00    1F11            SLR     1,  1
C 00010C02    5010B04C        ST      1,   76(  0, 11)
C 00010C06    D203B0507048    MVC     80(  4, 11),   72(  7)
C 00010C0C    5810D458        L       1, 1112(  0, 13)
C 00010C10    45F0D074        BAL    15,  116(  0, 13)



C 00010C14    47FA0000        BC     15,    0( 10,  0)


  3112                21:      ->22 %UNLESS MODE=0 %AND BS<4;! WILL POINTER BE DESTROTED?

C 00010C18    58107044        L       1,   68(  0,  7)
C 00010C1C    1211            LTR     1,  1
C 00010C1E    477A0000        BC      7,    0( 10,  0)
C 00010C22    41100004        LA      1,    4(  0,  0)
C 00010C26    59107048        C       1,   72(  0,  7)
C 00010C2A    47DA0000        BC     13,    0( 10,  0)


  3113                         DUMP(2,1,DP,0,BS); MODE=1; BS=1;        ! YES-- SO SAVE IT

C 00010C2E    41100002        LA      1,    2(  0,  0)
C 00010C32    5010B040        ST      1,   64(  0, 11)
C 00010C36    41100001        LA      1,    1(  0,  0)
C 00010C3A    5010B044        ST      1,   68(  0, 11)
C 00010C3E    D203B048704C    MVC     72(  4, 11),   76(  7)
C 00010C44    1F11            SLR     1,  1
C 00010C46    5010B04C        ST      1,   76(  0, 11)
C 00010C4A    D203B0507048    MVC     80(  4, 11),   72(  7)
C 00010C50    5810D458        L       1, 1112(  0, 13)
C 00010C54    45F0D074        BAL    15,  116(  0, 13)



C 00010C58    41100001        LA      1,    1(  0,  0)
C 00010C5C    50107044        ST      1,   68(  0,  7)



C 00010C60    41100001        LA      1,    1(  0,  0)
C 00010C64    50107048        ST      1,   72(  0,  7)


  3114                22:      QQQ=PARK(1) %IF MODE=1

C 00010C68    41100001        LA      1,    1(  0,  0)
C 00010C6C    59107044        C       1,   68(  0,  7)
C 00010C70    477A027E        BC      7,  638( 10,  0)
C 00010C74    41100001        LA      1,    1(  0,  0)
C 00010C78    5010B040        ST      1,   64(  0, 11)
C 00010C7C    5810D414        L       1, 1044(  0, 13)
C 00010C80    45F0D074        BAL    15,  116(  0, 13)
C 00010C84    50107054        ST      1,   84(  0,  7)


  3115                         CANAME(3,BSRF,DPRF+Q,K,0,0)

C 00010C88    41100003        LA      1,    3(  0,  0)
C 00010C8C    5010B040        ST      1,   64(  0, 11)
C 00010C90    D203B0447058    MVC     68(  4, 11),   88(  7)
C 00010C96    5810705C        L       1,   92(  0,  7)
C 00010C9A    5A107050        A       1,   80(  0,  7)
C 00010C9E    5010B048        ST      1,   72(  0, 11)
C 00010CA2    D203B04C80A4    MVC     76(  4, 11),  164(  8)
C 00010CA8    1F11            SLR     1,  1
C 00010CAA    5010B050        ST      1,   80(  0, 11)
C 00010CAE    1F11            SLR     1,  1
C 00010CB0    5010B054        ST      1,   84(  0, 11)
C 00010CB4    5810D3CC        L       1,  972(  0, 13)
C 00010CB8    45F0D074        BAL    15,  116(  0, 13)


  3116                         R13=0

C 00010CBC    1F11            SLR     1,  1
C 00010CBE    501090BC        ST      1,  188(  0,  9)


  3117                         %IF MODE=0 %THEN PRX(X'5A',INDEX,BS,0,DP)

C 00010CC2    58107044        L       1,   68(  0,  7)
C 00010CC6    1211            LTR     1,  1
C 00010CC8    477A02EA        BC      7,  746( 10,  0)
C 00010CCC    4110005A        LA      1,   90(  0,  0)
C 00010CD0    5010B040        ST      1,   64(  0, 11)
C 00010CD4    D203B0448080    MVC     68(  4, 11),  128(  8)
C 00010CDA    D203B0487048    MVC     72(  4, 11),   72(  7)
C 00010CE0    1F11            SLR     1,  1
C 00010CE2    5010B04C        ST      1,   76(  0, 11)
C 00010CE6    D203B050704C    MVC     80(  4, 11),   76(  7)
C 00010CEC    5810D1C0        L       1,  448(  0, 13)
C 00010CF0    45F0D074        BAL    15,  116(  0, 13)


  3118                         %IF MODE=1 %THEN UNPARK(X'5A',INDEX,QQQ)

C 00010CF4    41100001        LA      1,    1(  0,  0)
C 00010CF8    59107044        C       1,   68(  0,  7)
C 00010CFC    477A0312        BC      7,  786( 10,  0)
C 00010D00    4110005A        LA      1,   90(  0,  0)
C 00010D04    5010B040        ST      1,   64(  0, 11)
C 00010D08    D203B0448080    MVC     68(  4, 11),  128(  8)
C 00010D0E    D203B0487054    MVC     72(  4, 11),   84(  7)
C 00010D14    5810D430        L       1, 1072(  0, 13)
C 00010D18    45F0D074        BAL    15,  116(  0, 13)


  3119                         %IF MODE=2 %THEN PRR(X'1A',INDEX,BS)

C 00010D1C    41100002        LA      1,    2(  0,  0)
C 00010D20    59107044        C       1,   68(  0,  7)
C 00010D24    477A033A        BC      7,  826( 10,  0)
C 00010D28    4110001A        LA      1,   26(  0,  0)
C 00010D2C    5010B040        ST      1,   64(  0, 11)
C 00010D30    D203B0448080    MVC     68(  4, 11),  128(  8)
C 00010D36    D203B0487048    MVC     72(  4, 11),   72(  7)
C 00010D3C    5810D1D0        L       1,  464(  0, 13)
C 00010D40    45F0D074        BAL    15,  116(  0, 13)


  3120                         I=BSRF; K=DPRF+Q

C 00010D44    D203809C7058    MVC    156(  4,  8),   88(  7)



C 00010D4A    5810705C        L       1,   92(  0,  7)
C 00010D4E    5A107050        A       1,   80(  0,  7)
C 00010D52    501080A4        ST      1,  164(  0,  8)


  3121                         ->99

C 00010D56    47FA0000        BC     15,    0( 10,  0)


  3122                30:      FROMLIST(FNAME,BSRF,QQQ)

C 00010D5A    D203B0409130    MVC     64(  4, 11),  304(  9)
C 00010D60    41107058        LA      1,   88(  0,  7)
C 00010D64    5010B044        ST      1,   68(  0, 11)
C 00010D68    41107054        LA      1,   84(  0,  7)
C 00010D6C    5010B048        ST      1,   72(  0, 11)
C 00010D70    5810D3D8        L       1,  984(  0, 13)
C 00010D74    45F0D074        BAL    15,  116(  0, 13)


  3123                         FROM1(QQQ,DPRF); BSRF=BSRF>>4&15

C 00010D78    D203B0407054    MVC     64(  4, 11),   84(  7)
C 00010D7E    4110705C        LA      1,   92(  0,  7)
C 00010D82    5010B044        ST      1,   68(  0, 11)
C 00010D86    5810D3FC        L       1, 1020(  0, 13)
C 00010D8A    45F0D074        BAL    15,  116(  0, 13)



C 00010D8E    58107058        L       1,   88(  0,  7)
C 00010D92    88100004        SRL     1,    4(  0)
C 00010D96    4120000F        LA      2,   15(  0,  0)
C 00010D9A    1412            NR      1,  2
C 00010D9C    50107058        ST      1,   88(  0,  7)


  3124                         PRR(X'18',1,BS) %IF MODE#0 %AND BS#1

C 00010DA0    58107044        L       1,   68(  0,  7)
C 00010DA4    1211            LTR     1,  1
C 00010DA6    478A03CA        BC      8,  970( 10,  0)
C 00010DAA    41100001        LA      1,    1(  0,  0)
C 00010DAE    59107048        C       1,   72(  0,  7)
C 00010DB2    478A03CA        BC      8,  970( 10,  0)
C 00010DB6    41100018        LA      1,   24(  0,  0)
C 00010DBA    5010B040        ST      1,   64(  0, 11)
C 00010DBE    41100001        LA      1,    1(  0,  0)
C 00010DC2    5010B044        ST      1,   68(  0, 11)
C 00010DC6    D203B0487048    MVC     72(  4, 11),   72(  7)
C 00010DCC    5810D1D0        L       1,  464(  0, 13)
C 00010DD0    45F0D074        BAL    15,  116(  0, 13)


  3125                         PRX(X'58',1,BS,0,DP) %IF MODE=0

C 00010DD4    58107044        L       1,   68(  0,  7)
C 00010DD8    1211            LTR     1,  1
C 00010DDA    477A03FE        BC      7, 1022( 10,  0)
C 00010DDE    41100058        LA      1,   88(  0,  0)
C 00010DE2    5010B040        ST      1,   64(  0, 11)
C 00010DE6    41100001        LA      1,    1(  0,  0)
C 00010DEA    5010B044        ST      1,   68(  0, 11)
C 00010DEE    D203B0487048    MVC     72(  4, 11),   72(  7)
C 00010DF4    1F11            SLR     1,  1
C 00010DF6    5010B04C        ST      1,   76(  0, 11)
C 00010DFA    D203B050704C    MVC     80(  4, 11),   76(  7)
C 00010E00    5810D1C0        L       1,  448(  0, 13)
C 00010E04    45F0D074        BAL    15,  116(  0, 13)


  3126                         PRX(X'5A',1,BSRF,0,DPRF+Q)

C 00010E08    4110005A        LA      1,   90(  0,  0)
C 00010E0C    5010B040        ST      1,   64(  0, 11)
C 00010E10    41100001        LA      1,    1(  0,  0)
C 00010E14    5010B044        ST      1,   68(  0, 11)
C 00010E18    D203B0487058    MVC     72(  4, 11),   88(  7)
C 00010E1E    1F11            SLR     1,  1
C 00010E20    5010B04C        ST      1,   76(  0, 11)
C 00010E24    5810705C        L       1,   92(  0,  7)
C 00010E28    5A107050        A       1,   80(  0,  7)
C 00010E2C    5010B050        ST      1,   80(  0, 11)
C 00010E30    5810D1C0        L       1,  448(  0, 13)
C 00010E34    45F0D074        BAL    15,  116(  0, 13)


  3127                         BASE=1; INDEX=0; DISP=0

C 00010E38    41100001        LA      1,    1(  0,  0)
C 00010E3C    50108074        ST      1,  116(  0,  8)



C 00010E40    1F11            SLR     1,  1
C 00010E42    50108080        ST      1,  128(  0,  8)



C 00010E46    1F11            SLR     1,  1
C 00010E48    50108078        ST      1,  120(  0,  8)


  3128                         I=BSRF; K=DPRF+Q; ->99

C 00010E4C    D203809C7058    MVC    156(  4,  8),   88(  7)



C 00010E52    5810705C        L       1,   92(  0,  7)
C 00010E56    5A107050        A       1,   80(  0,  7)
C 00010E5A    501080A4        ST      1,  164(  0,  8)



C 00010E5E    47FA0000        BC     15,    0( 10,  0)


  3129                50:      ! RECORDNAME IN RECORD--Q POINTS TO SIDECHAIN
  3130                         DUMP(2,1,DP,0,BS) %IF MODE=0;! LOAD PTR TO FIRST RECORD

C 00010E62    58107044        L       1,   68(  0,  7)
C 00010E66    1211            LTR     1,  1
C 00010E68    477A048C        BC      7, 1164( 10,  0)
C 00010E6C    41100002        LA      1,    2(  0,  0)
C 00010E70    5010B040        ST      1,   64(  0, 11)
C 00010E74    41100001        LA      1,    1(  0,  0)
C 00010E78    5010B044        ST      1,   68(  0, 11)
C 00010E7C    D203B048704C    MVC     72(  4, 11),   76(  7)
C 00010E82    1F11            SLR     1,  1
C 00010E84    5010B04C        ST      1,   76(  0, 11)
C 00010E88    D203B0507048    MVC     80(  4, 11),   72(  7)
C 00010E8E    5810D458        L       1, 1112(  0, 13)
C 00010E92    45F0D074        BAL    15,  116(  0, 13)


  3131                         PRR(X'18',1,BS) %IF MODE#0

C 00010E96    58107044        L       1,   68(  0,  7)
C 00010E9A    1211            LTR     1,  1
C 00010E9C    478A04B4        BC      8, 1204( 10,  0)
C 00010EA0    41100018        LA      1,   24(  0,  0)
C 00010EA4    5010B040        ST      1,   64(  0, 11)
C 00010EA8    41100001        LA      1,    1(  0,  0)
C 00010EAC    5010B044        ST      1,   68(  0, 11)
C 00010EB0    D203B0487048    MVC     72(  4, 11),   72(  7)
C 00010EB6    5810D1D0        L       1,  464(  0, 13)
C 00010EBA    45F0D074        BAL    15,  116(  0, 13)


  3132                         FROM2(Q,QQQ)

C 00010EBE    D203B0407050    MVC     64(  4, 11),   80(  7)
C 00010EC4    41107054        LA      1,   84(  0,  7)
C 00010EC8    5010B044        ST      1,   68(  0, 11)
C 00010ECC    5810D3F8        L       1, 1016(  0, 13)
C 00010ED0    45F0D074        BAL    15,  116(  0, 13)


  3133                         CRNAME(Z,1,K,1,QQQ); ->99

C 00010ED4    D203B0407040    MVC     64(  4, 11),   64(  7)
C 00010EDA    41100001        LA      1,    1(  0,  0)
C 00010EDE    5010B044        ST      1,   68(  0, 11)
C 00010EE2    D203B04880A4    MVC     72(  4, 11),  164(  8)
C 00010EE8    41100001        LA      1,    1(  0,  0)
C 00010EEC    5010B04C        ST      1,   76(  0, 11)
C 00010EF0    D203B0507054    MVC     80(  4, 11),   84(  7)
C 00010EF6    5810D3C8        L       1,  968(  0, 13)
C 00010EFA    45F0D074        BAL    15,  116(  0, 13)



C 00010EFE    47FA0000        BC     15,    0( 10,  0)


  3134                98:      P=P+1; SKIP APP; P=P-2

C 00010F02    41100001        LA      1,    1(  0,  0)
C 00010F06    5A108040        A       1,   64(  0,  8)
C 00010F0A    50108040        ST      1,   64(  0,  8)



C 00010F0E    5810D39C        L       1,  924(  0, 13)
C 00010F12    45F0D074        BAL    15,  116(  0, 13)



C 00010F16    58108040        L       1,   64(  0,  8)
C 00010F1A    0610            BCTR    1,  0
C 00010F1C    0610            BCTR    1,  0
C 00010F1E    50108040        ST      1,   64(  0,  8)


  3135                99:      %END
D 00000EE0    C2 C2 C2 C2 0C 07 07 06 43 45 4E 41 4D 45 00 00 01 70 5C 04 44 50 52 46 01 70 58 04 42 53 52 46 01 70 54 03 51 51 51 F0 01 70 50 01 51 FE A6 F8 01 70 4C 02 44 50 00 01 01 70 48 02 42 53 7C 05 01 70 44 04 4D 4F 44 45 01 70 40 01 5A FE A7 28 FF FF FF FF


C 00010F22    D203D0147000    MVC     20(  4, 13),    0(  7)
C 00010F28    984F7010        LM      4, 15,   16(  7)
C 00010F2C    07FF            BCR    15, 15


  3136                     %ROUTINE     CRNAME(%INTEGER Z,MODE,CLINK,BS,DP)

C 00010F2E    0000
C 00010F30    0000
C 00010F32    47FA0000        BC     15,    0( 10,  0)
C 00010F36    50F0B03C        ST     15,   60(  0, 11)
C 00010F3A    D203B000D014    MVC      0(  4, 11),   20( 13)
C 00010F40    41000C40        LA      0, 3136(  0,  0)
C 00010F44    4000D014        STH     0,   20(  0, 13)
C 00010F48    187B            LR      7, 11
C 00010F4A    41BB0000        LA     11,    0( 11,  0)
C 00010F4E    41000004        LA      0,    4(  0,  0)
C 00010F52    59BD0044        C      11,   68( 13,  0)
C 00010F56    4720C054        BC      2,   84(  0, 12)
C 00010F5A    05A0            BALR   10,  0


  3137                         %SHORTROUTINE
  3138                %COMMENT DEALS WITH RECORD NAME CALLING CENAME TO COMPILE SUBFIELDS
  3139                         %COMMENT MODE=0 POINTER TO RECORD IN CORE AT BS & DP
  3140                         %COMMENT MODE=1 POINTER TO RECORD IN REGISTER BS DP RUBBISH
  3141                %COMMENT CLINK POINTS TO CELL CONTAING NAME DETAILS
  3142                         %INTEGER KK,JJ,Q,QQ
  3143                         FROM2(CLINK,Q)

C 00010F5C    D203B0407048    MVC     64(  4, 11),   72(  7)
C 00010F62    4110705C        LA      1,   92(  0,  7)
C 00010F66    5010B044        ST      1,   68(  0, 11)
C 00010F6A    5810D3F8        L       1, 1016(  0, 13)
C 00010F6E    45F0D074        BAL    15,  116(  0, 13)


  3144                         FROM1(Q,FNAME)

C 00010F72    D203B040705C    MVC     64(  4, 11),   92(  7)
C 00010F78    41109130        LA      1,  304(  0,  9)
C 00010F7C    5010B044        ST      1,   68(  0, 11)
C 00010F80    5810D3FC        L       1, 1020(  0, 13)
C 00010F84    45F0D074        BAL    15,  116(  0, 13)


  3145                         ->50 %IF ARR=0

C 00010F88    95008092        CLI    146(  8),  0
C 00010F8C    478A0000        BC      8,    0( 10,  0)


  3146                         I=BS; K=DP;

C 00010F90    D203809C704C    MVC    156(  4,  8),   76(  7)



C 00010F96    D20380A47050    MVC    164(  4,  8),   80(  7)


  3147                         ->99 %IF 11<=Z<=12 %AND A(P+1)=2           ;! FETCH ARRAYHEAD

C 00010F9C    58107040        L       1,   64(  0,  7)
C 00010FA0    4120000B        LA      2,   11(  0,  0)
C 00010FA4    1921            CR      2,  1
C 00010FA6    473A0076        BC      3,  118( 10,  0)
C 00010FAA    4120000C        LA      2,   12(  0,  0)
C 00010FAE    1912            CR      1,  2
C 00010FB0    473A0076        BC      3,  118( 10,  0)
C 00010FB4    41100001        LA      1,    1(  0,  0)
C 00010FB8    5A108040        A       1,   64(  0,  8)
C 00010FBC    413092FC        LA      3,  764(  0,  9)
C 00010FC0    45F0C05C        BAL    15,   92(  0, 12)
C 00010FC4    4811F000        LH      1,    0(  1, 15)
C 00010FC8    41200002        LA      2,    2(  0,  0)
C 00010FCC    1912            CR      1,  2
C 00010FCE    478A0000        BC      8,    0( 10,  0)


  3148                         FROM LIST(FNAME,KK,JJ)

C 00010FD2    D203B0409130    MVC     64(  4, 11),  304(  9)
C 00010FD8    41107054        LA      1,   84(  0,  7)
C 00010FDC    5010B044        ST      1,   68(  0, 11)
C 00010FE0    41107058        LA      1,   88(  0,  7)
C 00010FE4    5010B048        ST      1,   72(  0, 11)
C 00010FE8    5810D3D8        L       1,  984(  0, 13)
C 00010FEC    45F0D074        BAL    15,  116(  0, 13)


  3149                         KK=KK>>4&15;                  ! BASE REG OF FORMAT

C 00010FF0    58107054        L       1,   84(  0,  7)
C 00010FF4    88100004        SRL     1,    4(  0)
C 00010FF8    4120000F        LA      2,   15(  0,  0)
C 00010FFC    1412            NR      1,  2
C 00010FFE    50107054        ST      1,   84(  0,  7)


  3150                         FROM1(JJ,JJ)

C 00011002    D203B0407058    MVC     64(  4, 11),   88(  7)
C 00011008    41107058        LA      1,   88(  0,  7)
C 0001100C    5010B044        ST      1,   68(  0, 11)
C 00011010    5810D3FC        L       1, 1020(  0, 13)
C 00011014    45F0D074        BAL    15,  116(  0, 13)


  3151                         %IF MODE=2 %THEN PRR(X'1A',INDEX,BS)

C 00011018    41100002        LA      1,    2(  0,  0)
C 0001101C    59107044        C       1,   68(  0,  7)
C 00011020    477A00E4        BC      7,  228( 10,  0)
C 00011024    4110001A        LA      1,   26(  0,  0)
C 00011028    5010B040        ST      1,   64(  0, 11)
C 0001102C    D203B0448080    MVC     68(  4, 11),  128(  8)
C 00011032    D203B048704C    MVC     72(  4, 11),   76(  7)
C 00011038    5810D1D0        L       1,  464(  0, 13)
C 0001103C    45F0D074        BAL    15,  116(  0, 13)


  3152                         ->3  %UNLESS MODE=0 %AND BS<4;! WILL POINTER BE DESTROTED?

C 00011040    58107044        L       1,   68(  0,  7)
C 00011044    1211            LTR     1,  1
C 00011046    477A0000        BC      7,    0( 10,  0)
C 0001104A    41100004        LA      1,    4(  0,  0)
C 0001104E    5910704C        C       1,   76(  0,  7)
C 00011052    47DA0000        BC     13,    0( 10,  0)


  3153                         DUMP(2,1,DP,0,BS); MODE=1; BS=1;        ! YES-- SO SAVE IT

C 00011056    41100002        LA      1,    2(  0,  0)
C 0001105A    5010B040        ST      1,   64(  0, 11)
C 0001105E    41100001        LA      1,    1(  0,  0)
C 00011062    5010B044        ST      1,   68(  0, 11)
C 00011066    D203B0487050    MVC     72(  4, 11),   80(  7)
C 0001106C    1F11            SLR     1,  1
C 0001106E    5010B04C        ST      1,   76(  0, 11)
C 00011072    D203B050704C    MVC     80(  4, 11),   76(  7)
C 00011078    5810D458        L       1, 1112(  0, 13)
C 0001107C    45F0D074        BAL    15,  116(  0, 13)



C 00011080    41100001        LA      1,    1(  0,  0)
C 00011084    50107044        ST      1,   68(  0,  7)



C 00011088    41100001        LA      1,    1(  0,  0)
C 0001108C    5010704C        ST      1,   76(  0,  7)


  3154                3:
  3155                         QQ=BS; QQ=PARK(BS) %IF MODE=1

C 00011090    D2037060704C    MVC     96(  4,  7),   76(  7)



C 00011096    41100001        LA      1,    1(  0,  0)
C 0001109A    59107044        C       1,   68(  0,  7)
C 0001109E    477A0158        BC      7,  344( 10,  0)
C 000110A2    D203B040704C    MVC     64(  4, 11),   76(  7)
C 000110A8    5810D414        L       1, 1044(  0, 13)
C 000110AC    45F0D074        BAL    15,  116(  0, 13)
C 000110B0    50107060        ST      1,   96(  0,  7)


  3156                         CANAME(Z,QQ,DP,CLINK,KK,JJ+2)

C 000110B4    D203B0407040    MVC     64(  4, 11),   64(  7)
C 000110BA    D203B0447060    MVC     68(  4, 11),   96(  7)
C 000110C0    D203B0487050    MVC     72(  4, 11),   80(  7)
C 000110C6    D203B04C7048    MVC     76(  4, 11),   72(  7)
C 000110CC    D203B0507054    MVC     80(  4, 11),   84(  7)
C 000110D2    41100002        LA      1,    2(  0,  0)
C 000110D6    5A107058        A       1,   88(  0,  7)
C 000110DA    5010B054        ST      1,   84(  0, 11)
C 000110DE    5810D3CC        L       1,  972(  0, 13)
C 000110E2    45F0D074        BAL    15,  116(  0, 13)


  3157                         FROM1(Q,FNAME)

C 000110E6    D203B040705C    MVC     64(  4, 11),   92(  7)
C 000110EC    41109130        LA      1,  304(  0,  9)
C 000110F0    5010B044        ST      1,   68(  0, 11)
C 000110F4    5810D3FC        L       1, 1020(  0, 13)
C 000110F8    45F0D074        BAL    15,  116(  0, 13)


  3158                         REGISTER(QQ)=0 %IF MODE=1

C 000110FC    41100001        LA      1,    1(  0,  0)
C 00011100    59107044        C       1,   68(  0,  7)
C 00011104    477A01BE        BC      7,  446( 10,  0)
C 00011108    1F44            SLR     4,  4
C 0001110A    58107060        L       1,   96(  0,  7)
C 0001110E    4130914C        LA      3,  332(  0,  9)
C 00011112    45F0C05C        BAL    15,   92(  0, 12)
C 00011116    5041F000        ST      4,    0(  1, 15)


  3159                         PRR(X'1A',1,LINK)

C 0001111A    4110001A        LA      1,   26(  0,  0)
C 0001111E    5010B040        ST      1,   64(  0, 11)
C 00011122    41100001        LA      1,    1(  0,  0)
C 00011126    5010B044        ST      1,   68(  0, 11)
C 0001112A    D203B048D148    MVC     72(  4, 11),  328( 13)
C 00011130    5810D1D0        L       1,  464(  0, 13)
C 00011134    45F0D074        BAL    15,  116(  0, 13)


  3160                         CENAME(Z,1,1,0); ->99

C 00011138    D203B0407040    MVC     64(  4, 11),   64(  7)
C 0001113E    41100001        LA      1,    1(  0,  0)
C 00011142    5010B044        ST      1,   68(  0, 11)
C 00011146    41100001        LA      1,    1(  0,  0)
C 0001114A    5010B048        ST      1,   72(  0, 11)
C 0001114E    1F11            SLR     1,  1
C 00011150    5010B04C        ST      1,   76(  0, 11)
C 00011154    5810D3D0        L       1,  976(  0, 13)
C 00011158    45F0D074        BAL    15,  116(  0, 13)



C 0001115C    47FA0000        BC     15,    0( 10,  0)


  3161                50:      P=P+1; ->51 %IF A(P)=2

C 00011160    41100001        LA      1,    1(  0,  0)
C 00011164    5A108040        A       1,   64(  0,  8)
C 00011168    50108040        ST      1,   64(  0,  8)



C 0001116C    58108040        L       1,   64(  0,  8)
C 00011170    413092FC        LA      3,  764(  0,  9)
C 00011174    45F0C05C        BAL    15,   92(  0, 12)
C 00011178    4811F000        LH      1,    0(  1, 15)
C 0001117C    41200002        LA      2,    2(  0,  0)
C 00011180    1912            CR      1,  2
C 00011182    478A0000        BC      8,    0( 10,  0)


  3162                         FAULT(19); SKIP APP

C 00011186    9213B043        MVI     67( 11), 19
C 0001118A    5810D228        L       1,  552(  0, 13)
C 0001118E    45F0D074        BAL    15,  116(  0, 13)



C 00011192    5810D39C        L       1,  924(  0, 13)
C 00011196    45F0D074        BAL    15,  116(  0, 13)


  3163                51:      P=P+1

C 0001119A    41100001        LA      1,    1(  0,  0)
C 0001119E    5A108040        A       1,   64(  0,  8)
C 000111A2    50108040        ST      1,   64(  0,  8)


  3164                         %IF INREG=0 %OR Z=14 %THEN CENAME(Z,0,BS,DP) %ELSE          CENAME(Z,2,INREG,0)

C 000111A6    581080AC        L       1,  172(  0,  8)
C 000111AA    1211            LTR     1,  1
C 000111AC    478A0260        BC      8,  608( 10,  0)
C 000111B0    4110000E        LA      1,   14(  0,  0)
C 000111B4    59107040        C       1,   64(  0,  7)
C 000111B8    477A0284        BC      7,  644( 10,  0)
C 000111BC    D203B0407040    MVC     64(  4, 11),   64(  7)
C 000111C2    1F11            SLR     1,  1
C 000111C4    5010B044        ST      1,   68(  0, 11)
C 000111C8    D203B048704C    MVC     72(  4, 11),   76(  7)
C 000111CE    D203B04C7050    MVC     76(  4, 11),   80(  7)
C 000111D4    5810D3D0        L       1,  976(  0, 13)
C 000111D8    45F0D074        BAL    15,  116(  0, 13)
C 000111DC    47FA02A6        BC     15,  678( 10,  0)
C 000111E0    D203B0407040    MVC     64(  4, 11),   64(  7)
C 000111E6    41100002        LA      1,    2(  0,  0)
C 000111EA    5010B044        ST      1,   68(  0, 11)
C 000111EE    D203B04880AC    MVC     72(  4, 11),  172(  8)
C 000111F4    1F11            SLR     1,  1
C 000111F6    5010B04C        ST      1,   76(  0, 11)
C 000111FA    5810D3D0        L       1,  976(  0, 13)
C 000111FE    45F0D074        BAL    15,  116(  0, 13)


  3165                99:      %END
D 00000F34    C2 C2 C2 C2 0C 40 07 06 43 52 4E 41 4D 45 00 00 01 70 60 02 51 51 A6 C0 01 70 5C 01 51 00 00 00 01 70 58 02 4A 4A 51 F0 01 70 54 02 4B 4B A6 F8 01 70 50 02 44 50 00 01 01 70 4C 02 42 53 7C 05 01 70 48 05 43 4C 49 4E 4B 70 40 01 01 70 44 04 4D 4F 44 45 01 70 40 01 5A 00 00 02 FF FF FF FF


C 00011202    D203D0147000    MVC     20(  4, 13),    0(  7)
C 00011208    984F7010        LM      4, 15,   16(  7)
C 0001120C    07FF            BCR    15, 15


  3166                     %ROUTINE     CNAME(%INTEGER Z,REG)

C 0001120E    0000
C 00011210    0000
C 00011212    47FA0000        BC     15,    0( 10,  0)
C 00011216    50F0B03C        ST     15,   60(  0, 11)
C 0001121A    D203B000D014    MVC      0(  4, 11),   20( 13)
C 00011220    41000C5E        LA      0, 3166(  0,  0)
C 00011224    4000D014        STH     0,   20(  0, 13)
C 00011228    187B            LR      7, 11
C 0001122A    41BB0000        LA     11,    0( 11,  0)
C 0001122E    41000004        LA      0,    4(  0,  0)
C 00011232    59BD0044        C      11,   68( 13,  0)
C 00011236    4720C054        BC      2,   84(  0, 12)
C 0001123A    05A0            BALR   10,  0


  3167                         %INTEGER JJ,JJJ,KK,RR,PTYPEP,LEVELP
  3168                         %INTEGER DISPP
  3169                         %COMMENT Z=0-RTCALL,Z=1STORE(=), Z=2 FETCH,Z=3 FETCH ADDR,Z=4         STORE N<-), Z=6 STORE PTR, Z=12 FETCH ARRAYHEAD, Z=11 STORE          ARRAY HEAD
  3170                         %SWITCH S,FUNNY(10:15)

C 0001123C    0000
C 0001123E    0000
C 00011240    47FA0000        BC     15,    0( 10,  0)
C 00011244    0000
C 00011246    000A
C 00011248    0000
C 0001124A    000F
C 0001124C    0000
C 0001124E    0000
C 00011250    0000
C 00011252    0000
C 00011254    0000
C 00011256    0000
C 00011258    0000
C 0001125A    0000
C 0001125C    0000
C 0001125E    0000
C 00011260    0000
C 00011262    0000
C 00011264    0000
C 00011266    000A
C 00011268    0000
C 0001126A    000F
C 0001126C    0000
C 0001126E    0000
C 00011270    0000
C 00011272    0000
C 00011274    0000
C 00011276    0000
C 00011278    0000
C 0001127A    0000
C 0001127C    0000
C 0001127E    0000
C 00011280    0000
C 00011282    0000


  3171                         %SWITCH SW(0:8),MOD(0:31)

C 00011284    0000
C 00011286    0000
C 00011288    47FA0000        BC     15,    0( 10,  0)
C 0001128C    0000
C 0001128E    0000
C 00011290    0000
C 00011292    0008
C 00011294    0000
C 00011296    0000
C 00011298    0000
C 0001129A    0000
C 0001129C    0000
C 0001129E    0000
C 000112A0    0000
C 000112A2    0000
C 000112A4    0000
C 000112A6    0000
C 000112A8    0000
C 000112AA    0000
C 000112AC    0000
C 000112AE    0000
C 000112B0    0000
C 000112B2    0000
C 000112B4    0000
C 000112B6    0000
C 000112B8    0000
C 000112BA    0000
C 000112BC    0000
C 000112BE    001F
C 000112C0    0000
C 000112C2    0000
C 000112C4    0000
C 000112C6    0000
C 000112C8    0000
C 000112CA    0000
C 000112CC    0000
C 000112CE    0000
C 000112D0    0000
C 000112D2    0000
C 000112D4    0000
C 000112D6    0000
C 000112D8    0000
C 000112DA    0000
C 000112DC    0000
C 000112DE    0000
C 000112E0    0000
C 000112E2    0000
C 000112E4    0000
C 000112E6    0000
C 000112E8    0000
C 000112EA    0000
C 000112EC    0000
C 000112EE    0000
C 000112F0    0000
C 000112F2    0000
C 000112F4    0000
C 000112F6    0000
C 000112F8    0000
C 000112FA    0000
C 000112FC    0000
C 000112FE    0000
C 00011300    0000
C 00011302    0000
C 00011304    0000
C 00011306    0000
C 00011308    0000
C 0001130A    0000
C 0001130C    0000
C 0001130E    0000
C 00011310    0000
C 00011312    0000
C 00011314    0000
C 00011316    0000
C 00011318    0000
C 0001131A    0000
C 0001131C    0000
C 0001131E    0000
C 00011320    0000
C 00011322    0000
C 00011324    0000
C 00011326    0000
C 00011328    0000
C 0001132A    0000
C 0001132C    0000
C 0001132E    0000
C 00011330    0000
C 00011332    0000
C 00011334    0000
C 00011336    0000
C 00011338    0000
C 0001133A    0000
C 0001133C    0000
C 0001133E    0000


  3172                         FNAME=A(P); COPYTAG(FNAME)

C 00011340    58108040        L       1,   64(  0,  8)
C 00011344    413092FC        LA      3,  764(  0,  9)
C 00011348    45F0C05C        BAL    15,   92(  0, 12)
C 0001134C    4811F000        LH      1,    0(  1, 15)
C 00011350    50109130        ST      1,  304(  0,  9)



C 00011354    D203B0409130    MVC     64(  4, 11),  304(  9)
C 0001135A    5810D408        L       1, 1032(  0, 13)
C 0001135E    45F0D074        BAL    15,  116(  0, 13)


  3173                               ->3 %UNLESS I=-1; FAULT(16)

C 00011362    5810D010        L       1,   16(  0, 13)
C 00011366    5910809C        C       1,  156(  0,  8)
C 0001136A    0000
C 0001136C    0000
C 0001136E    477A0000        BC      7,    0( 10,  0)



C 00011372    9210B043        MVI     67( 11), 16
C 00011376    5810D228        L       1,  552(  0, 13)
C 0001137A    45F0D074        BAL    15,  116(  0, 13)


  3174                               I=LEVEL; J=0; K=FNAME

C 0001137E    D203809C90A8    MVC    156(  4,  8),  168(  9)



C 00011384    1F11            SLR     1,  1
C 00011386    501080A0        ST      1,  160(  0,  8)



C 0001138A    D20380A49130    MVC    164(  4,  8),  304(  9)


  3175                         PTYPE=7;STORE TAG(K,N)

C 00011390    41100007        LA      1,    7(  0,  0)
C 00011394    50108098        ST      1,  152(  0,  8)



C 00011398    D203B04080A4    MVC     64(  4, 11),  164(  8)
C 0001139E    D203B0449100    MVC     68(  4, 11),  256(  9)
C 000113A4    5810D434        L       1, 1076(  0, 13)
C 000113A8    45F0D074        BAL    15,  116(  0, 13)


  3176                         K=N; N=N+4; UNPACK

C 000113AC    D20380A49100    MVC    164(  4,  8),  256(  9)



C 000113B2    41100004        LA      1,    4(  0,  0)
C 000113B6    5A109100        A       1,  256(  0,  9)
C 000113BA    50109100        ST      1,  256(  0,  9)



C 000113BE    5810D448        L       1, 1096(  0, 13)
C 000113C2    45F0D074        BAL    15,  116(  0, 13)


  3177                3:       JJ=J; JJ=0 %IF JJ=15

C 000113C6    D203704880A0    MVC     72(  4,  7),  160(  8)



C 000113CC    4110000F        LA      1,   15(  0,  0)
C 000113D0    59107048        C       1,   72(  0,  7)
C 000113D4    477A01A2        BC      7,  418( 10,  0)
C 000113D8    1F11            SLR     1,  1
C 000113DA    50107048        ST      1,   72(  0,  7)


  3178                         LEVELP=I; DISPP=K

C 000113DE    D203705C809C    MVC     92(  4,  7),  156(  8)



C 000113E4    D203706080A4    MVC     96(  4,  7),  164(  8)


  3179                         ->502 %IF TYPE=7

C 000113EA    95078094        CLI    148(  8),  7
C 000113EE    0000
C 000113F0    0000
C 000113F2    478A0000        BC      8,    0( 10,  0)


  3180                         -> 500 %IF Z=0 %AND (ROUT#1 %OR 0#TYPE#6)

C 000113F6    58107040        L       1,   64(  0,  7)
C 000113FA    1211            LTR     1,  1
C 000113FC    477A01EA        BC      7,  490( 10,  0)
C 00011400    95018090        CLI    144(  8),  1
C 00011404    0000
C 00011406    0000
C 00011408    477A0000        BC      7,    0( 10,  0)
C 0001140C    1F11            SLR     1,  1
C 0001140E    43108094        IC      1,  148(  0,  8)
C 00011412    1211            LTR     1,  1
C 00011414    478A01EA        BC      8,  490( 10,  0)
C 00011418    41200006        LA      2,    6(  0,  0)
C 0001141C    1912            CR      1,  2
C 0001141E    0000
C 00011420    0000
C 00011422    477A0000        BC      7,    0( 10,  0)


  3181                         ->FUNNY(Z) %IF Z>=10

C 00011426    4110000A        LA      1,   10(  0,  0)
C 0001142A    59107040        C       1,   64(  0,  7)
C 0001142E    473A0206        BC      3,  518( 10,  0)
C 00011432    58107040        L       1,   64(  0,  7)
C 00011436    89100002        SLL     1,    2(  0)
C 0001143A    5811A008        L       1,    8(  1, 10)
C 0001143E    47F1A000        BC     15,    0(  1, 10)


  3182                         ->501 %IF ROUT=1

C 00011442    95018090        CLI    144(  8),  1
C 00011446    0000
C 00011448    0000
C 0001144A    478A0000        BC      8,    0( 10,  0)


  3183                         ->SW(TYPE)

C 0001144E    1F11            SLR     1,  1
C 00011450    43108094        IC      1,  148(  0,  8)
C 00011454    89100002        SLL     1,    2(  0)
C 00011458    5811A058        L       1,   88(  1, 10)
C 0001145C    47F1A000        BC     15,    0(  1, 10)


  3184                500:     ->SW(3) %IF TYPE=3

C 00011460    95038094        CLI    148(  8),  3
C 00011464    477A023C        BC      7,  572( 10,  0)
C 00011468    41100003        LA      1,    3(  0,  0)
C 0001146C    89100002        SLL     1,    2(  0)
C 00011470    5811A058        L       1,   88(  1, 10)
C 00011474    47F1A000        BC     15,    0(  1, 10)


  3185                         FAULT(17) %UNLESS TYPE=7; ->502

C 00011478    95078094        CLI    148(  8),  7
C 0001147C    478A0250        BC      8,  592( 10,  0)
C 00011480    9211B043        MVI     67( 11), 17
C 00011484    5810D228        L       1,  552(  0, 13)
C 00011488    45F0D074        BAL    15,  116(  0, 13)



C 0001148C    0000
C 0001148E    0000
C 00011490    47FA0000        BC     15,    0( 10,  0)


  3186                SW(6):   ->661 %UNLESS Z=3 %AND ARR=1

C 00011494    41100003        LA      1,    3(  0,  0)
C 00011498    59107040        C       1,   64(  0,  7)
C 0001149C    0000
C 0001149E    0000
C 000114A0    477A0000        BC      7,    0( 10,  0)
C 000114A4    95018092        CLI    146(  8),  1
C 000114A8    0000
C 000114AA    0000
C 000114AC    477A0000        BC      7,    0( 10,  0)


  3187                         K=K<<2; ARR=0; I=10; ->600

C 000114B0    581080A4        L       1,  164(  0,  8)
C 000114B4    89100002        SLL     1,    2(  0)
C 000114B8    501080A4        ST      1,  164(  0,  8)



C 000114BC    92008092        MVI    146(  8),  0



C 000114C0    4110000A        LA      1,   10(  0,  0)
C 000114C4    5010809C        ST      1,  156(  0,  8)



C 000114C8    0000
C 000114CA    0000
C 000114CC    47FA0000        BC     15,    0( 10,  0)


  3188                SW(4):                                 !RECORD FORMAT NAME
  3189                661:     FAULT(20)

C 000114D0    9214B043        MVI     67( 11), 20
C 000114D4    5810D228        L       1,  552(  0, 13)
C 000114D8    45F0D074        BAL    15,  116(  0, 13)


  3190                SW(7):502:     P=P+1;                  ! NAME NOT SET

C 000114DC    41100001        LA      1,    1(  0,  0)
C 000114E0    5A108040        A       1,   64(  0,  8)
C 000114E4    50108040        ST      1,   64(  0,  8)


  3191                         PTYPE=1; UNPACK; ->6 %IF A(P)=2; ->102

C 000114E8    41100001        LA      1,    1(  0,  0)
C 000114EC    50108098        ST      1,  152(  0,  8)



C 000114F0    5810D448        L       1, 1096(  0, 13)
C 000114F4    45F0D074        BAL    15,  116(  0, 13)



C 000114F8    58108040        L       1,   64(  0,  8)
C 000114FC    413092FC        LA      3,  764(  0,  9)
C 00011500    45F0C05C        BAL    15,   92(  0, 12)
C 00011504    4811F000        LH      1,    0(  1, 15)
C 00011508    41200002        LA      2,    2(  0,  0)
C 0001150C    1912            CR      1,  2
C 0001150E    0000
C 00011510    0000
C 00011512    478A0000        BC      8,    0( 10,  0)



C 00011516    0000
C 00011518    0000
C 0001151A    47FA0000        BC     15,    0( 10,  0)


  3192                FUNNY(11): ->1011 %IF TYPE=3

C 0001151E    95038094        CLI    148(  8),  3
C 00011522    0000
C 00011524    0000
C 00011526    478A0000        BC      8,    0( 10,  0)


  3193                         FAULT(17) %UNLESS ARR=1 %AND NAM=1 %AND K>>12=0

C 0001152A    95018092        CLI    146(  8),  1
C 0001152E    477A030C        BC      7,  780( 10,  0)
C 00011532    95018091        CLI    145(  8),  1
C 00011536    477A030C        BC      7,  780( 10,  0)
C 0001153A    581080A4        L       1,  164(  0,  8)
C 0001153E    8810000C        SRL     1,   12(  0)
C 00011542    1211            LTR     1,  1
C 00011544    478A0318        BC      8,  792( 10,  0)
C 00011548    9211B043        MVI     67( 11), 17
C 0001154C    5810D228        L       1,  552(  0, 13)
C 00011550    45F0D074        BAL    15,  116(  0, 13)


  3194                         PRX(X'90',0,3,I,K); ->91

C 00011554    41100090        LA      1,  144(  0,  0)
C 00011558    5010B040        ST      1,   64(  0, 11)
C 0001155C    1F11            SLR     1,  1
C 0001155E    5010B044        ST      1,   68(  0, 11)
C 00011562    41100003        LA      1,    3(  0,  0)
C 00011566    5010B048        ST      1,   72(  0, 11)
C 0001156A    D203B04C809C    MVC     76(  4, 11),  156(  8)
C 00011570    D203B05080A4    MVC     80(  4, 11),  164(  8)
C 00011576    5810D1C0        L       1,  448(  0, 13)
C 0001157A    45F0D074        BAL    15,  116(  0, 13)



C 0001157E    0000
C 00011580    0000
C 00011582    47FA0000        BC     15,    0( 10,  0)


  3195                1011:          PCLOD(44);->SW(3);      !STM 0,3,0(11) - LA 11,16(11)

C 00011586    4110002C        LA      1,   44(  0,  0)
C 0001158A    5010B040        ST      1,   64(  0, 11)
C 0001158E    5810D1C8        L       1,  456(  0, 13)
C 00011592    45F0D074        BAL    15,  116(  0, 13)



C 00011596    41100003        LA      1,    3(  0,  0)
C 0001159A    89100002        SLL     1,    2(  0)
C 0001159E    5811A058        L       1,   88(  1, 10)
C 000115A2    47F1A000        BC     15,    0(  1, 10)


  3196                S(11):   MOVER(WSPR,-16)

C 000115A6    D203B040D14C    MVC     64(  4, 11),  332( 13)
C 000115AC    41100010        LA      1,   16(  0,  0)
C 000115B0    1311            LCR     1,  1
C 000115B2    5010B044        ST      1,   68(  0, 11)
C 000115B6    5810D3B4        L       1,  948(  0, 13)
C 000115BA    45F0D074        BAL    15,  116(  0, 13)


  3197                         PSS(X'D2',16,1,0,WSPR,0); ->91

C 000115BE    411000D2        LA      1,  210(  0,  0)
C 000115C2    5010B040        ST      1,   64(  0, 11)
C 000115C6    41100010        LA      1,   16(  0,  0)
C 000115CA    5010B044        ST      1,   68(  0, 11)
C 000115CE    41100001        LA      1,    1(  0,  0)
C 000115D2    5010B048        ST      1,   72(  0, 11)
C 000115D6    1F11            SLR     1,  1
C 000115D8    5010B04C        ST      1,   76(  0, 11)
C 000115DC    D203B050D14C    MVC     80(  4, 11),  332( 13)
C 000115E2    1F11            SLR     1,  1
C 000115E4    5010B054        ST      1,   84(  0, 11)
C 000115E8    5810D1BC        L       1,  444(  0, 13)
C 000115EC    45F0D074        BAL    15,  116(  0, 13)



C 000115F0    0000
C 000115F2    0000
C 000115F4    47FA0000        BC     15,    0( 10,  0)


  3198                FUNNY(12):     ->SW(3) %IF TYPE=3

C 000115F8    95038094        CLI    148(  8),  3
C 000115FC    477A03D4        BC      7,  980( 10,  0)
C 00011600    41100003        LA      1,    3(  0,  0)
C 00011604    89100002        SLL     1,    2(  0)
C 00011608    5811A058        L       1,   88(  1, 10)
C 0001160C    47F1A000        BC     15,    0(  1, 10)


  3199                         ->1202 %IF ARR=2;             ! VECTORS

C 00011610    95028092        CLI    146(  8),  2
C 00011614    0000
C 00011616    0000
C 00011618    478A0000        BC      8,    0( 10,  0)


  3200                         FAULT(17) %UNLESS ARR=1

C 0001161C    95018092        CLI    146(  8),  1
C 00011620    478A03F4        BC      8, 1012( 10,  0)
C 00011624    9211B043        MVI     67( 11), 17
C 00011628    5810D228        L       1,  552(  0, 13)
C 0001162C    45F0D074        BAL    15,  116(  0, 13)


  3201                1201:    PRX(X'98',0,3,I,K&4095); ->91

C 00011630    41100098        LA      1,  152(  0,  0)
C 00011634    5010B040        ST      1,   64(  0, 11)
C 00011638    1F11            SLR     1,  1
C 0001163A    5010B044        ST      1,   68(  0, 11)
C 0001163E    41100003        LA      1,    3(  0,  0)
C 00011642    5010B048        ST      1,   72(  0, 11)
C 00011646    D203B04C809C    MVC     76(  4, 11),  156(  8)
C 0001164C    41100FFF        LA      1, 4095(  0,  0)
C 00011650    541080A4        N       1,  164(  0,  8)
C 00011654    5010B050        ST      1,   80(  0, 11)
C 00011658    5810D1C0        L       1,  448(  0, 13)
C 0001165C    45F0D074        BAL    15,  116(  0, 13)



C 00011660    0000
C 00011662    0000
C 00011664    47FA0000        BC     15,    0( 10,  0)


  3202                1202:    FROM2(K,K); ->1201

C 00011668    D203B04080A4    MVC     64(  4, 11),  164(  8)
C 0001166E    411080A4        LA      1,  164(  0,  8)
C 00011672    5010B044        ST      1,   68(  0, 11)
C 00011676    5810D3F8        L       1, 1016(  0, 13)
C 0001167A    45F0D074        BAL    15,  116(  0, 13)



C 0001167E    47F0A3F4        BC     15, 1012(  0, 10)


  3203                S(12):   ->1201 %IF TYPE=3 %AND ARR=1

C 00011682    95038094        CLI    148(  8),  3
C 00011686    477A0456        BC      7, 1110( 10,  0)
C 0001168A    95018092        CLI    146(  8),  1
C 0001168E    4780A3F4        BC      8, 1012(  0, 10)


  3204                         PRR(X'18',0,1)

C 00011692    41100018        LA      1,   24(  0,  0)
C 00011696    5010B040        ST      1,   64(  0, 11)
C 0001169A    1F11            SLR     1,  1
C 0001169C    5010B044        ST      1,   68(  0, 11)
C 000116A0    41100001        LA      1,    1(  0,  0)
C 000116A4    5010B048        ST      1,   72(  0, 11)
C 000116A8    5810D1D0        L       1,  464(  0, 13)
C 000116AC    45F0D074        BAL    15,  116(  0, 13)


  3205                         PRX(X'5A',0,0,I,K)

C 000116B0    4110005A        LA      1,   90(  0,  0)
C 000116B4    5010B040        ST      1,   64(  0, 11)
C 000116B8    1F11            SLR     1,  1
C 000116BA    5010B044        ST      1,   68(  0, 11)
C 000116BE    1F11            SLR     1,  1
C 000116C0    5010B048        ST      1,   72(  0, 11)
C 000116C4    D203B04C809C    MVC     76(  4, 11),  156(  8)
C 000116CA    D203B05080A4    MVC     80(  4, 11),  164(  8)
C 000116D0    5810D1C0        L       1,  448(  0, 13)
C 000116D4    45F0D074        BAL    15,  116(  0, 13)


  3206                         PRX(X'5A',1,0,I,K+4)

C 000116D8    4110005A        LA      1,   90(  0,  0)
C 000116DC    5010B040        ST      1,   64(  0, 11)
C 000116E0    41100001        LA      1,    1(  0,  0)
C 000116E4    5010B044        ST      1,   68(  0, 11)
C 000116E8    1F11            SLR     1,  1
C 000116EA    5010B048        ST      1,   72(  0, 11)
C 000116EE    D203B04C809C    MVC     76(  4, 11),  156(  8)
C 000116F4    41100004        LA      1,    4(  0,  0)
C 000116F8    5A1080A4        A       1,  164(  0,  8)
C 000116FC    5010B050        ST      1,   80(  0, 11)
C 00011700    5810D1C0        L       1,  448(  0, 13)
C 00011704    45F0D074        BAL    15,  116(  0, 13)


  3207                         PRX(X'98',2,3,I,K+8); ->91

C 00011708    41100098        LA      1,  152(  0,  0)
C 0001170C    5010B040        ST      1,   64(  0, 11)
C 00011710    41100002        LA      1,    2(  0,  0)
C 00011714    5010B044        ST      1,   68(  0, 11)
C 00011718    41100003        LA      1,    3(  0,  0)
C 0001171C    5010B048        ST      1,   72(  0, 11)
C 00011720    D203B04C809C    MVC     76(  4, 11),  156(  8)
C 00011726    41100008        LA      1,    8(  0,  0)
C 0001172A    5A1080A4        A       1,  164(  0,  8)
C 0001172E    5010B050        ST      1,   80(  0, 11)
C 00011732    5810D1C0        L       1,  448(  0, 13)
C 00011736    45F0D074        BAL    15,  116(  0, 13)



C 0001173A    0000
C 0001173C    0000
C 0001173E    47FA0000        BC     15,    0( 10,  0)


  3208                FUNNY(13):     ! SET BASE & DISP FOR ROUTINE ADDR
  3209                         ->SW(3) %IF TYPE=3

C 00011742    95038094        CLI    148(  8),  3
C 00011746    477A051E        BC      7, 1310( 10,  0)
C 0001174A    41100003        LA      1,    3(  0,  0)
C 0001174E    89100002        SLL     1,    2(  0)
C 00011752    5811A058        L       1,   88(  1, 10)
C 00011756    47F1A000        BC     15,    0(  1, 10)


  3210                         ->1302 %IF PTYPE=10006

C 0001175A    5810D5F4        L       1, 1524(  0, 13)
C 0001175E    59108098        C       1,  152(  0,  8)
C 00011762    0000
C 00011764    0000
C 00011766    478A0000        BC      8,    0( 10,  0)


  3211                         ->1301 %IF ROUT=1 %AND NAM&1=1

C 0001176A    95018090        CLI    144(  8),  1
C 0001176E    477A0550        BC      7, 1360( 10,  0)
C 00011772    41100001        LA      1,    1(  0,  0)
C 00011776    1F22            SLR     2,  2
C 00011778    43208091        IC      2,  145(  0,  8)
C 0001177C    1412            NR      1,  2
C 0001177E    41200001        LA      2,    1(  0,  0)
C 00011782    1912            CR      1,  2
C 00011784    0000
C 00011786    0000
C 00011788    478A0000        BC      8,    0( 10,  0)


  3212                         BASE=GLA; FROM1(K,DISP)

C 0001178C    D2038074D150    MVC    116(  4,  8),  336( 13)



C 00011792    D203B04080A4    MVC     64(  4, 11),  164(  8)
C 00011798    41108078        LA      1,  120(  0,  8)
C 0001179C    5010B044        ST      1,   68(  0, 11)
C 000117A0    5810D3FC        L       1, 1020(  0, 13)
C 000117A4    45F0D074        BAL    15,  116(  0, 13)


  3213                         INDEX=0; DISP=RA(DISP)

C 000117A8    1F11            SLR     1,  1
C 000117AA    50108080        ST      1,  128(  0,  8)



C 000117AE    58108078        L       1,  120(  0,  8)
C 000117B2    413092EC        LA      3,  748(  0,  9)
C 000117B6    45F0C05C        BAL    15,   92(  0, 12)
C 000117BA    4811F000        LH      1,    0(  1, 15)
C 000117BE    50108078        ST      1,  120(  0,  8)


  3214                         DISP=DISP+4 %IF J=14;         ! EXTERNAL ROUTINES SKIP LINK

C 000117C2    4110000E        LA      1,   14(  0,  0)
C 000117C6    591080A0        C       1,  160(  0,  8)
C 000117CA    477A059E        BC      7, 1438( 10,  0)
C 000117CE    41100004        LA      1,    4(  0,  0)
C 000117D2    5A108078        A       1,  120(  0,  8)
C 000117D6    50108078        ST      1,  120(  0,  8)


  3215                1300:    ->500 %UNLESS ROUT=1

C 000117DA    95018090        CLI    144(  8),  1
C 000117DE    4770A224        BC      7,  548(  0, 10)


  3216                         ->91

C 000117E2    0000
C 000117E4    0000
C 000117E6    47FA0000        BC     15,    0( 10,  0)


  3217                1301:    BASE=I; FROM1(K,DISP)

C 000117EA    D2038074809C    MVC    116(  4,  8),  156(  8)



C 000117F0    D203B04080A4    MVC     64(  4, 11),  164(  8)
C 000117F6    41108078        LA      1,  120(  0,  8)
C 000117FA    5010B044        ST      1,   68(  0, 11)
C 000117FE    5810D3FC        L       1, 1020(  0, 13)
C 00011802    45F0D074        BAL    15,  116(  0, 13)


  3218                         INDEX=0; ->91

C 00011806    1F11            SLR     1,  1
C 00011808    50108080        ST      1,  128(  0,  8)



C 0001180C    0000
C 0001180E    0000
C 00011810    47FA0000        BC     15,    0( 10,  0)


  3219                1302:    CSNAME(Z,REG); ->6

C 00011814    D203B0407040    MVC     64(  4, 11),   64(  7)
C 0001181A    D203B0447044    MVC     68(  4, 11),   68(  7)
C 00011820    5810D40C        L       1, 1036(  0, 13)
C 00011824    45F0D074        BAL    15,  116(  0, 13)



C 00011828    0000
C 0001182A    0000
C 0001182C    47FA0000        BC     15,    0( 10,  0)


  3220                S(13):   FROM2(K,K); ->1300

C 00011830    D203B04080A4    MVC     64(  4, 11),  164(  8)
C 00011836    411080A4        LA      1,  164(  0,  8)
C 0001183A    5010B044        ST      1,   68(  0, 11)
C 0001183E    5810D3F8        L       1, 1016(  0, 13)
C 00011842    45F0D074        BAL    15,  116(  0, 13)



C 00011846    47F0A59E        BC     15, 1438(  0, 10)


  3221                FUNNY(15):                             ! FETCH RECORD NAME
  3222                         ->1501 %IF PTYPE=10006

C 0001184A    5810D5F8        L       1, 1528(  0, 13)
C 0001184E    59108098        C       1,  152(  0,  8)
C 00011852    0000
C 00011854    0000
C 00011856    478A0000        BC      8,    0( 10,  0)


  3223                FUNNY(14):     ! STORE INTO RECORD NAME
  3224                         RR=0; %IF ARR=0 %AND INREG#0 %AND A(P+1)=2=A(P+2)%THEN RR=INREG

C 0001185A    1F44            SLR     4,  4



C 0001185C    95008092        CLI    146(  8),  0
C 00011860    477A0672        BC      7, 1650( 10,  0)
C 00011864    581080AC        L       1,  172(  0,  8)
C 00011868    1211            LTR     1,  1
C 0001186A    478A0672        BC      8, 1650( 10,  0)
C 0001186E    41100001        LA      1,    1(  0,  0)
C 00011872    5A108040        A       1,   64(  0,  8)
C 00011876    413092FC        LA      3,  764(  0,  9)
C 0001187A    45F0C05C        BAL    15,   92(  0, 12)
C 0001187E    4811F000        LH      1,    0(  1, 15)
C 00011882    1851            LR      5,  1
C 00011884    41100002        LA      1,    2(  0,  0)
C 00011888    1915            CR      1,  5
C 0001188A    477A0672        BC      7, 1650( 10,  0)
C 0001188E    1851            LR      5,  1
C 00011890    41100002        LA      1,    2(  0,  0)
C 00011894    5A108040        A       1,   64(  0,  8)
C 00011898    413092FC        LA      3,  764(  0,  9)
C 0001189C    45F0C05C        BAL    15,   92(  0, 12)
C 000118A0    4811F000        LH      1,    0(  1, 15)
C 000118A4    1915            CR      1,  5
C 000118A6    477A0672        BC      7, 1650( 10,  0)
C 000118AA    584080AC        L       4,  172(  0,  8)


  3225                         ->SW(3) %IF TYPE=3; ->661

C 000118AE    95038094        CLI    148(  8),  3
C 000118B2    477A068A        BC      7, 1674( 10,  0)
C 000118B6    41100003        LA      1,    3(  0,  0)
C 000118BA    89100002        SLL     1,    2(  0)
C 000118BE    5811A058        L       1,   88(  1, 10)
C 000118C2    47F1A000        BC     15,    0(  1, 10)



C 000118C6    47F0A294        BC     15,  660(  0, 10)


  3226                S(14):   FAULT(20) %UNLESS TYPE=3 %AND NAM=1

C 000118CA    95038094        CLI    148(  8),  3
C 000118CE    477A069E        BC      7, 1694( 10,  0)
C 000118D2    95018091        CLI    145(  8),  1
C 000118D6    478A06AA        BC      8, 1706( 10,  0)
C 000118DA    9214B043        MVI     67( 11), 20
C 000118DE    5810D228        L       1,  552(  0, 13)
C 000118E2    45F0D074        BAL    15,  116(  0, 13)


  3227                         PRR(X'18',RR,REG) %IF REG#RR#0

C 000118E6    59207044        C       2,   68(  0,  7)
C 000118EA    478A06D2        BC      8, 1746( 10,  0)
C 000118EE    1222            LTR     2,  2
C 000118F0    478A06D2        BC      8, 1746( 10,  0)
C 000118F4    41100018        LA      1,   24(  0,  0)
C 000118F8    5010B040        ST      1,   64(  0, 11)
C 000118FC    5020B044        ST      2,   68(  0, 11)
C 00011900    D203B0487044    MVC     72(  4, 11),   68(  7)
C 00011906    5810D1D0        L       1,  464(  0, 13)
C 0001190A    45F0D074        BAL    15,  116(  0, 13)


  3228                         DISP=0 %IF DISP<0

C 0001190E    58108078        L       1,  120(  0,  8)
C 00011912    1211            LTR     1,  1
C 00011914    47BA06E2        BC     11, 1762( 10,  0)
C 00011918    1F11            SLR     1,  1
C 0001191A    50108078        ST      1,  120(  0,  8)


  3229                         R13=0 %IF R13=BASE<<12!DISP

C 0001191E    58108074        L       1,  116(  0,  8)
C 00011922    8910000C        SLL     1,   12(  0)
C 00011926    56108078        O       1,  120(  0,  8)
C 0001192A    591090BC        C       1,  188(  0,  9)
C 0001192E    477A06FC        BC      7, 1788( 10,  0)
C 00011932    1F11            SLR     1,  1
C 00011934    501090BC        ST      1,  188(  0,  9)


  3230                1401:    DUMP(Z-13,REG,DISP,INDEX,BASE)

C 00011938    58107040        L       1,   64(  0,  7)
C 0001193C    4120000D        LA      2,   13(  0,  0)
C 00011940    1B12            SR      1,  2
C 00011942    5010B040        ST      1,   64(  0, 11)
C 00011946    D203B0447044    MVC     68(  4, 11),   68(  7)
C 0001194C    D203B0488078    MVC     72(  4, 11),  120(  8)
C 00011952    D203B04C8080    MVC     76(  4, 11),  128(  8)
C 00011958    D203B0508074    MVC     80(  4, 11),  116(  8)
C 0001195E    5810D458        L       1, 1112(  0, 13)
C 00011962    45F0D074        BAL    15,  116(  0, 13)


  3231                         P=P+1; ->9005

C 00011966    41100001        LA      1,    1(  0,  0)
C 0001196A    5A108040        A       1,   64(  0,  8)
C 0001196E    50108040        ST      1,   64(  0,  8)



C 00011972    0000
C 00011974    0000
C 00011976    47FA0000        BC     15,    0( 10,  0)


  3232                S(15):   ->661 %UNLESS TYPE=3

C 0001197A    95038094        CLI    148(  8),  3
C 0001197E    4770A294        BC      7,  660(  0, 10)


  3233                         ->1401 %IF DISP>=0

C 00011982    58108078        L       1,  120(  0,  8)
C 00011986    1211            LTR     1,  1
C 00011988    47A0A6FC        BC     10, 1788(  0, 10)


  3234                         DUMP(0,REG,0,INDEX,BASE); P=P+1; ->9005

C 0001198C    1F11            SLR     1,  1
C 0001198E    5010B040        ST      1,   64(  0, 11)
C 00011992    D203B0447044    MVC     68(  4, 11),   68(  7)
C 00011998    1F11            SLR     1,  1
C 0001199A    5010B048        ST      1,   72(  0, 11)
C 0001199E    D203B04C8080    MVC     76(  4, 11),  128(  8)
C 000119A4    D203B0508074    MVC     80(  4, 11),  116(  8)
C 000119AA    5810D458        L       1, 1112(  0, 13)
C 000119AE    45F0D074        BAL    15,  116(  0, 13)



C 000119B2    41100001        LA      1,    1(  0,  0)
C 000119B6    5A108040        A       1,   64(  0,  8)
C 000119BA    50108040        ST      1,   64(  0,  8)



C 000119BE    0000
C 000119C0    0000
C 000119C2    47FA0000        BC     15,    0( 10,  0)


  3235                1501:    CSNAME(Z,REG)

C 000119C6    D203B0407040    MVC     64(  4, 11),   64(  7)
C 000119CC    D203B0447044    MVC     68(  4, 11),   68(  7)
C 000119D2    5810D40C        L       1, 1036(  0, 13)
C 000119D6    45F0D074        BAL    15,  116(  0, 13)


  3236                         FAULT(22) %UNLESS A(P)=2 %AND A(P+1)=2; P=P+2; ->9005

C 000119DA    58108040        L       1,   64(  0,  8)
C 000119DE    413092FC        LA      3,  764(  0,  9)
C 000119E2    45F0C05C        BAL    15,   92(  0, 12)
C 000119E6    4811F000        LH      1,    0(  1, 15)
C 000119EA    41200002        LA      2,    2(  0,  0)
C 000119EE    1912            CR      1,  2
C 000119F0    477A07D6        BC      7, 2006( 10,  0)
C 000119F4    41100001        LA      1,    1(  0,  0)
C 000119F8    5A108040        A       1,   64(  0,  8)
C 000119FC    413092FC        LA      3,  764(  0,  9)
C 00011A00    45F0C05C        BAL    15,   92(  0, 12)
C 00011A04    4811F000        LH      1,    0(  1, 15)
C 00011A08    41200002        LA      2,    2(  0,  0)
C 00011A0C    1912            CR      1,  2
C 00011A0E    478A07E2        BC      8, 2018( 10,  0)
C 00011A12    9216B043        MVI     67( 11), 22
C 00011A16    5810D228        L       1,  552(  0, 13)
C 00011A1A    45F0D074        BAL    15,  116(  0, 13)



C 00011A1E    41100002        LA      1,    2(  0,  0)
C 00011A22    5A108040        A       1,   64(  0,  8)
C 00011A26    50108040        ST      1,   64(  0,  8)



C 00011A2A    0000
C 00011A2C    0000
C 00011A2E    47FA0000        BC     15,    0( 10,  0)


  3237                SW(3):   ! RECORD
  3238                         FROM2(K,JJJ)

C 00011A32    D203B04080A4    MVC     64(  4, 11),  164(  8)
C 00011A38    4110704C        LA      1,   76(  0,  7)
C 00011A3C    5010B044        ST      1,   68(  0, 11)
C 00011A40    5810D3F8        L       1, 1016(  0, 13)
C 00011A44    45F0D074        BAL    15,  116(  0, 13)


  3239                         CRNAME(Z,0,TAGS(A(P)),I,JJJ)

C 00011A48    D203B0407040    MVC     64(  4, 11),   64(  7)
C 00011A4E    1F11            SLR     1,  1
C 00011A50    5010B044        ST      1,   68(  0, 11)
C 00011A54    58108040        L       1,   64(  0,  8)
C 00011A58    413092FC        LA      3,  764(  0,  9)
C 00011A5C    45F0C05C        BAL    15,   92(  0, 12)
C 00011A60    4811F000        LH      1,    0(  1, 15)
C 00011A64    4130931C        LA      3,  796(  0,  9)
C 00011A68    45F0C05C        BAL    15,   92(  0, 12)
C 00011A6C    4811F000        LH      1,    0(  1, 15)
C 00011A70    5010B048        ST      1,   72(  0, 11)
C 00011A74    D203B04C809C    MVC     76(  4, 11),  156(  8)
C 00011A7A    D203B050704C    MVC     80(  4, 11),   76(  7)
C 00011A80    5810D3C8        L       1,  968(  0, 13)
C 00011A84    45F0D074        BAL    15,  116(  0, 13)


  3240                         ->S(Z) %IF Z>=10

C 00011A88    4110000A        LA      1,   10(  0,  0)
C 00011A8C    59107040        C       1,   64(  0,  7)
C 00011A90    473A0864        BC      3, 2148( 10,  0)
C 00011A94    58107040        L       1,   64(  0,  7)
C 00011A98    4120A008        LA      2,    8(  0, 10)
C 00011A9C    45F0C01C        BAL    15,   28(  0, 12)


  3241                         ->5020 %IF TYPE=5

C 00011AA0    95058094        CLI    148(  8),  5
C 00011AA4    0000
C 00011AA6    0000
C 00011AA8    478A0000        BC      8,    0( 10,  0)


  3242                         ->601 %UNLESS Z=0

C 00011AAC    58107040        L       1,   64(  0,  7)
C 00011AB0    1211            LTR     1,  1
C 00011AB2    0000
C 00011AB4    0000
C 00011AB6    477A0000        BC      7,    0( 10,  0)


  3243                         ->500 %UNLESS ROUT=1 %AND NAM=1

C 00011ABA    95018090        CLI    144(  8),  1
C 00011ABE    4770A224        BC      7,  548(  0, 10)
C 00011AC2    95018091        CLI    145(  8),  1
C 00011AC6    4770A224        BC      7,  548(  0, 10)


  3244                         LEVELP=PARK(BASE); RR=DISP

C 00011ACA    D203B0408074    MVC     64(  4, 11),  116(  8)
C 00011AD0    5810D414        L       1, 1044(  0, 13)
C 00011AD4    45F0D074        BAL    15,  116(  0, 13)
C 00011AD8    5010705C        ST      1,   92(  0,  7)



C 00011ADC    58408078        L       4,  120(  0,  8)


  3245                         PTYPEP=PTYPE; FROM2(K,JJ)

C 00011AE0    D20370588098    MVC     88(  4,  7),  152(  8)



C 00011AE6    D203B04080A4    MVC     64(  4, 11),  164(  8)
C 00011AEC    41107048        LA      1,   72(  0,  7)
C 00011AF0    5010B044        ST      1,   68(  0, 11)
C 00011AF4    5810D3F8        L       1, 1016(  0, 13)
C 00011AF8    45F0D074        BAL    15,  116(  0, 13)


  3246                         FROM2(JJ,K); ->22

C 00011AFC    D203B0407048    MVC     64(  4, 11),   72(  7)
C 00011B02    411080A4        LA      1,  164(  0,  8)
C 00011B06    5010B044        ST      1,   68(  0, 11)
C 00011B0A    5810D3F8        L       1, 1016(  0, 13)
C 00011B0E    45F0D074        BAL    15,  116(  0, 13)



C 00011B12    0000
C 00011B14    0000
C 00011B16    47FA0000        BC     15,    0( 10,  0)


  3247                SW(5):                                 !STRINGS
  3248                         BASE=I; INDEX=0; DISP=K

C 00011B1A    D2038074809C    MVC    116(  4,  8),  156(  8)



C 00011B20    1F11            SLR     1,  1
C 00011B22    50108080        ST      1,  128(  0,  8)



C 00011B26    D203807880A4    MVC    120(  4,  8),  164(  8)


  3249                         JJJ=2; ->5000 %UNLESS ARR=1

C 00011B2C    41100002        LA      1,    2(  0,  0)
C 00011B30    5010704C        ST      1,   76(  0,  7)



C 00011B34    95018092        CLI    146(  8),  1
C 00011B38    0000
C 00011B3A    0000
C 00011B3C    477A0000        BC      7,    0( 10,  0)


  3250                         CANAME(Z,I,K,TAGS(FNAME),0,0)

C 00011B40    D203B0407040    MVC     64(  4, 11),   64(  7)
C 00011B46    D203B044809C    MVC     68(  4, 11),  156(  8)
C 00011B4C    D203B04880A4    MVC     72(  4, 11),  164(  8)
C 00011B52    58109130        L       1,  304(  0,  9)
C 00011B56    4130931C        LA      3,  796(  0,  9)
C 00011B5A    45F0C05C        BAL    15,   92(  0, 12)
C 00011B5E    4811F000        LH      1,    0(  1, 15)
C 00011B62    5010B04C        ST      1,   76(  0, 11)
C 00011B66    1F11            SLR     1,  1
C 00011B68    5010B050        ST      1,   80(  0, 11)
C 00011B6C    1F11            SLR     1,  1
C 00011B6E    5010B054        ST      1,   84(  0, 11)
C 00011B72    5810D3CC        L       1,  972(  0, 13)
C 00011B76    45F0D074        BAL    15,  116(  0, 13)


  3251                4998:    NAM=NAM>>1;JJJ=0

C 00011B7A    1F11            SLR     1,  1
C 00011B7C    43108091        IC      1,  145(  0,  8)
C 00011B80    88100001        SRL     1,    1(  0)
C 00011B84    42108091        STC     1,  145(  0,  8)
C 00011B88    5510D018        CL      1,   24(  0, 13)
C 00011B8C    472C0058        BC      2,   88( 12,  0)



C 00011B90    1F11            SLR     1,  1
C 00011B92    5010704C        ST      1,   76(  0,  7)


  3252                         ->5000 %UNLESS Z=3

C 00011B96    41100003        LA      1,    3(  0,  0)
C 00011B9A    59107040        C       1,   64(  0,  7)
C 00011B9E    0000
C 00011BA0    0000
C 00011BA2    477A0000        BC      7,    0( 10,  0)


  3253                         DUMP(0,REG,DISP,INDEX,BASE)

C 00011BA6    1F11            SLR     1,  1
C 00011BA8    5010B040        ST      1,   64(  0, 11)
C 00011BAC    D203B0447044    MVC     68(  4, 11),   68(  7)
C 00011BB2    D203B0488078    MVC     72(  4, 11),  120(  8)
C 00011BB8    D203B04C8080    MVC     76(  4, 11),  128(  8)
C 00011BBE    D203B0508074    MVC     80(  4, 11),  116(  8)
C 00011BC4    5810D458        L       1, 1112(  0, 13)
C 00011BC8    45F0D074        BAL    15,  116(  0, 13)


  3254                         PRX (X'58',2,0,LEVELP,DISPP+8) %IF CHECKS#0

C 00011BCC    950090CA        CLI    202(  9),  0
C 00011BD0    478A09C8        BC      8, 2504( 10,  0)
C 00011BD4    41100058        LA      1,   88(  0,  0)
C 00011BD8    5010B040        ST      1,   64(  0, 11)
C 00011BDC    41100002        LA      1,    2(  0,  0)
C 00011BE0    5010B044        ST      1,   68(  0, 11)
C 00011BE4    1F11            SLR     1,  1
C 00011BE6    5010B048        ST      1,   72(  0, 11)
C 00011BEA    D203B04C705C    MVC     76(  4, 11),   92(  7)
C 00011BF0    41100008        LA      1,    8(  0,  0)
C 00011BF4    5A107060        A       1,   96(  0,  7)
C 00011BF8    5010B050        ST      1,   80(  0, 11)
C 00011BFC    5810D1C0        L       1,  448(  0, 13)
C 00011C00    45F0D074        BAL    15,  116(  0, 13)


  3255                         PACLOD(10,6,REG<<4); ->9

C 00011C04    4110000A        LA      1,   10(  0,  0)
C 00011C08    5010B040        ST      1,   64(  0, 11)
C 00011C0C    41100006        LA      1,    6(  0,  0)
C 00011C10    5010B044        ST      1,   68(  0, 11)
C 00011C14    58107044        L       1,   68(  0,  7)
C 00011C18    89100004        SLL     1,    4(  0)
C 00011C1C    5010B048        ST      1,   72(  0, 11)
C 00011C20    5810D1C4        L       1,  452(  0, 13)
C 00011C24    45F0D074        BAL    15,  116(  0, 13)



C 00011C28    0000
C 00011C2A    0000
C 00011C2C    47FA0000        BC     15,    0( 10,  0)


  3256                         %COMMENT L 2,LMAX. BCTR 2,0. SLL 2,24. OR REG,2
  3257                5000:    ->605 %IF 2<=Z<=3

C 00011C30    58107040        L       1,   64(  0,  7)
C 00011C34    41200002        LA      2,    2(  0,  0)
C 00011C38    1921            CR      2,  1
C 00011C3A    473A0A10        BC      3, 2576( 10,  0)
C 00011C3E    41200003        LA      2,    3(  0,  0)
C 00011C42    1912            CR      1,  2
C 00011C44    0000
C 00011C46    0000
C 00011C48    47CA0000        BC     12,    0( 10,  0)


  3258                         PRR(X'18',4,REG) %UNLESS REG=4

C 00011C4C    41100004        LA      1,    4(  0,  0)
C 00011C50    59107044        C       1,   68(  0,  7)
C 00011C54    478A0A3A        BC      8, 2618( 10,  0)
C 00011C58    41100018        LA      1,   24(  0,  0)
C 00011C5C    5010B040        ST      1,   64(  0, 11)
C 00011C60    41100004        LA      1,    4(  0,  0)
C 00011C64    5010B044        ST      1,   68(  0, 11)
C 00011C68    D203B0487044    MVC     72(  4, 11),   68(  7)
C 00011C6E    5810D1D0        L       1,  464(  0, 13)
C 00011C72    45F0D074        BAL    15,  116(  0, 13)


  3259                         DUMP(JJJ,1,DISP,INDEX,BASE)

C 00011C76    D203B040704C    MVC     64(  4, 11),   76(  7)
C 00011C7C    41100001        LA      1,    1(  0,  0)
C 00011C80    5010B044        ST      1,   68(  0, 11)
C 00011C84    D203B0488078    MVC     72(  4, 11),  120(  8)
C 00011C8A    D203B04C8080    MVC     76(  4, 11),  128(  8)
C 00011C90    D203B0508074    MVC     80(  4, 11),  116(  8)
C 00011C96    5810D458        L       1, 1112(  0, 13)
C 00011C9A    45F0D074        BAL    15,  116(  0, 13)


  3260                         ->5001 %IF ARR=0

C 00011C9E    95008092        CLI    146(  8),  0
C 00011CA2    0000
C 00011CA4    0000
C 00011CA6    478A0000        BC      8,    0( 10,  0)


  3261                         PRX(X'58',2,0,LEVELP,DISPP+8) %IF Z=4 %OR CHECKS#0

C 00011CAA    41100004        LA      1,    4(  0,  0)
C 00011CAE    59107040        C       1,   64(  0,  7)
C 00011CB2    478A0A82        BC      8, 2690( 10,  0)
C 00011CB6    950090CA        CLI    202(  9),  0
C 00011CBA    478A0AB2        BC      8, 2738( 10,  0)
C 00011CBE    41100058        LA      1,   88(  0,  0)
C 00011CC2    5010B040        ST      1,   64(  0, 11)
C 00011CC6    41100002        LA      1,    2(  0,  0)
C 00011CCA    5010B044        ST      1,   68(  0, 11)
C 00011CCE    1F11            SLR     1,  1
C 00011CD0    5010B048        ST      1,   72(  0, 11)
C 00011CD4    D203B04C705C    MVC     76(  4, 11),   92(  7)
C 00011CDA    41100008        LA      1,    8(  0,  0)
C 00011CDE    5A107060        A       1,   96(  0,  7)
C 00011CE2    5010B050        ST      1,   80(  0, 11)
C 00011CE6    5810D1C0        L       1,  448(  0, 13)
C 00011CEA    45F0D074        BAL    15,  116(  0, 13)


  3262                         I=2; K=3

C 00011CEE    41100002        LA      1,    2(  0,  0)
C 00011CF2    5010809C        ST      1,  156(  0,  8)



C 00011CF6    41100003        LA      1,    3(  0,  0)
C 00011CFA    501080A4        ST      1,  164(  0,  8)


  3263                5001:    STORE STRING(Z,4,1,I,K);->9

C 00011CFE    D203B0407040    MVC     64(  4, 11),   64(  7)
C 00011D04    41100004        LA      1,    4(  0,  0)
C 00011D08    5010B044        ST      1,   68(  0, 11)
C 00011D0C    41100001        LA      1,    1(  0,  0)
C 00011D10    5010B048        ST      1,   72(  0, 11)
C 00011D14    D203B04C809C    MVC     76(  4, 11),  156(  8)
C 00011D1A    D203B05080A4    MVC     80(  4, 11),  164(  8)
C 00011D20    5810D354        L       1,  852(  0, 13)
C 00011D24    45F0D074        BAL    15,  116(  0, 13)



C 00011D28    0000
C 00011D2A    0000
C 00011D2C    47FA0000        BC     15,    0( 10,  0)


  3264                5020:    ! STRINGS IN RE CORDS
  3265                         ->5025 %IF ARR=1

C 00011D30    95018092        CLI    146(  8),  1
C 00011D34    0000
C 00011D36    0000
C 00011D38    478A0000        BC      8,    0( 10,  0)


  3266                         ->9 %IF 2<=Z<=3

C 00011D3C    58107040        L       1,   64(  0,  7)
C 00011D40    41200002        LA      2,    2(  0,  0)
C 00011D44    1921            CR      2,  1
C 00011D46    473A0B1C        BC      3, 2844( 10,  0)
C 00011D4A    41200003        LA      2,    3(  0,  0)
C 00011D4E    1912            CR      1,  2
C 00011D50    0000
C 00011D52    0000
C 00011D54    47CA0000        BC     12,    0( 10,  0)


  3267                         PRR(X'18',4,REG) %UNLESS REG=4; ->5001

C 00011D58    41100004        LA      1,    4(  0,  0)
C 00011D5C    59107044        C       1,   68(  0,  7)
C 00011D60    478A0B46        BC      8, 2886( 10,  0)
C 00011D64    41100018        LA      1,   24(  0,  0)
C 00011D68    5010B040        ST      1,   64(  0, 11)
C 00011D6C    41100004        LA      1,    4(  0,  0)
C 00011D70    5010B044        ST      1,   68(  0, 11)
C 00011D74    D203B0487044    MVC     72(  4, 11),   68(  7)
C 00011D7A    5810D1D0        L       1,  464(  0, 13)
C 00011D7E    45F0D074        BAL    15,  116(  0, 13)



C 00011D82    47F0AAC2        BC     15, 2754(  0, 10)


  3268                5025:    ! STRING ARRAYS IN RECORDS
  3269                         LEVELP=I; DISPP=K; ->4998

C 00011D86    D203705C809C    MVC     92(  4,  7),  156(  8)



C 00011D8C    D203706080A4    MVC     96(  4,  7),  164(  8)



C 00011D92    47F0A93E        BC     15, 2366(  0, 10)


  3270                SW(8):                                 !REGISTER VARIABLE
  3271                         FAULT(29) %UNLESS 1<=Z<=2 %OR Z=4

C 00011D96    58107040        L       1,   64(  0,  7)
C 00011D9A    41200001        LA      2,    1(  0,  0)
C 00011D9E    1921            CR      2,  1
C 00011DA0    473A0B72        BC      3, 2930( 10,  0)
C 00011DA4    41200002        LA      2,    2(  0,  0)
C 00011DA8    1912            CR      1,  2
C 00011DAA    47CA0B8A        BC     12, 2954( 10,  0)
C 00011DAE    41100004        LA      1,    4(  0,  0)
C 00011DB2    59107040        C       1,   64(  0,  7)
C 00011DB6    478A0B8A        BC      8, 2954( 10,  0)
C 00011DBA    921DB043        MVI     67( 11), 29
C 00011DBE    5810D228        L       1,  552(  0, 13)
C 00011DC2    45F0D074        BAL    15,  116(  0, 13)


  3272                         ->9 %IF K=REG

C 00011DC6    D50380A47044    CLC    164(  4,  8),   68(  7)
C 00011DCC    0000
C 00011DCE    0000
C 00011DD0    478A0000        BC      8,    0( 10,  0)


  3273                         %IF Z=2 %THEN PRR(X'18',REG,K) %ELSE PRR(X'18',K,REG)

C 00011DD4    41100002        LA      1,    2(  0,  0)
C 00011DD8    59107040        C       1,   64(  0,  7)
C 00011DDC    477A0BC4        BC      7, 3012( 10,  0)
C 00011DE0    41100018        LA      1,   24(  0,  0)
C 00011DE4    5010B040        ST      1,   64(  0, 11)
C 00011DE8    D203B0447044    MVC     68(  4, 11),   68(  7)
C 00011DEE    D203B04880A4    MVC     72(  4, 11),  164(  8)
C 00011DF4    5810D1D0        L       1,  464(  0, 13)
C 00011DF8    45F0D074        BAL    15,  116(  0, 13)
C 00011DFC    47FA0BE0        BC     15, 3040( 10,  0)
C 00011E00    41100018        LA      1,   24(  0,  0)
C 00011E04    5010B040        ST      1,   64(  0, 11)
C 00011E08    D203B04480A4    MVC     68(  4, 11),  164(  8)
C 00011E0E    D203B0487044    MVC     72(  4, 11),   68(  7)
C 00011E14    5810D1D0        L       1,  464(  0, 13)
C 00011E18    45F0D074        BAL    15,  116(  0, 13)


  3274                         ->9

C 00011E1C    0000
C 00011E1E    0000
C 00011E20    47FA0000        BC     15,    0( 10,  0)


  3275                SW(0):   %UNLESS Z=3 %OR Z>10 %THEN %START

C 00011E24    41100003        LA      1,    3(  0,  0)
C 00011E28    59107040        C       1,   64(  0,  7)
C 00011E2C    0000
C 00011E2E    0000
C 00011E30    478A0000        BC      8,    0( 10,  0)
C 00011E34    4110000A        LA      1,   10(  0,  0)
C 00011E38    59107040        C       1,   64(  0,  7)
C 00011E3C    0000
C 00011E3E    0000
C 00011E40    474A0000        BC      4,    0( 10,  0)


  3276                         FAULT(12); TYPE=1; PTYPE=PTYPE+1; %FINISH

C 00011E44    920CB043        MVI     67( 11), 12
C 00011E48    5810D228        L       1,  552(  0, 13)
C 00011E4C    45F0D074        BAL    15,  116(  0, 13)



C 00011E50    92018094        MVI    148(  8),  1



C 00011E54    41100001        LA      1,    1(  0,  0)
C 00011E58    5A108098        A       1,  152(  0,  8)
C 00011E5C    50108098        ST      1,  152(  0,  8)


  3277                SW(2):                                 !REAL
  3278                SW(1):   ->600 %IF ARR=0;              ! TYPE 1 = %INTEGER

C 00011E60    95008092        CLI    146(  8),  0
C 00011E64    0000
C 00011E66    0000
C 00011E68    478A0000        BC      8,    0( 10,  0)


  3279                         CANAME(Z,I,K,TAGS(FNAME),0,0)

C 00011E6C    D203B0407040    MVC     64(  4, 11),   64(  7)
C 00011E72    D203B044809C    MVC     68(  4, 11),  156(  8)
C 00011E78    D203B04880A4    MVC     72(  4, 11),  164(  8)
C 00011E7E    58109130        L       1,  304(  0,  9)
C 00011E82    4130931C        LA      3,  796(  0,  9)
C 00011E86    45F0C05C        BAL    15,   92(  0, 12)
C 00011E8A    4811F000        LH      1,    0(  1, 15)
C 00011E8E    5010B04C        ST      1,   76(  0, 11)
C 00011E92    1F11            SLR     1,  1
C 00011E94    5010B050        ST      1,   80(  0, 11)
C 00011E98    1F11            SLR     1,  1
C 00011E9A    5010B054        ST      1,   84(  0, 11)
C 00011E9E    5810D3CC        L       1,  972(  0, 13)
C 00011EA2    45F0D074        BAL    15,  116(  0, 13)


  3280                         TYPE=1 %IF TYPE=0;            ! IN CASE OF ABUSE OF ARRAYNAME

C 00011EA6    95008094        CLI    148(  8),  0
C 00011EAA    0560            BALR    6,  0
C 00011EAC    47760008        BC      7,    8(  6,  0)
C 00011EB0    92018094        MVI    148(  8),  1


  3281                         NAM=NAM>>1; ->601

C 00011EB4    1F11            SLR     1,  1
C 00011EB6    43108091        IC      1,  145(  0,  8)
C 00011EBA    88100001        SRL     1,    1(  0)
C 00011EBE    42108091        STC     1,  145(  0,  8)
C 00011EC2    5510D018        CL      1,   24(  0, 13)
C 00011EC6    472C0058        BC      2,   88( 12,  0)



C 00011ECA    0000
C 00011ECC    0000
C 00011ECE    47FA0000        BC     15,    0( 10,  0)


  3282                501:     ->503 %UNLESS Z#0 %AND PTYPE=10000;!     ROUTINES

C 00011ED2    58107040        L       1,   64(  0,  7)
C 00011ED6    1211            LTR     1,  1
C 00011ED8    0000
C 00011EDA    0000
C 00011EDC    478A0000        BC      8,    0( 10,  0)
C 00011EE0    5810D5FC        L       1, 1532(  0, 13)
C 00011EE4    59108098        C       1,  152(  0,  8)
C 00011EE8    0000
C 00011EEA    0000
C 00011EEC    477A0000        BC      7,    0( 10,  0)


  3283                         FAULT(23); PRINTNAME(A(P)); ->503

C 00011EF0    9217B043        MVI     67( 11), 23
C 00011EF4    5810D228        L       1,  552(  0, 13)
C 00011EF8    45F0D074        BAL    15,  116(  0, 13)



C 00011EFC    58108040        L       1,   64(  0,  8)
C 00011F00    413092FC        LA      3,  764(  0,  9)
C 00011F04    45F0C05C        BAL    15,   92(  0, 12)
C 00011F08    4811F000        LH      1,    0(  1, 15)
C 00011F0C    5010B040        ST      1,   64(  0, 11)
C 00011F10    5810D230        L       1,  560(  0, 13)
C 00011F14    45F0D074        BAL    15,  116(  0, 13)



C 00011F18    0000
C 00011F1A    0000
C 00011F1C    47FA0000        BC     15,    0( 10,  0)


  3284                503:     PTYPEP=PTYPE

C 00011F20    D20370588098    MVC     88(  4,  7),  152(  8)


  3285                         ->20 %UNLESS PTYPE=10006

C 00011F26    5810D600        L       1, 1536(  0, 13)
C 00011F2A    59108098        C       1,  152(  0,  8)
C 00011F2E    0000
C 00011F30    0000
C 00011F32    477A0000        BC      7,    0( 10,  0)


  3286                         CSNAME(Z,REG)

C 00011F36    D203B0407040    MVC     64(  4, 11),   64(  7)
C 00011F3C    D203B0447044    MVC     68(  4, 11),   68(  7)
C 00011F42    5810D40C        L       1, 1036(  0, 13)
C 00011F46    45F0D074        BAL    15,  116(  0, 13)


  3287                         ->202 %IF ROUT=1 %AND NAM>=1 %AND Z#0; ->6; ! MAPS

C 00011F4A    95018090        CLI    144(  8),  1
C 00011F4E    0560            BALR    6,  0
C 00011F50    4776001A        BC      7,   26(  6,  0)
C 00011F54    95018091        CLI    145(  8),  1
C 00011F58    4756001A        BC      5,   26(  6,  0)
C 00011F5C    58107040        L       1,   64(  0,  7)
C 00011F60    1211            LTR     1,  1
C 00011F62    0000
C 00011F64    0000
C 00011F66    477A0000        BC      7,    0( 10,  0)



C 00011F6A    0000
C 00011F6C    0000
C 00011F6E    47FA0000        BC     15,    0( 10,  0)


  3288                20:      KK=K; FROM LIST(KK,RR,K)

C 00011F72    D203705080A4    MVC     80(  4,  7),  164(  8)



C 00011F78    D203B0407050    MVC     64(  4, 11),   80(  7)
C 00011F7E    5010B044        ST      1,   68(  0, 11)
C 00011F82    411080A4        LA      1,  164(  0,  8)
C 00011F86    5010B048        ST      1,   72(  0, 11)
C 00011F8A    5810D3D8        L       1,  984(  0, 13)
C 00011F8E    45F0D074        BAL    15,  116(  0, 13)


  3289                22:      ->21 %UNLESS K=1000; FAULT(21); ->502

C 00011F92    411003E8        LA      1, 1000(  0,  0)
C 00011F96    591080A4        C       1,  164(  0,  8)
C 00011F9A    0000
C 00011F9C    0000
C 00011F9E    477A0000        BC      7,    0( 10,  0)



C 00011FA2    9215B043        MVI     67( 11), 21
C 00011FA6    5810D228        L       1,  552(  0, 13)
C 00011FAA    45F0D074        BAL    15,  116(  0, 13)



C 00011FAE    47F0A2A0        BC     15,  672(  0, 10)


  3290                21:      CRCALL(KK)

C 00011FB2    D203B0407050    MVC     64(  4, 11),   80(  7)
C 00011FB8    5810D3C0        L       1,  960(  0, 13)
C 00011FBC    45F0D074        BAL    15,  116(  0, 13)


  3291                         PTYPE=PTYPEP; UNPACK

C 00011FC0    D20380987058    MVC    152(  4,  8),   88(  7)



C 00011FC6    5810D448        L       1, 1096(  0, 13)
C 00011FCA    45F0D074        BAL    15,  116(  0, 13)


  3292                         ->37 %IF NAM&1=1

C 00011FCE    41100001        LA      1,    1(  0,  0)
C 00011FD2    1F22            SLR     2,  2
C 00011FD4    43208091        IC      2,  145(  0,  8)
C 00011FD8    1412            NR      1,  2
C 00011FDA    41200001        LA      2,    1(  0,  0)
C 00011FDE    1912            CR      1,  2
C 00011FE0    0000
C 00011FE2    0000
C 00011FE4    478A0000        BC      8,    0( 10,  0)


  3293                         ->36 %IF JJ=14

C 00011FE8    4110000E        LA      1,   14(  0,  0)
C 00011FEC    59107048        C       1,   72(  0,  7)
C 00011FF0    0000
C 00011FF2    0000
C 00011FF4    478A0000        BC      8,    0( 10,  0)


  3294                         DUMP(2,1,RA(RR),0,GLA)        ;! RT ADDR TO REG1

C 00011FF8    41100002        LA      1,    2(  0,  0)
C 00011FFC    5010B040        ST      1,   64(  0, 11)
C 00012000    41100001        LA      1,    1(  0,  0)
C 00012004    5010B044        ST      1,   68(  0, 11)
C 00012008    1812            LR      1,  2
C 0001200A    413092EC        LA      3,  748(  0,  9)
C 0001200E    45F0C05C        BAL    15,   92(  0, 12)
C 00012012    4811F000        LH      1,    0(  1, 15)
C 00012016    5010B048        ST      1,   72(  0, 11)
C 0001201A    1F11            SLR     1,  1
C 0001201C    5010B04C        ST      1,   76(  0, 11)
C 00012020    D203B050D150    MVC     80(  4, 11),  336( 13)
C 00012026    5810D458        L       1, 1112(  0, 13)
C 0001202A    45F0D074        BAL    15,  116(  0, 13)


  3295                         PRX(X'45',LINK,0,GLA,116);    ! BAL 15,SR IN PERM

C 0001202E    41100045        LA      1,   69(  0,  0)
C 00012032    5010B040        ST      1,   64(  0, 11)
C 00012036    D203B044D148    MVC     68(  4, 11),  328( 13)
C 0001203C    1F11            SLR     1,  1
C 0001203E    5010B048        ST      1,   72(  0, 11)
C 00012042    D203B04CD150    MVC     76(  4, 11),  336( 13)
C 00012048    41100074        LA      1,  116(  0,  0)
C 0001204C    5010B050        ST      1,   80(  0, 11)
C 00012050    5810D1C0        L       1,  448(  0, 13)
C 00012054    45F0D074        BAL    15,  116(  0, 13)


  3296                371:     MONE=1; R13=0

C 00012058    920190CD        MVI    205(  9),  1



C 0001205C    1F11            SLR     1,  1
C 0001205E    501090BC        ST      1,  188(  0,  9)


  3297                         P=P+1

C 00012062    41100001        LA      1,    1(  0,  0)
C 00012066    5A108040        A       1,   64(  0,  8)
C 0001206A    50108040        ST      1,   64(  0,  8)


  3298                         ->1 %IF PTYPE=10000 %OR PTYPE=11000;    ! ROUTINE OR RTNAME

C 0001206E    5810D604        L       1, 1540(  0, 13)
C 00012072    59108098        C       1,  152(  0,  8)
C 00012076    0000
C 00012078    0000
C 0001207A    478A0000        BC      8,    0( 10,  0)
C 0001207E    5810D608        L       1, 1544(  0, 13)
C 00012082    59108098        C       1,  152(  0,  8)
C 00012086    0000
C 00012088    0000
C 0001208A    478A0000        BC      8,    0( 10,  0)


  3299                         ->201 %IF NAM>1;              !MAPS

C 0001208E    95018091        CLI    145(  8),  1
C 00012092    0000
C 00012094    0000
C 00012096    472A0000        BC      2,    0( 10,  0)


  3300                         FAULT(29) %UNLESS Z=2;        !FN OUT OF CONTEXT

C 0001209A    41100002        LA      1,    2(  0,  0)
C 0001209E    59107040        C       1,   64(  0,  7)
C 000120A2    0560            BALR    6,  0
C 000120A4    47860010        BC      8,   16(  6,  0)
C 000120A8    921DB043        MVI     67( 11), 29
C 000120AC    5810D228        L       1,  552(  0, 13)
C 000120B0    45F0D074        BAL    15,  116(  0, 13)


  3301                         ->43 %IF TYPE=2

C 000120B4    95028094        CLI    148(  8),  2
C 000120B8    0000
C 000120BA    0000
C 000120BC    478A0000        BC      8,    0( 10,  0)


  3302                44:      PRR(X'18',REG,1) %UNLESS REG=1; ->1

C 000120C0    41100001        LA      1,    1(  0,  0)
C 000120C4    59107044        C       1,   68(  0,  7)
C 000120C8    0560            BALR    6,  0
C 000120CA    47860022        BC      8,   34(  6,  0)
C 000120CE    41100018        LA      1,   24(  0,  0)
C 000120D2    5010B040        ST      1,   64(  0, 11)
C 000120D6    D203B0447044    MVC     68(  4, 11),   68(  7)
C 000120DC    41100001        LA      1,    1(  0,  0)
C 000120E0    5010B048        ST      1,   72(  0, 11)
C 000120E4    5810D1D0        L       1,  464(  0, 13)
C 000120E8    45F0D074        BAL    15,  116(  0, 13)



C 000120EC    0000
C 000120EE    0000
C 000120F0    47FA0000        BC     15,    0( 10,  0)


  3303                43:      PRR(X'28',REG,2) %UNLESS REG=2; ->1

C 000120F4    41100002        LA      1,    2(  0,  0)
C 000120F8    59107044        C       1,   68(  0,  7)
C 000120FC    0560            BALR    6,  0
C 000120FE    47860022        BC      8,   34(  6,  0)
C 00012102    41100028        LA      1,   40(  0,  0)
C 00012106    5010B040        ST      1,   64(  0, 11)
C 0001210A    D203B0447044    MVC     68(  4, 11),   68(  7)
C 00012110    41100002        LA      1,    2(  0,  0)
C 00012114    5010B048        ST      1,   72(  0, 11)
C 00012118    5810D1D0        L       1,  464(  0, 13)
C 0001211C    45F0D074        BAL    15,  116(  0, 13)



C 00012120    0000
C 00012122    0000
C 00012124    47FA0000        BC     15,    0( 10,  0)


  3304                36:      ! CALL OF EXTERNAL ROUTINE
  3305                               PACLOD(55,4,RA(RR)+4);  !STM 4,14 - LM 12,14-BALR 13,14

C 00012128    41100037        LA      1,   55(  0,  0)
C 0001212C    5010B040        ST      1,   64(  0, 11)
C 00012130    41100004        LA      1,    4(  0,  0)
C 00012134    5010B044        ST      1,   68(  0, 11)
C 00012138    1812            LR      1,  2
C 0001213A    413092EC        LA      3,  748(  0,  9)
C 0001213E    45F0C05C        BAL    15,   92(  0, 12)
C 00012142    4861F000        LH      6,    0(  1, 15)
C 00012146    41100004        LA      1,    4(  0,  0)
C 0001214A    1A61            AR      6,  1
C 0001214C    5060B048        ST      6,   72(  0, 11)
C 00012150    5810D1C4        L       1,  452(  0, 13)
C 00012154    45F0D074        BAL    15,  116(  0, 13)


  3306                         ->371

C 00012158    47F0AE1C        BC     15, 3612(  0, 10)


  3307                37:       ! CALL OF RT PARAM******** REGISTERS MUST BE RESET
  3308                         REGISTER(LEVELP)=0 %IF LEVELP<RBASE

C 0001215C    581090F4        L       1,  244(  0,  9)
C 00012160    5910705C        C       1,   92(  0,  7)
C 00012164    0560            BALR    6,  0
C 00012166    47D60016        BC     13,   22(  6,  0)
C 0001216A    1F44            SLR     4,  4
C 0001216C    5810705C        L       1,   92(  0,  7)
C 00012170    4130914C        LA      3,  332(  0,  9)
C 00012174    45F0C05C        BAL    15,   92(  0, 12)
C 00012178    5041F000        ST      4,    0(  1, 15)


  3309                               PACLOD(61,4,LEVELP<<12!RR)

C 0001217C    4110003D        LA      1,   61(  0,  0)
C 00012180    5010B040        ST      1,   64(  0, 11)
C 00012184    41100004        LA      1,    4(  0,  0)
C 00012188    5010B044        ST      1,   68(  0, 11)
C 0001218C    1852            LR      5,  2
C 0001218E    5810705C        L       1,   92(  0,  7)
C 00012192    8910000C        SLL     1,   12(  0)
C 00012196    1615            OR      1,  5
C 00012198    5010B048        ST      1,   72(  0, 11)
C 0001219C    5810D1C4        L       1,  452(  0, 13)
C 000121A0    45F0D074        BAL    15,  116(  0, 13)


  3310                %COMMENT STM 4,14,?--LM 12,15 ? -- LM 5,9,20(15) -- BALR 15,14
  3311                         ->371

C 000121A4    47F0AE1C        BC     15, 3612(  0, 10)


  3312                201:     %COMMENT - REAL MAPS AND INTEGER MAPS
  3313                         NEST=1

C 000121A8    41100001        LA      1,    1(  0,  0)
C 000121AC    5010912C        ST      1,  300(  0,  9)


  3314                202:
  3315                         ->205 %IF TYPE=5;             ! STRING MAPS

C 000121B0    95058094        CLI    148(  8),  5
C 000121B4    0000
C 000121B6    0000
C 000121B8    478A0000        BC      8,    0( 10,  0)


  3316                         ->203 %IF Z=3

C 000121BC    41100003        LA      1,    3(  0,  0)
C 000121C0    59107040        C       1,   64(  0,  7)
C 000121C4    0000
C 000121C6    0000
C 000121C8    478A0000        BC      8,    0( 10,  0)


  3317                         JJJ=Z; JJJ=1 %IF Z=4

C 000121CC    D203704C7040    MVC     76(  4,  7),   64(  7)



C 000121D2    41100004        LA      1,    4(  0,  0)
C 000121D6    59107040        C       1,   64(  0,  7)
C 000121DA    0560            BALR    6,  0
C 000121DC    4776000C        BC      7,   12(  6,  0)
C 000121E0    41100001        LA      1,    1(  0,  0)
C 000121E4    5010704C        ST      1,   76(  0,  7)


  3318                         JJJ=TYPE<<3+PREC<<1-8+JJJ

C 000121E8    1F11            SLR     1,  1
C 000121EA    43108094        IC      1,  148(  0,  8)
C 000121EE    89100003        SLL     1,    3(  0)
C 000121F2    1F22            SLR     2,  2
C 000121F4    43208093        IC      2,  147(  0,  8)
C 000121F8    89200001        SLL     2,    1(  0)
C 000121FC    1A12            AR      1,  2
C 000121FE    41200008        LA      2,    8(  0,  0)
C 00012202    1B12            SR      1,  2
C 00012204    5A10704C        A       1,   76(  0,  7)
C 00012208    5010704C        ST      1,   76(  0,  7)


  3319                         DUMP(JJJ,REG,0,0,NEST)

C 0001220C    D203B040704C    MVC     64(  4, 11),   76(  7)
C 00012212    D203B0447044    MVC     68(  4, 11),   68(  7)
C 00012218    1F11            SLR     1,  1
C 0001221A    5010B048        ST      1,   72(  0, 11)
C 0001221E    1F11            SLR     1,  1
C 00012220    5010B04C        ST      1,   76(  0, 11)
C 00012224    D203B050912C    MVC     80(  4, 11),  300(  9)
C 0001222A    5810D458        L       1, 1112(  0, 13)
C 0001222E    45F0D074        BAL    15,  116(  0, 13)


  3320                         CHECK CAPACITY(REG,0,0,NEST) %IF Z=1 %AND CHECKS=1

C 00012232    41100001        LA      1,    1(  0,  0)
C 00012236    59107040        C       1,   64(  0,  7)
C 0001223A    0560            BALR    6,  0
C 0001223C    4776002C        BC      7,   44(  6,  0)
C 00012240    950190CA        CLI    202(  9),  1
C 00012244    4776002C        BC      7,   44(  6,  0)
C 00012248    D203B0407044    MVC     64(  4, 11),   68(  7)
C 0001224E    1F11            SLR     1,  1
C 00012250    5010B044        ST      1,   68(  0, 11)
C 00012254    1F11            SLR     1,  1
C 00012256    5010B048        ST      1,   72(  0, 11)
C 0001225A    D203B04C912C    MVC     76(  4, 11),  300(  9)
C 00012260    5810D474        L       1, 1140(  0, 13)
C 00012264    45F0D074        BAL    15,  116(  0, 13)


  3321                         TEST ASS(REG) %IF Z=2 %AND UNASS=1

C 00012268    41100002        LA      1,    2(  0,  0)
C 0001226C    59107040        C       1,   64(  0,  7)
C 00012270    0560            BALR    6,  0
C 00012272    4776001A        BC      7,   26(  6,  0)
C 00012276    950190DC        CLI    220(  9),  1
C 0001227A    4776001A        BC      7,   26(  6,  0)
C 0001227E    D203B0407044    MVC     64(  4, 11),   68(  7)
C 00012284    5810D460        L       1, 1120(  0, 13)
C 00012288    45F0D074        BAL    15,  116(  0, 13)


  3322                         ->1

C 0001228C    0000
C 0001228E    0000
C 00012290    47FA0000        BC     15,    0( 10,  0)


  3323                203:     PRR(X'18',REG,NEST) %UNLESS REG=NEST; ->1

C 00012294    D5037044912C    CLC     68(  4,  7),  300(  9)
C 0001229A    0560            BALR    6,  0
C 0001229C    47860020        BC      8,   32(  6,  0)
C 000122A0    41100018        LA      1,   24(  0,  0)
C 000122A4    5010B040        ST      1,   64(  0, 11)
C 000122A8    D203B0447044    MVC     68(  4, 11),   68(  7)
C 000122AE    D203B048912C    MVC     72(  4, 11),  300(  9)
C 000122B4    5810D1D0        L       1,  464(  0, 13)
C 000122B8    45F0D074        BAL    15,  116(  0, 13)



C 000122BC    0000
C 000122BE    0000
C 000122C0    47FA0000        BC     15,    0( 10,  0)


  3324                205:     %COMMENT STRING MAPS
  3325                         %IF NEST#1 %THEN PRR(X'18',1,NEST)

C 000122C4    41100001        LA      1,    1(  0,  0)
C 000122C8    5910912C        C       1,  300(  0,  9)
C 000122CC    0560            BALR    6,  0
C 000122CE    47860022        BC      8,   34(  6,  0)
C 000122D2    41100018        LA      1,   24(  0,  0)
C 000122D6    5010B040        ST      1,   64(  0, 11)
C 000122DA    41100001        LA      1,    1(  0,  0)
C 000122DE    5010B044        ST      1,   68(  0, 11)
C 000122E2    D203B048912C    MVC     72(  4, 11),  300(  9)
C 000122E8    5810D1D0        L       1,  464(  0, 13)
C 000122EC    45F0D074        BAL    15,  116(  0, 13)


  3326                         ->206 %IF 2<=Z<=3

C 000122F0    58107040        L       1,   64(  0,  7)
C 000122F4    41200002        LA      2,    2(  0,  0)
C 000122F8    1921            CR      2,  1
C 000122FA    0560            BALR    6,  0
C 000122FC    47360012        BC      3,   18(  6,  0)
C 00012300    41200003        LA      2,    3(  0,  0)
C 00012304    1912            CR      1,  2
C 00012306    0000
C 00012308    0000
C 0001230A    47CA0000        BC     12,    0( 10,  0)


  3327                         STORE STRING(Z,REG,1,0,255); ->1

C 0001230E    D203B0407040    MVC     64(  4, 11),   64(  7)
C 00012314    D203B0447044    MVC     68(  4, 11),   68(  7)
C 0001231A    41100001        LA      1,    1(  0,  0)
C 0001231E    5010B048        ST      1,   72(  0, 11)
C 00012322    1F11            SLR     1,  1
C 00012324    5010B04C        ST      1,   76(  0, 11)
C 00012328    411000FF        LA      1,  255(  0,  0)
C 0001232C    5010B050        ST      1,   80(  0, 11)
C 00012330    5810D354        L       1,  852(  0, 13)
C 00012334    45F0D074        BAL    15,  116(  0, 13)



C 00012338    0000
C 0001233A    0000
C 0001233C    47FA0000        BC     15,    0( 10,  0)


  3328                206:           PCLOD(69);->44;         ! LA 0,255--SLL 0,24 OR 1,0

C 00012340    41100045        LA      1,   69(  0,  0)
C 00012344    5010B040        ST      1,   64(  0, 11)
C 00012348    5810D1C8        L       1,  456(  0, 13)
C 0001234C    45F0D074        BAL    15,  116(  0, 13)



C 00012350    47F0AE84        BC     15, 3716(  0, 10)


  3329                               !ARR=0
  3330                600:     BASE=I; INDEX=0; DISP=K

C 00012354    D2038074809C    MVC    116(  4,  8),  156(  8)



C 0001235A    1F11            SLR     1,  1
C 0001235C    50108080        ST      1,  128(  0,  8)



C 00012360    D203807880A4    MVC    120(  4,  8),  164(  8)


  3331                601:     ->602 %IF Z=6

C 00012366    41100006        LA      1,    6(  0,  0)
C 0001236A    59107040        C       1,   64(  0,  7)
C 0001236E    0000
C 00012370    0000
C 00012372    478A0000        BC      8,    0( 10,  0)


  3332                         ->MOD(NAM<<4!PREC<<2!Z&3)

C 00012376    1F11            SLR     1,  1
C 00012378    43108091        IC      1,  145(  0,  8)
C 0001237C    89100004        SLL     1,    4(  0)
C 00012380    1F22            SLR     2,  2
C 00012382    43208093        IC      2,  147(  0,  8)
C 00012386    89200002        SLL     2,    2(  0)
C 0001238A    1612            OR      1,  2
C 0001238C    41200003        LA      2,    3(  0,  0)
C 00012390    54207040        N       2,   64(  0,  7)
C 00012394    1612            OR      1,  2
C 00012396    89100002        SLL     1,    2(  0)
C 0001239A    5811A084        L       1,  132(  1, 10)
C 0001239E    47F1A000        BC     15,    0(  1, 10)


  3333                602:     FAULT(17) %IF NAM=0

C 000123A2    95008091        CLI    145(  8),  0
C 000123A6    0560            BALR    6,  0
C 000123A8    47760010        BC      7,   16(  6,  0)
C 000123AC    9211B043        MVI     67( 11), 17
C 000123B0    5810D228        L       1,  552(  0, 13)
C 000123B4    45F0D074        BAL    15,  116(  0, 13)


  3334                         R13=0 %IF R13=BASE<<12!DISP

C 000123B8    58108074        L       1,  116(  0,  8)
C 000123BC    8910000C        SLL     1,   12(  0)
C 000123C0    56108078        O       1,  120(  0,  8)
C 000123C4    591090BC        C       1,  188(  0,  9)
C 000123C8    0560            BALR    6,  0
C 000123CA    4776000A        BC      7,   10(  6,  0)
C 000123CE    1F11            SLR     1,  1
C 000123D0    501090BC        ST      1,  188(  0,  9)


  3335                         JJJ=1; ->605

C 000123D4    41100001        LA      1,    1(  0,  0)
C 000123D8    5010704C        ST      1,   76(  0,  7)



C 000123DC    0000
C 000123DE    0000
C 000123E0    47FA0000        BC     15,    0( 10,  0)


  3336                MOD(1):  ! INTEGER STORE (=)
  3337                MOD(0):  ! INTEGER STORE(<-)
  3338                MOD(5):  ! BYTE STORE(=)
  3339                MOD(4):  ! BYTE STORE(<-)
  3340                MOD(9):  ! SHORT STORE(=)
  3341                MOD(8):  ! SHORT STORE(<-)
  3342                MOD(12):                               !LONG REAL STORE (<-)
  3343                MOD(13):                               !LONG REAL STORE (=)
  3344                MOD(2):                                !INTEGER OR REAL FETCH
  3345                MOD(14):                               !LONGREAL FETCH
  3346                         JJJ=Z; JJJ=1 %IF Z=4

C 000123E4    D203704C7040    MVC     76(  4,  7),   64(  7)



C 000123EA    41100004        LA      1,    4(  0,  0)
C 000123EE    59107040        C       1,   64(  0,  7)
C 000123F2    0560            BALR    6,  0
C 000123F4    4776000C        BC      7,   12(  6,  0)
C 000123F8    41100001        LA      1,    1(  0,  0)
C 000123FC    5010704C        ST      1,   76(  0,  7)


  3347                         JJJ=TYPE<<3+PREC<<1-8+JJJ

C 00012400    1F11            SLR     1,  1
C 00012402    43108094        IC      1,  148(  0,  8)
C 00012406    89100003        SLL     1,    3(  0)
C 0001240A    1F22            SLR     2,  2
C 0001240C    43208093        IC      2,  147(  0,  8)
C 00012410    89200001        SLL     2,    1(  0)
C 00012414    1A12            AR      1,  2
C 00012416    41200008        LA      2,    8(  0,  0)
C 0001241A    1B12            SR      1,  2
C 0001241C    5A10704C        A       1,   76(  0,  7)
C 00012420    5010704C        ST      1,   76(  0,  7)


  3348                605:     DUMP(JJJ,REG,DISP,INDEX,BASE)

C 00012424    D203B040704C    MVC     64(  4, 11),   76(  7)
C 0001242A    D203B0447044    MVC     68(  4, 11),   68(  7)
C 00012430    D203B0488078    MVC     72(  4, 11),  120(  8)
C 00012436    D203B04C8080    MVC     76(  4, 11),  128(  8)
C 0001243C    D203B0508074    MVC     80(  4, 11),  116(  8)
C 00012442    5810D458        L       1, 1112(  0, 13)
C 00012446    45F0D074        BAL    15,  116(  0, 13)


  3349                         CHECK CAPACITY(REG,DISP,INDEX,BASE) %IF Z=1 %AND CHECKS=1

C 0001244A    41100001        LA      1,    1(  0,  0)
C 0001244E    59107040        C       1,   64(  0,  7)
C 00012452    0560            BALR    6,  0
C 00012454    4776002C        BC      7,   44(  6,  0)
C 00012458    950190CA        CLI    202(  9),  1
C 0001245C    4776002C        BC      7,   44(  6,  0)
C 00012460    D203B0407044    MVC     64(  4, 11),   68(  7)
C 00012466    D203B0448078    MVC     68(  4, 11),  120(  8)
C 0001246C    D203B0488080    MVC     72(  4, 11),  128(  8)
C 00012472    D203B04C8074    MVC     76(  4, 11),  116(  8)
C 00012478    5810D474        L       1, 1140(  0, 13)
C 0001247C    45F0D074        BAL    15,  116(  0, 13)


  3350                         TEST ASS(REG) %IF Z=2 %AND UNASS=1

C 00012480    41100002        LA      1,    2(  0,  0)
C 00012484    59107040        C       1,   64(  0,  7)
C 00012488    0560            BALR    6,  0
C 0001248A    4776001A        BC      7,   26(  6,  0)
C 0001248E    950190DC        CLI    220(  9),  1
C 00012492    4776001A        BC      7,   26(  6,  0)
C 00012496    D203B0407044    MVC     64(  4, 11),   68(  7)
C 0001249C    5810D460        L       1, 1120(  0, 13)
C 000124A0    45F0D074        BAL    15,  116(  0, 13)


  3351                         ->9

C 000124A4    0000
C 000124A6    0000
C 000124A8    47FA0000        BC     15,    0( 10,  0)


  3352                MOD(31):                               !LONG REAL NAME FETCH ADDR
  3353                MOD(19):       ! INTEGER NAME FETCH ADDR
  3354                MOD(23):       ! BYTE    NAME FETCH ADDR
  3355                MOD(27):       ! SHORT   NAME FETCH ADDR
  3356                         JJJ=2;->605

C 000124AC    41100002        LA      1,    2(  0,  0)
C 000124B0    5010704C        ST      1,   76(  0,  7)



C 000124B4    58E0D028        L      14,   40(  0, 13)
C 000124B8    47FEA1E8        BC     15,  488( 14, 10)


  3357                MOD(15):                               !LONG REAL FETCH ADDR
  3358                MOD(3):  ! INTEGER FETCH ADDR
  3359                MOD(7):  ! BYTE    FETCH ADDR
  3360                MOD(11): ! SHORT   FETCH ADDR
  3361                         JJJ=0;->605

C 000124BC    1F11            SLR     1,  1
C 000124BE    5010704C        ST      1,   76(  0,  7)



C 000124C2    58E0D028        L      14,   40(  0, 13)
C 000124C6    47FEA1E8        BC     15,  488( 14, 10)


  3362                MOD(6):  ! BYTE  FETCH
  3363                MOD(10): ! SHORT FETCH
  3364                         JJJ=PREC<<1+2;->605

C 000124CA    1F11            SLR     1,  1
C 000124CC    43108093        IC      1,  147(  0,  8)
C 000124D0    89100001        SLL     1,    1(  0)
C 000124D4    41200002        LA      2,    2(  0,  0)
C 000124D8    1A12            AR      1,  2
C 000124DA    5010704C        ST      1,   76(  0,  7)



C 000124DE    58E0D028        L      14,   40(  0, 13)
C 000124E2    47FEA1E8        BC     15,  488( 14, 10)


  3365                MOD(16):       ! INTEGER NAME STORE (<-)
  3366                MOD(20):       ! BYTE    NAME STORE (<-)
  3367                MOD(24):       ! SHORT   NAME STORE (<-)
  3368                MOD(17):       ! INTEGER NAME STORE (=)
  3369                MOD(21):       ! BYTE    NAME STORE (=)
  3370                MOD(25):       ! SHORT   NAME STORE (=)
  3371                MOD(28):                               !LONG REAL NAME STORE (<-)
  3372                MOD(29):                               !LONG REAL NAME STORE (=)
  3373                MOD(18):       ! INTEGER NAME FETCH
  3374                MOD(22):       ! BYTE    NAME FETCH
  3375                MOD(26):       ! SHORT   NAME FETCH
  3376                MOD(30):                               !LONG REAL NAME FETCH
  3377                         RP13=R13; R13=BASE<<12!DISP

C 000124E6    D20390C090BC    MVC    192(  4,  9),  188(  9)



C 000124EC    58108074        L       1,  116(  0,  8)
C 000124F0    8910000C        SLL     1,   12(  0)
C 000124F4    56108078        O       1,  120(  0,  8)
C 000124F8    501090BC        ST      1,  188(  0,  9)


  3378                         PRX(X'58',LINK,INDEX,BASE,DISP) %UNLESS R13=RP13 %AND INDEX=0

C 000124FC    D50390BC90C0    CLC    188(  4,  9),  192(  9)
C 00012502    0560            BALR    6,  0
C 00012504    4776000E        BC      7,   14(  6,  0)
C 00012508    58108080        L       1,  128(  0,  8)
C 0001250C    1211            LTR     1,  1
C 0001250E    47860036        BC      8,   54(  6,  0)
C 00012512    41100058        LA      1,   88(  0,  0)
C 00012516    5010B040        ST      1,   64(  0, 11)
C 0001251A    D203B044D148    MVC     68(  4, 11),  328( 13)
C 00012520    D203B0488080    MVC     72(  4, 11),  128(  8)
C 00012526    D203B04C8074    MVC     76(  4, 11),  116(  8)
C 0001252C    D203B0508078    MVC     80(  4, 11),  120(  8)
C 00012532    5810D1C0        L       1,  448(  0, 13)
C 00012536    45F0D074        BAL    15,  116(  0, 13)


  3379                         JJJ=Z; JJJ=1 %IF Z=4

C 0001253A    D203704C7040    MVC     76(  4,  7),   64(  7)



C 00012540    41100004        LA      1,    4(  0,  0)
C 00012544    59107040        C       1,   64(  0,  7)
C 00012548    0560            BALR    6,  0
C 0001254A    4776000C        BC      7,   12(  6,  0)
C 0001254E    41100001        LA      1,    1(  0,  0)
C 00012552    5010704C        ST      1,   76(  0,  7)


  3380                         JJJ=TYPE<<3+PREC<<1-8+JJJ

C 00012556    1F11            SLR     1,  1
C 00012558    43108094        IC      1,  148(  0,  8)
C 0001255C    89100003        SLL     1,    3(  0)
C 00012560    1F22            SLR     2,  2
C 00012562    43208093        IC      2,  147(  0,  8)
C 00012566    89200001        SLL     2,    1(  0)
C 0001256A    1A12            AR      1,  2
C 0001256C    41200008        LA      2,    8(  0,  0)
C 00012570    1B12            SR      1,  2
C 00012572    5A10704C        A       1,   76(  0,  7)
C 00012576    5010704C        ST      1,   76(  0,  7)


  3381                         DUMP(JJJ,REG,0,0,LINK)

C 0001257A    D203B040704C    MVC     64(  4, 11),   76(  7)
C 00012580    D203B0447044    MVC     68(  4, 11),   68(  7)
C 00012586    1F11            SLR     1,  1
C 00012588    5010B048        ST      1,   72(  0, 11)
C 0001258C    1F11            SLR     1,  1
C 0001258E    5010B04C        ST      1,   76(  0, 11)
C 00012592    D203B050D148    MVC     80(  4, 11),  328( 13)
C 00012598    5810D458        L       1, 1112(  0, 13)
C 0001259C    45F0D074        BAL    15,  116(  0, 13)


  3382                         CHECK CAPACITY(REG,0,0,LINK) %IF Z=1 %AND CHECKS=1

C 000125A0    41100001        LA      1,    1(  0,  0)
C 000125A4    59107040        C       1,   64(  0,  7)
C 000125A8    0560            BALR    6,  0
C 000125AA    4776002C        BC      7,   44(  6,  0)
C 000125AE    950190CA        CLI    202(  9),  1
C 000125B2    4776002C        BC      7,   44(  6,  0)
C 000125B6    D203B0407044    MVC     64(  4, 11),   68(  7)
C 000125BC    1F11            SLR     1,  1
C 000125BE    5010B044        ST      1,   68(  0, 11)
C 000125C2    1F11            SLR     1,  1
C 000125C4    5010B048        ST      1,   72(  0, 11)
C 000125C8    D203B04CD148    MVC     76(  4, 11),  328( 13)
C 000125CE    5810D474        L       1, 1140(  0, 13)
C 000125D2    45F0D074        BAL    15,  116(  0, 13)


  3383                         TEST ASS (REG) %IF Z=2 %AND UNASS=1

C 000125D6    41100002        LA      1,    2(  0,  0)
C 000125DA    59107040        C       1,   64(  0,  7)
C 000125DE    0560            BALR    6,  0
C 000125E0    4776001A        BC      7,   26(  6,  0)
C 000125E4    950190DC        CLI    220(  9),  1
C 000125E8    4776001A        BC      7,   26(  6,  0)
C 000125EC    D203B0407044    MVC     64(  4, 11),   68(  7)
C 000125F2    5810D460        L       1, 1120(  0, 13)
C 000125F6    45F0D074        BAL    15,  116(  0, 13)


  3384                9:       ->1 %UNLESS ARR=0

C 000125FA    95008092        CLI    146(  8),  0
C 000125FE    0000
C 00012600    0000
C 00012602    477A0000        BC      7,    0( 10,  0)


  3385                91:      P=P+1

C 00012606    41100001        LA      1,    1(  0,  0)
C 0001260A    5A108040        A       1,   64(  0,  8)
C 0001260E    50108040        ST      1,   64(  0,  8)


  3386                               ->6 %IF A(P)=2

C 00012612    58108040        L       1,   64(  0,  8)
C 00012616    413092FC        LA      3,  764(  0,  9)
C 0001261A    45F0C05C        BAL    15,   92(  0, 12)
C 0001261E    4811F000        LH      1,    0(  1, 15)
C 00012622    41200002        LA      2,    2(  0,  0)
C 00012626    1912            CR      1,  2
C 00012628    0000
C 0001262A    0000
C 0001262C    478A0000        BC      8,    0( 10,  0)


  3387                               FAULT (19)

C 00012630    9213B043        MVI     67( 11), 19
C 00012634    5810D228        L       1,  552(  0, 13)
C 00012638    45F0D074        BAL    15,  116(  0, 13)


  3388                102:           SKIP APP; ->1

C 0001263C    5810D39C        L       1,  924(  0, 13)
C 00012640    45F0D074        BAL    15,  116(  0, 13)



C 00012644    0000
C 00012646    0000
C 00012648    47FA0000        BC     15,    0( 10,  0)


  3389                 6:            P=P+1

C 0001264C    41100001        LA      1,    1(  0,  0)
C 00012650    5A108040        A       1,   64(  0,  8)
C 00012654    50108040        ST      1,   64(  0,  8)


  3390                1:       P=P+1; ->9005 %IF A(P-1)=2

C 00012658    41100001        LA      1,    1(  0,  0)
C 0001265C    5A108040        A       1,   64(  0,  8)
C 00012660    50108040        ST      1,   64(  0,  8)



C 00012664    58108040        L       1,   64(  0,  8)
C 00012668    0610            BCTR    1,  0
C 0001266A    413092FC        LA      3,  764(  0,  9)
C 0001266E    45F0C05C        BAL    15,   92(  0, 12)
C 00012672    4811F000        LH      1,    0(  1, 15)
C 00012676    41200002        LA      2,    2(  0,  0)
C 0001267A    1912            CR      1,  2
C 0001267C    0000
C 0001267E    0000
C 00012680    478A0000        BC      8,    0( 10,  0)


  3391                         FAULT(69); ->91

C 00012684    9245B043        MVI     67( 11), 69
C 00012688    5810D228        L       1,  552(  0, 13)
C 0001268C    45F0D074        BAL    15,  116(  0, 13)



C 00012690    58E0D028        L      14,   40(  0, 13)
C 00012694    47FEA3CA        BC     15,  970( 14, 10)


  3392                9005:    %END
D 00000F94    C2 C2 C2 C2 0C 5E 07 05 43 4E 41 4D 45 FE A6 B8 01 70 60 05 44 49 53 50 50 00 00 4A 01 70 5C 06 4C 45 56 45 4C 50 00 44 01 70 58 06 50 54 59 50 45 50 00 01 01 70 54 06 4C 45 56 45 4C 50 FF F7 01 70 50 02 4B 4B 00 0A 01 70 4C 03 4A 4A 4A 28 01 70 48 02 4A 4A 00 00 01 70 44 03 52 45 47 32 01 70 40 01 5A 00 00 1A FF FF FF FF


C 00012698    D203D0147000    MVC     20(  4, 13),    0(  7)
C 0001269E    984F7010        LM      4, 15,   16(  7)
C 000126A2    07FF            BCR    15, 15


  3393                     %ROUTINE CRCALL (%INTEGER CLINK)

C 000126A4    0000
C 000126A6    0000
C 000126A8    47FA0000        BC     15,    0( 10,  0)
C 000126AC    50F0B03C        ST     15,   60(  0, 11)
C 000126B0    D203B000D014    MVC      0(  4, 11),   20( 13)
C 000126B6    41000D41        LA      0, 3393(  0,  0)
C 000126BA    4000D014        STH     0,   20(  0, 13)
C 000126BE    187B            LR      7, 11
C 000126C0    41BB0000        LA     11,    0( 11,  0)
C 000126C4    41000004        LA      0,    4(  0,  0)
C 000126C8    59BD0044        C      11,   68( 13,  0)
C 000126CC    4720C054        BC      2,   84(  0, 12)
C 000126D0    05A0            BALR   10,  0


  3394                         %SHORTROUTINE
  3395                         %SWITCH FPD(0:3)

C 000126D2    0700            BCR     0,  0
C 000126D4    47FA0000        BC     15,    0( 10,  0)
C 000126D8    0200
C 000126DA    0000
C 000126DC    0000
C 000126DE    0003
C 000126E0    0000
C 000126E2    0000
C 000126E4    0000
C 000126E6    0000
C 000126E8    0000
C 000126EA    0000


  3396                         %INTEGER KK,II,III,Q,QQ,QQQ,PP,RF
  3397                         %ROUTINESPEC MOVEBACK
  3398                         %INTEGER MOVED,TOMOVE,TYPEP
  3399                         %SHORTINTEGER LIST; LIST=0

C 000126EC    1F11            SLR     1,  1
C 000126EE    40107070        STH     1,  112(  0,  7)
C 000126F2    49170070        CH      1,  112(  7,  0)
C 000126F6    477C0058        BC      7,   88( 12,  0)


  3400                         FFLAG=0; KK=COUNT APS

C 000126FA    920090C9        MVI    201(  9),  0



C 000126FE    5810D390        L       1,  912(  0, 13)
C 00012702    45F0D074        BAL    15,  116(  0, 13)
C 00012706    50107044        ST      1,   68(  0,  7)


  3401                         P=P+1; ->2 %IF K=KK

C 0001270A    41100001        LA      1,    1(  0,  0)
C 0001270E    5A108040        A       1,   64(  0,  8)
C 00012712    50108040        ST      1,   64(  0,  8)



C 00012716    D50380A47044    CLC    164(  4,  8),   68(  7)
C 0001271C    478A0000        BC      8,    0( 10,  0)


  3402                         FAULT(19); PRINTNAME(FNAME)

C 00012720    9213B043        MVI     67( 11), 19
C 00012724    5810D228        L       1,  552(  0, 13)
C 00012728    45F0D074        BAL    15,  116(  0, 13)



C 0001272C    D203B0409130    MVC     64(  4, 11),  304(  9)
C 00012732    5810D230        L       1,  560(  0, 13)
C 00012736    45F0D074        BAL    15,  116(  0, 13)


  3403                         SKIP APP; P=P-1; ->99

C 0001273A    5810D39C        L       1,  924(  0, 13)
C 0001273E    45F0D074        BAL    15,  116(  0, 13)



C 00012742    58108040        L       1,   64(  0,  8)
C 00012746    0610            BCTR    1,  0
C 00012748    50108040        ST      1,   64(  0,  8)



C 0001274C    47FA0000        BC     15,    0( 10,  0)


  3404                2:       ->99 %IF K=0;                 ! NO PARAMETERS

C 00012750    581080A4        L       1,  164(  0,  8)
C 00012754    1211            LTR     1,  1
C 00012756    478A0000        BC      8,    0( 10,  0)


  3405                         Q=0; QQ=64; RF=1-FFLAG;       ! RF=1 NO NEED TO MOVE WSPR

C 0001275A    1F11            SLR     1,  1
C 0001275C    50107050        ST      1,   80(  0,  7)



C 00012760    41100040        LA      1,   64(  0,  0)
C 00012764    50107054        ST      1,   84(  0,  7)



C 00012768    41100001        LA      1,    1(  0,  0)
C 0001276C    1F22            SLR     2,  2
C 0001276E    432090C9        IC      2,  201(  0,  9)
C 00012772    1B12            SR      1,  2
C 00012774    50107060        ST      1,   96(  0,  7)


  3406                         MOVED=0; RF=1 %IF KK=1

C 00012778    1F11            SLR     1,  1
C 0001277A    50107064        ST      1,  100(  0,  7)



C 0001277E    41100001        LA      1,    1(  0,  0)
C 00012782    59107044        C       1,   68(  0,  7)
C 00012786    477A00C0        BC      7,  192( 10,  0)
C 0001278A    41100001        LA      1,    1(  0,  0)
C 0001278E    50107060        ST      1,   96(  0,  7)


  3407                7:       MLINK(CLINK)

C 00012792    41107040        LA      1,   64(  0,  7)
C 00012796    5010B040        ST      1,   64(  0, 11)
C 0001279A    5810D3E8        L       1, 1000(  0, 13)
C 0001279E    45F0D074        BAL    15,  116(  0, 13)


  3408                         FROM1(CLINK,PTYPE)

C 000127A2    D203B0407040    MVC     64(  4, 11),   64(  7)
C 000127A8    41108098        LA      1,  152(  0,  8)
C 000127AC    5010B044        ST      1,   68(  0, 11)
C 000127B0    5810D3FC        L       1, 1020(  0, 13)
C 000127B4    45F0D074        BAL    15,  116(  0, 13)


  3409                         P=P+1; UNPACK

C 000127B8    41100001        LA      1,    1(  0,  0)
C 000127BC    5A108040        A       1,   64(  0,  8)
C 000127C0    50108040        ST      1,   64(  0,  8)



C 000127C4    5810D448        L       1, 1096(  0, 13)
C 000127C8    45F0D074        BAL    15,  116(  0, 13)


  3410                         II=TYPE; III=PREC; QQQ=P

C 000127CC    1F11            SLR     1,  1
C 000127CE    43108094        IC      1,  148(  0,  8)
C 000127D2    50107048        ST      1,   72(  0,  7)



C 000127D6    1F11            SLR     1,  1
C 000127D8    43108093        IC      1,  147(  0,  8)
C 000127DC    5010704C        ST      1,   76(  0,  7)



C 000127E0    D20370588040    MVC     88(  4,  7),   64(  8)


  3411                         PP=(NAM<<1!ARR)&3

C 000127E6    1F11            SLR     1,  1
C 000127E8    43108091        IC      1,  145(  0,  8)
C 000127EC    89100001        SLL     1,    1(  0)
C 000127F0    1F22            SLR     2,  2
C 000127F2    43208092        IC      2,  146(  0,  8)
C 000127F6    1612            OR      1,  2
C 000127F8    1851            LR      5,  1
C 000127FA    41100003        LA      1,    3(  0,  0)
C 000127FE    1451            NR      5,  1
C 00012800    5050705C        ST      5,   92(  0,  7)


  3412                         ->10 %UNLESS(PP=0 %AND ROUT=0) %OR(A(P)=4 %AND A(P+1)=1)

C 00012804    5810705C        L       1,   92(  0,  7)
C 00012808    1211            LTR     1,  1
C 0001280A    477A0144        BC      7,  324( 10,  0)
C 0001280E    95008090        CLI    144(  8),  0
C 00012812    478A017C        BC      8,  380( 10,  0)
C 00012816    58108040        L       1,   64(  0,  8)
C 0001281A    413092FC        LA      3,  764(  0,  9)
C 0001281E    45F0C05C        BAL    15,   92(  0, 12)
C 00012822    4811F000        LH      1,    0(  1, 15)
C 00012826    41200004        LA      2,    4(  0,  0)
C 0001282A    1912            CR      1,  2
C 0001282C    477A0000        BC      7,    0( 10,  0)
C 00012830    41100001        LA      1,    1(  0,  0)
C 00012834    5A108040        A       1,   64(  0,  8)
C 00012838    413092FC        LA      3,  764(  0,  9)
C 0001283C    45F0C05C        BAL    15,   92(  0, 12)
C 00012840    4811F000        LH      1,    0(  1, 15)
C 00012844    41200001        LA      2,    1(  0,  0)
C 00012848    1912            CR      1,  2
C 0001284A    477A0000        BC      7,    0( 10,  0)


  3413                         ->12 %IF ROUT=1; ->FPD(PP)

C 0001284E    95018090        CLI    144(  8),  1
C 00012852    478A0000        BC      8,    0( 10,  0)



C 00012856    5810705C        L       1,   92(  0,  7)
C 0001285A    1A11            AR      1,  1
C 0001285C    4811A00E        LH      1,   14(  1, 10)
C 00012860    47F1A000        BC     15,    0(  1, 10)


  3414                10:      P=QQQ; SKIP EXP;

C 00012864    D20380407058    MVC     64(  4,  8),   88(  7)



C 0001286A    5810D444        L       1, 1092(  0, 13)
C 0001286E    45F0D074        BAL    15,  116(  0, 13)


  3415                11:      FAULT (22); ->53

C 00012872    9216B043        MVI     67( 11), 22
C 00012876    5810D228        L       1,  552(  0, 13)
C 0001287A    45F0D074        BAL    15,  116(  0, 13)



C 0001287E    47FA0000        BC     15,    0( 10,  0)


  3416                         %COMMENT ROUTINE TYPE PARAMETERS
  3417                12:      II=PTYPE; P=P+2; CNAME(13,0)

C 00012882    D20370488098    MVC     72(  4,  7),  152(  8)



C 00012888    41100002        LA      1,    2(  0,  0)
C 0001288C    5A108040        A       1,   64(  0,  8)
C 00012890    50108040        ST      1,   64(  0,  8)



C 00012894    4110000D        LA      1,   13(  0,  0)
C 00012898    5010B040        ST      1,   64(  0, 11)
C 0001289C    1F11            SLR     1,  1
C 0001289E    5010B044        ST      1,   68(  0, 11)
C 000128A2    5810D3C4        L       1,  964(  0, 13)
C 000128A6    45F0D074        BAL    15,  116(  0, 13)


  3418                         ->10 %IF 1000#!PTYPE-II!#0

C 000128AA    58108098        L       1,  152(  0,  8)
C 000128AE    5B107048        S       1,   72(  0,  7)
C 000128B2    1011            LPR     1,  1
C 000128B4    412003E8        LA      2, 1000(  0,  0)
C 000128B8    1921            CR      2,  1
C 000128BA    478A01F2        BC      8,  498( 10,  0)
C 000128BE    1211            LTR     1,  1
C 000128C0    4770A192        BC      7,  402(  0, 10)


  3419                         ->10 %IF A(P)=1; P=P+1

C 000128C4    58108040        L       1,   64(  0,  8)
C 000128C8    413092FC        LA      3,  764(  0,  9)
C 000128CC    45F0C05C        BAL    15,   92(  0, 12)
C 000128D0    4811F000        LH      1,    0(  1, 15)
C 000128D4    41200001        LA      2,    1(  0,  0)
C 000128D8    1912            CR      1,  2
C 000128DA    4780A192        BC      8,  402(  0, 10)



C 000128DE    41100001        LA      1,    1(  0,  0)
C 000128E2    5A108040        A       1,   64(  0,  8)
C 000128E6    50108040        ST      1,   64(  0,  8)


  3420                         ->13 %IF J=14;      ! EXTERNAL

C 000128EA    4110000E        LA      1,   14(  0,  0)
C 000128EE    591080A0        C       1,  160(  0,  8)
C 000128F2    478A0000        BC      8,    0( 10,  0)


  3421                         ->15 %IF NAM&1#0;             ! RT NAME OR RTTYPE

C 000128F6    41100001        LA      1,    1(  0,  0)
C 000128FA    1F22            SLR     2,  2
C 000128FC    43208091        IC      2,  145(  0,  8)
C 00012900    1412            NR      1,  2
C 00012902    477A0000        BC      7,    0( 10,  0)


  3422                         DUMP(2,2,DISP,INDEX,BASE);      ! PICK UP RT ADDR

C 00012906    41100002        LA      1,    2(  0,  0)
C 0001290A    5010B040        ST      1,   64(  0, 11)
C 0001290E    41100002        LA      1,    2(  0,  0)
C 00012912    5010B044        ST      1,   68(  0, 11)
C 00012916    D203B0488078    MVC     72(  4, 11),  120(  8)
C 0001291C    D203B04C8080    MVC     76(  4, 11),  128(  8)
C 00012922    D203B0508074    MVC     80(  4, 11),  116(  8)
C 00012928    5810D458        L       1, 1112(  0, 13)
C 0001292C    45F0D074        BAL    15,  116(  0, 13)


  3423                         PRX(X'5A',2,0,GLA,28);        ! RELOCATE

C 00012930    4110005A        LA      1,   90(  0,  0)
C 00012934    5010B040        ST      1,   64(  0, 11)
C 00012938    41100002        LA      1,    2(  0,  0)
C 0001293C    5010B044        ST      1,   68(  0, 11)
C 00012940    1F11            SLR     1,  1
C 00012942    5010B048        ST      1,   72(  0, 11)
C 00012946    D203B04CD150    MVC     76(  4, 11),  336( 13)
C 0001294C    4110001C        LA      1,   28(  0,  0)
C 00012950    5010B050        ST      1,   80(  0, 11)
C 00012954    5810D1C0        L       1,  448(  0, 13)
C 00012958    45F0D074        BAL    15,  116(  0, 13)


  3424                         PCONST(X'180C181D');          ! LR 0,12 LR1,13 PERM AND GLA

C 0001295C    5810D614        L       1, 1556(  0, 13)
C 00012960    5010B040        ST      1,   64(  0, 11)
C 00012964    5810D1B4        L       1,  436(  0, 13)
C 00012968    45F0D074        BAL    15,  116(  0, 13)


  3425                         PUSH(LIST,QQ+12,0); ->69

C 0001296C    41107070        LA      1,  112(  0,  7)
C 00012970    5010B040        ST      1,   64(  0, 11)
C 00012974    4110000C        LA      1,   12(  0,  0)
C 00012978    5A107054        A       1,   84(  0,  7)
C 0001297C    5010B044        ST      1,   68(  0, 11)
C 00012980    1F11            SLR     1,  1
C 00012982    5010B048        ST      1,   72(  0, 11)
C 00012986    5810D3E0        L       1,  992(  0, 13)
C 0001298A    45F0D074        BAL    15,  116(  0, 13)



C 0001298E    47FA0000        BC     15,    0( 10,  0)


  3426                13:      PRX(X'98',0,2,BASE,DISP);     ! CODE,GLA,EP

C 00012992    41100098        LA      1,  152(  0,  0)
C 00012996    5010B040        ST      1,   64(  0, 11)
C 0001299A    1F11            SLR     1,  1
C 0001299C    5010B044        ST      1,   68(  0, 11)
C 000129A0    41100002        LA      1,    2(  0,  0)
C 000129A4    5010B048        ST      1,   72(  0, 11)
C 000129A8    D203B04C8074    MVC     76(  4, 11),  116(  8)
C 000129AE    D203B0508078    MVC     80(  4, 11),  120(  8)
C 000129B4    5810D1C0        L       1,  448(  0, 13)
C 000129B8    45F0D074        BAL    15,  116(  0, 13)


  3427                         PRR(X'18',3,9); ->69;         ! ANYTHING D W ALIGNED AS ENVRMNT

C 000129BC    41100018        LA      1,   24(  0,  0)
C 000129C0    5010B040        ST      1,   64(  0, 11)
C 000129C4    41100003        LA      1,    3(  0,  0)
C 000129C8    5010B044        ST      1,   68(  0, 11)
C 000129CC    41100009        LA      1,    9(  0,  0)
C 000129D0    5010B048        ST      1,   72(  0, 11)
C 000129D4    5810D1D0        L       1,  464(  0, 13)
C 000129D8    45F0D074        BAL    15,  116(  0, 13)



C 000129DC    47FA0000        BC     15,    0( 10,  0)


  3428                15:      PRX(X'98',0,3,BASE,DISP); ->69

C 000129E0    41100098        LA      1,  152(  0,  0)
C 000129E4    5010B040        ST      1,   64(  0, 11)
C 000129E8    1F11            SLR     1,  1
C 000129EA    5010B044        ST      1,   68(  0, 11)
C 000129EE    41100003        LA      1,    3(  0,  0)
C 000129F2    5010B048        ST      1,   72(  0, 11)
C 000129F6    D203B04C8074    MVC     76(  4, 11),  116(  8)
C 000129FC    D203B0508078    MVC     80(  4, 11),  120(  8)
C 00012A02    5810D1C0        L       1,  448(  0, 13)
C 00012A06    45F0D074        BAL    15,  116(  0, 13)



C 00012A0A    47FA0000        BC     15,    0( 10,  0)


  3429                FPD(0):  ->41 %IF PREC=3

C 00012A0E    95038093        CLI    147(  8),  3
C 00012A12    478A0000        BC      8,    0( 10,  0)


  3430                         ->45 %IF TYPE=5

C 00012A16    95058094        CLI    148(  8),  5
C 00012A1A    478A0000        BC      8,    0( 10,  0)


  3431                         -> 39 %UNLESS UNASS=0 %AND TYPE=1

C 00012A1E    950090DC        CLI    220(  9),  0
C 00012A22    477A0000        BC      7,    0( 10,  0)
C 00012A26    95018094        CLI    148(  8),  1
C 00012A2A    477A0000        BC      7,    0( 10,  0)


  3432                         PP=P; TYPEP=PREC

C 00012A2E    D203705C8040    MVC     92(  4,  7),   64(  8)



C 00012A34    1F11            SLR     1,  1
C 00012A36    43108093        IC      1,  147(  0,  8)
C 00012A3A    5010706C        ST      1,  108(  0,  7)


  3433                         II=TSEXP(III)

C 00012A3E    4110704C        LA      1,   76(  0,  7)
C 00012A42    5010B040        ST      1,   64(  0, 11)
C 00012A46    5810D478        L       1, 1144(  0, 13)
C 00012A4A    45F0D074        BAL    15,  116(  0, 13)
C 00012A4E    50107048        ST      1,   72(  0,  7)


  3434                         ->42 %IF II=10 %AND TYPEP=0

C 00012A52    4110000A        LA      1,   10(  0,  0)
C 00012A56    59107048        C       1,   72(  0,  7)
C 00012A5A    477A0396        BC      7,  918( 10,  0)
C 00012A5E    5810706C        L       1,  108(  0,  7)
C 00012A62    1211            LTR     1,  1
C 00012A64    478A0000        BC      8,    0( 10,  0)


  3435                         ->43 %IF II=1 %AND TYPEP=1

C 00012A68    41100001        LA      1,    1(  0,  0)
C 00012A6C    59107048        C       1,   72(  0,  7)
C 00012A70    477A03AE        BC      7,  942( 10,  0)
C 00012A74    41100001        LA      1,    1(  0,  0)
C 00012A78    5910706C        C       1,  108(  0,  7)
C 00012A7C    478A0000        BC      8,    0( 10,  0)


  3436                         P=PP; TYPE=1

C 00012A80    D2038040705C    MVC     64(  4,  8),   92(  7)



C 00012A86    92018094        MVI    148(  8),  1


  3437                39:      CSEXP(0,TYPE)

C 00012A8A    1F11            SLR     1,  1
C 00012A8C    5010B040        ST      1,   64(  0, 11)
C 00012A90    1F11            SLR     1,  1
C 00012A92    43108094        IC      1,  148(  0,  8)
C 00012A96    5010B044        ST      1,   68(  0, 11)
C 00012A9A    5810D37C        L       1,  892(  0, 13)
C 00012A9E    45F0D074        BAL    15,  116(  0, 13)


  3438                         MOVE BACK

C 00012AA2    5810D610        L       1, 1552(  0, 13)
C 00012AA6    45F0D074        BAL    15,  116(  0, 13)


  3439                         DUMP(8*TYPE-7,NEST,QQ-MOVED,0,WSPR)

C 00012AAA    41100008        LA      1,    8(  0,  0)
C 00012AAE    1F22            SLR     2,  2
C 00012AB0    43208094        IC      2,  148(  0,  8)
C 00012AB4    1C02            MR      0,  2
C 00012AB6    41200007        LA      2,    7(  0,  0)
C 00012ABA    1B12            SR      1,  2
C 00012ABC    5010B040        ST      1,   64(  0, 11)
C 00012AC0    D203B044912C    MVC     68(  4, 11),  300(  9)
C 00012AC6    58107054        L       1,   84(  0,  7)
C 00012ACA    5B107064        S       1,  100(  0,  7)
C 00012ACE    5010B048        ST      1,   72(  0, 11)
C 00012AD2    1F11            SLR     1,  1
C 00012AD4    5010B04C        ST      1,   76(  0, 11)
C 00012AD8    D203B050D14C    MVC     80(  4, 11),  332( 13)
C 00012ADE    5810D458        L       1, 1112(  0, 13)
C 00012AE2    45F0D074        BAL    15,  116(  0, 13)


  3440                         CHECK CAPACITY(NEST,QQ-MOVED,0,WSPR) %IF CHECKS=1

C 00012AE6    950190CA        CLI    202(  9),  1
C 00012AEA    477A0442        BC      7, 1090( 10,  0)
C 00012AEE    D203B040912C    MVC     64(  4, 11),  300(  9)
C 00012AF4    58107054        L       1,   84(  0,  7)
C 00012AF8    5B107064        S       1,  100(  0,  7)
C 00012AFC    5010B044        ST      1,   68(  0, 11)
C 00012B00    1F11            SLR     1,  1
C 00012B02    5010B048        ST      1,   72(  0, 11)
C 00012B06    D203B04CD14C    MVC     76(  4, 11),  332( 13)
C 00012B0C    5810D474        L       1, 1140(  0, 13)
C 00012B10    45F0D074        BAL    15,  116(  0, 13)


  3441                         TOMOVE=4;->50

C 00012B14    41100004        LA      1,    4(  0,  0)
C 00012B18    50107068        ST      1,  104(  0,  7)



C 00012B1C    47FA0000        BC     15,    0( 10,  0)


  3442                42:      MOVEBACK

C 00012B20    5810D610        L       1, 1552(  0, 13)
C 00012B24    45F0D074        BAL    15,  116(  0, 13)


  3443                         PSS(X'D2',4,WSPR,QQ-MOVED,I,K)

C 00012B28    411000D2        LA      1,  210(  0,  0)
C 00012B2C    5010B040        ST      1,   64(  0, 11)
C 00012B30    41100004        LA      1,    4(  0,  0)
C 00012B34    5010B044        ST      1,   68(  0, 11)
C 00012B38    D203B048D14C    MVC     72(  4, 11),  332( 13)
C 00012B3E    58107054        L       1,   84(  0,  7)
C 00012B42    5B107064        S       1,  100(  0,  7)
C 00012B46    5010B04C        ST      1,   76(  0, 11)
C 00012B4A    D203B050809C    MVC     80(  4, 11),  156(  8)
C 00012B50    D203B05480A4    MVC     84(  4, 11),  164(  8)
C 00012B56    5810D1BC        L       1,  444(  0, 13)
C 00012B5A    45F0D074        BAL    15,  116(  0, 13)


  3444                         TOMOVE=4; ->50

C 00012B5E    41100004        LA      1,    4(  0,  0)
C 00012B62    50107068        ST      1,  104(  0,  7)



C 00012B66    47FA0000        BC     15,    0( 10,  0)


  3445                43:      MOVEBACK

C 00012B6A    5810D610        L       1, 1552(  0, 13)
C 00012B6E    45F0D074        BAL    15,  116(  0, 13)


  3446                         PSI(X'92',III,WSPR,QQ-MOVED+3)

C 00012B72    41100092        LA      1,  146(  0,  0)
C 00012B76    5010B040        ST      1,   64(  0, 11)
C 00012B7A    D203B044704C    MVC     68(  4, 11),   76(  7)
C 00012B80    D203B048D14C    MVC     72(  4, 11),  332( 13)
C 00012B86    58107054        L       1,   84(  0,  7)
C 00012B8A    5B107064        S       1,  100(  0,  7)
C 00012B8E    41200003        LA      2,    3(  0,  0)
C 00012B92    1A12            AR      1,  2
C 00012B94    5010B04C        ST      1,   76(  0, 11)
C 00012B98    5810D1B8        L       1,  440(  0, 13)
C 00012B9C    45F0D074        BAL    15,  116(  0, 13)


  3447                         TOMOVE=4; ->50

C 00012BA0    41100004        LA      1,    4(  0,  0)
C 00012BA4    50107068        ST      1,  104(  0,  7)



C 00012BA8    47FA0000        BC     15,    0( 10,  0)


  3448                41:      II=0; II=4 %UNLESS QQ&7=0;    !LONG REAL

C 00012BAC    1F11            SLR     1,  1
C 00012BAE    50107048        ST      1,   72(  0,  7)



C 00012BB2    41100007        LA      1,    7(  0,  0)
C 00012BB6    54107054        N       1,   84(  0,  7)
C 00012BBA    478A04F4        BC      8, 1268( 10,  0)
C 00012BBE    41100004        LA      1,    4(  0,  0)
C 00012BC2    50107048        ST      1,   72(  0,  7)


  3449                         CSEXP(0,3)

C 00012BC6    1F11            SLR     1,  1
C 00012BC8    5010B040        ST      1,   64(  0, 11)
C 00012BCC    9203B047        MVI     71( 11),  3
C 00012BD0    5810D37C        L       1,  892(  0, 13)
C 00012BD4    45F0D074        BAL    15,  116(  0, 13)


  3450                         DUMP(15,NEST,QQ-MOVED+II,0,WSPR)

C 00012BD8    4110000F        LA      1,   15(  0,  0)
C 00012BDC    5010B040        ST      1,   64(  0, 11)
C 00012BE0    D203B044912C    MVC     68(  4, 11),  300(  9)
C 00012BE6    58107054        L       1,   84(  0,  7)
C 00012BEA    5B107064        S       1,  100(  0,  7)
C 00012BEE    5A107048        A       1,   72(  0,  7)
C 00012BF2    5010B048        ST      1,   72(  0, 11)
C 00012BF6    1F11            SLR     1,  1
C 00012BF8    5010B04C        ST      1,   76(  0, 11)
C 00012BFC    D203B050D14C    MVC     80(  4, 11),  332( 13)
C 00012C02    5810D458        L       1, 1112(  0, 13)
C 00012C06    45F0D074        BAL    15,  116(  0, 13)


  3451                         TOMOVE=8+II;->50

C 00012C0A    41100008        LA      1,    8(  0,  0)
C 00012C0E    5A107048        A       1,   72(  0,  7)
C 00012C12    50107068        ST      1,  104(  0,  7)



C 00012C16    47FA0000        BC     15,    0( 10,  0)


  3452                45:      CSTREXP(4); FROM2(CLINK,III)

C 00012C1A    41100004        LA      1,    4(  0,  0)
C 00012C1E    5010B040        ST      1,   64(  0, 11)
C 00012C22    5810D380        L       1,  896(  0, 13)
C 00012C26    45F0D074        BAL    15,  116(  0, 13)



C 00012C2A    D203B0407040    MVC     64(  4, 11),   64(  7)
C 00012C30    4110704C        LA      1,   76(  0,  7)
C 00012C34    5010B044        ST      1,   68(  0, 11)
C 00012C38    5810D3F8        L       1, 1016(  0, 13)
C 00012C3C    45F0D074        BAL    15,  116(  0, 13)


  3453                         PRX(X'41',1,0,WSPR,QQ-MOVED+4)

C 00012C40    41100041        LA      1,   65(  0,  0)
C 00012C44    5010B040        ST      1,   64(  0, 11)
C 00012C48    41100001        LA      1,    1(  0,  0)
C 00012C4C    5010B044        ST      1,   68(  0, 11)
C 00012C50    1F11            SLR     1,  1
C 00012C52    5010B048        ST      1,   72(  0, 11)
C 00012C56    D203B04CD14C    MVC     76(  4, 11),  332( 13)
C 00012C5C    58107054        L       1,   84(  0,  7)
C 00012C60    5B107064        S       1,  100(  0,  7)
C 00012C64    41200004        LA      2,    4(  0,  0)
C 00012C68    1A12            AR      1,  2
C 00012C6A    5010B050        ST      1,   80(  0, 11)
C 00012C6E    5810D1C0        L       1,  448(  0, 13)
C 00012C72    45F0D074        BAL    15,  116(  0, 13)


  3454                         STORE STRING(1,4,1,0,III-1)

C 00012C76    41100001        LA      1,    1(  0,  0)
C 00012C7A    5010B040        ST      1,   64(  0, 11)
C 00012C7E    41100004        LA      1,    4(  0,  0)
C 00012C82    5010B044        ST      1,   68(  0, 11)
C 00012C86    41100001        LA      1,    1(  0,  0)
C 00012C8A    5010B048        ST      1,   72(  0, 11)
C 00012C8E    1F11            SLR     1,  1
C 00012C90    5010B04C        ST      1,   76(  0, 11)
C 00012C94    5810704C        L       1,   76(  0,  7)
C 00012C98    0610            BCTR    1,  0
C 00012C9A    5010B050        ST      1,   80(  0, 11)
C 00012C9E    5810D354        L       1,  852(  0, 13)
C 00012CA2    45F0D074        BAL    15,  116(  0, 13)


  3455                         TOMOVE =(III+7)&(-4); ->50

C 00012CA6    41100007        LA      1,    7(  0,  0)
C 00012CAA    5A10704C        A       1,   76(  0,  7)
C 00012CAE    1851            LR      5,  1
C 00012CB0    41100004        LA      1,    4(  0,  0)
C 00012CB4    1311            LCR     1,  1
C 00012CB6    1861            LR      6,  1
C 00012CB8    1456            NR      5,  6
C 00012CBA    50507068        ST      5,  104(  0,  7)



C 00012CBE    47FA0000        BC     15,    0( 10,  0)


  3456                FPD(2):                                ! NAME TYPES INCLUDES RECORDNAME
  3457                         P=P+2

C 00012CC2    41100002        LA      1,    2(  0,  0)
C 00012CC6    5A108040        A       1,   64(  0,  8)
C 00012CCA    50108040        ST      1,   64(  0,  8)


  3458                         %IF TYPE=3 %THEN CNAME(15,1) %ELSE CNAME(3,1)

C 00012CCE    95038094        CLI    148(  8),  3
C 00012CD2    477A0620        BC      7, 1568( 10,  0)
C 00012CD6    4110000F        LA      1,   15(  0,  0)
C 00012CDA    5010B040        ST      1,   64(  0, 11)
C 00012CDE    41100001        LA      1,    1(  0,  0)
C 00012CE2    5010B044        ST      1,   68(  0, 11)
C 00012CE6    5810D3C4        L       1,  964(  0, 13)
C 00012CEA    45F0D074        BAL    15,  116(  0, 13)
C 00012CEE    47FA0638        BC     15, 1592( 10,  0)
C 00012CF2    41100003        LA      1,    3(  0,  0)
C 00012CF6    5010B040        ST      1,   64(  0, 11)
C 00012CFA    41100001        LA      1,    1(  0,  0)
C 00012CFE    5010B044        ST      1,   68(  0, 11)
C 00012D02    5810D3C4        L       1,  964(  0, 13)
C 00012D06    45F0D074        BAL    15,  116(  0, 13)


  3459                         ->10  %IF A(P)=1; P=P+1;      ! CHECK NO RESTOF EXPRN

C 00012D0A    58108040        L       1,   64(  0,  8)
C 00012D0E    413092FC        LA      3,  764(  0,  9)
C 00012D12    45F0C05C        BAL    15,   92(  0, 12)
C 00012D16    4811F000        LH      1,    0(  1, 15)
C 00012D1A    41200001        LA      2,    1(  0,  0)
C 00012D1E    1912            CR      1,  2
C 00012D20    4780A192        BC      8,  402(  0, 10)



C 00012D24    41100001        LA      1,    1(  0,  0)
C 00012D28    5A108040        A       1,   64(  0,  8)
C 00012D2C    50108040        ST      1,   64(  0,  8)


  3460                         ->11 %UNLESS (II=TYPE %AND III=PREC) %OR II=0

C 00012D30    1F11            SLR     1,  1
C 00012D32    43108094        IC      1,  148(  0,  8)
C 00012D36    59107048        C       1,   72(  0,  7)
C 00012D3A    477A067A        BC      7, 1658( 10,  0)
C 00012D3E    1F11            SLR     1,  1
C 00012D40    43108093        IC      1,  147(  0,  8)
C 00012D44    5910704C        C       1,   76(  0,  7)
C 00012D48    478A0684        BC      8, 1668( 10,  0)
C 00012D4C    58107048        L       1,   72(  0,  7)
C 00012D50    1211            LTR     1,  1
C 00012D52    4770A1A0        BC      7,  416(  0, 10)


  3461                         MOVE BACK

C 00012D56    5810D610        L       1, 1552(  0, 13)
C 00012D5A    45F0D074        BAL    15,  116(  0, 13)


  3462                         DUMP(1,1,QQ-MOVED,0,WSPR)

C 00012D5E    41100001        LA      1,    1(  0,  0)
C 00012D62    5010B040        ST      1,   64(  0, 11)
C 00012D66    41100001        LA      1,    1(  0,  0)
C 00012D6A    5010B044        ST      1,   68(  0, 11)
C 00012D6E    58107054        L       1,   84(  0,  7)
C 00012D72    5B107064        S       1,  100(  0,  7)
C 00012D76    5010B048        ST      1,   72(  0, 11)
C 00012D7A    1F11            SLR     1,  1
C 00012D7C    5010B04C        ST      1,   76(  0, 11)
C 00012D80    D203B050D14C    MVC     80(  4, 11),  332( 13)
C 00012D86    5810D458        L       1, 1112(  0, 13)
C 00012D8A    45F0D074        BAL    15,  116(  0, 13)


  3463                         TOMOVE=4;->50 %UNLESS II=0

C 00012D8E    41100004        LA      1,    4(  0,  0)
C 00012D92    50107068        ST      1,  104(  0,  7)



C 00012D96    58107048        L       1,   72(  0,  7)
C 00012D9A    1211            LTR     1,  1
C 00012D9C    477A0000        BC      7,    0( 10,  0)


  3464                         FAULT(12) %UNLESS 2>=TYPE

C 00012DA0    1F11            SLR     1,  1
C 00012DA2    43108094        IC      1,  148(  0,  8)
C 00012DA6    41200002        LA      2,    2(  0,  0)
C 00012DAA    1921            CR      2,  1
C 00012DAC    47AA06EA        BC     10, 1770( 10,  0)
C 00012DB0    920CB043        MVI     67( 11), 12
C 00012DB4    5810D228        L       1,  552(  0, 13)
C 00012DB8    45F0D074        BAL    15,  116(  0, 13)


  3465                         PSI(X'92',PREC<<3!TYPE,WSPR,QQ-MOVED); ->50;!FLAG FOR %NAME

C 00012DBC    41100092        LA      1,  146(  0,  0)
C 00012DC0    5010B040        ST      1,   64(  0, 11)
C 00012DC4    1F11            SLR     1,  1
C 00012DC6    43108093        IC      1,  147(  0,  8)
C 00012DCA    89100003        SLL     1,    3(  0)
C 00012DCE    1F22            SLR     2,  2
C 00012DD0    43208094        IC      2,  148(  0,  8)
C 00012DD4    1612            OR      1,  2
C 00012DD6    5010B044        ST      1,   68(  0, 11)
C 00012DDA    D203B048D14C    MVC     72(  4, 11),  332( 13)
C 00012DE0    58107054        L       1,   84(  0,  7)
C 00012DE4    5B107064        S       1,  100(  0,  7)
C 00012DE8    5010B04C        ST      1,   76(  0, 11)
C 00012DEC    5810D1B8        L       1,  440(  0, 13)
C 00012DF0    45F0D074        BAL    15,  116(  0, 13)



C 00012DF4    47FA0000        BC     15,    0( 10,  0)


  3466                FPD(1):FPD(3):                         ! ARRAYNAME (+ARRAY VALUE)
  3467                         P=P+2; CNAME(12,0); ->10 %IF A(P)=1;     ! REST OF EXPRN

C 00012DF8    41100002        LA      1,    2(  0,  0)
C 00012DFC    5A108040        A       1,   64(  0,  8)
C 00012E00    50108040        ST      1,   64(  0,  8)



C 00012E04    4110000C        LA      1,   12(  0,  0)
C 00012E08    5010B040        ST      1,   64(  0, 11)
C 00012E0C    1F11            SLR     1,  1
C 00012E0E    5010B044        ST      1,   68(  0, 11)
C 00012E12    5810D3C4        L       1,  964(  0, 13)
C 00012E16    45F0D074        BAL    15,  116(  0, 13)



C 00012E1A    58108040        L       1,   64(  0,  8)
C 00012E1E    413092FC        LA      3,  764(  0,  9)
C 00012E22    45F0C05C        BAL    15,   92(  0, 12)
C 00012E26    4811F000        LH      1,    0(  1, 15)
C 00012E2A    41200001        LA      2,    1(  0,  0)
C 00012E2E    1912            CR      1,  2
C 00012E30    4780A192        BC      8,  402(  0, 10)


  3468                         P=P+1

C 00012E34    41100001        LA      1,    1(  0,  0)
C 00012E38    5A108040        A       1,   64(  0,  8)
C 00012E3C    50108040        ST      1,   64(  0,  8)


  3469                         FROM2(CLINK,PP)

C 00012E40    D203B0407040    MVC     64(  4, 11),   64(  7)
C 00012E46    4110705C        LA      1,   92(  0,  7)
C 00012E4A    5010B044        ST      1,   68(  0, 11)
C 00012E4E    5810D3F8        L       1, 1016(  0, 13)
C 00012E52    45F0D074        BAL    15,  116(  0, 13)


  3470                         %IF PP=0 %THEN %START; REPLACE2(CLINK,J); %FINISH

C 00012E56    5810705C        L       1,   92(  0,  7)
C 00012E5A    1211            LTR     1,  1
C 00012E5C    477A0000        BC      7,    0( 10,  0)



C 00012E60    D203B0407040    MVC     64(  4, 11),   64(  7)
C 00012E66    D203B04480A0    MVC     68(  4, 11),  160(  8)
C 00012E6C    5810D3EC        L       1, 1004(  0, 13)
C 00012E70    45F0D074        BAL    15,  116(  0, 13)


  3471                         FAULT(22) %UNLESS ARR>0 %AND(J=0 %OR PP=0 %OR J=PP)

C 00012E74    95008092        CLI    146(  8),  0
C 00012E78    47DA07C8        BC     13, 1992( 10,  0)
C 00012E7C    581080A0        L       1,  160(  0,  8)
C 00012E80    1211            LTR     1,  1
C 00012E82    478A07D4        BC      8, 2004( 10,  0)
C 00012E86    5810705C        L       1,   92(  0,  7)
C 00012E8A    1211            LTR     1,  1
C 00012E8C    478A07D4        BC      8, 2004( 10,  0)
C 00012E90    D50380A0705C    CLC    160(  4,  8),   92(  7)
C 00012E96    478A07D4        BC      8, 2004( 10,  0)
C 00012E9A    9216B043        MVI     67( 11), 22
C 00012E9E    5810D228        L       1,  552(  0, 13)
C 00012EA2    45F0D074        BAL    15,  116(  0, 13)


  3472                         FAULT(22) %UNLESS II=0 %OR(TYPE=II %AND III=PREC)

C 00012EA6    58107048        L       1,   72(  0,  7)
C 00012EAA    1211            LTR     1,  1
C 00012EAC    478A0808        BC      8, 2056( 10,  0)
C 00012EB0    58107048        L       1,   72(  0,  7)
C 00012EB4    1F22            SLR     2,  2
C 00012EB6    43208094        IC      2,  148(  0,  8)
C 00012EBA    1921            CR      2,  1
C 00012EBC    477A07FC        BC      7, 2044( 10,  0)
C 00012EC0    1F11            SLR     1,  1
C 00012EC2    43108093        IC      1,  147(  0,  8)
C 00012EC6    5910704C        C       1,   76(  0,  7)
C 00012ECA    478A0808        BC      8, 2056( 10,  0)
C 00012ECE    9216B043        MVI     67( 11), 22
C 00012ED2    5810D228        L       1,  552(  0, 13)
C 00012ED6    45F0D074        BAL    15,  116(  0, 13)


  3473                69:      MOVE BACK

C 00012EDA    5810D610        L       1, 1552(  0, 13)
C 00012EDE    45F0D074        BAL    15,  116(  0, 13)


  3474                         PRX(X'90',0,3,WSPR,QQ-MOVED); ! STM

C 00012EE2    41100090        LA      1,  144(  0,  0)
C 00012EE6    5010B040        ST      1,   64(  0, 11)
C 00012EEA    1F11            SLR     1,  1
C 00012EEC    5010B044        ST      1,   68(  0, 11)
C 00012EF0    41100003        LA      1,    3(  0,  0)
C 00012EF4    5010B048        ST      1,   72(  0, 11)
C 00012EF8    D203B04CD14C    MVC     76(  4, 11),  332( 13)
C 00012EFE    58107054        L       1,   84(  0,  7)
C 00012F02    5B107064        S       1,  100(  0,  7)
C 00012F06    5010B050        ST      1,   80(  0, 11)
C 00012F0A    5810D1C0        L       1,  448(  0, 13)
C 00012F0E    45F0D074        BAL    15,  116(  0, 13)


  3475                         TOMOVE=16

C 00012F12    41100010        LA      1,   16(  0,  0)
C 00012F16    50107068        ST      1,  104(  0,  7)


  3476                50:      QQ=QQ+TOMOVE

C 00012F1A    58107054        L       1,   84(  0,  7)
C 00012F1E    5A107068        A       1,  104(  0,  7)
C 00012F22    50107054        ST      1,   84(  0,  7)


  3477                         ->53 %IF RF=1 %OR Q=KK-1

C 00012F26    41100001        LA      1,    1(  0,  0)
C 00012F2A    59107060        C       1,   96(  0,  7)
C 00012F2E    478A0000        BC      8,    0( 10,  0)
C 00012F32    58107044        L       1,   68(  0,  7)
C 00012F36    0610            BCTR    1,  0
C 00012F38    59107050        C       1,   80(  0,  7)
C 00012F3C    478A0000        BC      8,    0( 10,  0)


  3478                          II=(QQ+7)&(-8)-MOVED

C 00012F40    41100007        LA      1,    7(  0,  0)
C 00012F44    5A107054        A       1,   84(  0,  7)
C 00012F48    1851            LR      5,  1
C 00012F4A    41100008        LA      1,    8(  0,  0)
C 00012F4E    1311            LCR     1,  1
C 00012F50    1861            LR      6,  1
C 00012F52    1456            NR      5,  6
C 00012F54    5B507064        S       5,  100(  0,  7)
C 00012F58    50507048        ST      5,   72(  0,  7)


  3479                         MOVER(WSPR,II); MOVED=MOVED+II

C 00012F5C    D203B040D14C    MVC     64(  4, 11),  332( 13)
C 00012F62    D203B0447048    MVC     68(  4, 11),   72(  7)
C 00012F68    5810D3B4        L       1,  948(  0, 13)
C 00012F6C    45F0D074        BAL    15,  116(  0, 13)



C 00012F70    58107064        L       1,  100(  0,  7)
C 00012F74    5A107048        A       1,   72(  0,  7)
C 00012F78    50107064        ST      1,  100(  0,  7)


  3480                53:      Q=Q+1; ->7 %UNLESS Q=KK

C 00012F7C    41100001        LA      1,    1(  0,  0)
C 00012F80    5A107050        A       1,   80(  0,  7)
C 00012F84    50107050        ST      1,   80(  0,  7)



C 00012F88    D50370507044    CLC     80(  4,  7),   68(  7)
C 00012F8E    4770A0C0        BC      7,  192(  0, 10)


  3481                         MOVER(WSPR,-MOVED) %UNLESS RF=1

C 00012F92    41100001        LA      1,    1(  0,  0)
C 00012F96    59107060        C       1,   96(  0,  7)
C 00012F9A    478A08E4        BC      8, 2276( 10,  0)
C 00012F9E    D203B040D14C    MVC     64(  4, 11),  332( 13)
C 00012FA4    58107064        L       1,  100(  0,  7)
C 00012FA8    1311            LCR     1,  1
C 00012FAA    5010B044        ST      1,   68(  0, 11)
C 00012FAE    5810D3B4        L       1,  948(  0, 13)
C 00012FB2    45F0D074        BAL    15,  116(  0, 13)


  3482                55:      POP(LIST,Q,QQ); ->99 %IF Q=-1

C 00012FB6    41107070        LA      1,  112(  0,  7)
C 00012FBA    5010B040        ST      1,   64(  0, 11)
C 00012FBE    41107050        LA      1,   80(  0,  7)
C 00012FC2    5010B044        ST      1,   68(  0, 11)
C 00012FC6    41107054        LA      1,   84(  0,  7)
C 00012FCA    5010B048        ST      1,   72(  0, 11)
C 00012FCE    5810D3DC        L       1,  988(  0, 13)
C 00012FD2    45F0D074        BAL    15,  116(  0, 13)



C 00012FD6    5810D010        L       1,   16(  0, 13)
C 00012FDA    59107050        C       1,   80(  0,  7)
C 00012FDE    478A0000        BC      8,    0( 10,  0)


  3483                         PRX(X'50',WSPR,0,WSPR,Q); ->55;! POINTER TO SAVE AREA RTTYPES

C 00012FE2    41100050        LA      1,   80(  0,  0)
C 00012FE6    5010B040        ST      1,   64(  0, 11)
C 00012FEA    D203B044D14C    MVC     68(  4, 11),  332( 13)
C 00012FF0    1F11            SLR     1,  1
C 00012FF2    5010B048        ST      1,   72(  0, 11)
C 00012FF6    D203B04CD14C    MVC     76(  4, 11),  332( 13)
C 00012FFC    D203B0507050    MVC     80(  4, 11),   80(  7)
C 00013002    5810D1C0        L       1,  448(  0, 13)
C 00013006    45F0D074        BAL    15,  116(  0, 13)



C 0001300A    47F0A8E4        BC     15, 2276(  0, 10)


  3484                         %ROUTINE MOVEBACK

C 0001300E    47FA0000        BC     15,    0( 10,  0)
C 00013012    50F0B03C        ST     15,   60(  0, 11)
C 00013016    D203B000D014    MVC      0(  4, 11),   20( 13)
C 0001301C    41000D9C        LA      0, 3484(  0,  0)
C 00013020    4000D014        STH     0,   20(  0, 13)
C 00013024    186B            LR      6, 11
C 00013026    41BB0000        LA     11,    0( 11,  0)
C 0001302A    41000004        LA      0,    4(  0,  0)
C 0001302E    59BD0044        C      11,   68( 13,  0)
C 00013032    4720C054        BC      2,   84(  0, 12)
C 00013036    05A0            BALR   10,  0


  3485                             ->1 %IF QQ>=MOVED

C 00013038    58107064        L       1,  100(  0,  7)
C 0001303C    59107054        C       1,   84(  0,  7)
C 00013040    47CA0000        BC     12,    0( 10,  0)


  3486                             MOVER(WSPR,QQ-MOVED); MOVED=QQ

C 00013044    D203B040D14C    MVC     64(  4, 11),  332( 13)
C 0001304A    58107054        L       1,   84(  0,  7)
C 0001304E    5B107064        S       1,  100(  0,  7)
C 00013052    5010B044        ST      1,   68(  0, 11)
C 00013056    5810D3B4        L       1,  948(  0, 13)
C 0001305A    45F0D074        BAL    15,  116(  0, 13)



C 0001305E    D20370647054    MVC    100(  4,  7),   84(  7)


  3487                    1:       %END
D 00001000    C2 C2 C2 C2 0D 9C 06 08 4D 4F 56 45 42 41 43 4B FF FF FF FF


C 00013064    D203D0146000    MVC     20(  4, 13),    0(  6)
C 0001306A    984F6010        LM      4, 15,   16(  6)
C 0001306E    07FF            BCR    15, 15


  3488                99:      %END
D 00001014    C2 C2 C2 C2 0D 41 07 06 43 52 43 41 4C 4C 43 4B 11 70 70 04 4C 49 53 54 01 70 6C 05 54 59 50 45 50 00 00 04 01 70 68 06 54 4F 4D 4F 56 45 00 58 01 70 64 05 4D 4F 56 45 44 01 EE 38 01 70 60 02 52 46 00 00 01 70 5C 02 50 50 89 D0 01 70 58 03 51 51 51 58 01 70 54 02 51 51 00 00 01 70 50 01 51 00 00 06 01 70 4C 03 49 49 49 37 01 70 48 02 49 49 00 00 01 70 44 02 4B 4B 00 02 01 70 40 05 43 4C 49 4E 4B 00 00 07 FF FF FF FF


C 00013070    D203D0147000    MVC     20(  4, 13),    0(  7)
C 00013076    984F7010        LM      4, 15,   16(  7)
C 0001307A    07FF            BCR    15, 15


  3489            %COMMENT Z=1 FOR= ,4 FOR <- AND MAX LENGTH IN BYTE DEFINED BY BML&DML
  3490                     %ROUTINE     STORE STRING(%INTEGER Z,FROM,TO,BML,DML)

C 0001307C    0000
C 0001307E    0000
C 00013080    47FA0000        BC     15,    0( 10,  0)
C 00013084    50F0B03C        ST     15,   60(  0, 11)
C 00013088    D203B000D014    MVC      0(  4, 11),   20( 13)
C 0001308E    41000DA2        LA      0, 3490(  0,  0)
C 00013092    4000D014        STH     0,   20(  0, 13)
C 00013096    187B            LR      7, 11
C 00013098    41BB0000        LA     11,    0( 11,  0)
C 0001309C    41000004        LA      0,    4(  0,  0)
C 000130A0    59BD0044        C      11,   68( 13,  0)
C 000130A4    4720C054        BC      2,   84(  0, 12)
C 000130A8    05A0            BALR   10,  0


  3491                         %SHORTROUTINE
  3492                %COMMENT REGISTER 2 IS ASSUMED TO BE USABLE.
  3493                         FAULT(239) %UNLESS TO=1 %AND FROM=4

C 000130AA    41100001        LA      1,    1(  0,  0)
C 000130AE    59107048        C       1,   72(  0,  7)
C 000130B2    477A0018        BC      7,   24( 10,  0)
C 000130B6    41100004        LA      1,    4(  0,  0)
C 000130BA    59107044        C       1,   68(  0,  7)
C 000130BE    478A0024        BC      8,   36( 10,  0)
C 000130C2    92EFB043        MVI     67( 11), 239
C 000130C6    5810D228        L       1,  552(  0, 13)
C 000130CA    45F0D074        BAL    15,  116(  0, 13)


  3494                         ->10 %IF Z=4

C 000130CE    41100004        LA      1,    4(  0,  0)
C 000130D2    59107040        C       1,   64(  0,  7)
C 000130D6    478A0000        BC      8,    0( 10,  0)


  3495                         ->2 %IF CHECKS=0

C 000130DA    950090CA        CLI    202(  9),  0
C 000130DE    478A0000        BC      8,    0( 10,  0)


  3496                         ->1 %IF BML>0

C 000130E2    5810704C        L       1,   76(  0,  7)
C 000130E6    1211            LTR     1,  1
C 000130E8    472A0000        BC      2,    0( 10,  0)


  3497                         PSI(X'95',DML,FROM,0); ->3;   ! CLI FOR FIXED LENGTH

C 000130EC    41100095        LA      1,  149(  0,  0)
C 000130F0    5010B040        ST      1,   64(  0, 11)
C 000130F4    D203B0447050    MVC     68(  4, 11),   80(  7)
C 000130FA    D203B0487044    MVC     72(  4, 11),   68(  7)
C 00013100    1F11            SLR     1,  1
C 00013102    5010B04C        ST      1,   76(  0, 11)
C 00013106    5810D1B8        L       1,  440(  0, 13)
C 0001310A    45F0D074        BAL    15,  116(  0, 13)



C 0001310E    47FA0000        BC     15,    0( 10,  0)


  3498                1:
  3499                         PSS(X'D5',1,FROM,0,BML,DML)   ;!CLC_ACTUALL(1),MAX

C 00013112    411000D5        LA      1,  213(  0,  0)
C 00013116    5010B040        ST      1,   64(  0, 11)
C 0001311A    41100001        LA      1,    1(  0,  0)
C 0001311E    5010B044        ST      1,   68(  0, 11)
C 00013122    D203B0487044    MVC     72(  4, 11),   68(  7)
C 00013128    1F11            SLR     1,  1
C 0001312A    5010B04C        ST      1,   76(  0, 11)
C 0001312E    D203B050704C    MVC     80(  4, 11),   76(  7)
C 00013134    D203B0547050    MVC     84(  4, 11),   80(  7)
C 0001313A    5810D1BC        L       1,  444(  0, 13)
C 0001313E    45F0D074        BAL    15,  116(  0, 13)


  3500                3:
  3501                         PRX(X'47',2,0,CODER,88)       ;!BH_FAIL

C 00013142    41100047        LA      1,   71(  0,  0)
C 00013146    5010B040        ST      1,   64(  0, 11)
C 0001314A    41100002        LA      1,    2(  0,  0)
C 0001314E    5010B044        ST      1,   68(  0, 11)
C 00013152    1F11            SLR     1,  1
C 00013154    5010B048        ST      1,   72(  0, 11)
C 00013158    D203B04CD144    MVC     76(  4, 11),  324( 13)
C 0001315E    41100058        LA      1,   88(  0,  0)
C 00013162    5010B050        ST      1,   80(  0, 11)
C 00013166    5810D1C0        L       1,  448(  0, 13)
C 0001316A    45F0D074        BAL    15,  116(  0, 13)


  3502                2:       PRX(X'43',2,0,FROM,0)         ;!IC_2,ACTUALL

C 0001316E    41100043        LA      1,   67(  0,  0)
C 00013172    5010B040        ST      1,   64(  0, 11)
C 00013176    41100002        LA      1,    2(  0,  0)
C 0001317A    5010B044        ST      1,   68(  0, 11)
C 0001317E    1F11            SLR     1,  1
C 00013180    5010B048        ST      1,   72(  0, 11)
C 00013184    D203B04C7044    MVC     76(  4, 11),   68(  7)
C 0001318A    1F11            SLR     1,  1
C 0001318C    5010B050        ST      1,   80(  0, 11)
C 00013190    5810D1C0        L       1,  448(  0, 13)
C 00013194    45F0D074        BAL    15,  116(  0, 13)


  3503                         PRX(X'44',2,0,GLA,STRINST)    ;!EX_2,MOVE

C 00013198    41100044        LA      1,   68(  0,  0)
C 0001319C    5010B040        ST      1,   64(  0, 11)
C 000131A0    41100002        LA      1,    2(  0,  0)
C 000131A4    5010B044        ST      1,   68(  0, 11)
C 000131A8    1F11            SLR     1,  1
C 000131AA    5010B048        ST      1,   72(  0, 11)
C 000131AE    D203B04CD150    MVC     76(  4, 11),  336( 13)
C 000131B4    D203B050910C    MVC     80(  4, 11),  268(  9)
C 000131BA    5810D1C0        L       1,  448(  0, 13)
C 000131BE    45F0D074        BAL    15,  116(  0, 13)


  3504                         ->99

C 000131C2    47FA0000        BC     15,    0( 10,  0)


  3505                10:      PRX(X'43',2,0,BML,DML)        ;!IC_2,MAXL

C 000131C6    41100043        LA      1,   67(  0,  0)
C 000131CA    5010B040        ST      1,   64(  0, 11)
C 000131CE    41100002        LA      1,    2(  0,  0)
C 000131D2    5010B044        ST      1,   68(  0, 11)
C 000131D6    1F11            SLR     1,  1
C 000131D8    5010B048        ST      1,   72(  0, 11)
C 000131DC    D203B04C704C    MVC     76(  4, 11),   76(  7)
C 000131E2    D203B0507050    MVC     80(  4, 11),   80(  7)
C 000131E8    5810D1C0        L       1,  448(  0, 13)
C 000131EC    45F0D074        BAL    15,  116(  0, 13)


  3506                         PPJ(39)

C 000131F0    9227B043        MVI     67( 11), 39
C 000131F4    5810D46C        L       1, 1132(  0, 13)
C 000131F8    45F0D074        BAL    15,  116(  0, 13)


  3507                99:      %END
D 000010A0    C2 C2 C2 C2 0D A2 07 0B 53 54 4F 52 45 53 54 52 49 4E 47 04 01 70 50 03 44 4D 4C 05 01 70 4C 03 42 4D 4C 04 01 70 48 02 54 4F 4D 4F 01 70 44 04 46 52 4F 4D 01 70 40 01 5A 01 EE 38 FF FF FF FF


C 000131FC    D203D0147000    MVC     20(  4, 13),    0(  7)
C 00013202    984F7010        LM      4, 15,   16(  7)
C 00013206    07FF            BCR    15, 15


  3508                           %ROUTINE TEST NST

C 00013208    0000
C 0001320A    0000
C 0001320C    47FA0000        BC     15,    0( 10,  0)
C 00013210    50F0B03C        ST     15,   60(  0, 11)
C 00013214    D203B000D014    MVC      0(  4, 11),   20( 13)
C 0001321A    41000DB4        LA      0, 3508(  0,  0)
C 0001321E    4000D014        STH     0,   20(  0, 13)
C 00013222    187B            LR      7, 11
C 00013224    41BB0000        LA     11,    0( 11,  0)
C 00013228    41000004        LA      0,    4(  0,  0)
C 0001322C    59BD0044        C      11,   68( 13,  0)
C 00013230    4720C054        BC      2,   84(  0, 12)
C 00013234    05A0            BALR   10,  0


  3509                               FNAME=K

C 00013236    D203913080A4    MVC    304(  4,  9),  164(  8)


  3510                               FAULT(7) %UNLESS FIND(FNAME,NAME(LEVEL))=-1

C 0001323C    D203B0409130    MVC     64(  4, 11),  304(  9)
C 00013242    581090A8        L       1,  168(  0,  9)
C 00013246    413091CC        LA      3,  460(  0,  9)
C 0001324A    45F0C05C        BAL    15,   92(  0, 12)
C 0001324E    4811F000        LH      1,    0(  1, 15)
C 00013252    5010B044        ST      1,   68(  0, 11)
C 00013256    5810D3E4        L       1,  996(  0, 13)
C 0001325A    45F0D074        BAL    15,  116(  0, 13)
C 0001325E    1851            LR      5,  1
C 00013260    5810D010        L       1,   16(  0, 13)
C 00013264    1915            CR      1,  5
C 00013266    478A0040        BC      8,   64( 10,  0)
C 0001326A    9207B043        MVI     67( 11),  7
C 0001326E    5810D228        L       1,  552(  0, 13)
C 00013272    45F0D074        BAL    15,  116(  0, 13)


  3511                               %END
D 000010E0    C2 C2 C2 C2 0D B4 07 07 54 45 53 54 4E 53 54 01 FF FF FF FF


C 00013276    D203D0147000    MVC     20(  4, 13),    0(  7)
C 0001327C    984F7010        LM      4, 15,   16(  7)
C 00013280    07FF            BCR    15, 15


  3512                     %ROUTINE CUCI

C 00013282    0000
C 00013284    0000
C 00013286    47FA0000        BC     15,    0( 10,  0)
C 0001328A    50F0B03C        ST     15,   60(  0, 11)
C 0001328E    D203B000D014    MVC      0(  4, 11),   20( 13)
C 00013294    41000DB8        LA      0, 3512(  0,  0)
C 00013298    4000D014        STH     0,   20(  0, 13)
C 0001329C    187B            LR      7, 11
C 0001329E    41BB0000        LA     11,    0( 11,  0)
C 000132A2    41000004        LA      0,    4(  0,  0)
C 000132A6    59BD0044        C      11,   68( 13,  0)
C 000132AA    4720C054        BC      2,   84(  0, 12)
C 000132AE    05A0            BALR   10,  0


  3513                         %SHORTROUTINE
  3514                         %ROUTINESPEC DXB
  3515                         %ROUTINESPEC DLB
  3516                         %ROUTINESPEC DB
  3517                         %ROUTINESPEC CUCS
  3518                         %INTEGER Z,KK,X,OPCODE,REG
  3519                         %SWITCH SW(1:4),S(1:8)

C 000132B0    47FA0000        BC     15,    0( 10,  0)
C 000132B4    0200
C 000132B6    0001
C 000132B8    0000
C 000132BA    0004
C 000132BC    0000
C 000132BE    0000
C 000132C0    0000
C 000132C2    0000
C 000132C4    0000
C 000132C6    0000
C 000132C8    0200
C 000132CA    0001
C 000132CC    0000
C 000132CE    0008
C 000132D0    0000
C 000132D2    0000
C 000132D4    0000
C 000132D6    0000
C 000132D8    0000
C 000132DA    0000
C 000132DC    0000
C 000132DE    0000
C 000132E0    0000
C 000132E2    0000


  3520                         P=2; ->SW(A(P))

C 000132E4    41100002        LA      1,    2(  0,  0)
C 000132E8    50108040        ST      1,   64(  0,  8)



C 000132EC    58108040        L       1,   64(  0,  8)
C 000132F0    413092FC        LA      3,  764(  0,  9)
C 000132F4    45F0C05C        BAL    15,   92(  0, 12)
C 000132F8    4811F000        LH      1,    0(  1, 15)
C 000132FC    1A11            AR      1,  1
C 000132FE    4811A00A        LH      1,   10(  1, 10)
C 00013302    47F1A000        BC     15,    0(  1, 10)


  3521                SW(1):         ! **(N),(@')(NAME)(APP)
  3522                         NEST=A(3); P=5; Z=A(4)-1

C 00013306    41100003        LA      1,    3(  0,  0)
C 0001330A    413092FC        LA      3,  764(  0,  9)
C 0001330E    45F0C05C        BAL    15,   92(  0, 12)
C 00013312    4811F000        LH      1,    0(  1, 15)
C 00013316    5010912C        ST      1,  300(  0,  9)



C 0001331A    41100005        LA      1,    5(  0,  0)
C 0001331E    50108040        ST      1,   64(  0,  8)



C 00013322    41100004        LA      1,    4(  0,  0)
C 00013326    413092FC        LA      3,  764(  0,  9)
C 0001332A    45F0C05C        BAL    15,   92(  0, 12)
C 0001332E    4861F000        LH      6,    0(  1, 15)
C 00013332    0660            BCTR    6,  0
C 00013334    50607040        ST      6,   64(  0,  7)


  3523                         Z=3 %IF Z=0; CNAME(Z,NEST)

C 00013338    58107040        L       1,   64(  0,  7)
C 0001333C    1211            LTR     1,  1
C 0001333E    477A009A        BC      7,  154( 10,  0)
C 00013342    41100003        LA      1,    3(  0,  0)
C 00013346    50107040        ST      1,   64(  0,  7)



C 0001334A    D203B0407040    MVC     64(  4, 11),   64(  7)
C 00013350    D203B044912C    MVC     68(  4, 11),  300(  9)
C 00013356    5810D3C4        L       1,  964(  0, 13)
C 0001335A    45F0D074        BAL    15,  116(  0, 13)


  3524                         ->99

C 0001335E    47FA0000        BC     15,    0( 10,  0)


  3525                SW(2):   PPJ(A(P+1)); ->99

C 00013362    41100001        LA      1,    1(  0,  0)
C 00013366    5A108040        A       1,   64(  0,  8)
C 0001336A    413092FC        LA      3,  764(  0,  9)
C 0001336E    45F0C05C        BAL    15,   92(  0, 12)
C 00013372    4811F000        LH      1,    0(  1, 15)
C 00013376    5010B040        ST      1,   64(  0, 11)
C 0001337A    5810D46C        L       1, 1132(  0, 13)
C 0001337E    45F0D074        BAL    15,  116(  0, 13)



C 00013382    47FA0000        BC     15,    0( 10,  0)


  3526                SW(4):   ! *PUT_CONST
  3527                         ->401 %IF A(P+1)#9

C 00013386    41100001        LA      1,    1(  0,  0)
C 0001338A    5A108040        A       1,   64(  0,  8)
C 0001338E    413092FC        LA      3,  764(  0,  9)
C 00013392    45F0C05C        BAL    15,   92(  0, 12)
C 00013396    4811F000        LH      1,    0(  1, 15)
C 0001339A    41200009        LA      2,    9(  0,  0)
C 0001339E    1912            CR      1,  2
C 000133A0    477A0000        BC      7,    0( 10,  0)


  3528                         PLANT(A(P+2)); P=P+3; ->99

C 000133A4    41100002        LA      1,    2(  0,  0)
C 000133A8    5A108040        A       1,   64(  0,  8)
C 000133AC    413092FC        LA      3,  764(  0,  9)
C 000133B0    45F0C05C        BAL    15,   92(  0, 12)
C 000133B4    4811F000        LH      1,    0(  1, 15)
C 000133B8    5010B040        ST      1,   64(  0, 11)
C 000133BC    5810D1CC        L       1,  460(  0, 13)
C 000133C0    45F0D074        BAL    15,  116(  0, 13)



C 000133C4    41100003        LA      1,    3(  0,  0)
C 000133C8    5A108040        A       1,   64(  0,  8)
C 000133CC    50108040        ST      1,   64(  0,  8)



C 000133D0    47FA0000        BC     15,    0( 10,  0)


  3529                401:     FAULT(32) %UNLESS A(P+1)=1

C 000133D4    41100001        LA      1,    1(  0,  0)
C 000133D8    5A108040        A       1,   64(  0,  8)
C 000133DC    413092FC        LA      3,  764(  0,  9)
C 000133E0    45F0C05C        BAL    15,   92(  0, 12)
C 000133E4    4811F000        LH      1,    0(  1, 15)
C 000133E8    41200001        LA      2,    1(  0,  0)
C 000133EC    1912            CR      1,  2
C 000133EE    478A014E        BC      8,  334( 10,  0)
C 000133F2    9220B043        MVI     67( 11), 32
C 000133F6    5810D228        L       1,  552(  0, 13)
C 000133FA    45F0D074        BAL    15,  116(  0, 13)


  3530                         PLANT(A(P+3));                ! LEAST SIGNIFICANT 16 BITS ONLY

C 000133FE    41100003        LA      1,    3(  0,  0)
C 00013402    5A108040        A       1,   64(  0,  8)
C 00013406    413092FC        LA      3,  764(  0,  9)
C 0001340A    45F0C05C        BAL    15,   92(  0, 12)
C 0001340E    4811F000        LH      1,    0(  1, 15)
C 00013412    5010B040        ST      1,   64(  0, 11)
C 00013416    5810D1CC        L       1,  460(  0, 13)
C 0001341A    45F0D074        BAL    15,  116(  0, 13)


  3531                         P=P+4; ->99

C 0001341E    41100004        LA      1,    4(  0,  0)
C 00013422    5A108040        A       1,   64(  0,  8)
C 00013426    50108040        ST      1,   64(  0,  8)



C 0001342A    47FA0000        BC     15,    0( 10,  0)


  3532                SW(3):   OPCODE=A(P+2);P=P+3; ->S(A(P-2))

C 0001342E    41100002        LA      1,    2(  0,  0)
C 00013432    5A108040        A       1,   64(  0,  8)
C 00013436    413092FC        LA      3,  764(  0,  9)
C 0001343A    45F0C05C        BAL    15,   92(  0, 12)
C 0001343E    4811F000        LH      1,    0(  1, 15)
C 00013442    5010704C        ST      1,   76(  0,  7)



C 00013446    41100003        LA      1,    3(  0,  0)
C 0001344A    5A108040        A       1,   64(  0,  8)
C 0001344E    50108040        ST      1,   64(  0,  8)



C 00013452    58108040        L       1,   64(  0,  8)
C 00013456    0610            BCTR    1,  0
C 00013458    0610            BCTR    1,  0
C 0001345A    413092FC        LA      3,  764(  0,  9)
C 0001345E    45F0C05C        BAL    15,   92(  0, 12)
C 00013462    4811F000        LH      1,    0(  1, 15)
C 00013466    1A11            AR      1,  1
C 00013468    4811A01E        LH      1,   30(  1, 10)
C 0001346C    47F1A000        BC     15,    0(  1, 10)


  3533                S(1):    ->87 %IF OPCODE=0;

C 00013470    5810704C        L       1,   76(  0,  7)
C 00013474    1211            LTR     1,  1
C 00013476    478A0000        BC      8,    0( 10,  0)


  3534                         PRR(OPCODE,A(P),A(P+1)); P=P+2; ->99;           ! RR

C 0001347A    D203B040704C    MVC     64(  4, 11),   76(  7)
C 00013480    58108040        L       1,   64(  0,  8)
C 00013484    413092FC        LA      3,  764(  0,  9)
C 00013488    45F0C05C        BAL    15,   92(  0, 12)
C 0001348C    4811F000        LH      1,    0(  1, 15)
C 00013490    5010B044        ST      1,   68(  0, 11)
C 00013494    41100001        LA      1,    1(  0,  0)
C 00013498    5A108040        A       1,   64(  0,  8)
C 0001349C    413092FC        LA      3,  764(  0,  9)
C 000134A0    45F0C05C        BAL    15,   92(  0, 12)
C 000134A4    4811F000        LH      1,    0(  1, 15)
C 000134A8    5010B048        ST      1,   72(  0, 11)
C 000134AC    5810D1D0        L       1,  464(  0, 13)
C 000134B0    45F0D074        BAL    15,  116(  0, 13)



C 000134B4    41100002        LA      1,    2(  0,  0)
C 000134B8    5A108040        A       1,   64(  0,  8)
C 000134BC    50108040        ST      1,   64(  0,  8)



C 000134C0    47FA0000        BC     15,    0( 10,  0)


  3535                S(2):    REG=A(P); P=P+1;DXB;                    !RX

C 000134C4    58108040        L       1,   64(  0,  8)
C 000134C8    413092FC        LA      3,  764(  0,  9)
C 000134CC    45F0C05C        BAL    15,   92(  0, 12)
C 000134D0    4811F000        LH      1,    0(  1, 15)
C 000134D4    50107050        ST      1,   80(  0,  7)



C 000134D8    41100001        LA      1,    1(  0,  0)
C 000134DC    5A108040        A       1,   64(  0,  8)
C 000134E0    50108040        ST      1,   64(  0,  8)



C 000134E4    5810D61C        L       1, 1564(  0, 13)
C 000134E8    45F0D074        BAL    15,  116(  0, 13)


  3536                11:      PRX(OPCODE,REG,X,I,K);->99

C 000134EC    D203B040704C    MVC     64(  4, 11),   76(  7)
C 000134F2    D203B0447050    MVC     68(  4, 11),   80(  7)
C 000134F8    D203B0487048    MVC     72(  4, 11),   72(  7)
C 000134FE    D203B04C809C    MVC     76(  4, 11),  156(  8)
C 00013504    D203B05080A4    MVC     80(  4, 11),  164(  8)
C 0001350A    5810D1C0        L       1,  448(  0, 13)
C 0001350E    45F0D074        BAL    15,  116(  0, 13)



C 00013512    47FA0000        BC     15,    0( 10,  0)


  3537                S(3):    REG=A(P); X=A(P+1);P=P+2;               !RS

C 00013516    58108040        L       1,   64(  0,  8)
C 0001351A    413092FC        LA      3,  764(  0,  9)
C 0001351E    45F0C05C        BAL    15,   92(  0, 12)
C 00013522    4811F000        LH      1,    0(  1, 15)
C 00013526    50107050        ST      1,   80(  0,  7)



C 0001352A    41100001        LA      1,    1(  0,  0)
C 0001352E    5A108040        A       1,   64(  0,  8)
C 00013532    413092FC        LA      3,  764(  0,  9)
C 00013536    45F0C05C        BAL    15,   92(  0, 12)
C 0001353A    4811F000        LH      1,    0(  1, 15)
C 0001353E    50107048        ST      1,   72(  0,  7)



C 00013542    41100002        LA      1,    2(  0,  0)
C 00013546    5A108040        A       1,   64(  0,  8)
C 0001354A    50108040        ST      1,   64(  0,  8)


  3538                         DB; ->11

C 0001354E    5810D624        L       1, 1572(  0, 13)
C 00013552    45F0D074        BAL    15,  116(  0, 13)



C 00013556    47F0A23C        BC     15,  572(  0, 10)


  3539                S(4):    DB;Z=0;->41 %IF A(P)=2;Z=A(P+2);        !SI

C 0001355A    5810D624        L       1, 1572(  0, 13)
C 0001355E    45F0D074        BAL    15,  116(  0, 13)



C 00013562    1F11            SLR     1,  1
C 00013564    50107040        ST      1,   64(  0,  7)



C 00013568    58108040        L       1,   64(  0,  8)
C 0001356C    413092FC        LA      3,  764(  0,  9)
C 00013570    45F0C05C        BAL    15,   92(  0, 12)
C 00013574    4811F000        LH      1,    0(  1, 15)
C 00013578    41200002        LA      2,    2(  0,  0)
C 0001357C    1912            CR      1,  2
C 0001357E    478A0000        BC      8,    0( 10,  0)



C 00013582    41100002        LA      1,    2(  0,  0)
C 00013586    5A108040        A       1,   64(  0,  8)
C 0001358A    413092FC        LA      3,  764(  0,  9)
C 0001358E    45F0C05C        BAL    15,   92(  0, 12)
C 00013592    4811F000        LH      1,    0(  1, 15)
C 00013596    50107040        ST      1,   64(  0,  7)


  3540                         FAULT(32) %UNLESS A(P+1)=9 %AND Z<256

C 0001359A    41100001        LA      1,    1(  0,  0)
C 0001359E    5A108040        A       1,   64(  0,  8)
C 000135A2    413092FC        LA      3,  764(  0,  9)
C 000135A6    45F0C05C        BAL    15,   92(  0, 12)
C 000135AA    4811F000        LH      1,    0(  1, 15)
C 000135AE    41200009        LA      2,    9(  0,  0)
C 000135B2    1912            CR      1,  2
C 000135B4    477A0314        BC      7,  788( 10,  0)
C 000135B8    41100100        LA      1,  256(  0,  0)
C 000135BC    59107040        C       1,   64(  0,  7)
C 000135C0    472A0320        BC      2,  800( 10,  0)
C 000135C4    9220B043        MVI     67( 11), 32
C 000135C8    5810D228        L       1,  552(  0, 13)
C 000135CC    45F0D074        BAL    15,  116(  0, 13)


  3541                         P=P+2

C 000135D0    41100002        LA      1,    2(  0,  0)
C 000135D4    5A108040        A       1,   64(  0,  8)
C 000135D8    50108040        ST      1,   64(  0,  8)


  3542                41:      PSI(OPCODE,Z,I,K);P=P+1; ->99

C 000135DC    D203B040704C    MVC     64(  4, 11),   76(  7)
C 000135E2    D203B0447040    MVC     68(  4, 11),   64(  7)
C 000135E8    D203B048809C    MVC     72(  4, 11),  156(  8)
C 000135EE    D203B04C80A4    MVC     76(  4, 11),  164(  8)
C 000135F4    5810D1B8        L       1,  440(  0, 13)
C 000135F8    45F0D074        BAL    15,  116(  0, 13)



C 000135FC    41100001        LA      1,    1(  0,  0)
C 00013600    5A108040        A       1,   64(  0,  8)
C 00013604    50108040        ST      1,   64(  0,  8)



C 00013608    47FA0000        BC     15,    0( 10,  0)


  3543                S(5):    REG=A(P);P=P+1; DB;                     !SHIFT INSTR.

C 0001360C    58108040        L       1,   64(  0,  8)
C 00013610    413092FC        LA      3,  764(  0,  9)
C 00013614    45F0C05C        BAL    15,   92(  0, 12)
C 00013618    4811F000        LH      1,    0(  1, 15)
C 0001361C    50107050        ST      1,   80(  0,  7)



C 00013620    41100001        LA      1,    1(  0,  0)
C 00013624    5A108040        A       1,   64(  0,  8)
C 00013628    50108040        ST      1,   64(  0,  8)



C 0001362C    5810D624        L       1, 1572(  0, 13)
C 00013630    45F0D074        BAL    15,  116(  0, 13)


  3544                         X=0; ->11

C 00013634    1F11            SLR     1,  1
C 00013636    50107048        ST      1,   72(  0,  7)



C 0001363A    47F0A23C        BC     15,  572(  0, 10)


  3545                S(6):    DLB;KK=K;Z=X;REG=I;DB;                  !SS FORMAT

C 0001363E    5810D620        L       1, 1568(  0, 13)
C 00013642    45F0D074        BAL    15,  116(  0, 13)



C 00013646    D203704480A4    MVC     68(  4,  7),  164(  8)



C 0001364C    D20370407048    MVC     64(  4,  7),   72(  7)



C 00013652    D2037050809C    MVC     80(  4,  7),  156(  8)



C 00013658    5810D624        L       1, 1572(  0, 13)
C 0001365C    45F0D074        BAL    15,  116(  0, 13)


  3546                         Z=1 %IF Z=0

C 00013660    58107040        L       1,   64(  0,  7)
C 00013664    1211            LTR     1,  1
C 00013666    477A03C2        BC      7,  962( 10,  0)
C 0001366A    41100001        LA      1,    1(  0,  0)
C 0001366E    50107040        ST      1,   64(  0,  7)


  3547                61:      PSS(OPCODE,Z,REG,KK,I,K); ->99

C 00013672    D203B040704C    MVC     64(  4, 11),   76(  7)
C 00013678    D203B0447040    MVC     68(  4, 11),   64(  7)
C 0001367E    D203B0487050    MVC     72(  4, 11),   80(  7)
C 00013684    D203B04C7044    MVC     76(  4, 11),   68(  7)
C 0001368A    D203B050809C    MVC     80(  4, 11),  156(  8)
C 00013690    D203B05480A4    MVC     84(  4, 11),  164(  8)
C 00013696    5810D1BC        L       1,  444(  0, 13)
C 0001369A    45F0D074        BAL    15,  116(  0, 13)



C 0001369E    47FA0000        BC     15,    0( 10,  0)


  3548                S(7):    DLB; KK=K; Z=X; REG=I;                  !PACKED DECIMAL

C 000136A2    5810D620        L       1, 1568(  0, 13)
C 000136A6    45F0D074        BAL    15,  116(  0, 13)



C 000136AA    D203704480A4    MVC     68(  4,  7),  164(  8)



C 000136B0    D20370407048    MVC     64(  4,  7),   72(  7)



C 000136B6    D2037050809C    MVC     80(  4,  7),  156(  8)


  3549                         DLB; Z=1 %IF Z=0

C 000136BC    5810D620        L       1, 1568(  0, 13)
C 000136C0    45F0D074        BAL    15,  116(  0, 13)



C 000136C4    58107040        L       1,   64(  0,  7)
C 000136C8    1211            LTR     1,  1
C 000136CA    477A0426        BC      7, 1062( 10,  0)
C 000136CE    41100001        LA      1,    1(  0,  0)
C 000136D2    50107040        ST      1,   64(  0,  7)


  3550                         X=1 %IF X=0

C 000136D6    58107048        L       1,   72(  0,  7)
C 000136DA    1211            LTR     1,  1
C 000136DC    477A0438        BC      7, 1080( 10,  0)
C 000136E0    41100001        LA      1,    1(  0,  0)
C 000136E4    50107048        ST      1,   72(  0,  7)


  3551                         Z=(Z-1)<<4!X; ->61

C 000136E8    58107040        L       1,   64(  0,  7)
C 000136EC    0610            BCTR    1,  0
C 000136EE    1851            LR      5,  1
C 000136F0    89500004        SLL     5,    4(  0)
C 000136F4    56507048        O       5,   72(  0,  7)
C 000136F8    50507040        ST      5,   64(  0,  7)



C 000136FC    47F0A3C2        BC     15,  962(  0, 10)


  3552                S(8):    REG=A(P); P=P+1;                        !FUNNIES

C 00013700    58108040        L       1,   64(  0,  8)
C 00013704    413092FC        LA      3,  764(  0,  9)
C 00013708    45F0C05C        BAL    15,   92(  0, 12)
C 0001370C    4811F000        LH      1,    0(  1, 15)
C 00013710    50107050        ST      1,   80(  0,  7)



C 00013714    41100001        LA      1,    1(  0,  0)
C 00013718    5A108040        A       1,   64(  0,  8)
C 0001371C    50108040        ST      1,   64(  0,  8)


  3553                         -> 85 %IF OPCODE=X'80'       ;! IDL

C 00013720    41100080        LA      1,  128(  0,  0)
C 00013724    5910704C        C       1,   76(  0,  7)
C 00013728    478A0000        BC      8,    0( 10,  0)


  3554                         ->83 %IF OPCODE=10;           ! SVC

C 0001372C    4110000A        LA      1,   10(  0,  0)
C 00013730    5910704C        C       1,   76(  0,  7)
C 00013734    478A0000        BC      8,    0( 10,  0)


  3555                         PRR(OPCODE,REG,0);->99

C 00013738    D203B040704C    MVC     64(  4, 11),   76(  7)
C 0001373E    D203B0447050    MVC     68(  4, 11),   80(  7)
C 00013744    1F11            SLR     1,  1
C 00013746    5010B048        ST      1,   72(  0, 11)
C 0001374A    5810D1D0        L       1,  464(  0, 13)
C 0001374E    45F0D074        BAL    15,  116(  0, 13)



C 00013752    47FA0000        BC     15,    0( 10,  0)


  3556                83:      PLANT(X'A00'!REG); ->99

C 00013756    41100A00        LA      1, 2560(  0,  0)
C 0001375A    56107050        O       1,   80(  0,  7)
C 0001375E    5010B040        ST      1,   64(  0, 11)
C 00013762    5810D1CC        L       1,  460(  0, 13)
C 00013766    45F0D074        BAL    15,  116(  0, 13)



C 0001376A    47FA0000        BC     15,    0( 10,  0)


  3557                85:      PSI(OPCODE,REG,0,0); ->99

C 0001376E    D203B040704C    MVC     64(  4, 11),   76(  7)
C 00013774    D203B0447050    MVC     68(  4, 11),   80(  7)
C 0001377A    1F11            SLR     1,  1
C 0001377C    5010B048        ST      1,   72(  0, 11)
C 00013780    1F11            SLR     1,  1
C 00013782    5010B04C        ST      1,   76(  0, 11)
C 00013786    5810D1B8        L       1,  440(  0, 13)
C 0001378A    45F0D074        BAL    15,  116(  0, 13)



C 0001378E    47FA0000        BC     15,    0( 10,  0)


  3558                87:      CNOP(A(P),A(P+1)); ->99

C 00013792    58108040        L       1,   64(  0,  8)
C 00013796    413092FC        LA      3,  764(  0,  9)
C 0001379A    45F0C05C        BAL    15,   92(  0, 12)
C 0001379E    4811F000        LH      1,    0(  1, 15)
C 000137A2    5010B040        ST      1,   64(  0, 11)
C 000137A6    41100001        LA      1,    1(  0,  0)
C 000137AA    5A108040        A       1,   64(  0,  8)
C 000137AE    413092FC        LA      3,  764(  0,  9)
C 000137B2    45F0C05C        BAL    15,   92(  0, 12)
C 000137B6    4811F000        LH      1,    0(  1, 15)
C 000137BA    5010B044        ST      1,   68(  0, 11)
C 000137BE    5810D1B0        L       1,  432(  0, 13)
C 000137C2    45F0D074        BAL    15,  116(  0, 13)



C 000137C6    47FA0000        BC     15,    0( 10,  0)


  3559                         %ROUTINE DB

C 000137CA    47FA0000        BC     15,    0( 10,  0)
C 000137CE    50F0B03C        ST     15,   60(  0, 11)
C 000137D2    D203B000D014    MVC      0(  4, 11),   20( 13)
C 000137D8    41000DE7        LA      0, 3559(  0,  0)
C 000137DC    4000D014        STH     0,   20(  0, 13)
C 000137E0    186B            LR      6, 11
C 000137E2    41BB0000        LA     11,    0( 11,  0)
C 000137E6    41000004        LA      0,    4(  0,  0)
C 000137EA    59BD0044        C      11,   68( 13,  0)
C 000137EE    4720C054        BC      2,   84(  0, 12)
C 000137F2    05A0            BALR   10,  0


  3560                             ->2 %IF A(P)=1

C 000137F4    58108040        L       1,   64(  0,  8)
C 000137F8    413092FC        LA      3,  764(  0,  9)
C 000137FC    45F0C05C        BAL    15,   92(  0, 12)
C 00013800    4811F000        LH      1,    0(  1, 15)
C 00013804    41200001        LA      2,    1(  0,  0)
C 00013808    1912            CR      1,  2
C 0001380A    478A0000        BC      8,    0( 10,  0)


  3561                             K=A(P+1); I=0; P=P+3

C 0001380E    41100001        LA      1,    1(  0,  0)
C 00013812    5A108040        A       1,   64(  0,  8)
C 00013816    413092FC        LA      3,  764(  0,  9)
C 0001381A    45F0C05C        BAL    15,   92(  0, 12)
C 0001381E    4811F000        LH      1,    0(  1, 15)
C 00013822    501080A4        ST      1,  164(  0,  8)



C 00013826    1F11            SLR     1,  1
C 00013828    5010809C        ST      1,  156(  0,  8)



C 0001382C    41100003        LA      1,    3(  0,  0)
C 00013830    5A108040        A       1,   64(  0,  8)
C 00013834    50108040        ST      1,   64(  0,  8)


  3562                             ->99 %IF A(P-1)=2

C 00013838    58108040        L       1,   64(  0,  8)
C 0001383C    0610            BCTR    1,  0
C 0001383E    413092FC        LA      3,  764(  0,  9)
C 00013842    45F0C05C        BAL    15,   92(  0, 12)
C 00013846    4811F000        LH      1,    0(  1, 15)
C 0001384A    41200002        LA      2,    2(  0,  0)
C 0001384E    1912            CR      1,  2
C 00013850    478A0000        BC      8,    0( 10,  0)


  3563                             I=A(P);P=P+1;->99

C 00013854    58108040        L       1,   64(  0,  8)
C 00013858    413092FC        LA      3,  764(  0,  9)
C 0001385C    45F0C05C        BAL    15,   92(  0, 12)
C 00013860    4811F000        LH      1,    0(  1, 15)
C 00013864    5010809C        ST      1,  156(  0,  8)



C 00013868    41100001        LA      1,    1(  0,  0)
C 0001386C    5A108040        A       1,   64(  0,  8)
C 00013870    50108040        ST      1,   64(  0,  8)



C 00013874    47FA0000        BC     15,    0( 10,  0)


  3564                    2:       CUCS

C 00013878    5810D628        L       1, 1576(  0, 13)
C 0001387C    45F0D074        BAL    15,  116(  0, 13)


  3565                    99:      %END
D 000010F4    C2 C2 C2 C2 0D E7 06 02 44 42 00 01 FF FF FF FF


C 00013880    D203D0146000    MVC     20(  4, 13),    0(  6)
C 00013886    984F6010        LM      4, 15,   16(  6)
C 0001388A    07FF            BCR    15, 15


  3566                         %ROUTINE DXB

C 0001388C    47FA0000        BC     15,    0( 10,  0)
C 00013890    50F0B03C        ST     15,   60(  0, 11)
C 00013894    D203B000D014    MVC      0(  4, 11),   20( 13)
C 0001389A    41000DEE        LA      0, 3566(  0,  0)
C 0001389E    4000D014        STH     0,   20(  0, 13)
C 000138A2    186B            LR      6, 11
C 000138A4    41BB0000        LA     11,    0( 11,  0)
C 000138A8    41000004        LA      0,    4(  0,  0)
C 000138AC    59BD0044        C      11,   68( 13,  0)
C 000138B0    4720C054        BC      2,   84(  0, 12)
C 000138B4    05A0            BALR   10,  0


  3567                             %SWITCH SW(1:3)

C 000138B6    0700            BCR     0,  0
C 000138B8    47FA0000        BC     15,    0( 10,  0)
C 000138BC    0200
C 000138BE    0001
C 000138C0    0000
C 000138C2    0003
C 000138C4    0000
C 000138C6    0000
C 000138C8    0000
C 000138CA    0000


  3568                             ->2 %IF A(P)=2

C 000138CC    58108040        L       1,   64(  0,  8)
C 000138D0    413092FC        LA      3,  764(  0,  9)
C 000138D4    45F0C05C        BAL    15,   92(  0, 12)
C 000138D8    4811F000        LH      1,    0(  1, 15)
C 000138DC    41200002        LA      2,    2(  0,  0)
C 000138E0    1912            CR      1,  2
C 000138E2    478A0000        BC      8,    0( 10,  0)


  3569                             CUCS;X=0;P=P+1

C 000138E6    5810D628        L       1, 1576(  0, 13)
C 000138EA    45F0D074        BAL    15,  116(  0, 13)



C 000138EE    1F11            SLR     1,  1
C 000138F0    50107048        ST      1,   72(  0,  7)



C 000138F4    41100001        LA      1,    1(  0,  0)
C 000138F8    5A108040        A       1,   64(  0,  8)
C 000138FC    50108040        ST      1,   64(  0,  8)


  3570                             ->99 %IF A(P-1)=2

C 00013900    58108040        L       1,   64(  0,  8)
C 00013904    0610            BCTR    1,  0
C 00013906    413092FC        LA      3,  764(  0,  9)
C 0001390A    45F0C05C        BAL    15,   92(  0, 12)
C 0001390E    4811F000        LH      1,    0(  1, 15)
C 00013912    41200002        LA      2,    2(  0,  0)
C 00013916    1912            CR      1,  2
C 00013918    478A0000        BC      8,    0( 10,  0)


  3571                             X=A(P);P=P+1; ->99

C 0001391C    58108040        L       1,   64(  0,  8)
C 00013920    413092FC        LA      3,  764(  0,  9)
C 00013924    45F0C05C        BAL    15,   92(  0, 12)
C 00013928    4811F000        LH      1,    0(  1, 15)
C 0001392C    50107048        ST      1,   72(  0,  7)



C 00013930    41100001        LA      1,    1(  0,  0)
C 00013934    5A108040        A       1,   64(  0,  8)
C 00013938    50108040        ST      1,   64(  0,  8)



C 0001393C    47FA0000        BC     15,    0( 10,  0)


  3572                    2:       K=A(P+1);P=P+2;I=0;X=0

C 00013940    41100001        LA      1,    1(  0,  0)
C 00013944    5A108040        A       1,   64(  0,  8)
C 00013948    413092FC        LA      3,  764(  0,  9)
C 0001394C    45F0C05C        BAL    15,   92(  0, 12)
C 00013950    4811F000        LH      1,    0(  1, 15)
C 00013954    501080A4        ST      1,  164(  0,  8)



C 00013958    41100002        LA      1,    2(  0,  0)
C 0001395C    5A108040        A       1,   64(  0,  8)
C 00013960    50108040        ST      1,   64(  0,  8)



C 00013964    1F11            SLR     1,  1
C 00013966    5010809C        ST      1,  156(  0,  8)



C 0001396A    1F11            SLR     1,  1
C 0001396C    50107048        ST      1,   72(  0,  7)


  3573                             ->SW(A(P))

C 00013970    58108040        L       1,   64(  0,  8)
C 00013974    413092FC        LA      3,  764(  0,  9)
C 00013978    45F0C05C        BAL    15,   92(  0, 12)
C 0001397C    4811F000        LH      1,    0(  1, 15)
C 00013980    1A11            AR      1,  1
C 00013982    4811A00C        LH      1,   12(  1, 10)
C 00013986    47F1A000        BC     15,    0(  1, 10)


  3574                    SW(1):   X=A(P+1);P=P+1

C 0001398A    41100001        LA      1,    1(  0,  0)
C 0001398E    5A108040        A       1,   64(  0,  8)
C 00013992    413092FC        LA      3,  764(  0,  9)
C 00013996    45F0C05C        BAL    15,   92(  0, 12)
C 0001399A    4811F000        LH      1,    0(  1, 15)
C 0001399E    50107048        ST      1,   72(  0,  7)



C 000139A2    41100001        LA      1,    1(  0,  0)
C 000139A6    5A108040        A       1,   64(  0,  8)
C 000139AA    50108040        ST      1,   64(  0,  8)


  3575                    SW(2):   I=A(P+1);P=P+1

C 000139AE    41100001        LA      1,    1(  0,  0)
C 000139B2    5A108040        A       1,   64(  0,  8)
C 000139B6    413092FC        LA      3,  764(  0,  9)
C 000139BA    45F0C05C        BAL    15,   92(  0, 12)
C 000139BE    4811F000        LH      1,    0(  1, 15)
C 000139C2    5010809C        ST      1,  156(  0,  8)



C 000139C6    41100001        LA      1,    1(  0,  0)
C 000139CA    5A108040        A       1,   64(  0,  8)
C 000139CE    50108040        ST      1,   64(  0,  8)


  3576                    SW(3):   P=P+1

C 000139D2    41100001        LA      1,    1(  0,  0)
C 000139D6    5A108040        A       1,   64(  0,  8)
C 000139DA    50108040        ST      1,   64(  0,  8)


  3577                    99:      %END
D 00001104    C2 C2 C2 C2 0D EE 06 03 44 58 42 01 FF FF FF FF


C 000139DE    D203D0146000    MVC     20(  4, 13),    0(  6)
C 000139E4    984F6010        LM      4, 15,   16(  6)
C 000139E8    07FF            BCR    15, 15


  3578                         %ROUTINE DLB

C 000139EA    47FA0000        BC     15,    0( 10,  0)
C 000139EE    50F0B03C        ST     15,   60(  0, 11)
C 000139F2    D203B000D014    MVC      0(  4, 11),   20( 13)
C 000139F8    41000DFA        LA      0, 3578(  0,  0)
C 000139FC    4000D014        STH     0,   20(  0, 13)
C 00013A00    186B            LR      6, 11
C 00013A02    41BB0000        LA     11,    0( 11,  0)
C 00013A06    41000004        LA      0,    4(  0,  0)
C 00013A0A    59BD0044        C      11,   68( 13,  0)
C 00013A0E    4720C054        BC      2,   84(  0, 12)
C 00013A12    05A0            BALR   10,  0


  3579                             ->2 %IF A(P)=2

C 00013A14    58108040        L       1,   64(  0,  8)
C 00013A18    413092FC        LA      3,  764(  0,  9)
C 00013A1C    45F0C05C        BAL    15,   92(  0, 12)
C 00013A20    4811F000        LH      1,    0(  1, 15)
C 00013A24    41200002        LA      2,    2(  0,  0)
C 00013A28    1912            CR      1,  2
C 00013A2A    478A0000        BC      8,    0( 10,  0)


  3580                             K=A(P+1); X=A(P+2); I=A(P+3); P=P+4; ->99

C 00013A2E    41100001        LA      1,    1(  0,  0)
C 00013A32    5A108040        A       1,   64(  0,  8)
C 00013A36    413092FC        LA      3,  764(  0,  9)
C 00013A3A    45F0C05C        BAL    15,   92(  0, 12)
C 00013A3E    4811F000        LH      1,    0(  1, 15)
C 00013A42    501080A4        ST      1,  164(  0,  8)



C 00013A46    41100002        LA      1,    2(  0,  0)
C 00013A4A    5A108040        A       1,   64(  0,  8)
C 00013A4E    413092FC        LA      3,  764(  0,  9)
C 00013A52    45F0C05C        BAL    15,   92(  0, 12)
C 00013A56    4811F000        LH      1,    0(  1, 15)
C 00013A5A    50107048        ST      1,   72(  0,  7)



C 00013A5E    41100003        LA      1,    3(  0,  0)
C 00013A62    5A108040        A       1,   64(  0,  8)
C 00013A66    413092FC        LA      3,  764(  0,  9)
C 00013A6A    45F0C05C        BAL    15,   92(  0, 12)
C 00013A6E    4811F000        LH      1,    0(  1, 15)
C 00013A72    5010809C        ST      1,  156(  0,  8)



C 00013A76    41100004        LA      1,    4(  0,  0)
C 00013A7A    5A108040        A       1,   64(  0,  8)
C 00013A7E    50108040        ST      1,   64(  0,  8)



C 00013A82    47FA0000        BC     15,    0( 10,  0)


  3581                    2:       CUCS; X=A(P); P=P+1

C 00013A86    5810D628        L       1, 1576(  0, 13)
C 00013A8A    45F0D074        BAL    15,  116(  0, 13)



C 00013A8E    58108040        L       1,   64(  0,  8)
C 00013A92    413092FC        LA      3,  764(  0,  9)
C 00013A96    45F0C05C        BAL    15,   92(  0, 12)
C 00013A9A    4811F000        LH      1,    0(  1, 15)
C 00013A9E    50107048        ST      1,   72(  0,  7)



C 00013AA2    41100001        LA      1,    1(  0,  0)
C 00013AA6    5A108040        A       1,   64(  0,  8)
C 00013AAA    50108040        ST      1,   64(  0,  8)


  3582                    99:      %END
D 00001114    C2 C2 C2 C2 0D FA 06 03 44 4C 42 01 FF FF FF FF


C 00013AAE    D203D0146000    MVC     20(  4, 13),    0(  6)
C 00013AB4    984F6010        LM      4, 15,   16(  6)
C 00013AB8    07FF            BCR    15, 15


  3583                         %ROUTINE     CUCS

C 00013ABA    47FA0000        BC     15,    0( 10,  0)
C 00013ABE    50F0B03C        ST     15,   60(  0, 11)
C 00013AC2    D203B000D014    MVC      0(  4, 11),   20( 13)
C 00013AC8    41000DFF        LA      0, 3583(  0,  0)
C 00013ACC    4000D014        STH     0,   20(  0, 13)
C 00013AD0    186B            LR      6, 11
C 00013AD2    41BB0000        LA     11,    0( 11,  0)
C 00013AD6    41000004        LA      0,    4(  0,  0)
C 00013ADA    59BD0044        C      11,   68( 13,  0)
C 00013ADE    4720C054        BC      2,   84(  0, 12)
C 00013AE2    05A0            BALR   10,  0


  3584                             %SWITCH UTYPE(0:8)

C 00013AE4    47FA0000        BC     15,    0( 10,  0)
C 00013AE8    0200
C 00013AEA    0000
C 00013AEC    0000
C 00013AEE    0008
C 00013AF0    0000
C 00013AF2    0000
C 00013AF4    0000
C 00013AF6    0000
C 00013AF8    0000
C 00013AFA    0000
C 00013AFC    0000
C 00013AFE    0000
C 00013B00    0000
C 00013B02    0000


  3585                             P=P+1

C 00013B04    41100001        LA      1,    1(  0,  0)
C 00013B08    5A108040        A       1,   64(  0,  8)
C 00013B0C    50108040        ST      1,   64(  0,  8)


  3586                             ->10 %IF A(P)=2

C 00013B10    58108040        L       1,   64(  0,  8)
C 00013B14    413092FC        LA      3,  764(  0,  9)
C 00013B18    45F0C05C        BAL    15,   92(  0, 12)
C 00013B1C    4811F000        LH      1,    0(  1, 15)
C 00013B20    41200002        LA      2,    2(  0,  0)
C 00013B24    1912            CR      1,  2
C 00013B26    478A0000        BC      8,    0( 10,  0)


  3587                             FNAME=A(P+1); COPYTAG(FNAME)

C 00013B2A    41100001        LA      1,    1(  0,  0)
C 00013B2E    5A108040        A       1,   64(  0,  8)
C 00013B32    413092FC        LA      3,  764(  0,  9)
C 00013B36    45F0C05C        BAL    15,   92(  0, 12)
C 00013B3A    4811F000        LH      1,    0(  1, 15)
C 00013B3E    50109130        ST      1,  304(  0,  9)



C 00013B42    D203B0409130    MVC     64(  4, 11),  304(  9)
C 00013B48    5810D408        L       1, 1032(  0, 13)
C 00013B4C    45F0D074        BAL    15,  116(  0, 13)


  3588                             P=P+3; ->1 %UNLESS I=-1

C 00013B50    41100003        LA      1,    3(  0,  0)
C 00013B54    5A108040        A       1,   64(  0,  8)
C 00013B58    50108040        ST      1,   64(  0,  8)



C 00013B5C    5810D010        L       1,   16(  0, 13)
C 00013B60    5910809C        C       1,  156(  0,  8)
C 00013B64    477A0000        BC      7,    0( 10,  0)


  3589                             FAULT(16); J=0; I=LEVEL; PTYPE=7; UNPACK

C 00013B68    9210B043        MVI     67( 11), 16
C 00013B6C    5810D228        L       1,  552(  0, 13)
C 00013B70    45F0D074        BAL    15,  116(  0, 13)



C 00013B74    1F11            SLR     1,  1
C 00013B76    501080A0        ST      1,  160(  0,  8)



C 00013B7A    D203809C90A8    MVC    156(  4,  8),  168(  9)



C 00013B80    41100007        LA      1,    7(  0,  0)
C 00013B84    50108098        ST      1,  152(  0,  8)



C 00013B88    5810D448        L       1, 1096(  0, 13)
C 00013B8C    45F0D074        BAL    15,  116(  0, 13)


  3590                             STORE TAG(FNAME,N);K=N;N=N+4

C 00013B90    D203B0409130    MVC     64(  4, 11),  304(  9)
C 00013B96    D203B0449100    MVC     68(  4, 11),  256(  9)
C 00013B9C    5810D434        L       1, 1076(  0, 13)
C 00013BA0    45F0D074        BAL    15,  116(  0, 13)



C 00013BA4    D20380A49100    MVC    164(  4,  8),  256(  9)



C 00013BAA    41100004        LA      1,    4(  0,  0)
C 00013BAE    5A109100        A       1,  256(  0,  9)
C 00013BB2    50109100        ST      1,  256(  0,  9)


  3591                    1:       FAULT(33) %IF ROUT=1; ->UTYPE(TYPE)

C 00013BB6    95018090        CLI    144(  8),  1
C 00013BBA    477A00E6        BC      7,  230( 10,  0)
C 00013BBE    9221B043        MVI     67( 11), 33
C 00013BC2    5810D228        L       1,  552(  0, 13)
C 00013BC6    45F0D074        BAL    15,  116(  0, 13)



C 00013BCA    1F11            SLR     1,  1
C 00013BCC    43108094        IC      1,  148(  0,  8)
C 00013BD0    1A11            AR      1,  1
C 00013BD2    4811A00C        LH      1,   12(  1, 10)
C 00013BD6    47F1A000        BC     15,    0(  1, 10)


  3592                    UTYPE(3):      FROM2(K,K); ->9;        ! RECORDS

C 00013BDA    D203B04080A4    MVC     64(  4, 11),  164(  8)
C 00013BE0    411080A4        LA      1,  164(  0,  8)
C 00013BE4    5010B044        ST      1,   68(  0, 11)
C 00013BE8    5810D3F8        L       1, 1016(  0, 13)
C 00013BEC    45F0D074        BAL    15,  116(  0, 13)



C 00013BF0    47FA0000        BC     15,    0( 10,  0)


  3593                    UTYPE(4):      FROM1(K,K); ->9;        ! FORMATS

C 00013BF4    D203B04080A4    MVC     64(  4, 11),  164(  8)
C 00013BFA    411080A4        LA      1,  164(  0,  8)
C 00013BFE    5010B044        ST      1,   68(  0, 11)
C 00013C02    5810D3FC        L       1, 1020(  0, 13)
C 00013C06    45F0D074        BAL    15,  116(  0, 13)



C 00013C0A    47FA0000        BC     15,    0( 10,  0)


  3594                    UTYPE(8):FAULT(33); ->9

C 00013C0E    9221B043        MVI     67( 11), 33
C 00013C12    5810D228        L       1,  552(  0, 13)
C 00013C16    45F0D074        BAL    15,  116(  0, 13)



C 00013C1A    47FA0000        BC     15,    0( 10,  0)


  3595                    UTYPE(6):      FROM1(K,K);             ! SWITCHES

C 00013C1E    D203B04080A4    MVC     64(  4, 11),  164(  8)
C 00013C24    411080A4        LA      1,  164(  0,  8)
C 00013C28    5010B044        ST      1,   68(  0, 11)
C 00013C2C    5810D3FC        L       1, 1020(  0, 13)
C 00013C30    45F0D074        BAL    15,  116(  0, 13)


  3596                             K=K-CODEBASE(OLDI); FAULT(99) %IF K>4095

C 00013C34    581080A8        L       1,  168(  0,  8)
C 00013C38    4130917C        LA      3,  380(  0,  9)
C 00013C3C    45F0C05C        BAL    15,   92(  0, 12)
C 00013C40    5851F000        L       5,    0(  1, 15)
C 00013C44    581080A4        L       1,  164(  0,  8)
C 00013C48    1B15            SR      1,  5
C 00013C4A    501080A4        ST      1,  164(  0,  8)



C 00013C4E    41100FFF        LA      1, 4095(  0,  0)
C 00013C52    591080A4        C       1,  164(  0,  8)
C 00013C56    47BA0182        BC     11,  386( 10,  0)
C 00013C5A    9263B043        MVI     67( 11), 99
C 00013C5E    5810D228        L       1,  552(  0, 13)
C 00013C62    45F0D074        BAL    15,  116(  0, 13)


  3597                             I=10

C 00013C66    4110000A        LA      1,   10(  0,  0)
C 00013C6A    5010809C        ST      1,  156(  0,  8)


  3598                    UTYPE(0):UTYPE(1):UTYPE(2):UTYPE(5):UTYPE(7):
  3599                             ->9 %UNLESS ARR=2;            ! VECTOR

C 00013C6E    95028092        CLI    146(  8),  2
C 00013C72    477A0000        BC      7,    0( 10,  0)


  3600                             FROM2(K,K);                   ! EXTRACT DISPLACEMENT

C 00013C76    D203B04080A4    MVC     64(  4, 11),  164(  8)
C 00013C7C    411080A4        LA      1,  164(  0,  8)
C 00013C80    5010B044        ST      1,   68(  0, 11)
C 00013C84    5810D3F8        L       1, 1016(  0, 13)
C 00013C88    45F0D074        BAL    15,  116(  0, 13)


  3601                    9:       ->99 %IF A(P-1)=2

C 00013C8C    58108040        L       1,   64(  0,  8)
C 00013C90    0610            BCTR    1,  0
C 00013C92    413092FC        LA      3,  764(  0,  9)
C 00013C96    45F0C05C        BAL    15,   92(  0, 12)
C 00013C9A    4811F000        LH      1,    0(  1, 15)
C 00013C9E    41200002        LA      2,    2(  0,  0)
C 00013CA2    1912            CR      1,  2
C 00013CA4    478A0000        BC      8,    0( 10,  0)


  3602                             K=K+A(P); P=P+1; ->99

C 00013CA8    58108040        L       1,   64(  0,  8)
C 00013CAC    413092FC        LA      3,  764(  0,  9)
C 00013CB0    45F0C05C        BAL    15,   92(  0, 12)
C 00013CB4    4851F000        LH      5,    0(  1, 15)
C 00013CB8    5A5080A4        A       5,  164(  0,  8)
C 00013CBC    505080A4        ST      5,  164(  0,  8)



C 00013CC0    41100001        LA      1,    1(  0,  0)
C 00013CC4    5A108040        A       1,   64(  0,  8)
C 00013CC8    50108040        ST      1,   64(  0,  8)



C 00013CCC    47FA0000        BC     15,    0( 10,  0)


  3603                    10:      K=A(P+2)+(A(P+1)-1)<<14

C 00013CD0    41100002        LA      1,    2(  0,  0)
C 00013CD4    5A108040        A       1,   64(  0,  8)
C 00013CD8    413092FC        LA      3,  764(  0,  9)
C 00013CDC    45F0C05C        BAL    15,   92(  0, 12)
C 00013CE0    4851F000        LH      5,    0(  1, 15)
C 00013CE4    41100001        LA      1,    1(  0,  0)
C 00013CE8    5A108040        A       1,   64(  0,  8)
C 00013CEC    413092FC        LA      3,  764(  0,  9)
C 00013CF0    45F0C05C        BAL    15,   92(  0, 12)
C 00013CF4    4841F000        LH      4,    0(  1, 15)
C 00013CF8    0640            BCTR    4,  0
C 00013CFA    50406040        ST      4,   64(  0,  6)
C 00013CFE    58106040        L       1,   64(  0,  6)
C 00013D02    8910000E        SLL     1,   14(  0)
C 00013D06    1A51            AR      5,  1
C 00013D08    505080A4        ST      5,  164(  0,  8)


  3604                             J=FIND(K,LABEL(LEVEL))

C 00013D0C    D203B04080A4    MVC     64(  4, 11),  164(  8)
C 00013D12    581090A8        L       1,  168(  0,  9)
C 00013D16    413091DC        LA      3,  476(  0,  9)
C 00013D1A    45F0C05C        BAL    15,   92(  0, 12)
C 00013D1E    4811F000        LH      1,    0(  1, 15)
C 00013D22    5010B044        ST      1,   68(  0, 11)
C 00013D26    5810D3E4        L       1,  996(  0, 13)
C 00013D2A    45F0D074        BAL    15,  116(  0, 13)
C 00013D2E    501080A0        ST      1,  160(  0,  8)


  3605                             ->25 %IF J=-1

C 00013D32    5810D010        L       1,   16(  0, 13)
C 00013D36    591080A0        C       1,  160(  0,  8)
C 00013D3A    478A0000        BC      8,    0( 10,  0)


  3606                             K=J-CODEBASE(LEVEL); I=10

C 00013D3E    581090A8        L       1,  168(  0,  9)
C 00013D42    4130917C        LA      3,  380(  0,  9)
C 00013D46    45F0C05C        BAL    15,   92(  0, 12)
C 00013D4A    5851F000        L       5,    0(  1, 15)
C 00013D4E    581080A0        L       1,  160(  0,  8)
C 00013D52    1B15            SR      1,  5
C 00013D54    501080A4        ST      1,  164(  0,  8)



C 00013D58    4110000A        LA      1,   10(  0,  0)
C 00013D5C    5010809C        ST      1,  156(  0,  8)


  3607                             FAULT(99) %IF K>4095; P=P+3; ->99

C 00013D60    41100FFF        LA      1, 4095(  0,  0)
C 00013D64    591080A4        C       1,  164(  0,  8)
C 00013D68    47BA0294        BC     11,  660( 10,  0)
C 00013D6C    9263B043        MVI     67( 11), 99
C 00013D70    5810D228        L       1,  552(  0, 13)
C 00013D74    45F0D074        BAL    15,  116(  0, 13)



C 00013D78    41100003        LA      1,    3(  0,  0)
C 00013D7C    5A108040        A       1,   64(  0,  8)
C 00013D80    50108040        ST      1,   64(  0,  8)



C 00013D84    47FA0000        BC     15,    0( 10,  0)


  3608                    25:      PUSH(JUMP(LEVEL),CA!LABSET,K)

C 00013D88    581090A8        L       1,  168(  0,  9)
C 00013D8C    413091BC        LA      3,  444(  0,  9)
C 00013D90    45F0C05C        BAL    15,   92(  0, 12)
C 00013D94    4111F000        LA      1,    0(  1, 15)
C 00013D98    5010B040        ST      1,   64(  0, 11)
C 00013D9C    581090AC        L       1,  172(  0,  9)
C 00013DA0    561090B8        O       1,  184(  0,  9)
C 00013DA4    5010B044        ST      1,   68(  0, 11)
C 00013DA8    D203B04880A4    MVC     72(  4, 11),  164(  8)
C 00013DAE    5810D3E0        L       1,  992(  0, 13)
C 00013DB2    45F0D074        BAL    15,  116(  0, 13)


  3609                             K=0; I=0; P=P+3

C 00013DB6    1F11            SLR     1,  1
C 00013DB8    501080A4        ST      1,  164(  0,  8)



C 00013DBC    1F11            SLR     1,  1
C 00013DBE    5010809C        ST      1,  156(  0,  8)



C 00013DC2    41100003        LA      1,    3(  0,  0)
C 00013DC6    5A108040        A       1,   64(  0,  8)
C 00013DCA    50108040        ST      1,   64(  0,  8)


  3610                    99:      %END
D 00001124    C2 C2 C2 C2 0D FF 06 04 43 55 43 53 FF FF FF FF


C 00013DCE    D203D0146000    MVC     20(  4, 13),    0(  6)
C 00013DD4    984F6010        LM      4, 15,   16(  6)
C 00013DD8    07FF            BCR    15, 15


  3611                99:      %END
D 00001134    C2 C2 C2 C2 0D B8 07 04 43 55 43 49 01 70 50 03 52 45 47 00 01 70 4C 06 4F 50 43 4F 44 45 A6 E8 01 70 48 01 58 FE A6 F0 01 70 44 02 4B 4B 00 01 01 70 40 01 5A 00 00 01 FF FF FF FF


C 00013DDA    D203D0147000    MVC     20(  4, 13),    0(  7)
C 00013DE0    984F7010        LM      4, 15,   16(  7)
C 00013DE4    07FF            BCR    15, 15


  3612                     %ROUTINE     TEST ASS(%INTEGER REG)

C 00013DE6    0000
C 00013DE8    0000
C 00013DEA    47FA0000        BC     15,    0( 10,  0)
C 00013DEE    50F0B03C        ST     15,   60(  0, 11)
C 00013DF2    D203B000D014    MVC      0(  4, 11),   20( 13)
C 00013DF8    41000E1C        LA      0, 3612(  0,  0)
C 00013DFC    4000D014        STH     0,   20(  0, 13)
C 00013E00    187B            LR      7, 11
C 00013E02    41BB0000        LA     11,    0( 11,  0)
C 00013E06    41000004        LA      0,    4(  0,  0)
C 00013E0A    59BD0044        C      11,   68( 13,  0)
C 00013E0E    4720C054        BC      2,   84(  0, 12)
C 00013E12    05A0            BALR   10,  0


  3613                         %SHORTROUTINE
  3614                         %INTEGER J
  3615                         %RETURN %UNLESS 1<=TYPE<=2

C 00013E14    1F11            SLR     1,  1
C 00013E16    43108094        IC      1,  148(  0,  8)
C 00013E1A    41200001        LA      2,    1(  0,  0)
C 00013E1E    1921            CR      2,  1
C 00013E20    473A001A        BC      3,   26( 10,  0)
C 00013E24    41200002        LA      2,    2(  0,  0)
C 00013E28    1912            CR      1,  2
C 00013E2A    47CA0026        BC     12,   38( 10,  0)
C 00013E2E    D203D0147000    MVC     20(  4, 13),    0(  7)
C 00013E34    984F7010        LM      4, 15,   16(  7)
C 00013E38    07FF            BCR    15, 15


  3616                         ->5 %IF TYPE=1

C 00013E3A    95018094        CLI    148(  8),  1
C 00013E3E    478A0000        BC      8,    0( 10,  0)


  3617                         J=X'79'; J=X'69' %IF PREC=3

C 00013E42    41100079        LA      1,  121(  0,  0)
C 00013E46    50107044        ST      1,   68(  0,  7)



C 00013E4A    95038093        CLI    147(  8),  3
C 00013E4E    477A0046        BC      7,   70( 10,  0)
C 00013E52    41100069        LA      1,  105(  0,  0)
C 00013E56    50107044        ST      1,   68(  0,  7)


  3618                3:       PRX(J,REG,0,GLA,128)

C 00013E5A    D203B0407044    MVC     64(  4, 11),   68(  7)
C 00013E60    D203B0447040    MVC     68(  4, 11),   64(  7)
C 00013E66    1F11            SLR     1,  1
C 00013E68    5010B048        ST      1,   72(  0, 11)
C 00013E6C    D203B04CD150    MVC     76(  4, 11),  336( 13)
C 00013E72    41100080        LA      1,  128(  0,  0)
C 00013E76    5010B050        ST      1,   80(  0, 11)
C 00013E7A    5810D1C0        L       1,  448(  0, 13)
C 00013E7E    45F0D074        BAL    15,  116(  0, 13)


  3619                         PRX(X'47',8,0,CODER,40); ->99

C 00013E82    41100047        LA      1,   71(  0,  0)
C 00013E86    5010B040        ST      1,   64(  0, 11)
C 00013E8A    41100008        LA      1,    8(  0,  0)
C 00013E8E    5010B044        ST      1,   68(  0, 11)
C 00013E92    1F11            SLR     1,  1
C 00013E94    5010B048        ST      1,   72(  0, 11)
C 00013E98    D203B04CD144    MVC     76(  4, 11),  324( 13)
C 00013E9E    41100028        LA      1,   40(  0,  0)
C 00013EA2    5010B050        ST      1,   80(  0, 11)
C 00013EA6    5810D1C0        L       1,  448(  0, 13)
C 00013EAA    45F0D074        BAL    15,  116(  0, 13)



C 00013EAE    47FA0000        BC     15,    0( 10,  0)


  3620                5:       ->99 %UNLESS PREC=0

C 00013EB2    95008093        CLI    147(  8),  0
C 00013EB6    477A0000        BC      7,    0( 10,  0)


  3621                         J=X'59'; ->3

C 00013EBA    41100059        LA      1,   89(  0,  0)
C 00013EBE    50107044        ST      1,   68(  0,  7)



C 00013EC2    47F0A046        BC     15,   70(  0, 10)


  3622                99:      %END
D 00001170    C2 C2 C2 C2 0E 1C 07 07 54 45 53 54 41 53 53 03 01 70 44 01 4A 70 4C 06 01 70 40 03 52 45 47 E8 FF FF FF FF


C 00013EC6    D203D0147000    MVC     20(  4, 13),    0(  7)
C 00013ECC    984F7010        LM      4, 15,   16(  7)
C 00013ED0    07FF            BCR    15, 15


  3623                     %ROUTINE     GXREF(%INTEGER NAME,HASH)

C 00013ED2    0000
C 00013ED4    0000
C 00013ED6    47FA0000        BC     15,    0( 10,  0)
C 00013EDA    50F0B03C        ST     15,   60(  0, 11)
C 00013EDE    D203B000D014    MVC      0(  4, 11),   20( 13)
C 00013EE4    41000E27        LA      0, 3623(  0,  0)
C 00013EE8    4000D014        STH     0,   20(  0, 13)
C 00013EEC    187B            LR      7, 11
C 00013EEE    41BB0000        LA     11,    0( 11,  0)
C 00013EF2    41000004        LA      0,    4(  0,  0)
C 00013EF6    59BD0044        C      11,   68( 13,  0)
C 00013EFA    4720C054        BC      2,   84(  0, 12)
C 00013EFE    05A0            BALR   10,  0


  3624                         %SHORTROUTINE
  3625                         %INTEGER I,J,K,N,NP
  3626                         I=N0; N0=N0+7; J=WORD(NAME)

C 00013F00    D20370489088    MVC     72(  4,  7),  136(  9)



C 00013F06    41100007        LA      1,    7(  0,  0)
C 00013F0A    5A109088        A       1,  136(  0,  9)
C 00013F0E    50109088        ST      1,  136(  0,  9)



C 00013F12    58107040        L       1,   64(  0,  7)
C 00013F16    4130930C        LA      3,  780(  0,  9)
C 00013F1A    45F0C05C        BAL    15,   92(  0, 12)
C 00013F1E    4811F000        LH      1,    0(  1, 15)
C 00013F22    5010704C        ST      1,   76(  0,  7)


  3627                         ST(I+1)=0; ST(I+2)=0; ST(I+3)=0

C 00013F26    1F44            SLR     4,  4
C 00013F28    41100001        LA      1,    1(  0,  0)
C 00013F2C    5A107048        A       1,   72(  0,  7)
C 00013F30    4130915C        LA      3,  348(  0,  9)
C 00013F34    45F0C05C        BAL    15,   92(  0, 12)
C 00013F38    5041F000        ST      4,    0(  1, 15)



C 00013F3C    1F44            SLR     4,  4
C 00013F3E    41100002        LA      1,    2(  0,  0)
C 00013F42    5A107048        A       1,   72(  0,  7)
C 00013F46    4130915C        LA      3,  348(  0,  9)
C 00013F4A    45F0C05C        BAL    15,   92(  0, 12)
C 00013F4E    5041F000        ST      4,    0(  1, 15)



C 00013F52    1F44            SLR     4,  4
C 00013F54    41100003        LA      1,    3(  0,  0)
C 00013F58    5A107048        A       1,   72(  0,  7)
C 00013F5C    4130915C        LA      3,  348(  0,  9)
C 00013F60    45F0C05C        BAL    15,   92(  0, 12)
C 00013F64    5041F000        ST      4,    0(  1, 15)


  3628                         N=LETT(J); NP=N; NP=8 %IF NP>8

C 00013F68    5810704C        L       1,   76(  0,  7)
C 00013F6C    413092DC        LA      3,  732(  0,  9)
C 00013F70    45F0C05C        BAL    15,   92(  0, 12)
C 00013F74    4311F000        IC      1,    0(  1, 15)
C 00013F78    5410D018        N       1,   24(  0, 13)
C 00013F7C    50107054        ST      1,   84(  0,  7)



C 00013F80    D20370587054    MVC     88(  4,  7),   84(  7)



C 00013F86    41100008        LA      1,    8(  0,  0)
C 00013F8A    59107058        C       1,   88(  0,  7)
C 00013F8E    47BA009A        BC     11,  154( 10,  0)
C 00013F92    41100008        LA      1,    8(  0,  0)
C 00013F96    50107058        ST      1,   88(  0,  7)


  3629                         K=ADDR(ST(I+5)); ->1 %IF HASH=0

C 00013F9A    41100005        LA      1,    5(  0,  0)
C 00013F9E    5A107048        A       1,   72(  0,  7)
C 00013FA2    4130915C        LA      3,  348(  0,  9)
C 00013FA6    45F0C05C        BAL    15,   92(  0, 12)
C 00013FAA    4111F000        LA      1,    0(  1, 15)
C 00013FAE    50107050        ST      1,   80(  0,  7)



C 00013FB2    58107044        L       1,   68(  0,  7)
C 00013FB6    1211            LTR     1,  1
C 00013FB8    478A0000        BC      8,    0( 10,  0)


  3630                         ST(I+5)=HASH<<16!'#'<<8

C 00013FBC    58407044        L       4,   68(  0,  7)
C 00013FC0    89400010        SLL     4,   16(  0)
C 00013FC4    41100023        LA      1,   35(  0,  0)
C 00013FC8    89100008        SLL     1,    8(  0)
C 00013FCC    1641            OR      4,  1
C 00013FCE    41100005        LA      1,    5(  0,  0)
C 00013FD2    5A107048        A       1,   72(  0,  7)
C 00013FD6    4130915C        LA      3,  348(  0,  9)
C 00013FDA    45F0C05C        BAL    15,   92(  0, 12)
C 00013FDE    5041F000        ST      4,    0(  1, 15)


  3631                         K=K+2; N=N+2

C 00013FE2    41100002        LA      1,    2(  0,  0)
C 00013FE6    5A107050        A       1,   80(  0,  7)
C 00013FEA    50107050        ST      1,   80(  0,  7)



C 00013FEE    41100002        LA      1,    2(  0,  0)
C 00013FF2    5A107054        A       1,   84(  0,  7)
C 00013FF6    50107054        ST      1,   84(  0,  7)


  3632                         NP=6 %IF NP>6

C 00013FFA    41100006        LA      1,    6(  0,  0)
C 00013FFE    59107058        C       1,   88(  0,  7)
C 00014002    47BA010E        BC     11,  270( 10,  0)
C 00014006    41100006        LA      1,    6(  0,  0)
C 0001400A    50107058        ST      1,   88(  0,  7)


  3633                1:       %CYCLE NP=1,1,NP

C 0001400E    41407058        LA      4,   88(  0,  7)
C 00014012    41200001        LA      2,    1(  0,  0)
C 00014016    58307058        L       3,   88(  0,  7)
C 0001401A    9024705C        STM     2,  4,   92(  7)
C 0001401E    41100001        LA      1,    1(  0,  0)
C 00014022    50104000        ST      1,    0(  0,  4)


  3634                         BYTEINTEGER(K+NP)=LETT(J+NP); %REPEAT

C 00014026    5810704C        L       1,   76(  0,  7)
C 0001402A    5A107058        A       1,   88(  0,  7)
C 0001402E    413092DC        LA      3,  732(  0,  9)
C 00014032    45F0C05C        BAL    15,   92(  0, 12)
C 00014036    1F44            SLR     4,  4
C 00014038    4341F000        IC      4,    0(  1, 15)
C 0001403C    58107050        L       1,   80(  0,  7)
C 00014040    5A107058        A       1,   88(  0,  7)
C 00014044    42401000        STC     4,    0(  0,  1)
C 00014048    5540D018        CL      4,   24(  0, 13)
C 0001404C    472C0058        BC      2,   88( 12,  0)



C 00014050    9824705C        LM      2,  4,   92(  7)
C 00014054    58104000        L       1,    0(  0,  4)
C 00014058    8712A122        BXLE    1,  2,  290( 10)


  3635                         N=8 %IF N>8; ST(I+4)=X'80000000'; ! MARK NEW FORMAT

C 0001405C    41100008        LA      1,    8(  0,  0)
C 00014060    59107054        C       1,   84(  0,  7)
C 00014064    47BA0170        BC     11,  368( 10,  0)
C 00014068    41100008        LA      1,    8(  0,  0)
C 0001406C    50107054        ST      1,   84(  0,  7)



C 00014070    5840D630        L       4, 1584(  0, 13)
C 00014074    41100004        LA      1,    4(  0,  0)
C 00014078    5A107048        A       1,   72(  0,  7)
C 0001407C    4130915C        LA      3,  348(  0,  9)
C 00014080    45F0C05C        BAL    15,   92(  0, 12)
C 00014084    5041F000        ST      4,    0(  1, 15)


  3636                         ST(I)=XREFLINK; XREFLINK=I<<2; ! LINK IN REFERENCE

C 00014088    58409134        L       4,  308(  0,  9)
C 0001408C    58107048        L       1,   72(  0,  7)
C 00014090    4130915C        LA      3,  348(  0,  9)
C 00014094    45F0C05C        BAL    15,   92(  0, 12)
C 00014098    5041F000        ST      4,    0(  1, 15)



C 0001409C    58107048        L       1,   72(  0,  7)
C 000140A0    89100002        SLL     1,    2(  0)
C 000140A4    50109134        ST      1,  308(  0,  9)


  3637                         BYTE INTEGER(ADDR(ST(I+5)))=N

C 000140A8    58407054        L       4,   84(  0,  7)
C 000140AC    41100005        LA      1,    5(  0,  0)
C 000140B0    5A107048        A       1,   72(  0,  7)
C 000140B4    4130915C        LA      3,  348(  0,  9)
C 000140B8    45F0C05C        BAL    15,   92(  0, 12)
C 000140BC    4111F000        LA      1,    0(  1, 15)
C 000140C0    42401000        STC     4,    0(  0,  1)
C 000140C4    5540D018        CL      4,   24(  0, 13)
C 000140C8    472C0058        BC      2,   88( 12,  0)


  3638                         N0=N0+1 %IF N=8

C 000140CC    41100008        LA      1,    8(  0,  0)
C 000140D0    59107054        C       1,   84(  0,  7)
C 000140D4    477A01E4        BC      7,  484( 10,  0)
C 000140D8    41100001        LA      1,    1(  0,  0)
C 000140DC    5A109088        A       1,  136(  0,  9)
C 000140E0    50109088        ST      1,  136(  0,  9)


  3639                         %END
D 00001194    C2 C2 C2 C2 0E 27 07 05 47 58 52 45 46 00 00 03 01 70 58 02 4E 50 0A 34 01 70 54 01 4E 00 00 04 01 70 50 01 4B 01 31 F8 01 70 4C 01 4A 00 00 0A 01 70 48 01 49 01 14 2C 01 70 44 04 48 41 53 48 01 70 40 04 4E 41 4D 45 FF FF FF FF


C 000140E4    D203D0147000    MVC     20(  4, 13),    0(  7)
C 000140EA    984F7010        LM      4, 15,   16(  7)
C 000140EE    07FF            BCR    15, 15


  3640                     %ROUTINE UNDCRF (%SHORTINTEGERNAME OPHEAD)

C 000140F0    0000
C 000140F2    0000
C 000140F4    47FA0000        BC     15,    0( 10,  0)
C 000140F8    50F0B03C        ST     15,   60(  0, 11)
C 000140FC    D203B000D014    MVC      0(  4, 11),   20( 13)
C 00014102    41000E38        LA      0, 3640(  0,  0)
C 00014106    4000D014        STH     0,   20(  0, 13)
C 0001410A    187B            LR      7, 11
C 0001410C    41BB0000        LA     11,    0( 11,  0)
C 00014110    41000004        LA      0,    4(  0,  0)
C 00014114    59BD0044        C      11,   68( 13,  0)
C 00014118    4720C054        BC      2,   84(  0, 12)
C 0001411C    05A0            BALR   10,  0


  3641                         %INTEGER I,J
  3642                         %SHORTINTEGER OP
  3643                         %COMMENT UNSCRAMBLES RECORD FORMAT TAGS LIST & SIDECHAIN
  3644                         POP (OPHEAD,I,J);             ! LST ITEM IS DESPMENT

C 0001411E    58107040        L       1,   64(  0,  7)
C 00014122    5010B040        ST      1,   64(  0, 11)
C 00014126    41107044        LA      1,   68(  0,  7)
C 0001412A    5010B044        ST      1,   68(  0, 11)
C 0001412E    41107048        LA      1,   72(  0,  7)
C 00014132    5010B048        ST      1,   72(  0, 11)
C 00014136    5810D3DC        L       1,  988(  0, 13)
C 0001413A    45F0D074        BAL    15,  116(  0, 13)


  3645                1:       POP (OPHEAD,I,J)

C 0001413E    58107040        L       1,   64(  0,  7)
C 00014142    5010B040        ST      1,   64(  0, 11)
C 00014146    41107044        LA      1,   68(  0,  7)
C 0001414A    5010B044        ST      1,   68(  0, 11)
C 0001414E    41107048        LA      1,   72(  0,  7)
C 00014152    5010B048        ST      1,   72(  0, 11)
C 00014156    5810D3DC        L       1,  988(  0, 13)
C 0001415A    45F0D074        BAL    15,  116(  0, 13)


  3646                         ->9 %IF I=-1

C 0001415E    5810D010        L       1,   16(  0, 13)
C 00014162    59107044        C       1,   68(  0,  7)
C 00014166    0000
C 00014168    0000
C 0001416A    478A0000        BC      8,    0( 10,  0)


  3647                         OP=J;PTYPE=I>>4&X'FFFF';UNPACK

C 0001416E    58107048        L       1,   72(  0,  7)
C 00014172    4010704C        STH     1,   76(  0,  7)
C 00014176    4917004C        CH      1,   76(  7,  0)
C 0001417A    477C0058        BC      7,   88( 12,  0)



C 0001417E    58107044        L       1,   68(  0,  7)
C 00014182    88100004        SRL     1,    4(  0)
C 00014186    5410D634        N       1, 1588(  0, 13)
C 0001418A    50108098        ST      1,  152(  0,  8)



C 0001418E    5810D448        L       1, 1096(  0, 13)
C 00014192    45F0D074        BAL    15,  116(  0, 13)


  3648                         %IF ROUT=1 %OR TYPE=3 %THEN CLEAR LIST(OP)

C 00014196    95018090        CLI    144(  8),  1
C 0001419A    478A0088        BC      8,  136( 10,  0)
C 0001419E    95038094        CLI    148(  8),  3
C 000141A2    477A0098        BC      7,  152( 10,  0)
C 000141A6    4110704C        LA      1,   76(  0,  7)
C 000141AA    5010B040        ST      1,   64(  0, 11)
C 000141AE    5810D350        L       1,  848(  0, 13)
C 000141B2    45F0D074        BAL    15,  116(  0, 13)


  3649                         ->1

C 000141B6    47F0A020        BC     15,   32(  0, 10)


  3650                9:       %END
D 000011E0    C2 C2 C2 C2 0E 38 07 06 55 4E 44 43 52 46 00 03 11 70 4C 02 4F 50 0A 34 01 70 48 01 4A 00 00 04 01 70 44 01 49 01 31 F8 51 70 40 06 4F 50 48 45 41 44 48 01 FF FF FF FF


C 000141BA    D203D0147000    MVC     20(  4, 13),    0(  7)
C 000141C0    984F7010        LM      4, 15,   16(  7)
C 000141C4    07FF            BCR    15, 15


  3651                     %ROUTINE CLT

C 000141C6    0000
C 000141C8    0000
C 000141CA    47FA0000        BC     15,    0( 10,  0)
C 000141CE    50F0B03C        ST     15,   60(  0, 11)
C 000141D2    D203B000D014    MVC      0(  4, 11),   20( 13)
C 000141D8    41000E43        LA      0, 3651(  0,  0)
C 000141DC    4000D014        STH     0,   20(  0, 13)
C 000141E0    187B            LR      7, 11
C 000141E2    41BB0000        LA     11,    0( 11,  0)
C 000141E6    41000004        LA      0,    4(  0,  0)
C 000141EA    59BD0044        C      11,   68( 13,  0)
C 000141EE    4720C054        BC      2,   84(  0, 12)
C 000141F2    05A0            BALR   10,  0


  3652                         %SHORTROUTINE
  3653                         %COMMENT P ON PHRASE TYPE AT ENTRY - TO NEXT PHRASE AT EXIT
  3654                         TYPE=TYPEFLAG(A(P))

C 000141F4    58108040        L       1,   64(  0,  8)
C 000141F8    413092FC        LA      3,  764(  0,  9)
C 000141FC    45F0C05C        BAL    15,   92(  0, 12)
C 00014200    4811F000        LH      1,    0(  1, 15)
C 00014204    4130D128        LA      3,  296(  0, 13)
C 00014208    45F0C05C        BAL    15,   92(  0, 12)
C 0001420C    4311F000        IC      1,    0(  1, 15)
C 00014210    5410D018        N       1,   24(  0, 13)
C 00014214    42108094        STC     1,  148(  0,  8)
C 00014218    5510D018        CL      1,   24(  0, 13)
C 0001421C    472C0058        BC      2,   88( 12,  0)


  3655                         PREC=TYPE>>3; TYPE=TYPE&7

C 00014220    1F11            SLR     1,  1
C 00014222    43108094        IC      1,  148(  0,  8)
C 00014226    88100003        SRL     1,    3(  0)
C 0001422A    42108093        STC     1,  147(  0,  8)
C 0001422E    5510D018        CL      1,   24(  0, 13)
C 00014232    472C0058        BC      2,   88( 12,  0)



C 00014236    41100007        LA      1,    7(  0,  0)
C 0001423A    1F22            SLR     2,  2
C 0001423C    43208094        IC      2,  148(  0,  8)
C 00014240    1412            NR      1,  2
C 00014242    42108094        STC     1,  148(  0,  8)
C 00014246    5510D018        CL      1,   24(  0, 13)
C 0001424A    472C0058        BC      2,   88( 12,  0)


  3656                         PREC=3 %IF TYPE=2 %AND ALL LONG#0

C 0001424E    95028094        CLI    148(  8),  2
C 00014252    477A006E        BC      7,  110( 10,  0)
C 00014256    950090D3        CLI    211(  9),  0
C 0001425A    478A006E        BC      8,  110( 10,  0)
C 0001425E    92038093        MVI    147(  8),  3


  3657                         ACC=BYTES(PREC);P=P+1

C 00014262    1F11            SLR     1,  1
C 00014264    43108093        IC      1,  147(  0,  8)
C 00014268    4130D108        LA      3,  264(  0, 13)
C 0001426C    45F0C05C        BAL    15,   92(  0, 12)
C 00014270    4311F000        IC      1,    0(  1, 15)
C 00014274    5410D018        N       1,   24(  0, 13)
C 00014278    50108050        ST      1,   80(  0,  8)



C 0001427C    41100001        LA      1,    1(  0,  0)
C 00014280    5A108040        A       1,   64(  0,  8)
C 00014284    50108040        ST      1,   64(  0,  8)


  3658                         ->99 %UNLESS TYPE=5

C 00014288    95058094        CLI    148(  8),  5
C 0001428C    477A0000        BC      7,    0( 10,  0)


  3659                         ->2 %UNLESS A(P)=2

C 00014290    58108040        L       1,   64(  0,  8)
C 00014294    413092FC        LA      3,  764(  0,  9)
C 00014298    45F0C05C        BAL    15,   92(  0, 12)
C 0001429C    4811F000        LH      1,    0(  1, 15)
C 000142A0    41200002        LA      2,    2(  0,  0)
C 000142A4    1912            CR      1,  2
C 000142A6    477A0000        BC      7,    0( 10,  0)


  3660                         ACC=0; P=P+1; ->99

C 000142AA    1F11            SLR     1,  1
C 000142AC    50108050        ST      1,   80(  0,  8)



C 000142B0    41100001        LA      1,    1(  0,  0)
C 000142B4    5A108040        A       1,   64(  0,  8)
C 000142B8    50108040        ST      1,   64(  0,  8)



C 000142BC    47FA0000        BC     15,    0( 10,  0)


  3661                1:       P=P+1;FAULT(70);->99

C 000142C0    41100001        LA      1,    1(  0,  0)
C 000142C4    5A108040        A       1,   64(  0,  8)
C 000142C8    50108040        ST      1,   64(  0,  8)



C 000142CC    9246B043        MVI     67( 11), 70
C 000142D0    5810D228        L       1,  552(  0, 13)
C 000142D4    45F0D074        BAL    15,  116(  0, 13)



C 000142D8    47FA0000        BC     15,    0( 10,  0)


  3662                2:       P=P+1;ACC=A(P)+1

C 000142DC    41100001        LA      1,    1(  0,  0)
C 000142E0    5A108040        A       1,   64(  0,  8)
C 000142E4    50108040        ST      1,   64(  0,  8)



C 000142E8    58108040        L       1,   64(  0,  8)
C 000142EC    413092FC        LA      3,  764(  0,  9)
C 000142F0    45F0C05C        BAL    15,   92(  0, 12)
C 000142F4    4861F000        LH      6,    0(  1, 15)
C 000142F8    41100001        LA      1,    1(  0,  0)
C 000142FC    1A61            AR      6,  1
C 000142FE    50608050        ST      6,   80(  0,  8)


  3663                         ->1 %UNLESS 2<=ACC<=256

C 00014302    58108050        L       1,   80(  0,  8)
C 00014306    41200002        LA      2,    2(  0,  0)
C 0001430A    1921            CR      2,  1
C 0001430C    4730A0CC        BC      3,  204(  0, 10)
C 00014310    41200100        LA      2,  256(  0,  0)
C 00014314    1912            CR      1,  2
C 00014316    4730A0CC        BC      3,  204(  0, 10)


  3664                         P=P+1

C 0001431A    41100001        LA      1,    1(  0,  0)
C 0001431E    5A108040        A       1,   64(  0,  8)
C 00014322    50108040        ST      1,   64(  0,  8)


  3665                99:      %END
D 00001218    C2 C2 C2 C2 0E 43 07 03 43 4C 54 01 FF FF FF FF


C 00014326    D203D0147000    MVC     20(  4, 13),    0(  7)
C 0001432C    984F7010        LM      4, 15,   16(  7)
C 00014330    07FF            BCR    15, 15


  3666                     %ROUTINE     CQN(%INTEGER P)

C 00014332    0000
C 00014334    0000
C 00014336    47FA0000        BC     15,    0( 10,  0)
C 0001433A    50F0B03C        ST     15,   60(  0, 11)
C 0001433E    D203B000D014    MVC      0(  4, 11),   20( 13)
C 00014344    41000E52        LA      0, 3666(  0,  0)
C 00014348    4000D014        STH     0,   20(  0, 13)
C 0001434C    187B            LR      7, 11
C 0001434E    41BB0000        LA     11,    0( 11,  0)
C 00014352    41000004        LA      0,    4(  0,  0)
C 00014356    59BD0044        C      11,   68( 13,  0)
C 0001435A    4720C054        BC      2,   84(  0, 12)
C 0001435E    05A0            BALR   10,  0


  3667                         %SHORTROUTINE
  3668                         %BYTEINTEGER I
  3669                         I=A(P);NAM=0;ARR=0

C 00014360    58107040        L       1,   64(  0,  7)
C 00014364    413092FC        LA      3,  764(  0,  9)
C 00014368    45F0C05C        BAL    15,   92(  0, 12)
C 0001436C    4811F000        LH      1,    0(  1, 15)
C 00014370    42107044        STC     1,   68(  0,  7)
C 00014374    5510D018        CL      1,   24(  0, 13)
C 00014378    472C0058        BC      2,   88( 12,  0)



C 0001437C    92008091        MVI    145(  8),  0



C 00014380    92008092        MVI    146(  8),  0


  3670                         NAM=2 %IF I=1 ;ARR=1 %IF I<=2

C 00014384    95017044        CLI     68(  7),  1
C 00014388    477A0030        BC      7,   48( 10,  0)
C 0001438C    92028091        MVI    145(  8),  2



C 00014390    95027044        CLI     68(  7),  2
C 00014394    473A003C        BC      3,   60( 10,  0)
C 00014398    92018092        MVI    146(  8),  1


  3671                         NAM=NAM!1 %IF I<=3;ACC=16 %IF ARR=1

C 0001439C    95037044        CLI     68(  7),  3
C 000143A0    473A005C        BC      3,   92( 10,  0)
C 000143A4    41100001        LA      1,    1(  0,  0)
C 000143A8    1F22            SLR     2,  2
C 000143AA    43208091        IC      2,  145(  0,  8)
C 000143AE    1612            OR      1,  2
C 000143B0    42108091        STC     1,  145(  0,  8)
C 000143B4    5510D018        CL      1,   24(  0, 13)
C 000143B8    472C0058        BC      2,   88( 12,  0)



C 000143BC    95018092        CLI    146(  8),  1
C 000143C0    477A006C        BC      7,  108( 10,  0)
C 000143C4    41100010        LA      1,   16(  0,  0)
C 000143C8    50108050        ST      1,   80(  0,  8)


  3672                         ACC=4 %IF I=3

C 000143CC    95037044        CLI     68(  7),  3
C 000143D0    477A007C        BC      7,  124( 10,  0)
C 000143D4    41100004        LA      1,    4(  0,  0)
C 000143D8    50108050        ST      1,   80(  0,  8)


  3673                         %END
D 00001228    C2 C2 C2 C2 0E 52 07 03 43 51 4E 01 09 70 44 01 49 00 00 00 01 70 40 01 50 FE A7 40 FF FF FF FF


C 000143DC    D203D0147000    MVC     20(  4, 13),    0(  7)
C 000143E2    984F7010        LM      4, 15,   16(  7)
C 000143E6    07FF            BCR    15, 15


  3674                     %ROUTINE SKIP EXP

C 000143E8    0000
C 000143EA    0000
C 000143EC    47FA0000        BC     15,    0( 10,  0)
C 000143F0    50F0B03C        ST     15,   60(  0, 11)
C 000143F4    D203B000D014    MVC      0(  4, 11),   20( 13)
C 000143FA    41000E5A        LA      0, 3674(  0,  0)
C 000143FE    4000D014        STH     0,   20(  0, 13)
C 00014402    187B            LR      7, 11
C 00014404    41BB0000        LA     11,    0( 11,  0)
C 00014408    41000004        LA      0,    4(  0,  0)
C 0001440C    59BD0044        C      11,   68( 13,  0)
C 00014410    4720C054        BC      2,   84(  0, 12)
C 00014414    05A0            BALR   10,  0


  3675                         %SHORTROUTINE
  3676                         %SWITCH SW(1:4);%INTEGER J

C 00014416    0700            BCR     0,  0
C 00014418    47FA0000        BC     15,    0( 10,  0)
C 0001441C    0200
C 0001441E    0001
C 00014420    0000
C 00014422    0004
C 00014424    0000
C 00014426    0000
C 00014428    0000
C 0001442A    0000
C 0001442C    0000
C 0001442E    0000


  3677                         %OWNINTEGER RT=10000
  3678                3:       P=P+1; ->SW(A(P));            ! SWITCH ON OPERAND

C 00014430    41100001        LA      1,    1(  0,  0)
C 00014434    5A108040        A       1,   64(  0,  8)
C 00014438    50108040        ST      1,   64(  0,  8)



C 0001443C    58108040        L       1,   64(  0,  8)
C 00014440    413092FC        LA      3,  764(  0,  9)
C 00014444    45F0C05C        BAL    15,   92(  0, 12)
C 00014448    4811F000        LH      1,    0(  1, 15)
C 0001444C    1A11            AR      1,  1
C 0001444E    4811A00C        LH      1,   12(  1, 10)
C 00014452    47F1A000        BC     15,    0(  1, 10)


  3679                SW(1):   P=P+2;                        ! OPERAND = NAME

C 00014456    41100002        LA      1,    2(  0,  0)
C 0001445A    5A108040        A       1,   64(  0,  8)
C 0001445E    50108040        ST      1,   64(  0,  8)


  3680                         J=ADDR(ASLIST(TAGS(A(P-1))))

C 00014462    58108040        L       1,   64(  0,  8)
C 00014466    0610            BCTR    1,  0
C 00014468    413092FC        LA      3,  764(  0,  9)
C 0001446C    45F0C05C        BAL    15,   92(  0, 12)
C 00014470    4811F000        LH      1,    0(  1, 15)
C 00014474    4130931C        LA      3,  796(  0,  9)
C 00014478    45F0C05C        BAL    15,   92(  0, 12)
C 0001447C    4811F000        LH      1,    0(  1, 15)
C 00014480    413092CC        LA      3,  716(  0,  9)
C 00014484    45F0C05C        BAL    15,   92(  0, 12)
C 00014488    4111F000        LA      1,    0(  1, 15)
C 0001448C    50107040        ST      1,   64(  0,  7)


  3681                         ->5 %IF SHORT INTEGER(J)<RT; FFLAG=1

C 00014490    58107040        L       1,   64(  0,  7)
C 00014494    48101000        LH      1,    0(  0,  1)
C 00014498    5910D638        C       1, 1592(  0, 13)
C 0001449C    474A0000        BC      4,    0( 10,  0)



C 000144A0    920190C9        MVI    201(  9),  1


  3682                5:       SKIP APP; P=P+1

C 000144A4    5810D39C        L       1,  924(  0, 13)
C 000144A8    45F0D074        BAL    15,  116(  0, 13)



C 000144AC    41100001        LA      1,    1(  0,  0)
C 000144B0    5A108040        A       1,   64(  0,  8)
C 000144B4    50108040        ST      1,   64(  0,  8)


  3683                         ->1 %IF A(P-1)=2; P=P+1; ->5

C 000144B8    58108040        L       1,   64(  0,  8)
C 000144BC    0610            BCTR    1,  0
C 000144BE    413092FC        LA      3,  764(  0,  9)
C 000144C2    45F0C05C        BAL    15,   92(  0, 12)
C 000144C6    4811F000        LH      1,    0(  1, 15)
C 000144CA    41200002        LA      2,    2(  0,  0)
C 000144CE    1912            CR      1,  2
C 000144D0    478A0000        BC      8,    0( 10,  0)



C 000144D4    41100001        LA      1,    1(  0,  0)
C 000144D8    5A108040        A       1,   64(  0,  8)
C 000144DC    50108040        ST      1,   64(  0,  8)



C 000144E0    47F0A08E        BC     15,  142(  0, 10)


  3684                SW(2):                                 ! CONST
  3685                         P=P+1; J=A(P)

C 000144E4    41100001        LA      1,    1(  0,  0)
C 000144E8    5A108040        A       1,   64(  0,  8)
C 000144EC    50108040        ST      1,   64(  0,  8)



C 000144F0    58108040        L       1,   64(  0,  8)
C 000144F4    413092FC        LA      3,  764(  0,  9)
C 000144F8    45F0C05C        BAL    15,   92(  0, 12)
C 000144FC    4811F000        LH      1,    0(  1, 15)
C 00014500    50107040        ST      1,   64(  0,  7)


  3686                         %IF J=9 %THEN %START; P=P+2; ->1; %FINISH

C 00014504    41100009        LA      1,    9(  0,  0)
C 00014508    59107040        C       1,   64(  0,  7)
C 0001450C    477A0000        BC      7,    0( 10,  0)



C 00014510    41100002        LA      1,    2(  0,  0)
C 00014514    5A108040        A       1,   64(  0,  8)
C 00014518    50108040        ST      1,   64(  0,  8)



C 0001451C    47FA0000        BC     15,    0( 10,  0)


  3687                         %IF J=1 %THEN %START; P=P+3; ->1; %FINISH

C 00014520    41100001        LA      1,    1(  0,  0)
C 00014524    59107040        C       1,   64(  0,  7)
C 00014528    477A0000        BC      7,    0( 10,  0)



C 0001452C    41100003        LA      1,    3(  0,  0)
C 00014530    5A108040        A       1,   64(  0,  8)
C 00014534    50108040        ST      1,   64(  0,  8)



C 00014538    47FA0000        BC     15,    0( 10,  0)


  3688                         %IF J=2 %THEN %START; P=P+5; ->1; %FINISH

C 0001453C    41100002        LA      1,    2(  0,  0)
C 00014540    59107040        C       1,   64(  0,  7)
C 00014544    477A0000        BC      7,    0( 10,  0)



C 00014548    41100005        LA      1,    5(  0,  0)
C 0001454C    5A108040        A       1,   64(  0,  8)
C 00014550    50108040        ST      1,   64(  0,  8)



C 00014554    47FA0000        BC     15,    0( 10,  0)


  3689                         P=P+A(P+1)&X'FE'+3; ->1

C 00014558    41100001        LA      1,    1(  0,  0)
C 0001455C    5A108040        A       1,   64(  0,  8)
C 00014560    413092FC        LA      3,  764(  0,  9)
C 00014564    45F0C05C        BAL    15,   92(  0, 12)
C 00014568    4861F000        LH      6,    0(  1, 15)
C 0001456C    411000FE        LA      1,  254(  0,  0)
C 00014570    1461            NR      6,  1
C 00014572    5A608040        A       6,   64(  0,  8)
C 00014576    41100003        LA      1,    3(  0,  0)
C 0001457A    1A61            AR      6,  1
C 0001457C    50608040        ST      6,   64(  0,  8)



C 00014580    47FA0000        BC     15,    0( 10,  0)


  3690                SW(3):SW(4): P=P+1; SKIP EXP

C 00014584    41100001        LA      1,    1(  0,  0)
C 00014588    5A108040        A       1,   64(  0,  8)
C 0001458C    50108040        ST      1,   64(  0,  8)



C 00014590    5810D444        L       1, 1092(  0, 13)
C 00014594    45F0D074        BAL    15,  116(  0, 13)


  3691                1:       P=P+1; ->3 %IF A(P-1)=1

C 00014598    41100001        LA      1,    1(  0,  0)
C 0001459C    5A108040        A       1,   64(  0,  8)
C 000145A0    50108040        ST      1,   64(  0,  8)



C 000145A4    58108040        L       1,   64(  0,  8)
C 000145A8    0610            BCTR    1,  0
C 000145AA    413092FC        LA      3,  764(  0,  9)
C 000145AE    45F0C05C        BAL    15,   92(  0, 12)
C 000145B2    4811F000        LH      1,    0(  1, 15)
C 000145B6    41200001        LA      2,    1(  0,  0)
C 000145BA    1912            CR      1,  2
C 000145BC    4780A01A        BC      8,   26(  0, 10)


  3692                         %END
D 00001248    C2 C2 C2 C2 0E 5A 07 07 53 4B 49 50 45 58 50 00 01 D6 38 01 50 00 00 08 01 70 40 01 4A FE A6 E8 FF FF FF FF


C 000145C0    D203D0147000    MVC     20(  4, 13),    0(  7)
C 000145C6    984F7010        LM      4, 15,   16(  7)
C 000145CA    07FF            BCR    15, 15


  3693                      %ROUTINE SKIP APP;           ! SKIPS ACTUAL PARAMETER PART

C 000145CC    0000
C 000145CE    0000
C 000145D0    47FA0000        BC     15,    0( 10,  0)
C 000145D4    50F0B03C        ST     15,   60(  0, 11)
C 000145D8    D203B000D014    MVC      0(  4, 11),   20( 13)
C 000145DE    41000E6D        LA      0, 3693(  0,  0)
C 000145E2    4000D014        STH     0,   20(  0, 13)
C 000145E6    187B            LR      7, 11
C 000145E8    41BB0000        LA     11,    0( 11,  0)
C 000145EC    41000004        LA      0,    4(  0,  0)
C 000145F0    59BD0044        C      11,   68( 13,  0)
C 000145F4    4720C054        BC      2,   84(  0, 12)
C 000145F8    05A0            BALR   10,  0


  3694                5:       P=P+1; ->1 %IF A(P-1)=2; SKIP EXP; ->5

C 000145FA    41100001        LA      1,    1(  0,  0)
C 000145FE    5A108040        A       1,   64(  0,  8)
C 00014602    50108040        ST      1,   64(  0,  8)



C 00014606    58108040        L       1,   64(  0,  8)
C 0001460A    0610            BCTR    1,  0
C 0001460C    413092FC        LA      3,  764(  0,  9)
C 00014610    45F0C05C        BAL    15,   92(  0, 12)
C 00014614    4811F000        LH      1,    0(  1, 15)
C 00014618    41200002        LA      2,    2(  0,  0)
C 0001461C    1912            CR      1,  2
C 0001461E    0000
C 00014620    0000
C 00014622    478A0000        BC      8,    0( 10,  0)



C 00014626    5810D444        L       1, 1092(  0, 13)
C 0001462A    45F0D074        BAL    15,  116(  0, 13)



C 0001462E    47F0A000        BC     15,    0(  0, 10)


  3695                1:        %END
D 0000126C    C2 C2 C2 C2 0E 6D 07 07 53 4B 49 50 41 50 50 00 FF FF FF FF


C 00014632    D203D0147000    MVC     20(  4, 13),    0(  7)
C 00014638    984F7010        LM      4, 15,   16(  7)
C 0001463C    07FF            BCR    15, 15


  3696                     %ROUTINE     CQUERY(%INTEGER REG)

C 0001463E    0000
C 00014640    0000
C 00014642    47FA0000        BC     15,    0( 10,  0)
C 00014646    50F0B03C        ST     15,   60(  0, 11)
C 0001464A    D203B000D014    MVC      0(  4, 11),   20( 13)
C 00014650    41000E70        LA      0, 3696(  0,  0)
C 00014654    4000D014        STH     0,   20(  0, 13)
C 00014658    187B            LR      7, 11
C 0001465A    41BB0000        LA     11,    0( 11,  0)
C 0001465E    41000004        LA      0,    4(  0,  0)
C 00014662    59BD0044        C      11,   68( 13,  0)
C 00014666    4720C054        BC      2,   84(  0, 12)
C 0001466A    05A0            BALR   10,  0


  3697                         %SHORTROUTINE
  3698                         PSI(X'95',0,GLA,1);           ! CLI 1(GLA),0

C 0001466C    41100095        LA      1,  149(  0,  0)
C 00014670    5010B040        ST      1,   64(  0, 11)
C 00014674    1F11            SLR     1,  1
C 00014676    5010B044        ST      1,   68(  0, 11)
C 0001467A    D203B048D150    MVC     72(  4, 11),  336( 13)
C 00014680    41100001        LA      1,    1(  0,  0)
C 00014684    5010B04C        ST      1,   76(  0, 11)
C 00014688    5810D1B8        L       1,  440(  0, 13)
C 0001468C    45F0D074        BAL    15,  116(  0, 13)


  3699                         PJ(8,PLABEL-1);               ! JUMP ROUND IF QUERIES OFF

C 00014690    41100008        LA      1,    8(  0,  0)
C 00014694    5010B040        ST      1,   64(  0, 11)
C 00014698    581090A4        L       1,  164(  0,  9)
C 0001469C    0610            BCTR    1,  0
C 0001469E    5010B044        ST      1,   68(  0, 11)
C 000146A2    5810D464        L       1, 1124(  0, 13)
C 000146A6    45F0D074        BAL    15,  116(  0, 13)


  3700                           ->1 %IF TYPE=2

C 000146AA    95028094        CLI    148(  8),  2
C 000146AE    478A0000        BC      8,    0( 10,  0)


  3701                         ->5 %IF TYPE=5

C 000146B2    95058094        CLI    148(  8),  5
C 000146B6    478A0000        BC      8,    0( 10,  0)


  3702                         PRR(X'18',1,REG) %UNLESS REG=1;         ! LR 1,REG

C 000146BA    41100001        LA      1,    1(  0,  0)
C 000146BE    59107040        C       1,   64(  0,  7)
C 000146C2    478A0078        BC      8,  120( 10,  0)
C 000146C6    41100018        LA      1,   24(  0,  0)
C 000146CA    5010B040        ST      1,   64(  0, 11)
C 000146CE    41100001        LA      1,    1(  0,  0)
C 000146D2    5010B044        ST      1,   68(  0, 11)
C 000146D6    D203B0487040    MVC     72(  4, 11),   64(  7)
C 000146DC    5810D1D0        L       1,  464(  0, 13)
C 000146E0    45F0D074        BAL    15,  116(  0, 13)


  3703                         PCONST(X'4120000B');          ! LA 2,11

C 000146E4    5810D63C        L       1, 1596(  0, 13)
C 000146E8    5010B040        ST      1,   64(  0, 11)
C 000146EC    5810D1B4        L       1,  436(  0, 13)
C 000146F0    45F0D074        BAL    15,  116(  0, 13)


  3704                         PPJ(4); ->9;                  ! TO WRITE

C 000146F4    9204B043        MVI     67( 11),  4
C 000146F8    5810D46C        L       1, 1132(  0, 13)
C 000146FC    45F0D074        BAL    15,  116(  0, 13)



C 00014700    47FA0000        BC     15,    0( 10,  0)


  3705                1:       PCONST(X'41100020'); PPJ(3);  ! OUTPUT SPACE

C 00014704    5810D640        L       1, 1600(  0, 13)
C 00014708    5010B040        ST      1,   64(  0, 11)
C 0001470C    5810D1B4        L       1,  436(  0, 13)
C 00014710    45F0D074        BAL    15,  116(  0, 13)



C 00014714    9203B043        MVI     67( 11),  3
C 00014718    5810D46C        L       1, 1132(  0, 13)
C 0001471C    45F0D074        BAL    15,  116(  0, 13)


  3706                         %IF QPREAL=0 %THEN %START

C 00014720    58109074        L       1,  116(  0,  9)
C 00014724    1211            LTR     1,  1
C 00014726    477A0000        BC      7,    0( 10,  0)


  3707                         QPREAL=N0<<2+4

C 0001472A    58109088        L       1,  136(  0,  9)
C 0001472E    89100002        SLL     1,    2(  0)
C 00014732    41200004        LA      2,    4(  0,  0)
C 00014736    1A12            AR      1,  2
C 00014738    50109074        ST      1,  116(  0,  9)


  3708                         ST(N0)=XREFLINK; XREFLINK=QPREAL-4

C 0001473C    58409134        L       4,  308(  0,  9)
C 00014740    58109088        L       1,  136(  0,  9)
C 00014744    4130915C        LA      3,  348(  0,  9)
C 00014748    45F0C05C        BAL    15,   92(  0, 12)
C 0001474C    5041F000        ST      4,    0(  1, 15)



C 00014750    58109074        L       1,  116(  0,  9)
C 00014754    41200004        LA      2,    4(  0,  0)
C 00014758    1B12            SR      1,  2
C 0001475A    50109134        ST      1,  308(  0,  9)


  3709                         ST(N0+4)=8; ST(N0+5)=M'I#PR'; ST(N0+6)=M'INTF'

C 0001475E    41400008        LA      4,    8(  0,  0)
C 00014762    41100004        LA      1,    4(  0,  0)
C 00014766    5A109088        A       1,  136(  0,  9)
C 0001476A    4130915C        LA      3,  348(  0,  9)
C 0001476E    45F0C05C        BAL    15,   92(  0, 12)
C 00014772    5041F000        ST      4,    0(  1, 15)



C 00014776    5840D644        L       4, 1604(  0, 13)
C 0001477A    41100005        LA      1,    5(  0,  0)
C 0001477E    5A109088        A       1,  136(  0,  9)
C 00014782    4130915C        LA      3,  348(  0,  9)
C 00014786    45F0C05C        BAL    15,   92(  0, 12)
C 0001478A    5041F000        ST      4,    0(  1, 15)



C 0001478E    5840D648        L       4, 1608(  0, 13)
C 00014792    41100006        LA      1,    6(  0,  0)
C 00014796    5A109088        A       1,  136(  0,  9)
C 0001479A    4130915C        LA      3,  348(  0,  9)
C 0001479E    45F0C05C        BAL    15,   92(  0, 12)
C 000147A2    5041F000        ST      4,    0(  1, 15)


  3710                         N0=N0+7; %FINISH

C 000147A6    41100007        LA      1,    7(  0,  0)
C 000147AA    5A109088        A       1,  136(  0,  9)
C 000147AE    50109088        ST      1,  136(  0,  9)


  3711                         PACLOD(82,1,REG<<4)

C 000147B2    41100052        LA      1,   82(  0,  0)
C 000147B6    5010B040        ST      1,   64(  0, 11)
C 000147BA    41100001        LA      1,    1(  0,  0)
C 000147BE    5010B044        ST      1,   68(  0, 11)
C 000147C2    58107040        L       1,   64(  0,  7)
C 000147C6    89100004        SLL     1,    4(  0)
C 000147CA    5010B048        ST      1,   72(  0, 11)
C 000147CE    5810D1C4        L       1,  452(  0, 13)
C 000147D2    45F0D074        BAL    15,  116(  0, 13)


  3712                         %COMMENT STD REG,64(11).LA 0,12.ST 0,68(11) %ABD SS ENTRYPRINTF
  3713                         PACLOD(55,4,QPREAL); ->9

C 000147D6    41100037        LA      1,   55(  0,  0)
C 000147DA    5010B040        ST      1,   64(  0, 11)
C 000147DE    41100004        LA      1,    4(  0,  0)
C 000147E2    5010B044        ST      1,   68(  0, 11)
C 000147E6    D203B0489074    MVC     72(  4, 11),  116(  9)
C 000147EC    5810D1C4        L       1,  452(  0, 13)
C 000147F0    45F0D074        BAL    15,  116(  0, 13)



C 000147F4    47FA0000        BC     15,    0( 10,  0)


  3714                5:       PCONST(X'4110000A'); PPJ(3);  ! NEWLINE

C 000147F8    5810D64C        L       1, 1612(  0, 13)
C 000147FC    5010B040        ST      1,   64(  0, 11)
C 00014800    5810D1B4        L       1,  436(  0, 13)
C 00014804    45F0D074        BAL    15,  116(  0, 13)



C 00014808    9203B043        MVI     67( 11),  3
C 0001480C    5810D46C        L       1, 1132(  0, 13)
C 00014810    45F0D074        BAL    15,  116(  0, 13)


  3715                         PRR(X'18',1,REG); PPJ(5)

C 00014814    41100018        LA      1,   24(  0,  0)
C 00014818    5010B040        ST      1,   64(  0, 11)
C 0001481C    41100001        LA      1,    1(  0,  0)
C 00014820    5010B044        ST      1,   68(  0, 11)
C 00014824    D203B0487040    MVC     72(  4, 11),   64(  7)
C 0001482A    5810D1D0        L       1,  464(  0, 13)
C 0001482E    45F0D074        BAL    15,  116(  0, 13)



C 00014832    9205B043        MVI     67( 11),  5
C 00014836    5810D46C        L       1, 1132(  0, 13)
C 0001483A    45F0D074        BAL    15,  116(  0, 13)


  3716                9:       PLAB(-1)

C 0001483E    5810D010        L       1,   16(  0, 13)
C 00014842    5010B040        ST      1,   64(  0, 11)
C 00014846    5810D470        L       1, 1136(  0, 13)
C 0001484A    45F0D074        BAL    15,  116(  0, 13)


  3717                         %END
D 00001280    C2 C2 C2 C2 0E 70 07 06 43 51 55 45 52 59 50 00 01 70 40 03 52 45 47 08 FF FF FF FF


C 0001484E    D203D0147000    MVC     20(  4, 13),    0(  7)
C 00014854    984F7010        LM      4, 15,   16(  7)
C 00014858    07FF            BCR    15, 15


  3718                     %ROUTINE     LOADAD(%INTEGER REG,BASE,X,DISP)

C 0001485A    0000
C 0001485C    0000
C 0001485E    47FA0000        BC     15,    0( 10,  0)
C 00014862    50F0B03C        ST     15,   60(  0, 11)
C 00014866    D203B000D014    MVC      0(  4, 11),   20( 13)
C 0001486C    41000E86        LA      0, 3718(  0,  0)
C 00014870    4000D014        STH     0,   20(  0, 13)
C 00014874    187B            LR      7, 11
C 00014876    41BB0000        LA     11,    0( 11,  0)
C 0001487A    41000004        LA      0,    4(  0,  0)
C 0001487E    59BD0044        C      11,   68( 13,  0)
C 00014882    4720C054        BC      2,   84(  0, 12)
C 00014886    05A0            BALR   10,  0


  3719                         %SHORTROUTINE
  3720                         ! LOADS ADDRESS & DEALS CORRECTLY WITH DISP>4095
  3721                         %INTEGER I
  3722                               PRX(X'41',REG,X,BASE,DISP&4095)

C 00014888    41100041        LA      1,   65(  0,  0)
C 0001488C    5010B040        ST      1,   64(  0, 11)
C 00014890    D203B0447040    MVC     68(  4, 11),   64(  7)
C 00014896    D203B0487048    MVC     72(  4, 11),   72(  7)
C 0001489C    D203B04C7044    MVC     76(  4, 11),   68(  7)
C 000148A2    41100FFF        LA      1, 4095(  0,  0)
C 000148A6    5410704C        N       1,   76(  0,  7)
C 000148AA    5010B050        ST      1,   80(  0, 11)
C 000148AE    5810D1C0        L       1,  448(  0, 13)
C 000148B2    45F0D074        BAL    15,  116(  0, 13)


  3723                         I=PAGENO(DISP)

C 000148B6    D203B040704C    MVC     64(  4, 11),   76(  7)
C 000148BC    5810D438        L       1, 1080(  0, 13)
C 000148C0    45F0D074        BAL    15,  116(  0, 13)
C 000148C4    50107050        ST      1,   80(  0,  7)


  3724                         PRX(X'5A',REG,0,GLA,4*I)%UNLESS 4095>=DISP

C 000148C8    5810704C        L       1,   76(  0,  7)
C 000148CC    41200FFF        LA      2, 4095(  0,  0)
C 000148D0    1921            CR      2,  1
C 000148D2    47AA007C        BC     10,  124( 10,  0)
C 000148D6    4110005A        LA      1,   90(  0,  0)
C 000148DA    5010B040        ST      1,   64(  0, 11)
C 000148DE    D203B0447040    MVC     68(  4, 11),   64(  7)
C 000148E4    1F11            SLR     1,  1
C 000148E6    5010B048        ST      1,   72(  0, 11)
C 000148EA    D203B04CD150    MVC     76(  4, 11),  336( 13)
C 000148F0    41100004        LA      1,    4(  0,  0)
C 000148F4    5C007050        M       0,   80(  0,  7)
C 000148F8    5010B050        ST      1,   80(  0, 11)
C 000148FC    5810D1C0        L       1,  448(  0, 13)
C 00014900    45F0D074        BAL    15,  116(  0, 13)


  3725                         %END
D 0000129C    C2 C2 C2 C2 0E 86 07 06 4C 4F 41 44 41 44 50 00 01 70 50 01 49 45 47 08 01 70 4C 04 44 49 53 50 01 70 48 01 58 FE A6 F0 01 70 44 04 42 41 53 45 01 70 40 03 52 45 47 74 FF FF FF FF


C 00014904    D203D0147000    MVC     20(  4, 13),    0(  7)
C 0001490A    984F7010        LM      4, 15,   16(  7)
C 0001490E    07FF            BCR    15, 15


  3726                           %INTEGERFN TSEXP(%INTEGERNAME CODE)

C 00014910    0000
C 00014912    0000
C 00014914    47FA0000        BC     15,    0( 10,  0)
C 00014918    50F0B03C        ST     15,   60(  0, 11)
C 0001491C    D203B000D014    MVC      0(  4, 11),   20( 13)
C 00014922    41000E8E        LA      0, 3726(  0,  0)
C 00014926    4000D014        STH     0,   20(  0, 13)
C 0001492A    187B            LR      7, 11
C 0001492C    41BB0000        LA     11,    0( 11,  0)
C 00014930    41000004        LA      0,    4(  0,  0)
C 00014934    59BD0044        C      11,   68( 13,  0)
C 00014938    4720C054        BC      2,   84(  0, 12)
C 0001493C    05A0            BALR   10,  0


  3727                         %SHORTROUTINE
  3728                         %SWITCH SW(1:4)

C 0001493E    0700            BCR     0,  0
C 00014940    47FA0000        BC     15,    0( 10,  0)
C 00014944    0200
C 00014946    0001
C 00014948    0000
C 0001494A    0004
C 0001494C    0000
C 0001494E    0000
C 00014950    0000
C 00014952    0000
C 00014954    0000
C 00014956    0000


  3729                         TYPE=1

C 00014958    92018094        MVI    148(  8),  1


  3730                         ->9 %IF 1#A(P)#4; ->SW(A(P+1))

C 0001495C    58108040        L       1,   64(  0,  8)
C 00014960    413092FC        LA      3,  764(  0,  9)
C 00014964    45F0C05C        BAL    15,   92(  0, 12)
C 00014968    4811F000        LH      1,    0(  1, 15)
C 0001496C    41200001        LA      2,    1(  0,  0)
C 00014970    1921            CR      2,  1
C 00014972    478A0042        BC      8,   66( 10,  0)
C 00014976    41200004        LA      2,    4(  0,  0)
C 0001497A    1912            CR      1,  2
C 0001497C    477A0000        BC      7,    0( 10,  0)



C 00014980    41100001        LA      1,    1(  0,  0)
C 00014984    5A108040        A       1,   64(  0,  8)
C 00014988    413092FC        LA      3,  764(  0,  9)
C 0001498C    45F0C05C        BAL    15,   92(  0, 12)
C 00014990    4811F000        LH      1,    0(  1, 15)
C 00014994    1A11            AR      1,  1
C 00014996    4811A00C        LH      1,   12(  1, 10)
C 0001499A    47F1A000        BC     15,    0(  1, 10)


  3731                SW(1):   CODE=A(P+2); COPYTAG(CODE)

C 0001499E    41100002        LA      1,    2(  0,  0)
C 000149A2    5A108040        A       1,   64(  0,  8)
C 000149A6    413092FC        LA      3,  764(  0,  9)
C 000149AA    45F0C05C        BAL    15,   92(  0, 12)
C 000149AE    4811F000        LH      1,    0(  1, 15)
C 000149B2    58F07040        L      15,   64(  0,  7)
C 000149B6    5010F000        ST      1,    0(  0, 15)



C 000149BA    5810F000        L       1,    0(  0, 15)
C 000149BE    5010B040        ST      1,   64(  0, 11)
C 000149C2    5810D408        L       1, 1032(  0, 13)
C 000149C6    45F0D074        BAL    15,  116(  0, 13)


  3732                         %IF PTYPE=10006 %THEN %START

C 000149CA    5810D650        L       1, 1616(  0, 13)
C 000149CE    59108098        C       1,  152(  0,  8)
C 000149D2    477A0000        BC      7,    0( 10,  0)


  3733                         TYPE=TSNAME(K);PREC=TYPE>>3

C 000149D6    581080A4        L       1,  164(  0,  8)
C 000149DA    4130D0F8        LA      3,  248(  0, 13)
C 000149DE    45F0C05C        BAL    15,   92(  0, 12)
C 000149E2    4311F000        IC      1,    0(  1, 15)
C 000149E6    5410D018        N       1,   24(  0, 13)
C 000149EA    42108094        STC     1,  148(  0,  8)
C 000149EE    5510D018        CL      1,   24(  0, 13)
C 000149F2    472C0058        BC      2,   88( 12,  0)



C 000149F6    1F11            SLR     1,  1
C 000149F8    43108094        IC      1,  148(  0,  8)
C 000149FC    88100003        SRL     1,    3(  0)
C 00014A00    42108093        STC     1,  147(  0,  8)
C 00014A04    5510D018        CL      1,   24(  0, 13)
C 00014A08    472C0058        BC      2,   88( 12,  0)


  3734                         TYPE=TYPE&7; %FINISH

C 00014A0C    41100007        LA      1,    7(  0,  0)
C 00014A10    1F22            SLR     2,  2
C 00014A12    43208094        IC      2,  148(  0,  8)
C 00014A16    1412            NR      1,  2
C 00014A18    42108094        STC     1,  148(  0,  8)
C 00014A1C    5510D018        CL      1,   24(  0, 13)
C 00014A20    472C0058        BC      2,   88( 12,  0)


  3735                         ->40 %IF TYPE=8;              !REGISTER VARIABLE

C 00014A24    95088094        CLI    148(  8),  8
C 00014A28    478A0000        BC      8,    0( 10,  0)


  3736                         ->30 %IF TYPE=3 %AND ARR=0 %AND INREG#0

C 00014A2C    95038094        CLI    148(  8),  3
C 00014A30    477A0108        BC      7,  264( 10,  0)
C 00014A34    95008092        CLI    146(  8),  0
C 00014A38    477A0108        BC      7,  264( 10,  0)
C 00014A3C    581080AC        L       1,  172(  0,  8)
C 00014A40    1211            LTR     1,  1
C 00014A42    477A0000        BC      7,    0( 10,  0)


  3737                         ->50 %IF ARR=2 %AND TYPE=1

C 00014A46    95028092        CLI    146(  8),  2
C 00014A4A    477A0118        BC      7,  280( 10,  0)
C 00014A4E    95018094        CLI    148(  8),  1
C 00014A52    478A0000        BC      8,    0( 10,  0)


  3738                         ->9 %UNLESS A(P+3)=2 =A(P+4); ! NO APP OR ENAME

C 00014A56    41100003        LA      1,    3(  0,  0)
C 00014A5A    5A108040        A       1,   64(  0,  8)
C 00014A5E    413092FC        LA      3,  764(  0,  9)
C 00014A62    45F0C05C        BAL    15,   92(  0, 12)
C 00014A66    4811F000        LH      1,    0(  1, 15)
C 00014A6A    1851            LR      5,  1
C 00014A6C    41100002        LA      1,    2(  0,  0)
C 00014A70    1915            CR      1,  5
C 00014A72    477A0000        BC      7,    0( 10,  0)
C 00014A76    1851            LR      5,  1
C 00014A78    41100004        LA      1,    4(  0,  0)
C 00014A7C    5A108040        A       1,   64(  0,  8)
C 00014A80    413092FC        LA      3,  764(  0,  9)
C 00014A84    45F0C05C        BAL    15,   92(  0, 12)
C 00014A88    4811F000        LH      1,    0(  1, 15)
C 00014A8C    1915            CR      1,  5
C 00014A8E    477A0000        BC      7,    0( 10,  0)


  3739                         ->9 %UNLESS ROUT=0 %AND ARR=0

C 00014A92    95008090        CLI    144(  8),  0
C 00014A96    477A0000        BC      7,    0( 10,  0)
C 00014A9A    95008092        CLI    146(  8),  0
C 00014A9E    477A0000        BC      7,    0( 10,  0)


  3740                         ->20 %IF TYPE=5

C 00014AA2    95058094        CLI    148(  8),  5
C 00014AA6    478A0000        BC      8,    0( 10,  0)


  3741                         ->9 %UNLESS NAM=0

C 00014AAA    95008091        CLI    145(  8),  0
C 00014AAE    477A0000        BC      7,    0( 10,  0)


  3742                         ->14 %IF TYPE=2

C 00014AB2    95028094        CLI    148(  8),  2
C 00014AB6    478A0000        BC      8,    0( 10,  0)


  3743                         ->9 %UNLESS TYPE=1

C 00014ABA    95018094        CLI    148(  8),  1
C 00014ABE    477A0000        BC      7,    0( 10,  0)


  3744                         ->11 %IF A(P+5)=2;            ! NO RST OF EXPS

C 00014AC2    41100005        LA      1,    5(  0,  0)
C 00014AC6    5A108040        A       1,   64(  0,  8)
C 00014ACA    413092FC        LA      3,  764(  0,  9)
C 00014ACE    45F0C05C        BAL    15,   92(  0, 12)
C 00014AD2    4811F000        LH      1,    0(  1, 15)
C 00014AD6    41200002        LA      2,    2(  0,  0)
C 00014ADA    1912            CR      1,  2
C 00014ADC    478A0000        BC      8,    0( 10,  0)


  3745                         ->9 %UNLESS A(P+6)=2=A(P+7)

C 00014AE0    41100006        LA      1,    6(  0,  0)
C 00014AE4    5A108040        A       1,   64(  0,  8)
C 00014AE8    413092FC        LA      3,  764(  0,  9)
C 00014AEC    45F0C05C        BAL    15,   92(  0, 12)
C 00014AF0    4811F000        LH      1,    0(  1, 15)
C 00014AF4    1851            LR      5,  1
C 00014AF6    41100002        LA      1,    2(  0,  0)
C 00014AFA    1915            CR      1,  5
C 00014AFC    477A0000        BC      7,    0( 10,  0)
C 00014B00    1851            LR      5,  1
C 00014B02    41100007        LA      1,    7(  0,  0)
C 00014B06    5A108040        A       1,   64(  0,  8)
C 00014B0A    413092FC        LA      3,  764(  0,  9)
C 00014B0E    45F0C05C        BAL    15,   92(  0, 12)
C 00014B12    4811F000        LH      1,    0(  1, 15)
C 00014B16    1915            CR      1,  5
C 00014B18    477A0000        BC      7,    0( 10,  0)


  3746                         ->9 %UNLESS A(P+8)=9 %AND A(P+10)=2

C 00014B1C    41100008        LA      1,    8(  0,  0)
C 00014B20    5A108040        A       1,   64(  0,  8)
C 00014B24    413092FC        LA      3,  764(  0,  9)
C 00014B28    45F0C05C        BAL    15,   92(  0, 12)
C 00014B2C    4811F000        LH      1,    0(  1, 15)
C 00014B30    41200009        LA      2,    9(  0,  0)
C 00014B34    1912            CR      1,  2
C 00014B36    477A0000        BC      7,    0( 10,  0)
C 00014B3A    4110000A        LA      1,   10(  0,  0)
C 00014B3E    5A108040        A       1,   64(  0,  8)
C 00014B42    413092FC        LA      3,  764(  0,  9)
C 00014B46    45F0C05C        BAL    15,   92(  0, 12)
C 00014B4A    4811F000        LH      1,    0(  1, 15)
C 00014B4E    41200002        LA      2,    2(  0,  0)
C 00014B52    1912            CR      1,  2
C 00014B54    477A0000        BC      7,    0( 10,  0)


  3747                         CODE=A(P+9); P=P+11; %RESULT=100

C 00014B58    41100009        LA      1,    9(  0,  0)
C 00014B5C    5A108040        A       1,   64(  0,  8)
C 00014B60    413092FC        LA      3,  764(  0,  9)
C 00014B64    45F0C05C        BAL    15,   92(  0, 12)
C 00014B68    4811F000        LH      1,    0(  1, 15)
C 00014B6C    58F07040        L      15,   64(  0,  7)
C 00014B70    5010F000        ST      1,    0(  0, 15)



C 00014B74    4110000B        LA      1,   11(  0,  0)
C 00014B78    5A108040        A       1,   64(  0,  8)
C 00014B7C    50108040        ST      1,   64(  0,  8)



C 00014B80    41100064        LA      1,  100(  0,  0)
C 00014B84    D203D0147000    MVC     20(  4, 13),    0(  7)
C 00014B8A    984F7010        LM      4, 15,   16(  7)
C 00014B8E    07FF            BCR    15, 15


  3748                11:      P=P+6; %RESULT=10+PREC

C 00014B90    41100006        LA      1,    6(  0,  0)
C 00014B94    5A108040        A       1,   64(  0,  8)
C 00014B98    50108040        ST      1,   64(  0,  8)



C 00014B9C    1F11            SLR     1,  1
C 00014B9E    43108093        IC      1,  147(  0,  8)
C 00014BA2    4120000A        LA      2,   10(  0,  0)
C 00014BA6    1A12            AR      1,  2
C 00014BA8    D203D0147000    MVC     20(  4, 13),    0(  7)
C 00014BAE    984F7010        LM      4, 15,   16(  7)
C 00014BB2    07FF            BCR    15, 15


  3749                14:      ->9 %UNLESS A(P+5)=2;         !NO NOT OF EXPRN

C 00014BB4    41100005        LA      1,    5(  0,  0)
C 00014BB8    5A108040        A       1,   64(  0,  8)
C 00014BBC    413092FC        LA      3,  764(  0,  9)
C 00014BC0    45F0C05C        BAL    15,   92(  0, 12)
C 00014BC4    4811F000        LH      1,    0(  1, 15)
C 00014BC8    41200002        LA      2,    2(  0,  0)
C 00014BCC    1912            CR      1,  2
C 00014BCE    477A0000        BC      7,    0( 10,  0)


  3750                         P=P+6; %RESULT=14+PREC&1

C 00014BD2    41100006        LA      1,    6(  0,  0)
C 00014BD6    5A108040        A       1,   64(  0,  8)
C 00014BDA    50108040        ST      1,   64(  0,  8)



C 00014BDE    41100001        LA      1,    1(  0,  0)
C 00014BE2    1F22            SLR     2,  2
C 00014BE4    43208093        IC      2,  147(  0,  8)
C 00014BE8    1412            NR      1,  2
C 00014BEA    4120000E        LA      2,   14(  0,  0)
C 00014BEE    1A12            AR      1,  2
C 00014BF0    D203D0147000    MVC     20(  4, 13),    0(  7)
C 00014BF6    984F7010        LM      4, 15,   16(  7)
C 00014BFA    07FF            BCR    15, 15


  3751                20:      ->9 %UNLESS A(P+5)=2

C 00014BFC    41100005        LA      1,    5(  0,  0)
C 00014C00    5A108040        A       1,   64(  0,  8)
C 00014C04    413092FC        LA      3,  764(  0,  9)
C 00014C08    45F0C05C        BAL    15,   92(  0, 12)
C 00014C0C    4811F000        LH      1,    0(  1, 15)
C 00014C10    41200002        LA      2,    2(  0,  0)
C 00014C14    1912            CR      1,  2
C 00014C16    477A0000        BC      7,    0( 10,  0)


  3752                         P=P+6; %RESULT=20

C 00014C1A    41100006        LA      1,    6(  0,  0)
C 00014C1E    5A108040        A       1,   64(  0,  8)
C 00014C22    50108040        ST      1,   64(  0,  8)



C 00014C26    41100014        LA      1,   20(  0,  0)
C 00014C2A    D203D0147000    MVC     20(  4, 13),    0(  7)
C 00014C30    984F7010        LM      4, 15,   16(  7)
C 00014C34    07FF            BCR    15, 15


  3753                30:      ->9 %UNLESS A(P+3)=2 %AND A(P+4)=1;     ! NO APP BUT ENAME

C 00014C36    41100003        LA      1,    3(  0,  0)
C 00014C3A    5A108040        A       1,   64(  0,  8)
C 00014C3E    413092FC        LA      3,  764(  0,  9)
C 00014C42    45F0C05C        BAL    15,   92(  0, 12)
C 00014C46    4811F000        LH      1,    0(  1, 15)
C 00014C4A    41200002        LA      2,    2(  0,  0)
C 00014C4E    1912            CR      1,  2
C 00014C50    477A0000        BC      7,    0( 10,  0)
C 00014C54    41100004        LA      1,    4(  0,  0)
C 00014C58    5A108040        A       1,   64(  0,  8)
C 00014C5C    413092FC        LA      3,  764(  0,  9)
C 00014C60    45F0C05C        BAL    15,   92(  0, 12)
C 00014C64    4811F000        LH      1,    0(  1, 15)
C 00014C68    41200001        LA      2,    1(  0,  0)
C 00014C6C    1912            CR      1,  2
C 00014C6E    477A0000        BC      7,    0( 10,  0)


  3754                         P=P+5; FROM1(K,FNAME); I=INREG

C 00014C72    41100005        LA      1,    5(  0,  0)
C 00014C76    5A108040        A       1,   64(  0,  8)
C 00014C7A    50108040        ST      1,   64(  0,  8)



C 00014C7E    D203B04080A4    MVC     64(  4, 11),  164(  8)
C 00014C84    41109130        LA      1,  304(  0,  9)
C 00014C88    5010B044        ST      1,   68(  0, 11)
C 00014C8C    5810D3FC        L       1, 1020(  0, 13)
C 00014C90    45F0D074        BAL    15,  116(  0, 13)



C 00014C94    D203809C80AC    MVC    156(  4,  8),  172(  8)


  3755                         K=DISPLACEMENT(FNAME); UNPACK

C 00014C9A    D203B0409130    MVC     64(  4, 11),  304(  9)
C 00014CA0    5810D394        L       1,  916(  0, 13)
C 00014CA4    45F0D074        BAL    15,  116(  0, 13)
C 00014CA8    501080A4        ST      1,  164(  0,  8)



C 00014CAC    5810D448        L       1, 1096(  0, 13)
C 00014CB0    45F0D074        BAL    15,  116(  0, 13)


  3756                         ->9 %IF I=-1 %OR ARR#0 %OR ROUT#0

C 00014CB4    5810D010        L       1,   16(  0, 13)
C 00014CB8    5910809C        C       1,  156(  0,  8)
C 00014CBC    478A0000        BC      8,    0( 10,  0)
C 00014CC0    95008092        CLI    146(  8),  0
C 00014CC4    477A0000        BC      7,    0( 10,  0)
C 00014CC8    95008090        CLI    144(  8),  0
C 00014CCC    477A0000        BC      7,    0( 10,  0)


  3757                         ->9 %UNLESS 1<=TYPE<=2 %AND A(P+1)=2=A(P+2)

C 00014CD0    1F11            SLR     1,  1
C 00014CD2    43108094        IC      1,  148(  0,  8)
C 00014CD6    41200001        LA      2,    1(  0,  0)
C 00014CDA    1921            CR      2,  1
C 00014CDC    473A0000        BC      3,    0( 10,  0)
C 00014CE0    41200002        LA      2,    2(  0,  0)
C 00014CE4    1912            CR      1,  2
C 00014CE6    473A0000        BC      3,    0( 10,  0)
C 00014CEA    41100001        LA      1,    1(  0,  0)
C 00014CEE    5A108040        A       1,   64(  0,  8)
C 00014CF2    413092FC        LA      3,  764(  0,  9)
C 00014CF6    45F0C05C        BAL    15,   92(  0, 12)
C 00014CFA    4811F000        LH      1,    0(  1, 15)
C 00014CFE    1851            LR      5,  1
C 00014D00    41100002        LA      1,    2(  0,  0)
C 00014D04    1915            CR      1,  5
C 00014D06    477A0000        BC      7,    0( 10,  0)
C 00014D0A    1851            LR      5,  1
C 00014D0C    41100002        LA      1,    2(  0,  0)
C 00014D10    5A108040        A       1,   64(  0,  8)
C 00014D14    413092FC        LA      3,  764(  0,  9)
C 00014D18    45F0C05C        BAL    15,   92(  0, 12)
C 00014D1C    4811F000        LH      1,    0(  1, 15)
C 00014D20    1915            CR      1,  5
C 00014D22    477A0000        BC      7,    0( 10,  0)


  3758                         ->9 %UNLESS A(P+3)=2;         ! NO REST OF EXPRN

C 00014D26    41100003        LA      1,    3(  0,  0)
C 00014D2A    5A108040        A       1,   64(  0,  8)
C 00014D2E    413092FC        LA      3,  764(  0,  9)
C 00014D32    45F0C05C        BAL    15,   92(  0, 12)
C 00014D36    4811F000        LH      1,    0(  1, 15)
C 00014D3A    41200002        LA      2,    2(  0,  0)
C 00014D3E    1912            CR      1,  2
C 00014D40    477A0000        BC      7,    0( 10,  0)


  3759                         P=P-2; ->11 %IF TYPE=1; ->14

C 00014D44    58108040        L       1,   64(  0,  8)
C 00014D48    0610            BCTR    1,  0
C 00014D4A    0610            BCTR    1,  0
C 00014D4C    50108040        ST      1,   64(  0,  8)



C 00014D50    95018094        CLI    148(  8),  1
C 00014D54    4780A252        BC      8,  594(  0, 10)



C 00014D58    47F0A276        BC     15,  630(  0, 10)


  3760                40:      ->41 %IF A(P+5)=2;            !NO REST OF EXP

C 00014D5C    41100005        LA      1,    5(  0,  0)
C 00014D60    5A108040        A       1,   64(  0,  8)
C 00014D64    413092FC        LA      3,  764(  0,  9)
C 00014D68    45F0C05C        BAL    15,   92(  0, 12)
C 00014D6C    4811F000        LH      1,    0(  1, 15)
C 00014D70    41200002        LA      2,    2(  0,  0)
C 00014D74    1912            CR      1,  2
C 00014D76    478A0000        BC      8,    0( 10,  0)


  3761                         ->9 %UNLESS A(P+6)=2=A(P+7)

C 00014D7A    41100006        LA      1,    6(  0,  0)
C 00014D7E    5A108040        A       1,   64(  0,  8)
C 00014D82    413092FC        LA      3,  764(  0,  9)
C 00014D86    45F0C05C        BAL    15,   92(  0, 12)
C 00014D8A    4811F000        LH      1,    0(  1, 15)
C 00014D8E    1851            LR      5,  1
C 00014D90    41100002        LA      1,    2(  0,  0)
C 00014D94    1915            CR      1,  5
C 00014D96    477A0000        BC      7,    0( 10,  0)
C 00014D9A    1851            LR      5,  1
C 00014D9C    41100007        LA      1,    7(  0,  0)
C 00014DA0    5A108040        A       1,   64(  0,  8)
C 00014DA4    413092FC        LA      3,  764(  0,  9)
C 00014DA8    45F0C05C        BAL    15,   92(  0, 12)
C 00014DAC    4811F000        LH      1,    0(  1, 15)
C 00014DB0    1915            CR      1,  5
C 00014DB2    477A0000        BC      7,    0( 10,  0)


  3762                         ->9 %UNLESS A(P+8)=9 %AND A(P+10)=2

C 00014DB6    41100008        LA      1,    8(  0,  0)
C 00014DBA    5A108040        A       1,   64(  0,  8)
C 00014DBE    413092FC        LA      3,  764(  0,  9)
C 00014DC2    45F0C05C        BAL    15,   92(  0, 12)
C 00014DC6    4811F000        LH      1,    0(  1, 15)
C 00014DCA    41200009        LA      2,    9(  0,  0)
C 00014DCE    1912            CR      1,  2
C 00014DD0    477A0000        BC      7,    0( 10,  0)
C 00014DD4    4110000A        LA      1,   10(  0,  0)
C 00014DD8    5A108040        A       1,   64(  0,  8)
C 00014DDC    413092FC        LA      3,  764(  0,  9)
C 00014DE0    45F0C05C        BAL    15,   92(  0, 12)
C 00014DE4    4811F000        LH      1,    0(  1, 15)
C 00014DE8    41200002        LA      2,    2(  0,  0)
C 00014DEC    1912            CR      1,  2
C 00014DEE    477A0000        BC      7,    0( 10,  0)


  3763                         CODE=A(P+9);P=P+11; %RESULT=101

C 00014DF2    41100009        LA      1,    9(  0,  0)
C 00014DF6    5A108040        A       1,   64(  0,  8)
C 00014DFA    413092FC        LA      3,  764(  0,  9)
C 00014DFE    45F0C05C        BAL    15,   92(  0, 12)
C 00014E02    4811F000        LH      1,    0(  1, 15)
C 00014E06    58F07040        L      15,   64(  0,  7)
C 00014E0A    5010F000        ST      1,    0(  0, 15)



C 00014E0E    4110000B        LA      1,   11(  0,  0)
C 00014E12    5A108040        A       1,   64(  0,  8)
C 00014E16    50108040        ST      1,   64(  0,  8)



C 00014E1A    41100065        LA      1,  101(  0,  0)
C 00014E1E    D203D0147000    MVC     20(  4, 13),    0(  7)
C 00014E24    984F7010        LM      4, 15,   16(  7)
C 00014E28    07FF            BCR    15, 15


  3764                41:      P=P+6; %RESULT=50

C 00014E2A    41100006        LA      1,    6(  0,  0)
C 00014E2E    5A108040        A       1,   64(  0,  8)
C 00014E32    50108040        ST      1,   64(  0,  8)



C 00014E36    41100032        LA      1,   50(  0,  0)
C 00014E3A    D203D0147000    MVC     20(  4, 13),    0(  7)
C 00014E40    984F7010        LM      4, 15,   16(  7)
C 00014E44    07FF            BCR    15, 15


  3765                50:      ->9 %UNLESS A(P+3)=1 %AND A(P+4)=4 %AND A(P+5)=2

C 00014E46    41100003        LA      1,    3(  0,  0)
C 00014E4A    5A108040        A       1,   64(  0,  8)
C 00014E4E    413092FC        LA      3,  764(  0,  9)
C 00014E52    45F0C05C        BAL    15,   92(  0, 12)
C 00014E56    4811F000        LH      1,    0(  1, 15)
C 00014E5A    41200001        LA      2,    1(  0,  0)
C 00014E5E    1912            CR      1,  2
C 00014E60    477A0000        BC      7,    0( 10,  0)
C 00014E64    41100004        LA      1,    4(  0,  0)
C 00014E68    5A108040        A       1,   64(  0,  8)
C 00014E6C    413092FC        LA      3,  764(  0,  9)
C 00014E70    45F0C05C        BAL    15,   92(  0, 12)
C 00014E74    4811F000        LH      1,    0(  1, 15)
C 00014E78    41200004        LA      2,    4(  0,  0)
C 00014E7C    1912            CR      1,  2
C 00014E7E    477A0000        BC      7,    0( 10,  0)
C 00014E82    41100005        LA      1,    5(  0,  0)
C 00014E86    5A108040        A       1,   64(  0,  8)
C 00014E8A    413092FC        LA      3,  764(  0,  9)
C 00014E8E    45F0C05C        BAL    15,   92(  0, 12)
C 00014E92    4811F000        LH      1,    0(  1, 15)
C 00014E96    41200002        LA      2,    2(  0,  0)
C 00014E9A    1912            CR      1,  2
C 00014E9C    477A0000        BC      7,    0( 10,  0)


  3766                         ->9 %UNLESS A(P+6)=9 %AND A(P+7)<256 %AND A(P+8)=2

C 00014EA0    41100006        LA      1,    6(  0,  0)
C 00014EA4    5A108040        A       1,   64(  0,  8)
C 00014EA8    413092FC        LA      3,  764(  0,  9)
C 00014EAC    45F0C05C        BAL    15,   92(  0, 12)
C 00014EB0    4811F000        LH      1,    0(  1, 15)
C 00014EB4    41200009        LA      2,    9(  0,  0)
C 00014EB8    1912            CR      1,  2
C 00014EBA    477A0000        BC      7,    0( 10,  0)
C 00014EBE    41100007        LA      1,    7(  0,  0)
C 00014EC2    5A108040        A       1,   64(  0,  8)
C 00014EC6    413092FC        LA      3,  764(  0,  9)
C 00014ECA    45F0C05C        BAL    15,   92(  0, 12)
C 00014ECE    4811F000        LH      1,    0(  1, 15)
C 00014ED2    41200100        LA      2,  256(  0,  0)
C 00014ED6    1912            CR      1,  2
C 00014ED8    47BA0000        BC     11,    0( 10,  0)
C 00014EDC    41100008        LA      1,    8(  0,  0)
C 00014EE0    5A108040        A       1,   64(  0,  8)
C 00014EE4    413092FC        LA      3,  764(  0,  9)
C 00014EE8    45F0C05C        BAL    15,   92(  0, 12)
C 00014EEC    4811F000        LH      1,    0(  1, 15)
C 00014EF0    41200002        LA      2,    2(  0,  0)
C 00014EF4    1912            CR      1,  2
C 00014EF6    477A0000        BC      7,    0( 10,  0)


  3767                         ->9 %UNLESS A(P+9)=2 %AND A(P+10)=2 %AND A(P+11)=2

C 00014EFA    41100009        LA      1,    9(  0,  0)
C 00014EFE    5A108040        A       1,   64(  0,  8)
C 00014F02    413092FC        LA      3,  764(  0,  9)
C 00014F06    45F0C05C        BAL    15,   92(  0, 12)
C 00014F0A    4811F000        LH      1,    0(  1, 15)
C 00014F0E    41200002        LA      2,    2(  0,  0)
C 00014F12    1912            CR      1,  2
C 00014F14    477A0000        BC      7,    0( 10,  0)
C 00014F18    4110000A        LA      1,   10(  0,  0)
C 00014F1C    5A108040        A       1,   64(  0,  8)
C 00014F20    413092FC        LA      3,  764(  0,  9)
C 00014F24    45F0C05C        BAL    15,   92(  0, 12)
C 00014F28    4811F000        LH      1,    0(  1, 15)
C 00014F2C    41200002        LA      2,    2(  0,  0)
C 00014F30    1912            CR      1,  2
C 00014F32    477A0000        BC      7,    0( 10,  0)
C 00014F36    4110000B        LA      1,   11(  0,  0)
C 00014F3A    5A108040        A       1,   64(  0,  8)
C 00014F3E    413092FC        LA      3,  764(  0,  9)
C 00014F42    45F0C05C        BAL    15,   92(  0, 12)
C 00014F46    4811F000        LH      1,    0(  1, 15)
C 00014F4A    41200002        LA      2,    2(  0,  0)
C 00014F4E    1912            CR      1,  2
C 00014F50    477A0000        BC      7,    0( 10,  0)


  3768                       FROM1(K,K); K=K+A(P+7)*BYTES(PREC)

C 00014F54    D203B04080A4    MVC     64(  4, 11),  164(  8)
C 00014F5A    411080A4        LA      1,  164(  0,  8)
C 00014F5E    5010B044        ST      1,   68(  0, 11)
C 00014F62    5810D3FC        L       1, 1020(  0, 13)
C 00014F66    45F0D074        BAL    15,  116(  0, 13)



C 00014F6A    41100007        LA      1,    7(  0,  0)
C 00014F6E    5A108040        A       1,   64(  0,  8)
C 00014F72    413092FC        LA      3,  764(  0,  9)
C 00014F76    45F0C05C        BAL    15,   92(  0, 12)
C 00014F7A    4861F000        LH      6,    0(  1, 15)
C 00014F7E    1F11            SLR     1,  1
C 00014F80    43108093        IC      1,  147(  0,  8)
C 00014F84    4130D108        LA      3,  264(  0, 13)
C 00014F88    45F0C05C        BAL    15,   92(  0, 12)
C 00014F8C    1F55            SLR     5,  5
C 00014F8E    4351F000        IC      5,    0(  1, 15)
C 00014F92    1C46            MR      4,  6
C 00014F94    5A5080A4        A       5,  164(  0,  8)
C 00014F98    505080A4        ST      5,  164(  0,  8)


  3769                         ->9 %UNLESS 0<=K<4096

C 00014F9C    581080A4        L       1,  164(  0,  8)
C 00014FA0    1211            LTR     1,  1
C 00014FA2    475A0000        BC      5,    0( 10,  0)
C 00014FA6    1851            LR      5,  1
C 00014FA8    5810D654        L       1, 1620(  0, 13)
C 00014FAC    1915            CR      1,  5
C 00014FAE    47DA0000        BC     13,    0( 10,  0)


  3770                         P=P+12; %RESULT=10+PREC

C 00014FB2    4110000C        LA      1,   12(  0,  0)
C 00014FB6    5A108040        A       1,   64(  0,  8)
C 00014FBA    50108040        ST      1,   64(  0,  8)



C 00014FBE    1F11            SLR     1,  1
C 00014FC0    43108093        IC      1,  147(  0,  8)
C 00014FC4    4120000A        LA      2,   10(  0,  0)
C 00014FC8    1A12            AR      1,  2
C 00014FCA    D203D0147000    MVC     20(  4, 13),    0(  7)
C 00014FD0    984F7010        LM      4, 15,   16(  7)
C 00014FD4    07FF            BCR    15, 15


  3771                SW(2):   TYPE=A(P+2)&7

C 00014FD6    41100002        LA      1,    2(  0,  0)
C 00014FDA    5A108040        A       1,   64(  0,  8)
C 00014FDE    413092FC        LA      3,  764(  0,  9)
C 00014FE2    45F0C05C        BAL    15,   92(  0, 12)
C 00014FE6    4861F000        LH      6,    0(  1, 15)
C 00014FEA    41100007        LA      1,    7(  0,  0)
C 00014FEE    1461            NR      6,  1
C 00014FF0    42608094        STC     6,  148(  0,  8)
C 00014FF4    5560D018        CL      6,   24(  0, 13)
C 00014FF8    472C0058        BC      2,   88( 12,  0)


  3772                         ->9 %UNLESS A(P+2)=9

C 00014FFC    41100002        LA      1,    2(  0,  0)
C 00015000    5A108040        A       1,   64(  0,  8)
C 00015004    413092FC        LA      3,  764(  0,  9)
C 00015008    45F0C05C        BAL    15,   92(  0, 12)
C 0001500C    4811F000        LH      1,    0(  1, 15)
C 00015010    41200009        LA      2,    9(  0,  0)
C 00015014    1912            CR      1,  2
C 00015016    477A0000        BC      7,    0( 10,  0)


  3773                         ->21 %IF A(P+4)=1;            ! REST OF EXPR

C 0001501A    41100004        LA      1,    4(  0,  0)
C 0001501E    5A108040        A       1,   64(  0,  8)
C 00015022    413092FC        LA      3,  764(  0,  9)
C 00015026    45F0C05C        BAL    15,   92(  0, 12)
C 0001502A    4811F000        LH      1,    0(  1, 15)
C 0001502E    41200001        LA      2,    1(  0,  0)
C 00015032    1912            CR      1,  2
C 00015034    478A0000        BC      8,    0( 10,  0)


  3774                               CODE=A(P+3); P=P+5

C 00015038    41100003        LA      1,    3(  0,  0)
C 0001503C    5A108040        A       1,   64(  0,  8)
C 00015040    413092FC        LA      3,  764(  0,  9)
C 00015044    45F0C05C        BAL    15,   92(  0, 12)
C 00015048    4811F000        LH      1,    0(  1, 15)
C 0001504C    58F07040        L      15,   64(  0,  7)
C 00015050    5010F000        ST      1,    0(  0, 15)



C 00015054    41100005        LA      1,    5(  0,  0)
C 00015058    5A108040        A       1,   64(  0,  8)
C 0001505C    50108040        ST      1,   64(  0,  8)


  3775                         %RESULT=1 %IF 256>CODE

C 00015060    5810F000        L       1,    0(  0, 15)
C 00015064    41200100        LA      2,  256(  0,  0)
C 00015068    1921            CR      2,  1
C 0001506A    47DA0740        BC     13, 1856( 10,  0)
C 0001506E    41100001        LA      1,    1(  0,  0)
C 00015072    D203D0147000    MVC     20(  4, 13),    0(  7)
C 00015078    984F7010        LM      4, 15,   16(  7)
C 0001507C    07FF            BCR    15, 15


  3776                         %RESULT=2

C 0001507E    41100002        LA      1,    2(  0,  0)
C 00015082    D203D0147000    MVC     20(  4, 13),    0(  7)
C 00015088    984F7010        LM      4, 15,   16(  7)
C 0001508C    07FF            BCR    15, 15


  3777                21:      %IF A(P+5)=12 %THEN TYPE=5;! STRING EXPRESSION

C 0001508E    41100005        LA      1,    5(  0,  0)
C 00015092    5A108040        A       1,   64(  0,  8)
C 00015096    413092FC        LA      3,  764(  0,  9)
C 0001509A    45F0C05C        BAL    15,   92(  0, 12)
C 0001509E    4811F000        LH      1,    0(  1, 15)
C 000150A2    4120000C        LA      2,   12(  0,  0)
C 000150A6    1912            CR      1,  2
C 000150A8    477A0772        BC      7, 1906( 10,  0)
C 000150AC    92058094        MVI    148(  8),  5


  3778                SW(3):SW(4):9:%RESULT=0

C 000150B0    1F11            SLR     1,  1
C 000150B2    D203D0147000    MVC     20(  4, 13),    0(  7)
C 000150B8    984F7010        LM      4, 15,   16(  7)
C 000150BC    07FF            BCR    15, 15


  3779                               %END
D 000012D8    C2 C2 C2 C2 0E 8E 07 05 54 53 45 58 50 00 00 00 41 70 40 04 43 4F 44 45 FF FF FF FF


C 000150BE    4100000B        LA      0,   11(  0,  0)
C 000150C2    45F0C054        BAL    15,   84(  0, 12)


  3780                           %ROUTINE     MOVE R(%INTEGER R,N)

C 000150C6    0000
C 000150C8    0000
C 000150CA    47FA0000        BC     15,    0( 10,  0)
C 000150CE    50F0B03C        ST     15,   60(  0, 11)
C 000150D2    D203B000D014    MVC      0(  4, 11),   20( 13)
C 000150D8    41000EC4        LA      0, 3780(  0,  0)
C 000150DC    4000D014        STH     0,   20(  0, 13)
C 000150E0    187B            LR      7, 11
C 000150E2    41BB0000        LA     11,    0( 11,  0)
C 000150E6    41000004        LA      0,    4(  0,  0)
C 000150EA    59BD0044        C      11,   68( 13,  0)
C 000150EE    4720C054        BC      2,   84(  0, 12)
C 000150F2    05A0            BALR   10,  0


  3781                         %SHORTROUTINE
  3782                               ->99 %IF N=0; ->2 %IF 0>N

C 000150F4    58107044        L       1,   68(  0,  7)
C 000150F8    1211            LTR     1,  1
C 000150FA    478A0000        BC      8,    0( 10,  0)



C 000150FE    58107044        L       1,   68(  0,  7)
C 00015102    1211            LTR     1,  1
C 00015104    474A0000        BC      4,    0( 10,  0)


  3783                         DUMP(0,R,N,0,R); ->99

C 00015108    1F11            SLR     1,  1
C 0001510A    5010B040        ST      1,   64(  0, 11)
C 0001510E    D203B0447040    MVC     68(  4, 11),   64(  7)
C 00015114    D203B0487044    MVC     72(  4, 11),   68(  7)
C 0001511A    1F11            SLR     1,  1
C 0001511C    5010B04C        ST      1,   76(  0, 11)
C 00015120    D203B0507040    MVC     80(  4, 11),   64(  7)
C 00015126    5810D458        L       1, 1112(  0, 13)
C 0001512A    45F0D074        BAL    15,  116(  0, 13)



C 0001512E    47FA0000        BC     15,    0( 10,  0)


  3784                2:       N=-N; ->3 %UNLESS N=4 %OR N=8

C 00015132    58107044        L       1,   68(  0,  7)
C 00015136    1311            LCR     1,  1
C 00015138    50107044        ST      1,   68(  0,  7)



C 0001513C    41100004        LA      1,    4(  0,  0)
C 00015140    59107044        C       1,   68(  0,  7)
C 00015144    478A0060        BC      8,   96( 10,  0)
C 00015148    41100008        LA      1,    8(  0,  0)
C 0001514C    59107044        C       1,   68(  0,  7)
C 00015150    477A0000        BC      7,    0( 10,  0)


  3785                         PRX(X'5A',R,0,GLA,76+N); ->99

C 00015154    4110005A        LA      1,   90(  0,  0)
C 00015158    5010B040        ST      1,   64(  0, 11)
C 0001515C    D203B0447040    MVC     68(  4, 11),   64(  7)
C 00015162    1F11            SLR     1,  1
C 00015164    5010B048        ST      1,   72(  0, 11)
C 00015168    D203B04CD150    MVC     76(  4, 11),  336( 13)
C 0001516E    4110004C        LA      1,   76(  0,  0)
C 00015172    5A107044        A       1,   68(  0,  7)
C 00015176    5010B050        ST      1,   80(  0, 11)
C 0001517A    5810D1C0        L       1,  448(  0, 13)
C 0001517E    45F0D074        BAL    15,  116(  0, 13)



C 00015182    47FA0000        BC     15,    0( 10,  0)


  3786                3:       PCONST(X'41000000'!N);        ! LA 0,N

C 00015186    5810D65C        L       1, 1628(  0, 13)
C 0001518A    56107044        O       1,   68(  0,  7)
C 0001518E    5010B040        ST      1,   64(  0, 11)
C 00015192    5810D1B4        L       1,  436(  0, 13)
C 00015196    45F0D074        BAL    15,  116(  0, 13)


  3787                         PRR(X'1B',R,0);               ! SR R,0

C 0001519A    4110001B        LA      1,   27(  0,  0)
C 0001519E    5010B040        ST      1,   64(  0, 11)
C 000151A2    D203B0447040    MVC     68(  4, 11),   64(  7)
C 000151A8    1F11            SLR     1,  1
C 000151AA    5010B048        ST      1,   72(  0, 11)
C 000151AE    5810D1D0        L       1,  464(  0, 13)
C 000151B2    45F0D074        BAL    15,  116(  0, 13)


  3788                99:      %END
D 000012F4    C2 C2 C2 C2 0E C4 07 05 4D 4F 56 45 52 00 00 00 01 70 44 01 4E 4F 44 45 01 70 40 01 52 00 00 00 FF FF FF FF


C 000151B6    D203D0147000    MVC     20(  4, 13),    0(  7)
C 000151BC    984F7010        LM      4, 15,   16(  7)
C 000151C0    07FF            BCR    15, 15


  3789                           %INTEGERFN     FIND PP

C 000151C2    0000
C 000151C4    0000
C 000151C6    47FA0000        BC     15,    0( 10,  0)
C 000151CA    50F0B03C        ST     15,   60(  0, 11)
C 000151CE    D203B000D014    MVC      0(  4, 11),   20( 13)
C 000151D4    41000ECD        LA      0, 3789(  0,  0)
C 000151D8    4000D014        STH     0,   20(  0, 13)
C 000151DC    187B            LR      7, 11
C 000151DE    41BB0000        LA     11,    0( 11,  0)
C 000151E2    41000004        LA      0,    4(  0,  0)
C 000151E6    59BD0044        C      11,   68( 13,  0)
C 000151EA    4720C054        BC      2,   84(  0, 12)
C 000151EE    05A0            BALR   10,  0


  3790                         %SHORTROUTINE
  3791                               %INTEGER I
  3792                         %CYCLE I=9-RLEVEL,-1,4

C 000151F0    41407040        LA      4,   64(  0,  7)
C 000151F4    5820D010        L       2,   16(  0, 13)
C 000151F8    41300004        LA      3,    4(  0,  0)
C 000151FC    90247044        STM     2,  4,   68(  7)
C 00015200    41100009        LA      1,    9(  0,  0)
C 00015204    5B109094        S       1,  148(  0,  9)
C 00015208    50104000        ST      1,    0(  0,  4)


  3793                               ->1 %IF REGISTER(I)=0

C 0001520C    58107040        L       1,   64(  0,  7)
C 00015210    4130914C        LA      3,  332(  0,  9)
C 00015214    45F0C05C        BAL    15,   92(  0, 12)
C 00015218    5811F000        L       1,    0(  1, 15)
C 0001521C    1211            LTR     1,  1
C 0001521E    478A0000        BC      8,    0( 10,  0)


  3794                               %REPEAT

C 00015222    98247044        LM      2,  4,   68(  7)
C 00015226    58104000        L       1,    0(  0,  4)
C 0001522A    1A12            AR      1,  2
C 0001522C    59304000        C       3,    0(  0,  4)
C 00015230    4770A018        BC      7,   24(  0, 10)


  3795                         %RESULT=0

C 00015234    1F11            SLR     1,  1
C 00015236    D203D0147000    MVC     20(  4, 13),    0(  7)
C 0001523C    984F7010        LM      4, 15,   16(  7)
C 00015240    07FF            BCR    15, 15


  3796                1:             REGISTER(I)=1

C 00015242    41400001        LA      4,    1(  0,  0)
C 00015246    58107040        L       1,   64(  0,  7)
C 0001524A    4130914C        LA      3,  332(  0,  9)
C 0001524E    45F0C05C        BAL    15,   92(  0, 12)
C 00015252    5041F000        ST      4,    0(  1, 15)


  3797                               %RESULT=I

C 00015256    58107040        L       1,   64(  0,  7)
C 0001525A    D203D0147000    MVC     20(  4, 13),    0(  7)
C 00015260    984F7010        LM      4, 15,   16(  7)
C 00015264    07FF            BCR    15, 15


  3798                               %END
D 00001318    C2 C2 C2 C2 0E CD 07 06 46 49 4E 44 50 50 00 00 01 70 40 01 49 4F 44 45 FF FF FF FF


C 00015266    4100000B        LA      0,   11(  0,  0)
C 0001526A    45F0C054        BAL    15,   84(  0, 12)


  3799                     %ROUTINE     UNPARK(%INTEGER OPCODE,REG,Q)

C 0001526E    0000
C 00015270    0000
C 00015272    47FA0000        BC     15,    0( 10,  0)
C 00015276    50F0B03C        ST     15,   60(  0, 11)
C 0001527A    D203B000D014    MVC      0(  4, 11),   20( 13)
C 00015280    41000ED7        LA      0, 3799(  0,  0)
C 00015284    4000D014        STH     0,   20(  0, 13)
C 00015288    187B            LR      7, 11
C 0001528A    41BB0000        LA     11,    0( 11,  0)
C 0001528E    41000004        LA      0,    4(  0,  0)
C 00015292    59BD0044        C      11,   68( 13,  0)
C 00015296    4720C054        BC      2,   84(  0, 12)
C 0001529A    05A0            BALR   10,  0


  3800                         %SHORTROUTINE
  3801                         ->1 %IF 0>Q

C 0001529C    58107048        L       1,   72(  0,  7)
C 000152A0    1211            LTR     1,  1
C 000152A2    474A0000        BC      4,    0( 10,  0)


  3802                         PRR(OPCODE-X'40',REG,Q); REGISTER(Q)=0; ->9

C 000152A6    58107040        L       1,   64(  0,  7)
C 000152AA    41200040        LA      2,   64(  0,  0)
C 000152AE    1B12            SR      1,  2
C 000152B0    5010B040        ST      1,   64(  0, 11)
C 000152B4    D203B0447044    MVC     68(  4, 11),   68(  7)
C 000152BA    D203B0487048    MVC     72(  4, 11),   72(  7)
C 000152C0    5810D1D0        L       1,  464(  0, 13)
C 000152C4    45F0D074        BAL    15,  116(  0, 13)



C 000152C8    1F44            SLR     4,  4
C 000152CA    58107048        L       1,   72(  0,  7)
C 000152CE    4130914C        LA      3,  332(  0,  9)
C 000152D2    45F0C05C        BAL    15,   92(  0, 12)
C 000152D6    5041F000        ST      4,    0(  1, 15)



C 000152DA    47FA0000        BC     15,    0( 10,  0)


  3803                1:       Q=!Q!; PRX(OPCODE,REG,0,RBASE,Q)

C 000152DE    58107048        L       1,   72(  0,  7)
C 000152E2    1011            LPR     1,  1
C 000152E4    50107048        ST      1,   72(  0,  7)



C 000152E8    D203B0407040    MVC     64(  4, 11),   64(  7)
C 000152EE    D203B0447044    MVC     68(  4, 11),   68(  7)
C 000152F4    1F11            SLR     1,  1
C 000152F6    5010B048        ST      1,   72(  0, 11)
C 000152FA    D203B04C90F4    MVC     76(  4, 11),  244(  9)
C 00015300    D203B0507048    MVC     80(  4, 11),   72(  7)
C 00015306    5810D1C0        L       1,  448(  0, 13)
C 0001530A    45F0D074        BAL    15,  116(  0, 13)


  3804                         PUSH(WSP(LEVEL),0,Q);

C 0001530E    581090A8        L       1,  168(  0,  9)
C 00015312    4130920C        LA      3,  524(  0,  9)
C 00015316    45F0C05C        BAL    15,   92(  0, 12)
C 0001531A    4111F000        LA      1,    0(  1, 15)
C 0001531E    5010B040        ST      1,   64(  0, 11)
C 00015322    1F11            SLR     1,  1
C 00015324    5010B044        ST      1,   68(  0, 11)
C 00015328    D203B0487048    MVC     72(  4, 11),   72(  7)
C 0001532E    5810D3E0        L       1,  992(  0, 13)
C 00015332    45F0D074        BAL    15,  116(  0, 13)


  3805                9:       %END
D 00001334    C2 C2 C2 C2 0E D7 07 06 55 4E 50 41 52 4B 00 00 01 70 48 01 51 4F 44 45 01 70 44 03 52 45 47 00 01 70 40 06 4F 50 43 4F 44 45 01 01 FF FF FF FF


C 00015336    D203D0147000    MVC     20(  4, 13),    0(  7)
C 0001533C    984F7010        LM      4, 15,   16(  7)
C 00015340    07FF            BCR    15, 15


  3806                           %INTEGERFN     PARK(%INTEGER REG)

C 00015342    0000
C 00015344    0000
C 00015346    47FA0000        BC     15,    0( 10,  0)
C 0001534A    50F0B03C        ST     15,   60(  0, 11)
C 0001534E    D203B000D014    MVC      0(  4, 11),   20( 13)
C 00015354    41000EDE        LA      0, 3806(  0,  0)
C 00015358    4000D014        STH     0,   20(  0, 13)
C 0001535C    187B            LR      7, 11
C 0001535E    41BB0000        LA     11,    0( 11,  0)
C 00015362    41000004        LA      0,    4(  0,  0)
C 00015366    59BD0044        C      11,   68( 13,  0)
C 0001536A    4720C054        BC      2,   84(  0, 12)
C 0001536E    05A0            BALR   10,  0


  3807                         %SHORTROUTINE
  3808                         %INTEGER I,J,P
  3809                         P=CLAIMABLE REG

C 00015370    5810D41C        L       1, 1052(  0, 13)
C 00015374    45F0D074        BAL    15,  116(  0, 13)
C 00015378    5010704C        ST      1,   76(  0,  7)


  3810                         ->1 %IF P=0

C 0001537C    5810704C        L       1,   76(  0,  7)
C 00015380    1211            LTR     1,  1
C 00015382    478A0000        BC      8,    0( 10,  0)


  3811                         REGISTER(P)=1

C 00015386    41400001        LA      4,    1(  0,  0)
C 0001538A    5810704C        L       1,   76(  0,  7)
C 0001538E    4130914C        LA      3,  332(  0,  9)
C 00015392    45F0C05C        BAL    15,   92(  0, 12)
C 00015396    5041F000        ST      4,    0(  1, 15)


  3812                               ->2 %IF P=REG

C 0001539A    D503704C7040    CLC     76(  4,  7),   64(  7)
C 000153A0    478A0000        BC      8,    0( 10,  0)


  3813                         PRR(X'18',P,REG);             ! LR P,REG

C 000153A4    41100018        LA      1,   24(  0,  0)
C 000153A8    5010B040        ST      1,   64(  0, 11)
C 000153AC    D203B044704C    MVC     68(  4, 11),   76(  7)
C 000153B2    D203B0487040    MVC     72(  4, 11),   64(  7)
C 000153B8    5810D1D0        L       1,  464(  0, 13)
C 000153BC    45F0D074        BAL    15,  116(  0, 13)


  3814                2:             %RESULT=P

C 000153C0    5810704C        L       1,   76(  0,  7)
C 000153C4    D203D0147000    MVC     20(  4, 13),    0(  7)
C 000153CA    984F7010        LM      4, 15,   16(  7)
C 000153CE    07FF            BCR    15, 15


  3815                1:       POP(WSP(LEVEL),I,J); ->3 %UNLESS J=-1

C 000153D0    581090A8        L       1,  168(  0,  9)
C 000153D4    4130920C        LA      3,  524(  0,  9)
C 000153D8    45F0C05C        BAL    15,   92(  0, 12)
C 000153DC    4111F000        LA      1,    0(  1, 15)
C 000153E0    5010B040        ST      1,   64(  0, 11)
C 000153E4    41107044        LA      1,   68(  0,  7)
C 000153E8    5010B044        ST      1,   68(  0, 11)
C 000153EC    41107048        LA      1,   72(  0,  7)
C 000153F0    5010B048        ST      1,   72(  0, 11)
C 000153F4    5810D3DC        L       1,  988(  0, 13)
C 000153F8    45F0D074        BAL    15,  116(  0, 13)



C 000153FC    5810D010        L       1,   16(  0, 13)
C 00015400    59107048        C       1,   72(  0,  7)
C 00015404    477A0000        BC      7,    0( 10,  0)


  3816                         J=N; N=N+4

C 00015408    D20370489100    MVC     72(  4,  7),  256(  9)



C 0001540E    41100004        LA      1,    4(  0,  0)
C 00015412    5A109100        A       1,  256(  0,  9)
C 00015416    50109100        ST      1,  256(  0,  9)


  3817                3:       DUMP(1,REG,J,0,RBASE); %RESULT=-J

C 0001541A    41100001        LA      1,    1(  0,  0)
C 0001541E    5010B040        ST      1,   64(  0, 11)
C 00015422    D203B0447040    MVC     68(  4, 11),   64(  7)
C 00015428    D203B0487048    MVC     72(  4, 11),   72(  7)
C 0001542E    1F11            SLR     1,  1
C 00015430    5010B04C        ST      1,   76(  0, 11)
C 00015434    D203B05090F4    MVC     80(  4, 11),  244(  9)
C 0001543A    5810D458        L       1, 1112(  0, 13)
C 0001543E    45F0D074        BAL    15,  116(  0, 13)



C 00015442    58107048        L       1,   72(  0,  7)
C 00015446    1311            LCR     1,  1
C 00015448    D203D0147000    MVC     20(  4, 13),    0(  7)
C 0001544E    984F7010        LM      4, 15,   16(  7)
C 00015452    07FF            BCR    15, 15


  3818                               %END
D 00001364    C2 C2 C2 C2 0E DE 07 04 50 41 52 4B 01 70 4C 01 50 70 48 01 01 70 48 01 4A 70 44 03 01 70 44 01 49 70 40 06 01 70 40 03 52 45 47 01 FF FF FF FF


C 00015454    4100000B        LA      0,   11(  0,  0)
C 00015458    45F0C054        BAL    15,   84(  0, 12)


  3819                     %INTEGERFN     CLAIMABLE REG

C 0001545C    0000
C 0001545E    0000
C 00015460    47FA0000        BC     15,    0( 10,  0)
C 00015464    50F0B03C        ST     15,   60(  0, 11)
C 00015468    D203B000D014    MVC      0(  4, 11),   20( 13)
C 0001546E    41000EEB        LA      0, 3819(  0,  0)
C 00015472    4000D014        STH     0,   20(  0, 13)
C 00015476    187B            LR      7, 11
C 00015478    41BB0000        LA     11,    0( 11,  0)
C 0001547C    41000004        LA      0,    4(  0,  0)
C 00015480    59BD0044        C      11,   68( 13,  0)
C 00015484    4720C054        BC      2,   84(  0, 12)
C 00015488    05A0            BALR   10,  0


  3820                         %SHORTROUTINE
  3821                         %INTEGER I
  3822                         -> 1 %IF RBASE<= 4

C 0001548A    41100004        LA      1,    4(  0,  0)
C 0001548E    591090F4        C       1,  244(  0,  9)
C 00015492    47AA0000        BC     10,    0( 10,  0)


  3823                         %CYCLE I=5,1,RBASE

C 00015496    41407040        LA      4,   64(  0,  7)
C 0001549A    41200001        LA      2,    1(  0,  0)
C 0001549E    583090F4        L       3,  244(  0,  9)
C 000154A2    90247044        STM     2,  4,   68(  7)
C 000154A6    41100005        LA      1,    5(  0,  0)
C 000154AA    50104000        ST      1,    0(  0,  4)


  3824                         %RESULT=I %IF REGISTER(I)=0

C 000154AE    58107040        L       1,   64(  0,  7)
C 000154B2    4130914C        LA      3,  332(  0,  9)
C 000154B6    45F0C05C        BAL    15,   92(  0, 12)
C 000154BA    5811F000        L       1,    0(  1, 15)
C 000154BE    1211            LTR     1,  1
C 000154C0    477A004A        BC      7,   74( 10,  0)
C 000154C4    58107040        L       1,   64(  0,  7)
C 000154C8    D203D0147000    MVC     20(  4, 13),    0(  7)
C 000154CE    984F7010        LM      4, 15,   16(  7)
C 000154D2    07FF            BCR    15, 15


  3825                         %REPEAT

C 000154D4    98247044        LM      2,  4,   68(  7)
C 000154D8    58104000        L       1,    0(  0,  4)
C 000154DC    8712A020        BXLE    1,  2,   32( 10)


  3826                1:       %RESULT=0

C 000154E0    1F11            SLR     1,  1
C 000154E2    D203D0147000    MVC     20(  4, 13),    0(  7)
C 000154E8    984F7010        LM      4, 15,   16(  7)
C 000154EC    07FF            BCR    15, 15


  3827                         %END
D 00001394    C2 C2 C2 C2 0E EB 07 0C 43 4C 41 49 4D 41 42 4C 45 52 45 47 01 70 40 01 49 70 44 03 FF FF FF FF


C 000154EE    4100000B        LA      0,   11(  0,  0)
C 000154F2    45F0C054        BAL    15,   84(  0, 12)


  3828                     %INTEGERFN PARKF (%INTEGER REG,PREC)

C 000154F6    0000
C 000154F8    0000
C 000154FA    47FA0000        BC     15,    0( 10,  0)
C 000154FE    50F0B03C        ST     15,   60(  0, 11)
C 00015502    D203B000D014    MVC      0(  4, 11),   20( 13)
C 00015508    41000EF4        LA      0, 3828(  0,  0)
C 0001550C    4000D014        STH     0,   20(  0, 13)
C 00015510    187B            LR      7, 11
C 00015512    41BB0000        LA     11,    0( 11,  0)
C 00015516    41000004        LA      0,    4(  0,  0)
C 0001551A    59BD0044        C      11,   68( 13,  0)
C 0001551E    4720C054        BC      2,   84(  0, 12)
C 00015522    05A0            BALR   10,  0


  3829                         %SHORTROUTINE
  3830                         %INTEGER I,J
  3831                         ->10 %UNLESS PREC=0

C 00015524    58107044        L       1,   68(  0,  7)
C 00015528    1211            LTR     1,  1
C 0001552A    477A0000        BC      7,    0( 10,  0)


  3832                         POP(WSP(LEVEL),I,J)

C 0001552E    581090A8        L       1,  168(  0,  9)
C 00015532    4130920C        LA      3,  524(  0,  9)
C 00015536    45F0C05C        BAL    15,   92(  0, 12)
C 0001553A    4111F000        LA      1,    0(  1, 15)
C 0001553E    5010B040        ST      1,   64(  0, 11)
C 00015542    41107048        LA      1,   72(  0,  7)
C 00015546    5010B044        ST      1,   68(  0, 11)
C 0001554A    4110704C        LA      1,   76(  0,  7)
C 0001554E    5010B048        ST      1,   72(  0, 11)
C 00015552    5810D3DC        L       1,  988(  0, 13)
C 00015556    45F0D074        BAL    15,  116(  0, 13)


  3833                         ->3 %UNLESS J=-1

C 0001555A    5810D010        L       1,   16(  0, 13)
C 0001555E    5910704C        C       1,   76(  0,  7)
C 00015562    477A0000        BC      7,    0( 10,  0)


  3834                         J=N; N=N+4

C 00015566    D203704C9100    MVC     76(  4,  7),  256(  9)



C 0001556C    41100004        LA      1,    4(  0,  0)
C 00015570    5A109100        A       1,  256(  0,  9)
C 00015574    50109100        ST      1,  256(  0,  9)


  3835                3:       DUMP(9+2*PREC,REG,J,0,RBASE)

C 00015578    58107044        L       1,   68(  0,  7)
C 0001557C    1A11            AR      1,  1
C 0001557E    41200009        LA      2,    9(  0,  0)
C 00015582    1A12            AR      1,  2
C 00015584    5010B040        ST      1,   64(  0, 11)
C 00015588    D203B0447040    MVC     68(  4, 11),   64(  7)
C 0001558E    D203B048704C    MVC     72(  4, 11),   76(  7)
C 00015594    1F11            SLR     1,  1
C 00015596    5010B04C        ST      1,   76(  0, 11)
C 0001559A    D203B05090F4    MVC     80(  4, 11),  244(  9)
C 000155A0    5810D458        L       1, 1112(  0, 13)
C 000155A4    45F0D074        BAL    15,  116(  0, 13)


  3836                         %RESULT=J

C 000155A8    5810704C        L       1,   76(  0,  7)
C 000155AC    D203D0147000    MVC     20(  4, 13),    0(  7)
C 000155B2    984F7010        LM      4, 15,   16(  7)
C 000155B6    07FF            BCR    15, 15


  3837                10:      J=GET DBLE WRD;->3             ;!PARKING SPACE

C 000155B8    5810D3BC        L       1,  956(  0, 13)
C 000155BC    45F0D074        BAL    15,  116(  0, 13)
C 000155C0    5010704C        ST      1,   76(  0,  7)



C 000155C4    47F0A054        BC     15,   84(  0, 10)


  3838                         %END
D 000013B4    C2 C2 C2 C2 0E F4 07 05 50 41 52 4B 46 41 42 4C 01 70 4C 01 4A 70 40 01 01 70 48 01 49 FF FF FF 01 70 44 04 50 52 45 43 01 70 40 03 52 45 47 FF FF FF FF FF


C 000155C8    4100000B        LA      0,   11(  0,  0)
C 000155CC    45F0C054        BAL    15,   84(  0, 12)


  3839                     %INTEGERFN GET ARR WSP

C 000155D0    0000
C 000155D2    0000
C 000155D4    47FA0000        BC     15,    0( 10,  0)
C 000155D8    50F0B03C        ST     15,   60(  0, 11)
C 000155DC    D203B000D014    MVC      0(  4, 11),   20( 13)
C 000155E2    41000EFF        LA      0, 3839(  0,  0)
C 000155E6    4000D014        STH     0,   20(  0, 13)
C 000155EA    187B            LR      7, 11
C 000155EC    41BB0000        LA     11,    0( 11,  0)
C 000155F0    41000004        LA      0,    4(  0,  0)
C 000155F4    59BD0044        C      11,   68( 13,  0)
C 000155F8    4720C054        BC      2,   84(  0, 12)
C 000155FC    05A0            BALR   10,  0


  3840                         %COMMENT PRODUCES 6 CONTIGUOUS WORDS UNDER BASE
  3841                         %COMMENT REGISTER COVER FOR ARRAY ACCESS
  3842                         %INTEGER I,J
  3843                         POP(MDARR(LEVEL),I,J)

C 000155FE    581090A8        L       1,  168(  0,  9)
C 00015602    4130924C        LA      3,  588(  0,  9)
C 00015606    45F0C05C        BAL    15,   92(  0, 12)
C 0001560A    4111F000        LA      1,    0(  1, 15)
C 0001560E    5010B040        ST      1,   64(  0, 11)
C 00015612    41107040        LA      1,   64(  0,  7)
C 00015616    5010B044        ST      1,   68(  0, 11)
C 0001561A    41107044        LA      1,   68(  0,  7)
C 0001561E    5010B048        ST      1,   72(  0, 11)
C 00015622    5810D3DC        L       1,  988(  0, 13)
C 00015626    45F0D074        BAL    15,  116(  0, 13)


  3844                         ->1 %IF J>0

C 0001562A    58107044        L       1,   68(  0,  7)
C 0001562E    1211            LTR     1,  1
C 00015630    0000
C 00015632    0000
C 00015634    472A0000        BC      2,    0( 10,  0)


  3845                         J=N;  N=N+24

C 00015638    D20370449100    MVC     68(  4,  7),  256(  9)



C 0001563E    41100018        LA      1,   24(  0,  0)
C 00015642    5A109100        A       1,  256(  0,  9)
C 00015646    50109100        ST      1,  256(  0,  9)


  3846                1:       %RESULT =J

C 0001564A    58107044        L       1,   68(  0,  7)
C 0001564E    D203D0147000    MVC     20(  4, 13),    0(  7)
C 00015654    984F7010        LM      4, 15,   16(  7)
C 00015658    07FF            BCR    15, 15


  3847                         %END
D 000013E8    C2 C2 C2 C2 0E FF 07 09 47 45 54 41 52 52 57 53 50 70 4C 01 01 70 44 01 4A 70 48 01 01 70 40 01 49 70 44 04 FF FF FF FF


C 0001565A    4100000B        LA      0,   11(  0,  0)
C 0001565E    45F0C054        BAL    15,   84(  0, 12)


  3848                     %ROUTINE     RHEAD(%INTEGER KK)

C 00015662    0000
C 00015664    0000
C 00015666    47FA0000        BC     15,    0( 10,  0)
C 0001566A    50F0B03C        ST     15,   60(  0, 11)
C 0001566E    D203B000D014    MVC      0(  4, 11),   20( 13)
C 00015674    41000F08        LA      0, 3848(  0,  0)
C 00015678    4000D014        STH     0,   20(  0, 13)
C 0001567C    187B            LR      7, 11
C 0001567E    41BB0000        LA     11,    0( 11,  0)
C 00015682    41000004        LA      0,    4(  0,  0)
C 00015686    59BD0044        C      11,   68( 13,  0)
C 0001568A    4720C054        BC      2,   84(  0, 12)
C 0001568E    05A0            BALR   10,  0


  3849                         %SHORTROUTINE
  3850                         %INTEGER FLAG,W1,W2
  3851                         FLAG=KK;FLAG=10000 %IF RLEVEL=0

C 00015690    D20370447040    MVC     68(  4,  7),   64(  7)



C 00015696    58109094        L       1,  148(  0,  9)
C 0001569A    1211            LTR     1,  1
C 0001569C    477A0018        BC      7,   24( 10,  0)
C 000156A0    5810D660        L       1, 1632(  0, 13)
C 000156A4    50107044        ST      1,   68(  0,  7)


  3852                         ->5 %IF RLEVEL=0

C 000156A8    58109094        L       1,  148(  0,  9)
C 000156AC    1211            LTR     1,  1
C 000156AE    478A0000        BC      8,    0( 10,  0)


  3853                         ->5 %UNLESS LIST=0

C 000156B2    950090D2        CLI    210(  9),  0
C 000156B6    477A0000        BC      7,    0( 10,  0)


  3854                         NEWLINE;WRITE(LINE,5);SPACES(3*LEVEL)

C 000156BA    4110000A        LA      1,   10(  0,  0)
C 000156BE    41000003        LA      0,    3(  0,  0)
C 000156C2    9041B010        STM     4,  1,   16( 11)
C 000156C6    98CED08C        LM     12, 14,  140( 13)
C 000156CA    05FE            BALR   15, 14



C 000156CC    5810907C        L       1,  124(  0,  9)
C 000156D0    41200005        LA      2,    5(  0,  0)
C 000156D4    45F0C010        BAL    15,   16(  0, 12)



C 000156D8    41100003        LA      1,    3(  0,  0)
C 000156DC    5C0090A8        M       0,  168(  0,  9)
C 000156E0    1821            LR      2,  1
C 000156E2    41100020        LA      1,   32(  0,  0)
C 000156E6    45F0C038        BAL    15,   56(  0, 12)


  3855                         %IF KK<0 %THEN %PRINTTEXT'BEGIN' %ELSE %START

C 000156EA    58107040        L       1,   64(  0,  7)
C 000156EE    1211            LTR     1,  1
C 000156F0    47BA0072        BC     11,  114( 10,  0)
C 000156F4    45F0C078        BAL    15,  120(  0, 12)
C 000156F8    0542            BALR    4,  2
C 000156FA    4547494E        BAL     4, 2382(  7,  4)
C 000156FE    47FA0000        BC     15,    0( 10,  0)


  3856                         %PRINTTEXT'RT/FN/MAP '; PRINTNAME(KK); %FINISH

C 00015702    45F0C078        BAL    15,  120(  0, 12)
C 00015706    0A52            SVC     5,  2
C 00015708    542F464E        N       2, 1614( 15,  4)
C 0001570C    2F4D            SWR     4, 13
C 0001570E    41502000        LA      5,    0(  0,  2)



C 00015712    D203B0407040    MVC     64(  4, 11),   64(  7)
C 00015718    5810D230        L       1,  560(  0, 13)
C 0001571C    45F0D074        BAL    15,  116(  0, 13)


  3857                         WRITE(CA,6)

C 00015720    581090AC        L       1,  172(  0,  9)
C 00015724    41200006        LA      2,    6(  0,  0)
C 00015728    45F0C010        BAL    15,   16(  0, 12)


  3858                5:       LEVEL=LEVEL+1

C 0001572C    41100001        LA      1,    1(  0,  0)
C 00015730    5A1090A8        A       1,  168(  0,  9)
C 00015734    501090A8        ST      1,  168(  0,  9)


  3859                         ->6 %IF FLAG<0

C 00015738    58107044        L       1,   68(  0,  7)
C 0001573C    1211            LTR     1,  1
C 0001573E    474A0000        BC      4,    0( 10,  0)


  3860                         RLEVEL=RLEVEL+1;RBASE=10-RLEVEL;R13=0

C 00015742    41100001        LA      1,    1(  0,  0)
C 00015746    5A109094        A       1,  148(  0,  9)
C 0001574A    50109094        ST      1,  148(  0,  9)



C 0001574E    4110000A        LA      1,   10(  0,  0)
C 00015752    5B109094        S       1,  148(  0,  9)
C 00015756    501090F4        ST      1,  244(  0,  9)



C 0001575A    1F11            SLR     1,  1
C 0001575C    501090BC        ST      1,  188(  0,  9)


  3861                         FAULT(35) %IF RBASE=4 %OR REGISTER(RBASE)#0

C 00015760    41100004        LA      1,    4(  0,  0)
C 00015764    591090F4        C       1,  244(  0,  9)
C 00015768    478A00F2        BC      8,  242( 10,  0)
C 0001576C    581090F4        L       1,  244(  0,  9)
C 00015770    4130914C        LA      3,  332(  0,  9)
C 00015774    45F0C05C        BAL    15,   92(  0, 12)
C 00015778    5811F000        L       1,    0(  1, 15)
C 0001577C    1211            LTR     1,  1
C 0001577E    478A00FE        BC      8,  254( 10,  0)
C 00015782    9223B043        MVI     67( 11), 35
C 00015786    5810D228        L       1,  552(  0, 13)
C 0001578A    45F0D074        BAL    15,  116(  0, 13)


  3862                         REGISTER(RBASE)=1

C 0001578E    41400001        LA      4,    1(  0,  0)
C 00015792    581090F4        L       1,  244(  0,  9)
C 00015796    4130914C        LA      3,  332(  0,  9)
C 0001579A    45F0C05C        BAL    15,   92(  0, 12)
C 0001579E    5041F000        ST      4,    0(  1, 15)


  3863                6:       FAULT(34) %IF LEVEL=10

C 000157A2    4110000A        LA      1,   10(  0,  0)
C 000157A6    591090A8        C       1,  168(  0,  9)
C 000157AA    477A012A        BC      7,  298( 10,  0)
C 000157AE    9222B043        MVI     67( 11), 34
C 000157B2    5810D228        L       1,  552(  0, 13)
C 000157B6    45F0D074        BAL    15,  116(  0, 13)


  3864                         FAULT(105) %IF LEVEL>MAX LEVELS

C 000157BA    4810D142        LH      1,  322(  0, 13)
C 000157BE    591090A8        C       1,  168(  0,  9)
C 000157C2    47BA0142        BC     11,  322( 10,  0)
C 000157C6    9269B043        MVI     67( 11), 105
C 000157CA    5810D228        L       1,  552(  0, 13)
C 000157CE    45F0D074        BAL    15,  116(  0, 13)


  3865                         NMDECS(LEVEL)=0

C 000157D2    1F44            SLR     4,  4
C 000157D4    581090A8        L       1,  168(  0,  9)
C 000157D8    4130926C        LA      3,  620(  0,  9)
C 000157DC    45F0C05C        BAL    15,   92(  0, 12)
C 000157E0    4041F000        STH     4,    0(  1, 15)
C 000157E4    494F1000        CH      4,    0( 15,  1)
C 000157E8    477C0058        BC      7,   88( 12,  0)


  3866                         ->10 %IF FLAG>=0

C 000157EC    58107044        L       1,   68(  0,  7)
C 000157F0    1211            LTR     1,  1
C 000157F2    47AA0000        BC     10,    0( 10,  0)


  3867                         PRX(X'90',10,11,RBASE,N);     ! STM 10,11,?

C 000157F6    41100090        LA      1,  144(  0,  0)
C 000157FA    5010B040        ST      1,   64(  0, 11)
C 000157FE    4110000A        LA      1,   10(  0,  0)
C 00015802    5010B044        ST      1,   68(  0, 11)
C 00015806    4110000B        LA      1,   11(  0,  0)
C 0001580A    5010B048        ST      1,   72(  0, 11)
C 0001580E    D203B04C90F4    MVC     76(  4, 11),  244(  9)
C 00015814    D203B0509100    MVC     80(  4, 11),  256(  9)
C 0001581A    5810D1C0        L       1,  448(  0, 13)
C 0001581E    45F0D074        BAL    15,  116(  0, 13)


  3868                         N=N+12;W1=RBASE;W2=N-4

C 00015822    4110000C        LA      1,   12(  0,  0)
C 00015826    5A109100        A       1,  256(  0,  9)
C 0001582A    50109100        ST      1,  256(  0,  9)



C 0001582E    D203704890F4    MVC     72(  4,  7),  244(  9)



C 00015834    58109100        L       1,  256(  0,  9)
C 00015838    41200004        LA      2,    4(  0,  0)
C 0001583C    1B12            SR      1,  2
C 0001583E    5010704C        ST      1,   76(  0,  7)


  3869                         ->20

C 00015842    47FA0000        BC     15,    0( 10,  0)


  3870                10:      ->25 %IF KK<0

C 00015846    58107040        L       1,   64(  0,  7)
C 0001584A    1211            LTR     1,  1
C 0001584C    474A0000        BC      4,    0( 10,  0)


  3871                         FROM LIST(JJ,J,K);ST(RA(J)>>2)=CA

C 00015850    D203B0408058    MVC     64(  4, 11),   88(  8)
C 00015856    411080A0        LA      1,  160(  0,  8)
C 0001585A    5010B044        ST      1,   68(  0, 11)
C 0001585E    411080A4        LA      1,  164(  0,  8)
C 00015862    5010B048        ST      1,   72(  0, 11)
C 00015866    5810D3D8        L       1,  984(  0, 13)
C 0001586A    45F0D074        BAL    15,  116(  0, 13)



C 0001586E    584090AC        L       4,  172(  0,  9)
C 00015872    581080A0        L       1,  160(  0,  8)
C 00015876    413092EC        LA      3,  748(  0,  9)
C 0001587A    45F0C05C        BAL    15,   92(  0, 12)
C 0001587E    4861F000        LH      6,    0(  1, 15)
C 00015882    88600002        SRL     6,    2(  0)
C 00015886    1816            LR      1,  6
C 00015888    4130915C        LA      3,  348(  0,  9)
C 0001588C    45F0C05C        BAL    15,   92(  0, 12)
C 00015890    5041F000        ST      4,    0(  1, 15)


  3872                         PRX(X'50',LINK,0,WSPR,60);    !SAVE LINK

C 00015894    41100050        LA      1,   80(  0,  0)
C 00015898    5010B040        ST      1,   64(  0, 11)
C 0001589C    D203B044D148    MVC     68(  4, 11),  328( 13)
C 000158A2    1F11            SLR     1,  1
C 000158A4    5010B048        ST      1,   72(  0, 11)
C 000158A8    D203B04CD14C    MVC     76(  4, 11),  332( 13)
C 000158AE    4110003C        LA      1,   60(  0,  0)
C 000158B2    5010B050        ST      1,   80(  0, 11)
C 000158B6    5810D1C0        L       1,  448(  0, 13)
C 000158BA    45F0D074        BAL    15,  116(  0, 13)


  3873                         W1=WSPR; W2=0

C 000158BE    D2037048D14C    MVC     72(  4,  7),  332( 13)



C 000158C4    1F11            SLR     1,  1
C 000158C6    5010704C        ST      1,   76(  0,  7)


  3874                20:      ->21 %IF DIAGS1=0

C 000158CA    950090D5        CLI    213(  9),  0
C 000158CE    478A0000        BC      8,    0( 10,  0)


  3875                         PSS(X'D2',4,W1,W2,GLA,20)

C 000158D2    411000D2        LA      1,  210(  0,  0)
C 000158D6    5010B040        ST      1,   64(  0, 11)
C 000158DA    41100004        LA      1,    4(  0,  0)
C 000158DE    5010B044        ST      1,   68(  0, 11)
C 000158E2    D203B0487048    MVC     72(  4, 11),   72(  7)
C 000158E8    D203B04C704C    MVC     76(  4, 11),   76(  7)
C 000158EE    D203B050D150    MVC     80(  4, 11),  336( 13)
C 000158F4    41100014        LA      1,   20(  0,  0)
C 000158F8    5010B054        ST      1,   84(  0, 11)
C 000158FC    5810D1BC        L       1,  444(  0, 13)
C 00015900    45F0D074        BAL    15,  116(  0, 13)


  3876                         LOADAD(0,0,0,LINE)

C 00015904    1F11            SLR     1,  1
C 00015906    5010B040        ST      1,   64(  0, 11)
C 0001590A    1F11            SLR     1,  1
C 0001590C    5010B044        ST      1,   68(  0, 11)
C 00015910    1F11            SLR     1,  1
C 00015912    5010B048        ST      1,   72(  0, 11)
C 00015916    D203B04C907C    MVC     76(  4, 11),  124(  9)
C 0001591C    5810D398        L       1,  920(  0, 13)
C 00015920    45F0D074        BAL    15,  116(  0, 13)


  3877                         PCONST(X'4000D014') ;         !STH 0,20(GLA)

C 00015924    5810D664        L       1, 1636(  0, 13)
C 00015928    5010B040        ST      1,   64(  0, 11)
C 0001592C    5810D1B4        L       1,  436(  0, 13)
C 00015930    45F0D074        BAL    15,  116(  0, 13)


  3878                21:      MONE=1;SET LINE

C 00015934    920190CD        MVI    205(  9),  1



C 00015938    5810D36C        L       1,  876(  0, 13)
C 0001593C    45F0D074        BAL    15,  116(  0, 13)


  3879                25:      PRR(X'18',RBASE,WSPR) %UNLESS FLAG<0

C 00015940    58107044        L       1,   68(  0,  7)
C 00015944    1211            LTR     1,  1
C 00015946    474A02D6        BC      4,  726( 10,  0)
C 0001594A    41100018        LA      1,   24(  0,  0)
C 0001594E    5010B040        ST      1,   64(  0, 11)
C 00015952    D203B04490F4    MVC     68(  4, 11),  244(  9)
C 00015958    D203B048D14C    MVC     72(  4, 11),  332( 13)
C 0001595E    5810D1D0        L       1,  464(  0, 13)
C 00015962    45F0D074        BAL    15,  116(  0, 13)


  3880                         %IF KK<0 %THEN W1=0 %ELSE W1=WORD(KK)

C 00015966    58107040        L       1,   64(  0,  7)
C 0001596A    1211            LTR     1,  1
C 0001596C    47BA02EA        BC     11,  746( 10,  0)
C 00015970    1F11            SLR     1,  1
C 00015972    50107048        ST      1,   72(  0,  7)
C 00015976    47FA02FE        BC     15,  766( 10,  0)
C 0001597A    58107040        L       1,   64(  0,  7)
C 0001597E    4130930C        LA      3,  780(  0,  9)
C 00015982    45F0C05C        BAL    15,   92(  0, 12)
C 00015986    4811F000        LH      1,    0(  1, 15)
C 0001598A    50107048        ST      1,   72(  0,  7)


  3881                         L(LEVEL)=LINE;M(LEVEL)=W1

C 0001598E    5840907C        L       4,  124(  0,  9)
C 00015992    581090A8        L       1,  168(  0,  9)
C 00015996    4130921C        LA      3,  540(  0,  9)
C 0001599A    45F0C05C        BAL    15,   92(  0, 12)
C 0001599E    4041F000        STH     4,    0(  1, 15)
C 000159A2    494F1000        CH      4,    0( 15,  1)
C 000159A6    477C0058        BC      7,   88( 12,  0)



C 000159AA    58407048        L       4,   72(  0,  7)
C 000159AE    581090A8        L       1,  168(  0,  9)
C 000159B2    4130922C        LA      3,  556(  0,  9)
C 000159B6    45F0C05C        BAL    15,   92(  0, 12)
C 000159BA    4041F000        STH     4,    0(  1, 15)
C 000159BE    494F1000        CH      4,    0( 15,  1)
C 000159C2    477C0058        BC      7,   88( 12,  0)


  3882                         RNEXT(LEVEL)=NEXT

C 000159C6    584090FC        L       4,  252(  0,  9)
C 000159CA    581090A8        L       1,  168(  0,  9)
C 000159CE    4130925C        LA      3,  604(  0,  9)
C 000159D2    45F0C05C        BAL    15,   92(  0, 12)
C 000159D6    4041F000        STH     4,    0(  1, 15)
C 000159DA    494F1000        CH      4,    0( 15,  1)
C 000159DE    477C0058        BC      7,   88( 12,  0)


  3883                         %RETURN %IF FLAG<0

C 000159E2    58107044        L       1,   68(  0,  7)
C 000159E6    1211            LTR     1,  1
C 000159E8    47BA0368        BC     11,  872( 10,  0)
C 000159EC    D203D0147000    MVC     20(  4, 13),    0(  7)
C 000159F2    984F7010        LM      4, 15,   16(  7)
C 000159F6    07FF            BCR    15, 15


  3884                         SET(RLEVEL)=CA+2

C 000159F8    41400002        LA      4,    2(  0,  0)
C 000159FC    5A4090AC        A       4,  172(  0,  9)
C 00015A00    58109094        L       1,  148(  0,  9)
C 00015A04    4130916C        LA      3,  364(  0,  9)
C 00015A08    45F0C05C        BAL    15,   92(  0, 12)
C 00015A0C    5041F000        ST      4,    0(  1, 15)


  3885                         PRX(X'41',WSPR,WSPR,0,0);     ! LA WSP,?(WSP)

C 00015A10    41100041        LA      1,   65(  0,  0)
C 00015A14    5010B040        ST      1,   64(  0, 11)
C 00015A18    D203B044D14C    MVC     68(  4, 11),  332( 13)
C 00015A1E    D203B048D14C    MVC     72(  4, 11),  332( 13)
C 00015A24    1F11            SLR     1,  1
C 00015A26    5010B04C        ST      1,   76(  0, 11)
C 00015A2A    1F11            SLR     1,  1
C 00015A2C    5010B050        ST      1,   80(  0, 11)
C 00015A30    5810D1C0        L       1,  448(  0, 13)
C 00015A34    45F0D074        BAL    15,  116(  0, 13)


  3886                         %IF CHECKS#0 %THEN PCLOD(75); ! CHECK VFOR EXCESS BLOCKS

C 00015A38    950090CA        CLI    202(  9),  0
C 00015A3C    478A03C0        BC      8,  960( 10,  0)
C 00015A40    4110004B        LA      1,   75(  0,  0)
C 00015A44    5010B040        ST      1,   64(  0, 11)
C 00015A48    5810D1C8        L       1,  456(  0, 13)
C 00015A4C    45F0D074        BAL    15,  116(  0, 13)


  3887                         N=64; NMAX=N;

C 00015A50    41100040        LA      1,   64(  0,  0)
C 00015A54    50109100        ST      1,  256(  0,  9)



C 00015A58    D20390989100    MVC    152(  4,  9),  256(  9)


  3888                         %END
D 00001410    C2 C2 C2 C2 0F 08 07 05 52 48 45 41 44 00 00 40 01 70 4C 02 57 32 00 07 01 70 48 02 57 31 A6 E8 01 70 44 04 46 4C 41 47 01 70 40 02 4B 4B 00 01 FF FF FF FF


C 00015A5E    D203D0147000    MVC     20(  4, 13),    0(  7)
C 00015A64    984F7010        LM      4, 15,   16(  7)
C 00015A68    07FF            BCR    15, 15


  3889                     %ROUTINE     SET80(%INTEGER WHERE,N)

C 00015A6A    0000
C 00015A6C    0000
C 00015A6E    47FA0000        BC     15,    0( 10,  0)
C 00015A72    50F0B03C        ST     15,   60(  0, 11)
C 00015A76    D203B000D014    MVC      0(  4, 11),   20( 13)
C 00015A7C    41000F31        LA      0, 3889(  0,  0)
C 00015A80    4000D014        STH     0,   20(  0, 13)
C 00015A84    187B            LR      7, 11
C 00015A86    41BB0000        LA     11,    0( 11,  0)
C 00015A8A    41000004        LA      0,    4(  0,  0)
C 00015A8E    59BD0044        C      11,   68( 13,  0)
C 00015A92    4720C054        BC      2,   84(  0, 12)
C 00015A96    05A0            BALR   10,  0


  3890                         %RETURN %IF N<=2

C 00015A98    41100002        LA      1,    2(  0,  0)
C 00015A9C    59107044        C       1,   68(  0,  7)
C 00015AA0    475A0018        BC      5,   24( 10,  0)
C 00015AA4    D203D0147000    MVC     20(  4, 13),    0(  7)
C 00015AAA    984F7010        LM      4, 15,   16(  7)
C 00015AAE    07FF            BCR    15, 15


  3891                         %INTEGER K
  3892                         %SHORTROUTINE
  3893                         PSI(X'92',X'80',RBASE,WHERE)

C 00015AB0    41100092        LA      1,  146(  0,  0)
C 00015AB4    5010B040        ST      1,   64(  0, 11)
C 00015AB8    41100080        LA      1,  128(  0,  0)
C 00015ABC    5010B044        ST      1,   68(  0, 11)
C 00015AC0    D203B04890F4    MVC     72(  4, 11),  244(  9)
C 00015AC6    D203B04C7040    MVC     76(  4, 11),   64(  7)
C 00015ACC    5810D1B8        L       1,  440(  0, 13)
C 00015AD0    45F0D074        BAL    15,  116(  0, 13)


  3894                         N=N-1; K=WHERE

C 00015AD4    58107044        L       1,   68(  0,  7)
C 00015AD8    0610            BCTR    1,  0
C 00015ADA    50107044        ST      1,   68(  0,  7)



C 00015ADE    D20370487040    MVC     72(  4,  7),   64(  7)


  3895                1:       ->2 %IF N<=256

C 00015AE4    41100100        LA      1,  256(  0,  0)
C 00015AE8    59107044        C       1,   68(  0,  7)
C 00015AEC    47AA0000        BC     10,    0( 10,  0)


  3896                         PSS(X'D2',256,RBASE,K+1,RBASE,K)

C 00015AF0    411000D2        LA      1,  210(  0,  0)
C 00015AF4    5010B040        ST      1,   64(  0, 11)
C 00015AF8    41100100        LA      1,  256(  0,  0)
C 00015AFC    5010B044        ST      1,   68(  0, 11)
C 00015B00    D203B04890F4    MVC     72(  4, 11),  244(  9)
C 00015B06    41100001        LA      1,    1(  0,  0)
C 00015B0A    5A107048        A       1,   72(  0,  7)
C 00015B0E    5010B04C        ST      1,   76(  0, 11)
C 00015B12    D203B05090F4    MVC     80(  4, 11),  244(  9)
C 00015B18    D203B0547048    MVC     84(  4, 11),   72(  7)
C 00015B1E    5810D1BC        L       1,  444(  0, 13)
C 00015B22    45F0D074        BAL    15,  116(  0, 13)


  3897                         K=K+256; N=N-256; ->1

C 00015B26    41100100        LA      1,  256(  0,  0)
C 00015B2A    5A107048        A       1,   72(  0,  7)
C 00015B2E    50107048        ST      1,   72(  0,  7)



C 00015B32    58107044        L       1,   68(  0,  7)
C 00015B36    41200100        LA      2,  256(  0,  0)
C 00015B3A    1B12            SR      1,  2
C 00015B3C    50107044        ST      1,   68(  0,  7)



C 00015B40    47F0A04C        BC     15,   76(  0, 10)


  3898                2:       PSS(X'D2',N,RBASE,K+1,RBASE,K)

C 00015B44    411000D2        LA      1,  210(  0,  0)
C 00015B48    5010B040        ST      1,   64(  0, 11)
C 00015B4C    D203B0447044    MVC     68(  4, 11),   68(  7)
C 00015B52    D203B04890F4    MVC     72(  4, 11),  244(  9)
C 00015B58    41100001        LA      1,    1(  0,  0)
C 00015B5C    5A107048        A       1,   72(  0,  7)
C 00015B60    5010B04C        ST      1,   76(  0, 11)
C 00015B64    D203B05090F4    MVC     80(  4, 11),  244(  9)
C 00015B6A    D203B0547048    MVC     84(  4, 11),   72(  7)
C 00015B70    5810D1BC        L       1,  444(  0, 13)
C 00015B74    45F0D074        BAL    15,  116(  0, 13)


  3899                         %END
D 00001444    C2 C2 C2 C2 0F 31 07 05 53 45 54 38 30 00 00 40 01 70 48 01 4B 32 00 07 01 70 44 01 4E 00 00 00 01 70 40 05 57 48 45 52 45 70 40 02 FF FF FF FF


C 00015B78    D203D0147000    MVC     20(  4, 13),    0(  7)
C 00015B7E    984F7010        LM      4, 15,   16(  7)
C 00015B82    07FF            BCR    15, 15


  3900                     %ROUTINE     CBPAIR(%INTEGERNAME LB,UB)

C 00015B84    0000
C 00015B86    0000
C 00015B88    47FA0000        BC     15,    0( 10,  0)
C 00015B8C    50F0B03C        ST     15,   60(  0, 11)
C 00015B90    D203B000D014    MVC      0(  4, 11),   20( 13)
C 00015B96    41000F3C        LA      0, 3900(  0,  0)
C 00015B9A    4000D014        STH     0,   20(  0, 13)
C 00015B9E    187B            LR      7, 11
C 00015BA0    41BB0000        LA     11,    0( 11,  0)
C 00015BA4    41000004        LA      0,    4(  0,  0)
C 00015BA8    59BD0044        C      11,   68( 13,  0)
C 00015BAC    4720C054        BC      2,   84(  0, 12)
C 00015BB0    05A0            BALR   10,  0


  3901                         %SHORTROUTINE
  3902                         %INTEGER KK,KKK,JJ,BP
  3903                         P=P+1; KK=0

C 00015BB2    41100001        LA      1,    1(  0,  0)
C 00015BB6    5A108040        A       1,   64(  0,  8)
C 00015BBA    50108040        ST      1,   64(  0,  8)



C 00015BBE    1F11            SLR     1,  1
C 00015BC0    50107048        ST      1,   72(  0,  7)


  3904                         %CYCLE JJ=1,1,2; KKK=KK

C 00015BC4    41407050        LA      4,   80(  0,  7)
C 00015BC8    41200001        LA      2,    1(  0,  0)
C 00015BCC    41300002        LA      3,    2(  0,  0)
C 00015BD0    90247058        STM     2,  4,   88(  7)
C 00015BD4    41100001        LA      1,    1(  0,  0)
C 00015BD8    50104000        ST      1,    0(  0,  4)



C 00015BDC    D203704C7048    MVC     76(  4,  7),   72(  7)


  3905                         %IF A(P)=2 %THEN KK=-1 %ELSE KK=1

C 00015BE2    58108040        L       1,   64(  0,  8)
C 00015BE6    413092FC        LA      3,  764(  0,  9)
C 00015BEA    45F0C05C        BAL    15,   92(  0, 12)
C 00015BEE    4811F000        LH      1,    0(  1, 15)
C 00015BF2    41200002        LA      2,    2(  0,  0)
C 00015BF6    1912            CR      1,  2
C 00015BF8    477A0056        BC      7,   86( 10,  0)
C 00015BFC    5810D010        L       1,   16(  0, 13)
C 00015C00    50107048        ST      1,   72(  0,  7)
C 00015C04    47FA005E        BC     15,   94( 10,  0)
C 00015C08    41100001        LA      1,    1(  0,  0)
C 00015C0C    50107048        ST      1,   72(  0,  7)


  3906                         ->REAL %IF A(P+1)&7=2

C 00015C10    41100001        LA      1,    1(  0,  0)
C 00015C14    5A108040        A       1,   64(  0,  8)
C 00015C18    413092FC        LA      3,  764(  0,  9)
C 00015C1C    45F0C05C        BAL    15,   92(  0, 12)
C 00015C20    4861F000        LH      6,    0(  1, 15)
C 00015C24    41100007        LA      1,    7(  0,  0)
C 00015C28    1461            NR      6,  1
C 00015C2A    41100002        LA      1,    2(  0,  0)
C 00015C2E    1961            CR      6,  1
C 00015C30    478A0000        BC      8,    0( 10,  0)


  3907                         ->STRING %IF A(P+1)&7=5

C 00015C34    41100001        LA      1,    1(  0,  0)
C 00015C38    5A108040        A       1,   64(  0,  8)
C 00015C3C    413092FC        LA      3,  764(  0,  9)
C 00015C40    45F0C05C        BAL    15,   92(  0, 12)
C 00015C44    4861F000        LH      6,    0(  1, 15)
C 00015C48    41100007        LA      1,    7(  0,  0)
C 00015C4C    1461            NR      6,  1
C 00015C4E    41100005        LA      1,    5(  0,  0)
C 00015C52    1961            CR      6,  1
C 00015C54    478A0000        BC      8,    0( 10,  0)


  3908                         %IF A(P+1)=9 %THEN BP=A(P+2) %ELSE %START

C 00015C58    41100001        LA      1,    1(  0,  0)
C 00015C5C    5A108040        A       1,   64(  0,  8)
C 00015C60    413092FC        LA      3,  764(  0,  9)
C 00015C64    45F0C05C        BAL    15,   92(  0, 12)
C 00015C68    4811F000        LH      1,    0(  1, 15)
C 00015C6C    41200009        LA      2,    9(  0,  0)
C 00015C70    1912            CR      1,  2
C 00015C72    477A00E0        BC      7,  224( 10,  0)
C 00015C76    41100002        LA      1,    2(  0,  0)
C 00015C7A    5A108040        A       1,   64(  0,  8)
C 00015C7E    413092FC        LA      3,  764(  0,  9)
C 00015C82    45F0C05C        BAL    15,   92(  0, 12)
C 00015C86    4811F000        LH      1,    0(  1, 15)
C 00015C8A    50107054        ST      1,   84(  0,  7)
C 00015C8E    47FA0000        BC     15,    0( 10,  0)


  3909                         FROMAR4(P+2,BP); P=P+1; %FINISH

C 00015C92    41100002        LA      1,    2(  0,  0)
C 00015C96    5A108040        A       1,   64(  0,  8)
C 00015C9A    5010B040        ST      1,   64(  0, 11)
C 00015C9E    41107054        LA      1,   84(  0,  7)
C 00015CA2    5010B044        ST      1,   68(  0, 11)
C 00015CA6    5810D218        L       1,  536(  0, 13)
C 00015CAA    45F0D074        BAL    15,  116(  0, 13)



C 00015CAE    41100001        LA      1,    1(  0,  0)
C 00015CB2    5A108040        A       1,   64(  0,  8)
C 00015CB6    50108040        ST      1,   64(  0,  8)


  3910                         KK=KK*BP; P=P+3; ->AGAIN

C 00015CBA    58107048        L       1,   72(  0,  7)
C 00015CBE    5C007054        M       0,   84(  0,  7)
C 00015CC2    50107048        ST      1,   72(  0,  7)



C 00015CC6    41100003        LA      1,    3(  0,  0)
C 00015CCA    5A108040        A       1,   64(  0,  8)
C 00015CCE    50108040        ST      1,   64(  0,  8)



C 00015CD2    47FA0000        BC     15,    0( 10,  0)


  3911                REAL:    FAULT(24); P=P+6; KK=0; ->AGAIN

C 00015CD6    9218B043        MVI     67( 11), 24
C 00015CDA    5810D228        L       1,  552(  0, 13)
C 00015CDE    45F0D074        BAL    15,  116(  0, 13)



C 00015CE2    41100006        LA      1,    6(  0,  0)
C 00015CE6    5A108040        A       1,   64(  0,  8)
C 00015CEA    50108040        ST      1,   64(  0,  8)



C 00015CEE    1F11            SLR     1,  1
C 00015CF0    50107048        ST      1,   72(  0,  7)



C 00015CF4    47FA0000        BC     15,    0( 10,  0)


  3912                STRING:  FAULT(42); P=P*A(P+2)&X'FE'+2; KK=0

C 00015CF8    922AB043        MVI     67( 11), 42
C 00015CFC    5810D228        L       1,  552(  0, 13)
C 00015D00    45F0D074        BAL    15,  116(  0, 13)



C 00015D04    41100002        LA      1,    2(  0,  0)
C 00015D08    5A108040        A       1,   64(  0,  8)
C 00015D0C    413092FC        LA      3,  764(  0,  9)
C 00015D10    45F0C05C        BAL    15,   92(  0, 12)
C 00015D14    4861F000        LH      6,    0(  1, 15)
C 00015D18    58108040        L       1,   64(  0,  8)
C 00015D1C    1C06            MR      0,  6
C 00015D1E    412000FE        LA      2,  254(  0,  0)
C 00015D22    1412            NR      1,  2
C 00015D24    41200002        LA      2,    2(  0,  0)
C 00015D28    1A12            AR      1,  2
C 00015D2A    50108040        ST      1,   64(  0,  8)



C 00015D2E    1F11            SLR     1,  1
C 00015D30    50107048        ST      1,   72(  0,  7)


  3913                AGAIN:   %REPEAT

C 00015D34    98247058        LM      2,  4,   88(  7)
C 00015D38    58104000        L       1,    0(  0,  4)
C 00015D3C    8712A026        BXLE    1,  2,   38( 10)


  3914                         LB=KKK; UB=KK

C 00015D40    5810704C        L       1,   76(  0,  7)
C 00015D44    58F07040        L      15,   64(  0,  7)
C 00015D48    5010F000        ST      1,    0(  0, 15)



C 00015D4C    58107048        L       1,   72(  0,  7)
C 00015D50    58F07044        L      15,   68(  0,  7)
C 00015D54    5010F000        ST      1,    0(  0, 15)


  3915                         %END
D 00001474    C2 C2 C2 C2 0F 3C 07 06 43 42 50 41 49 52 00 00 01 70 54 02 42 50 00 07 01 70 50 02 4A 4A A6 E8 01 70 4C 03 4B 4B 4B F0 01 70 48 02 4B 4B 00 01 41 70 44 02 55 42 00 00 41 70 40 02 4C 42 00 00 FF FF FF FF


C 00015D58    D203D0147000    MVC     20(  4, 13),    0(  7)
C 00015D5E    984F7010        LM      4, 15,   16(  7)
C 00015D62    07FF            BCR    15, 15


  3916                     %ROUTINE LOAD DATA

C 00015D64    0000
C 00015D66    0000
C 00015D68    47FA0000        BC     15,    0( 10,  0)
C 00015D6C    50F0B03C        ST     15,   60(  0, 11)
C 00015D70    D203B000D014    MVC      0(  4, 11),   20( 13)
C 00015D76    41000F4C        LA      0, 3916(  0,  0)
C 00015D7A    4000D014        STH     0,   20(  0, 13)
C 00015D7E    187B            LR      7, 11
C 00015D80    41BB0000        LA     11,    0( 11,  0)
C 00015D84    41000004        LA      0,    4(  0,  0)
C 00015D88    59BD0044        C      11,   68( 13,  0)
C 00015D8C    4720C054        BC      2,   84(  0, 12)
C 00015D90    05A0            BALR   10,  0


  3917                         %SHORTROUTINE
  3918                         %INTEGER LDLINK,JJ,KK,PTR,JJJ
  3919                         %SHORTINTEGER HEAD
  3920                         LDPTR=8+8*NEPS

C 00015D92    41100008        LA      1,    8(  0,  0)
C 00015D96    4820913C        LH      2,  316(  0,  9)
C 00015D9A    1C02            MR      0,  2
C 00015D9C    41200008        LA      2,    8(  0,  0)
C 00015DA0    1A12            AR      1,  2
C 00015DA2    50109138        ST      1,  312(  0,  9)


  3921                         %INTEGERARRAY BUFFER(0:LDPTR)

C 00015DA6    50B0D024        ST     11,   36(  0, 13)
C 00015DAA    1F11            SLR     1,  1
C 00015DAC    58209138        L       2,  312(  0,  9)
C 00015DB0    41000004        LA      0,    4(  0,  0)
C 00015DB4    9002B000        STM     0,  2,    0( 11)
C 00015DB8    9201B001        MVI      1( 11),  1
C 00015DBC    41B0B010        LA     11,   16(  0, 11)
C 00015DC0    45F0C034        BAL    15,   52(  0, 12)
C 00015DC4    90037058        STM     0,  3,   88(  7)


  3922                         BUFFER(0)=7; BUFFER(2)=88

C 00015DC8    41400007        LA      4,    7(  0,  0)
C 00015DCC    1F11            SLR     1,  1
C 00015DCE    41307058        LA      3,   88(  0,  7)
C 00015DD2    45F0C05C        BAL    15,   92(  0, 12)
C 00015DD6    5041F000        ST      4,    0(  1, 15)



C 00015DDA    41400058        LA      4,   88(  0,  0)
C 00015DDE    41100002        LA      1,    2(  0,  0)
C 00015DE2    41307058        LA      3,   88(  0,  7)
C 00015DE6    45F0C05C        BAL    15,   92(  0, 12)
C 00015DEA    5041F000        ST      4,    0(  1, 15)


  3923                         BUFFER(3)=0; BUFFER(4)=0

C 00015DEE    1F44            SLR     4,  4
C 00015DF0    41100003        LA      1,    3(  0,  0)
C 00015DF4    41307058        LA      3,   88(  0,  7)
C 00015DF8    45F0C05C        BAL    15,   92(  0, 12)
C 00015DFC    5041F000        ST      4,    0(  1, 15)



C 00015E00    1F44            SLR     4,  4
C 00015E02    41100004        LA      1,    4(  0,  0)
C 00015E06    41307058        LA      3,   88(  0,  7)
C 00015E0A    45F0C05C        BAL    15,   92(  0, 12)
C 00015E0E    5041F000        ST      4,    0(  1, 15)


  3924                         BUFFER(5)=0; BUFFER(6)=64

C 00015E12    1F44            SLR     4,  4
C 00015E14    41100005        LA      1,    5(  0,  0)
C 00015E18    41307058        LA      3,   88(  0,  7)
C 00015E1C    45F0C05C        BAL    15,   92(  0, 12)
C 00015E20    5041F000        ST      4,    0(  1, 15)



C 00015E24    41400040        LA      4,   64(  0,  0)
C 00015E28    41100006        LA      1,    6(  0,  0)
C 00015E2C    41307058        LA      3,   88(  0,  7)
C 00015E30    45F0C05C        BAL    15,   92(  0, 12)
C 00015E34    5041F000        ST      4,    0(  1, 15)


  3925                         PTR=8;  LDLINK=0

C 00015E38    41100008        LA      1,    8(  0,  0)
C 00015E3C    5010704C        ST      1,   76(  0,  7)



C 00015E40    1F44            SLR     4,  4


  3926                1:       POP(EPLINK,JJ,KK)

C 00015E42    4110913E        LA      1,  318(  0,  9)
C 00015E46    5010B040        ST      1,   64(  0, 11)
C 00015E4A    41107044        LA      1,   68(  0,  7)
C 00015E4E    5010B044        ST      1,   68(  0, 11)
C 00015E52    41107048        LA      1,   72(  0,  7)
C 00015E56    5010B048        ST      1,   72(  0, 11)
C 00015E5A    5810D3DC        L       1,  988(  0, 13)
C 00015E5E    45F0D074        BAL    15,  116(  0, 13)


  3927                         -> 10 %IF JJ<0

C 00015E62    58107044        L       1,   68(  0,  7)
C 00015E66    1211            LTR     1,  1
C 00015E68    474A0000        BC      4,    0( 10,  0)


  3928                         HEAD=KK

C 00015E6C    58107048        L       1,   72(  0,  7)
C 00015E70    40107054        STH     1,   84(  0,  7)
C 00015E74    49170054        CH      1,   84(  7,  0)
C 00015E78    477C0058        BC      7,   88( 12,  0)


  3929                         BUFFER(PTR)=LDLINK

C 00015E7C    1842            LR      4,  2
C 00015E7E    5810704C        L       1,   76(  0,  7)
C 00015E82    41307058        LA      3,   88(  0,  7)
C 00015E86    45F0C05C        BAL    15,   92(  0, 12)
C 00015E8A    5041F000        ST      4,    0(  1, 15)


  3930                         LDLINK=PTR<<2

C 00015E8E    5840704C        L       4,   76(  0,  7)
C 00015E92    89400002        SLL     4,    2(  0)


  3931                         BUFFER(PTR+1)=0

C 00015E96    1F44            SLR     4,  4
C 00015E98    41100001        LA      1,    1(  0,  0)
C 00015E9C    5A10704C        A       1,   76(  0,  7)
C 00015EA0    41307058        LA      3,   88(  0,  7)
C 00015EA4    45F0C05C        BAL    15,   92(  0, 12)
C 00015EA8    5041F000        ST      4,    0(  1, 15)


  3932                         BUFFER(PTR+2)=0

C 00015EAC    1F44            SLR     4,  4
C 00015EAE    41100002        LA      1,    2(  0,  0)
C 00015EB2    5A10704C        A       1,   76(  0,  7)
C 00015EB6    41307058        LA      3,   88(  0,  7)
C 00015EBA    45F0C05C        BAL    15,   92(  0, 12)
C 00015EBE    5041F000        ST      4,    0(  1, 15)


  3933                         BUFFER(PTR+3)=JJ

C 00015EC2    58407044        L       4,   68(  0,  7)
C 00015EC6    41100003        LA      1,    3(  0,  0)
C 00015ECA    5A10704C        A       1,   76(  0,  7)
C 00015ECE    41307058        LA      3,   88(  0,  7)
C 00015ED2    45F0C05C        BAL    15,   92(  0, 12)
C 00015ED6    5041F000        ST      4,    0(  1, 15)


  3934                         BUFFER(PTR+4)=X'80000000'

C 00015EDA    5840D66C        L       4, 1644(  0, 13)
C 00015EDE    41100004        LA      1,    4(  0,  0)
C 00015EE2    5A10704C        A       1,   76(  0,  7)
C 00015EE6    41307058        LA      3,   88(  0,  7)
C 00015EEA    45F0C05C        BAL    15,   92(  0, 12)
C 00015EEE    5041F000        ST      4,    0(  1, 15)


  3935                         POP(HEAD,BUFFER(PTR+5),KK);   ! FIRST BIT OF ID.

C 00015EF2    41107054        LA      1,   84(  0,  7)
C 00015EF6    5010B040        ST      1,   64(  0, 11)
C 00015EFA    41100005        LA      1,    5(  0,  0)
C 00015EFE    5A10704C        A       1,   76(  0,  7)
C 00015F02    41307058        LA      3,   88(  0,  7)
C 00015F06    45F0C05C        BAL    15,   92(  0, 12)
C 00015F0A    4111F000        LA      1,    0(  1, 15)
C 00015F0E    5010B044        ST      1,   68(  0, 11)
C 00015F12    41107048        LA      1,   72(  0,  7)
C 00015F16    5010B048        ST      1,   72(  0, 11)
C 00015F1A    5810D3DC        L       1,  988(  0, 13)
C 00015F1E    45F0D074        BAL    15,  116(  0, 13)


  3936                         %IF KK>3 %THEN POP(HEAD,BUFFER(PTR+6),JJJ)

C 00015F22    41100003        LA      1,    3(  0,  0)
C 00015F26    59107048        C       1,   72(  0,  7)
C 00015F2A    47BA01CC        BC     11,  460( 10,  0)
C 00015F2E    41107054        LA      1,   84(  0,  7)
C 00015F32    5010B040        ST      1,   64(  0, 11)
C 00015F36    41100006        LA      1,    6(  0,  0)
C 00015F3A    5A10704C        A       1,   76(  0,  7)
C 00015F3E    41307058        LA      3,   88(  0,  7)
C 00015F42    45F0C05C        BAL    15,   92(  0, 12)
C 00015F46    4111F000        LA      1,    0(  1, 15)
C 00015F4A    5010B044        ST      1,   68(  0, 11)
C 00015F4E    41107050        LA      1,   80(  0,  7)
C 00015F52    5010B048        ST      1,   72(  0, 11)
C 00015F56    5810D3DC        L       1,  988(  0, 13)
C 00015F5A    45F0D074        BAL    15,  116(  0, 13)


  3937                         PTR=PTR+7; %IF KK>7 %THEN %START

C 00015F5E    41100007        LA      1,    7(  0,  0)
C 00015F62    5A10704C        A       1,   76(  0,  7)
C 00015F66    5010704C        ST      1,   76(  0,  7)



C 00015F6A    41100007        LA      1,    7(  0,  0)
C 00015F6E    59107048        C       1,   72(  0,  7)
C 00015F72    47BA0000        BC     11,    0( 10,  0)


  3938                         POP(HEAD,BUFFER(PTR),JJJ); PTR=PTR+1; %FINISH; ->1

C 00015F76    41107054        LA      1,   84(  0,  7)
C 00015F7A    5010B040        ST      1,   64(  0, 11)
C 00015F7E    5810704C        L       1,   76(  0,  7)
C 00015F82    41307058        LA      3,   88(  0,  7)
C 00015F86    45F0C05C        BAL    15,   92(  0, 12)
C 00015F8A    4111F000        LA      1,    0(  1, 15)
C 00015F8E    5010B044        ST      1,   68(  0, 11)
C 00015F92    41107050        LA      1,   80(  0,  7)
C 00015F96    5010B048        ST      1,   72(  0, 11)
C 00015F9A    5810D3DC        L       1,  988(  0, 13)
C 00015F9E    45F0D074        BAL    15,  116(  0, 13)



C 00015FA2    41100001        LA      1,    1(  0,  0)
C 00015FA6    5A10704C        A       1,   76(  0,  7)
C 00015FAA    5010704C        ST      1,   76(  0,  7)



C 00015FAE    47F0A0B0        BC     15,  176(  0, 10)


  3939                10:      BUFFER(1)=LDLINK

C 00015FB2    1842            LR      4,  2
C 00015FB4    41100001        LA      1,    1(  0,  0)
C 00015FB8    41307058        LA      3,   88(  0,  7)
C 00015FBC    45F0C05C        BAL    15,   92(  0, 12)
C 00015FC0    5041F000        ST      4,    0(  1, 15)


  3940                         LPUT(3,PTR<<2,0,ADDR(BUFFER(0)))

C 00015FC4    41100003        LA      1,    3(  0,  0)
C 00015FC8    5010B040        ST      1,   64(  0, 11)
C 00015FCC    41B0B048        LA     11,   72(  0, 11)
C 00015FD0    5810704C        L       1,   76(  0,  7)
C 00015FD4    89100002        SLL     1,    2(  0)
C 00015FD8    5AB0D050        A      11,   80(  0, 13)
C 00015FDC    5010B000        ST      1,    0(  0, 11)
C 00015FE0    41B0B004        LA     11,    4(  0, 11)
C 00015FE4    1F11            SLR     1,  1
C 00015FE6    5010B000        ST      1,    0(  0, 11)
C 00015FEA    41B0B008        LA     11,    8(  0, 11)
C 00015FEE    1F11            SLR     1,  1
C 00015FF0    41307058        LA      3,   88(  0,  7)
C 00015FF4    45F0C05C        BAL    15,   92(  0, 12)
C 00015FF8    4111F000        LA      1,    0(  1, 15)
C 00015FFC    5AB0D050        A      11,   80(  0, 13)
C 00016000    5010B000        ST      1,    0(  0, 11)
C 00016004    4100004C        LA      0,   76(  0,  0)
C 00016008    1BB0            SR     11,  0
C 0001600A    904EB010        STM     4, 14,   16( 11)
C 0001600E    98CED1D8        LM     12, 14,  472( 13)
C 00016012    05FE            BALR   15, 14


  3941                         LDPTR=PTR

C 00016014    D2039138704C    MVC    312(  4,  9),   76(  7)


  3942                         %END
D 000014B8    C2 C2 C2 C2 0F 4C 07 08 4C 4F 41 44 44 41 54 41 11 70 54 04 48 45 41 44 01 70 50 03 4A 4A 4A 00 01 70 4C 03 50 54 52 01 01 70 48 02 4B 4B 00 17 01 70 44 02 4A 4A 00 58 01 70 40 04 48 45 41 44 FF FF FF FF


C 0001601A    D203D0147000    MVC     20(  4, 13),    0(  7)
C 00016020    984F7010        LM      4, 15,   16(  7)
C 00016024    07FF            BCR    15, 15


  3943                     %ROUTINE DEFINE EP(%INTEGER MODE,NAME,ADR)

C 00016026    0000
C 00016028    0000
C 0001602A    47FA0000        BC     15,    0( 10,  0)
C 0001602E    50F0B03C        ST     15,   60(  0, 11)
C 00016032    D203B000D014    MVC      0(  4, 11),   20( 13)
C 00016038    41000F67        LA      0, 3943(  0,  0)
C 0001603C    4000D014        STH     0,   20(  0, 13)
C 00016040    187B            LR      7, 11
C 00016042    41BB0000        LA     11,    0( 11,  0)
C 00016046    41000004        LA      0,    4(  0,  0)
C 0001604A    59BD0044        C      11,   68( 13,  0)
C 0001604E    4720C054        BC      2,   84(  0, 12)
C 00016052    05A0            BALR   10,  0


  3944                         %SHORTROUTINE
  3945                         %SHORTINTEGER HEAD
  3946                         %INTEGER JJ,KK,LENGTH,ID1,ID2,ID3
  3947                         %SWITCH SW(0:2)

C 00016054    47FA0000        BC     15,    0( 10,  0)
C 00016058    0200
C 0001605A    0000
C 0001605C    0000
C 0001605E    0002
C 00016060    0000
C 00016062    0000
C 00016064    0000
C 00016066    0000


  3948                         KK=WORD(NAME)

C 00016068    58107044        L       1,   68(  0,  7)
C 0001606C    4130930C        LA      3,  780(  0,  9)
C 00016070    45F0C05C        BAL    15,   92(  0, 12)
C 00016074    4811F000        LH      1,    0(  1, 15)
C 00016078    50107054        ST      1,   84(  0,  7)


  3949                         HEAD=0;  -> SW(MODE)

C 0001607C    1F11            SLR     1,  1
C 0001607E    4010704C        STH     1,   76(  0,  7)
C 00016082    4917004C        CH      1,   76(  7,  0)
C 00016086    477C0058        BC      7,   88( 12,  0)



C 0001608A    58107040        L       1,   64(  0,  7)
C 0001608E    1A11            AR      1,  1
C 00016090    4811A00C        LH      1,   12(  1, 10)
C 00016094    47F1A000        BC     15,    0(  1, 10)


  3950                SW(0):   %COMMENT DEFINE S#GO
  3951                         LENGTH=4; ID1=M'S#G'; ID2=M'O   '; ->10

C 00016098    41100004        LA      1,    4(  0,  0)
C 0001609C    50107058        ST      1,   88(  0,  7)



C 000160A0    5810D670        L       1, 1648(  0, 13)
C 000160A4    5010705C        ST      1,   92(  0,  7)



C 000160A8    5810D674        L       1, 1652(  0, 13)
C 000160AC    50107060        ST      1,   96(  0,  7)



C 000160B0    47FA0000        BC     15,    0( 10,  0)


  3952                SW(1):   %COMMENT SYSTEM EP
  3953                         LENGTH=LETT(KK)+2

C 000160B4    58107054        L       1,   84(  0,  7)
C 000160B8    413092DC        LA      3,  732(  0,  9)
C 000160BC    45F0C05C        BAL    15,   92(  0, 12)
C 000160C0    1F66            SLR     6,  6
C 000160C2    4361F000        IC      6,    0(  1, 15)
C 000160C6    41100002        LA      1,    2(  0,  0)
C 000160CA    1A61            AR      6,  1
C 000160CC    50607058        ST      6,   88(  0,  7)


  3954                         ID1=M'S#A'; %CYCLE JJ=1,1,6

C 000160D0    5810D678        L       1, 1656(  0, 13)
C 000160D4    5010705C        ST      1,   92(  0,  7)



C 000160D8    41407050        LA      4,   80(  0,  7)
C 000160DC    41200001        LA      2,    1(  0,  0)
C 000160E0    41300006        LA      3,    6(  0,  0)
C 000160E4    90247068        STM     2,  4,  104(  7)
C 000160E8    41100001        LA      1,    1(  0,  0)
C 000160EC    50104000        ST      1,    0(  0,  4)


  3955                         BYTEINTEGER(ADDR(ID1)+JJ+2)=LETT(KK+JJ)

C 000160F0    58107054        L       1,   84(  0,  7)
C 000160F4    5A107050        A       1,   80(  0,  7)
C 000160F8    413092DC        LA      3,  732(  0,  9)
C 000160FC    45F0C05C        BAL    15,   92(  0, 12)
C 00016100    1F44            SLR     4,  4
C 00016102    4341F000        IC      4,    0(  1, 15)
C 00016106    4160705C        LA      6,   92(  0,  7)
C 0001610A    5A607050        A       6,   80(  0,  7)
C 0001610E    41100002        LA      1,    2(  0,  0)
C 00016112    1A61            AR      6,  1
C 00016114    42406000        STC     4,    0(  0,  6)
C 00016118    5540D018        CL      4,   24(  0, 13)
C 0001611C    472C0058        BC      2,   88( 12,  0)


  3956                         %REPEAT; ->10

C 00016120    98247068        LM      2,  4,  104(  7)
C 00016124    58104000        L       1,    0(  0,  4)
C 00016128    8712A098        BXLE    1,  2,  152( 10)



C 0001612C    47FA0000        BC     15,    0( 10,  0)


  3957                SW(2):   %COMMENT ENTRY TO EXTERNAL ROUTINE
  3958                         LENGTH=LETT(KK)

C 00016130    58107054        L       1,   84(  0,  7)
C 00016134    413092DC        LA      3,  732(  0,  9)
C 00016138    45F0C05C        BAL    15,   92(  0, 12)
C 0001613C    4311F000        IC      1,    0(  1, 15)
C 00016140    5410D018        N       1,   24(  0, 13)
C 00016144    50107058        ST      1,   88(  0,  7)


  3959                         %CYCLE JJ=1,1,8

C 00016148    41407050        LA      4,   80(  0,  7)
C 0001614C    41200001        LA      2,    1(  0,  0)
C 00016150    41300008        LA      3,    8(  0,  0)
C 00016154    90247074        STM     2,  4,  116(  7)
C 00016158    41100001        LA      1,    1(  0,  0)
C 0001615C    50104000        ST      1,    0(  0,  4)


  3960                         BYTE INTEGER(ADDR(ID1)+JJ)=LETT(KK+JJ)

C 00016160    58107054        L       1,   84(  0,  7)
C 00016164    5A107050        A       1,   80(  0,  7)
C 00016168    413092DC        LA      3,  732(  0,  9)
C 0001616C    45F0C05C        BAL    15,   92(  0, 12)
C 00016170    1F44            SLR     4,  4
C 00016172    4341F000        IC      4,    0(  1, 15)
C 00016176    4160705C        LA      6,   92(  0,  7)
C 0001617A    5A607050        A       6,   80(  0,  7)
C 0001617E    42406000        STC     4,    0(  0,  6)
C 00016182    5540D018        CL      4,   24(  0, 13)
C 00016186    472C0058        BC      2,   88( 12,  0)


  3961                         %REPEAT

C 0001618A    98247074        LM      2,  4,  116(  7)
C 0001618E    58104000        L       1,    0(  0,  4)
C 00016192    8712A108        BXLE    1,  2,  264( 10)


  3962                10:      LENGTH=8 %IF LENGTH>8

C 00016196    41100008        LA      1,    8(  0,  0)
C 0001619A    59107058        C       1,   88(  0,  7)
C 0001619E    47BA0156        BC     11,  342( 10,  0)
C 000161A2    41100008        LA      1,    8(  0,  0)
C 000161A6    50107058        ST      1,   88(  0,  7)


  3963                         BYTE INTEGER(ADDR(ID1))=LENGTH

C 000161AA    58407058        L       4,   88(  0,  7)
C 000161AE    4110705C        LA      1,   92(  0,  7)
C 000161B2    42401000        STC     4,    0(  0,  1)
C 000161B6    5540D018        CL      4,   24(  0, 13)
C 000161BA    472C0058        BC      2,   88( 12,  0)


  3964                         %IF LENGTH>7 %THEN PUSH(HEAD,ID3,0)

C 000161BE    41100007        LA      1,    7(  0,  0)
C 000161C2    59107058        C       1,   88(  0,  7)
C 000161C6    47BA0192        BC     11,  402( 10,  0)
C 000161CA    4110704C        LA      1,   76(  0,  7)
C 000161CE    5010B040        ST      1,   64(  0, 11)
C 000161D2    D203B0447064    MVC     68(  4, 11),  100(  7)
C 000161D8    1F11            SLR     1,  1
C 000161DA    5010B048        ST      1,   72(  0, 11)
C 000161DE    5810D3E0        L       1,  992(  0, 13)
C 000161E2    45F0D074        BAL    15,  116(  0, 13)


  3965                         %IF LENGTH>3 %THEN PUSH(HEAD,ID2,0)

C 000161E6    41100003        LA      1,    3(  0,  0)
C 000161EA    59107058        C       1,   88(  0,  7)
C 000161EE    47BA01BA        BC     11,  442( 10,  0)
C 000161F2    4110704C        LA      1,   76(  0,  7)
C 000161F6    5010B040        ST      1,   64(  0, 11)
C 000161FA    D203B0447060    MVC     68(  4, 11),   96(  7)
C 00016200    1F11            SLR     1,  1
C 00016202    5010B048        ST      1,   72(  0, 11)
C 00016206    5810D3E0        L       1,  992(  0, 13)
C 0001620A    45F0D074        BAL    15,  116(  0, 13)


  3966                         PUSH(HEAD,ID1,LENGTH) ;       ! COMPLETE SIDE CHAIN

C 0001620E    4110704C        LA      1,   76(  0,  7)
C 00016212    5010B040        ST      1,   64(  0, 11)
C 00016216    D203B044705C    MVC     68(  4, 11),   92(  7)
C 0001621C    D203B0487058    MVC     72(  4, 11),   88(  7)
C 00016222    5810D3E0        L       1,  992(  0, 13)
C 00016226    45F0D074        BAL    15,  116(  0, 13)


  3967                         PUSH(EPLINK,ADR,HEAD);        ! LINK TO MAIN LIST

C 0001622A    4110913E        LA      1,  318(  0,  9)
C 0001622E    5010B040        ST      1,   64(  0, 11)
C 00016232    D203B0447048    MVC     68(  4, 11),   72(  7)
C 00016238    4810704C        LH      1,   76(  0,  7)
C 0001623C    5010B048        ST      1,   72(  0, 11)
C 00016240    5810D3E0        L       1,  992(  0, 13)
C 00016244    45F0D074        BAL    15,  116(  0, 13)


  3968                         NEPS=NEPS+1

C 00016248    41100001        LA      1,    1(  0,  0)
C 0001624C    4A10913C        AH      1,  316(  0,  9)
C 00016250    4010913C        STH     1,  316(  0,  9)
C 00016254    4919013C        CH      1,  316(  9,  0)
C 00016258    477C0058        BC      7,   88( 12,  0)


  3969                         %END
D 000014FC    C2 C2 C2 C2 0F 67 07 08 44 45 46 49 4E 45 45 50 01 70 64 03 49 44 33 07 01 70 60 03 49 44 32 E8 01 70 5C 03 49 44 31 F0 01 70 58 06 4C 45 4E 47 54 48 00 06 01 70 54 02 4B 4B 40 04 01 70 50 02 4A 4A 00 01 11 70 4C 04 48 45 41 44 01 70 48 03 41 44 52 0F 01 70 44 04 4E 41 4D 45 01 70 40 04 4D 4F 44 45 FF FF FF FF


C 0001625C    D203D0147000    MVC     20(  4, 13),    0(  7)
C 00016262    984F7010        LM      4, 15,   16(  7)
C 00016266    07FF            BCR    15, 15


  3970                   %ROUTINE     REDEFINE EP(%INTEGER TYPEP,%INTEGERARRAYNAME PARAMS)

C 00016268    0000
C 0001626A    0000
C 0001626C    47FA0000        BC     15,    0( 10,  0)
C 00016270    50F0B03C        ST     15,   60(  0, 11)
C 00016274    D203B000D014    MVC      0(  4, 11),   20( 13)
C 0001627A    41000F82        LA      0, 3970(  0,  0)
C 0001627E    4000D014        STH     0,   20(  0, 13)
C 00016282    187B            LR      7, 11
C 00016284    41BB0000        LA     11,    0( 11,  0)
C 00016288    41000004        LA      0,    4(  0,  0)
C 0001628C    59BD0044        C      11,   68( 13,  0)
C 00016290    4720C054        BC      2,   84(  0, 12)
C 00016294    05A0            BALR   10,  0


  3971                         %SHORTROUTINE
  3972                         %INTEGER JJ,KK;%SHORTINTEGER OPHEAD
  3973                         JJ=N0;P=P-2;GXREF(A(P),'I')

C 00016296    D20370549088    MVC     84(  4,  7),  136(  9)



C 0001629C    58108040        L       1,   64(  0,  8)
C 000162A0    0610            BCTR    1,  0
C 000162A2    0610            BCTR    1,  0
C 000162A4    50108040        ST      1,   64(  0,  8)



C 000162A8    58108040        L       1,   64(  0,  8)
C 000162AC    413092FC        LA      3,  764(  0,  9)
C 000162B0    45F0C05C        BAL    15,   92(  0, 12)
C 000162B4    4811F000        LH      1,    0(  1, 15)
C 000162B8    5010B040        ST      1,   64(  0, 11)
C 000162BC    41100049        LA      1,   73(  0,  0)
C 000162C0    5010B044        ST      1,   68(  0, 11)
C 000162C4    5810D42C        L       1, 1068(  0, 13)
C 000162C8    45F0D074        BAL    15,  116(  0, 13)


  3974                         K=NEWCELL;OPHEAD=K

C 000162CC    5810D404        L       1, 1028(  0, 13)
C 000162D0    45F0D074        BAL    15,  116(  0, 13)
C 000162D4    501080A4        ST      1,  164(  0,  8)



C 000162D8    581080A4        L       1,  164(  0,  8)
C 000162DC    4010705C        STH     1,   92(  0,  7)
C 000162E0    4917005C        CH      1,   92(  7,  0)
C 000162E4    477C0058        BC      7,   88( 12,  0)


  3975                         ->1 %IF PARAMS(0)=0 ; %CYCLE KK=1,1,PARAMS(0)

C 000162E8    1F11            SLR     1,  1
C 000162EA    41307044        LA      3,   68(  0,  7)
C 000162EE    45F0C05C        BAL    15,   92(  0, 12)
C 000162F2    5811F000        L       1,    0(  1, 15)
C 000162F6    1211            LTR     1,  1
C 000162F8    478A0000        BC      8,    0( 10,  0)



C 000162FC    41407058        LA      4,   88(  0,  7)
C 00016300    41200001        LA      2,    1(  0,  0)
C 00016304    50207060        ST      2,   96(  0,  7)
C 00016308    1F11            SLR     1,  1
C 0001630A    41307044        LA      3,   68(  0,  7)
C 0001630E    45F0C05C        BAL    15,   92(  0, 12)
C 00016312    5831F000        L       3,    0(  1, 15)
C 00016316    90347064        STM     3,  4,  100(  7)
C 0001631A    41100001        LA      1,    1(  0,  0)
C 0001631E    50104000        ST      1,    0(  0,  4)


  3976                         INSERT AFTER(OPHEAD,PARAMS(KK),0)

C 00016322    4110705C        LA      1,   92(  0,  7)
C 00016326    5010B040        ST      1,   64(  0, 11)
C 0001632A    58107058        L       1,   88(  0,  7)
C 0001632E    41307044        LA      3,   68(  0,  7)
C 00016332    45F0C05C        BAL    15,   92(  0, 12)
C 00016336    5811F000        L       1,    0(  1, 15)
C 0001633A    5010B044        ST      1,   68(  0, 11)
C 0001633E    1F11            SLR     1,  1
C 00016340    5010B048        ST      1,   72(  0, 11)
C 00016344    5810D3D4        L       1,  980(  0, 13)
C 00016348    45F0D074        BAL    15,  116(  0, 13)


  3977                         %REPEAT

C 0001634C    98247060        LM      2,  4,   96(  7)
C 00016350    58104000        L       1,    0(  0,  4)
C 00016354    8712A088        BXLE    1,  2,  136( 10)


  3978                1:       I=9;J=14;OLDI=0;PTYPE=TYPEP

C 00016358    41100009        LA      1,    9(  0,  0)
C 0001635C    5010809C        ST      1,  156(  0,  8)



C 00016360    4110000E        LA      1,   14(  0,  0)
C 00016364    501080A0        ST      1,  160(  0,  8)



C 00016368    1F11            SLR     1,  1
C 0001636A    501080A8        ST      1,  168(  0,  8)



C 0001636E    D20380987040    MVC    152(  4,  8),   64(  7)


  3979                         REPLACE TAG(A(P));REPLACE BOTH(K,NR,PARAMS(0))

C 00016374    58108040        L       1,   64(  0,  8)
C 00016378    413092FC        LA      3,  764(  0,  9)
C 0001637C    45F0C05C        BAL    15,   92(  0, 12)
C 00016380    4811F000        LH      1,    0(  1, 15)
C 00016384    5010B040        ST      1,   64(  0, 11)
C 00016388    5810D410        L       1, 1040(  0, 13)
C 0001638C    45F0D074        BAL    15,  116(  0, 13)



C 00016390    D203B04080A4    MVC     64(  4, 11),  164(  8)
C 00016396    D203B0449104    MVC     68(  4, 11),  260(  9)
C 0001639C    1F11            SLR     1,  1
C 0001639E    41307044        LA      3,   68(  0,  7)
C 000163A2    45F0C05C        BAL    15,   92(  0, 12)
C 000163A6    5811F000        L       1,    0(  1, 15)
C 000163AA    5010B048        ST      1,   72(  0, 11)
C 000163AE    5810D3F4        L       1, 1012(  0, 13)
C 000163B2    45F0D074        BAL    15,  116(  0, 13)


  3980                         RA(NR)=JJ<<2;NR=NR+1

C 000163B6    58407054        L       4,   84(  0,  7)
C 000163BA    89400002        SLL     4,    2(  0)
C 000163BE    58109104        L       1,  260(  0,  9)
C 000163C2    413092EC        LA      3,  748(  0,  9)
C 000163C6    45F0C05C        BAL    15,   92(  0, 12)
C 000163CA    4041F000        STH     4,    0(  1, 15)
C 000163CE    494F1000        CH      4,    0( 15,  1)
C 000163D2    477C0058        BC      7,   88( 12,  0)



C 000163D6    41100001        LA      1,    1(  0,  0)
C 000163DA    5A109104        A       1,  260(  0,  9)
C 000163DE    50109104        ST      1,  260(  0,  9)


  3981                         %END
D 00001564    C2 C2 C2 C2 0F 82 07 0A 52 45 44 45 46 49 4E 45 45 50 64 03 11 70 5C 06 4F 50 48 45 41 44 32 E8 01 70 58 02 4B 4B 31 F0 01 70 54 02 4A 4A 4E 47 01 70 40 05 54 59 50 45 50 4B 40 04 FF FF FF FF


C 000163E2    D203D0147000    MVC     20(  4, 13),    0(  7)
C 000163E8    984F7010        LM      4, 15,   16(  7)
C 000163EC    07FF            BCR    15, 15


  3982                     %INTEGERFN GET DBLE WRD

C 000163EE    0000
C 000163F0    0000
C 000163F2    47FA0000        BC     15,    0( 10,  0)
C 000163F6    50F0B03C        ST     15,   60(  0, 11)
C 000163FA    D203B000D014    MVC      0(  4, 11),   20( 13)
C 00016400    41000F8E        LA      0, 3982(  0,  0)
C 00016404    4000D014        STH     0,   20(  0, 13)
C 00016408    187B            LR      7, 11
C 0001640A    41BB0000        LA     11,    0( 11,  0)
C 0001640E    41000004        LA      0,    4(  0,  0)
C 00016412    59BD0044        C      11,   68( 13,  0)
C 00016416    4720C054        BC      2,   84(  0, 12)
C 0001641A    05A0            BALR   10,  0


  3983                         %SHORT %ROUTINE
  3984                         %COMMENT PRODUCES A DOUBLE WORD OF TEMPORARY SPACE
  3985                         %COMMENT COVERED BY CURRENT BASE REGISTER (RBASE)
  3986                         %INTEGER I,J
  3987                         POP(LWSP(LEVEL),I,J)

C 0001641C    581090A8        L       1,  168(  0,  9)
C 00016420    4130923C        LA      3,  572(  0,  9)
C 00016424    45F0C05C        BAL    15,   92(  0, 12)
C 00016428    4111F000        LA      1,    0(  1, 15)
C 0001642C    5010B040        ST      1,   64(  0, 11)
C 00016430    41107040        LA      1,   64(  0,  7)
C 00016434    5010B044        ST      1,   68(  0, 11)
C 00016438    41107044        LA      1,   68(  0,  7)
C 0001643C    5010B048        ST      1,   72(  0, 11)
C 00016440    5810D3DC        L       1,  988(  0, 13)
C 00016444    45F0D074        BAL    15,  116(  0, 13)


  3988                         ->3 %UNLESS I=-1

C 00016448    5810D010        L       1,   16(  0, 13)
C 0001644C    59107040        C       1,   64(  0,  7)
C 00016450    477A0000        BC      7,    0( 10,  0)


  3989                         ->2 %IF N&7=0

C 00016454    41100007        LA      1,    7(  0,  0)
C 00016458    54109100        N       1,  256(  0,  9)
C 0001645C    478A0000        BC      8,    0( 10,  0)


  3990                         PUSH(WSP(LEVEL),0,N);N=N+4

C 00016460    581090A8        L       1,  168(  0,  9)
C 00016464    4130920C        LA      3,  524(  0,  9)
C 00016468    45F0C05C        BAL    15,   92(  0, 12)
C 0001646C    4111F000        LA      1,    0(  1, 15)
C 00016470    5010B040        ST      1,   64(  0, 11)
C 00016474    1F11            SLR     1,  1
C 00016476    5010B044        ST      1,   68(  0, 11)
C 0001647A    D203B0489100    MVC     72(  4, 11),  256(  9)
C 00016480    5810D3E0        L       1,  992(  0, 13)
C 00016484    45F0D074        BAL    15,  116(  0, 13)



C 00016488    41100004        LA      1,    4(  0,  0)
C 0001648C    5A109100        A       1,  256(  0,  9)
C 00016490    50109100        ST      1,  256(  0,  9)


  3991                2:       J=N;N=N+8

C 00016494    D20370449100    MVC     68(  4,  7),  256(  9)



C 0001649A    41100008        LA      1,    8(  0,  0)
C 0001649E    5A109100        A       1,  256(  0,  9)
C 000164A2    50109100        ST      1,  256(  0,  9)


  3992                3:       %RESULT =J

C 000164A6    58107044        L       1,   68(  0,  7)
C 000164AA    D203D0147000    MVC     20(  4, 13),    0(  7)
C 000164B0    984F7010        LM      4, 15,   16(  7)
C 000164B4    07FF            BCR    15, 15


  3993                         %END
D 000015A4    C2 C2 C2 C2 0F 8E 07 0A 47 45 54 44 42 4C 45 57 52 44 64 03 01 70 44 01 4A 50 48 45 01 70 40 01 49 70 58 02 FF FF FF FF


C 000164B6    4100000B        LA      0,   11(  0,  0)
C 000164BA    45F0C054        BAL    15,   84(  0, 12)


  3994                     %INTEGERFN     GET STR WSP

C 000164BE    0000
C 000164C0    0000
C 000164C2    47FA0000        BC     15,    0( 10,  0)
C 000164C6    50F0B03C        ST     15,   60(  0, 11)
C 000164CA    D203B000D014    MVC      0(  4, 11),   20( 13)
C 000164D0    41000F9A        LA      0, 3994(  0,  0)
C 000164D4    4000D014        STH     0,   20(  0, 13)
C 000164D8    187B            LR      7, 11
C 000164DA    41BB0000        LA     11,    0( 11,  0)
C 000164DE    41000004        LA      0,    4(  0,  0)
C 000164E2    59BD0044        C      11,   68( 13,  0)
C 000164E6    4720C054        BC      2,   84(  0, 12)
C 000164EA    05A0            BALR   10,  0


  3995                         %SHORTROUTINE
  3996                         %INTEGER I,J
  3997                         POP(STR WSP(LEVEL),I,J)

C 000164EC    581090A8        L       1,  168(  0,  9)
C 000164F0    4130927C        LA      3,  636(  0,  9)
C 000164F4    45F0C05C        BAL    15,   92(  0, 12)
C 000164F8    4111F000        LA      1,    0(  1, 15)
C 000164FC    5010B040        ST      1,   64(  0, 11)
C 00016500    41107040        LA      1,   64(  0,  7)
C 00016504    5010B044        ST      1,   68(  0, 11)
C 00016508    41107044        LA      1,   68(  0,  7)
C 0001650C    5010B048        ST      1,   72(  0, 11)
C 00016510    5810D3DC        L       1,  988(  0, 13)
C 00016514    45F0D074        BAL    15,  116(  0, 13)


  3998                         ->2 %UNLESS J=-1

C 00016518    5810D010        L       1,   16(  0, 13)
C 0001651C    59107044        C       1,   68(  0,  7)
C 00016520    477A0000        BC      7,    0( 10,  0)


  3999                         J=N; N=N+256

C 00016524    D20370449100    MVC     68(  4,  7),  256(  9)



C 0001652A    41100100        LA      1,  256(  0,  0)
C 0001652E    5A109100        A       1,  256(  0,  9)
C 00016532    50109100        ST      1,  256(  0,  9)


  4000                2:       %RESULT=J

C 00016536    58107044        L       1,   68(  0,  7)
C 0001653A    D203D0147000    MVC     20(  4, 13),    0(  7)
C 00016540    984F7010        LM      4, 15,   16(  7)
C 00016544    07FF            BCR    15, 15


  4001                         %END
D 000015CC    C2 C2 C2 C2 0F 9A 07 09 47 45 54 53 54 52 57 53 50 44 64 03 01 70 44 01 4A 50 48 45 01 70 40 01 49 70 58 02 FF FF FF FF


C 00016546    4100000B        LA      0,   11(  0,  0)
C 0001654A    45F0C054        BAL    15,   84(  0, 12)


  4002                     %ROUTINE SETEX

C 0001654E    0000
C 00016550    0000
C 00016552    47FA0000        BC     15,    0( 10,  0)
C 00016556    50F0B03C        ST     15,   60(  0, 11)
C 0001655A    D203B000D014    MVC      0(  4, 11),   20( 13)
C 00016560    41000FA2        LA      0, 4002(  0,  0)
C 00016564    4000D014        STH     0,   20(  0, 13)
C 00016568    187B            LR      7, 11
C 0001656A    41BB0000        LA     11,    0( 11,  0)
C 0001656E    41000004        LA      0,    4(  0,  0)
C 00016572    59BD0044        C      11,   68( 13,  0)
C 00016576    4720C054        BC      2,   84(  0, 12)
C 0001657A    05A0            BALR   10,  0


  4003                         %RETURN %UNLESS STRINST=0

C 0001657C    5810910C        L       1,  268(  0,  9)
C 00016580    1211            LTR     1,  1
C 00016582    478A0016        BC      8,   22( 10,  0)
C 00016586    D203D0147000    MVC     20(  4, 13),    0(  7)
C 0001658C    984F7010        LM      4, 15,   16(  7)
C 00016590    07FF            BCR    15, 15


  4004                         ST(N0)=X'D2001000'

C 00016592    5840D67C        L       4, 1660(  0, 13)
C 00016596    58109088        L       1,  136(  0,  9)
C 0001659A    4130915C        LA      3,  348(  0,  9)
C 0001659E    45F0C05C        BAL    15,   92(  0, 12)
C 000165A2    5041F000        ST      4,    0(  1, 15)


  4005                         ST(N0+1)=X'4000D500'

C 000165A6    5840D680        L       4, 1664(  0, 13)
C 000165AA    41100001        LA      1,    1(  0,  0)
C 000165AE    5A109088        A       1,  136(  0,  9)
C 000165B2    4130915C        LA      3,  348(  0,  9)
C 000165B6    45F0C05C        BAL    15,   92(  0, 12)
C 000165BA    5041F000        ST      4,    0(  1, 15)


  4006                         ST(N0+2)=X'20001000'

C 000165BE    5840D684        L       4, 1668(  0, 13)
C 000165C2    41100002        LA      1,    2(  0,  0)
C 000165C6    5A109088        A       1,  136(  0,  9)
C 000165CA    4130915C        LA      3,  348(  0,  9)
C 000165CE    45F0C05C        BAL    15,   92(  0, 12)
C 000165D2    5041F000        ST      4,    0(  1, 15)


  4007                         STRINST=N0<<2; N0=N0+3

C 000165D6    58109088        L       1,  136(  0,  9)
C 000165DA    89100002        SLL     1,    2(  0)
C 000165DE    5010910C        ST      1,  268(  0,  9)



C 000165E2    41100003        LA      1,    3(  0,  0)
C 000165E6    5A109088        A       1,  136(  0,  9)
C 000165EA    50109088        ST      1,  136(  0,  9)


  4008                         %END
D 000015F4    C2 C2 C2 C2 0F A2 07 05 53 45 54 45 58 52 57 53 FF FF FF FF


C 000165EE    D203D0147000    MVC     20(  4, 13),    0(  7)
C 000165F4    984F7010        LM      4, 15,   16(  7)
C 000165F8    07FF            BCR    15, 15


  4009                           %ROUTINE SETLINE

C 000165FA    0000
C 000165FC    0000
C 000165FE    47FA0000        BC     15,    0( 10,  0)
C 00016602    50F0B03C        ST     15,   60(  0, 11)
C 00016606    D203B000D014    MVC      0(  4, 11),   20( 13)
C 0001660C    41000FA9        LA      0, 4009(  0,  0)
C 00016610    4000D014        STH     0,   20(  0, 13)
C 00016614    187B            LR      7, 11
C 00016616    41BB0000        LA     11,    0( 11,  0)
C 0001661A    41000004        LA      0,    4(  0,  0)
C 0001661E    59BD0044        C      11,   68( 13,  0)
C 00016622    4720C054        BC      2,   84(  0, 12)
C 00016626    05A0            BALR   10,  0


  4010                         %SHORTROUTINE
  4011                         %INTEGER K
  4012                         %OWNINTEGER VALUE
  4013                         %RETURN %UNLESS LINENOS=1

C 00016628    950190D4        CLI    212(  9),  1
C 0001662C    478A0014        BC      8,   20( 10,  0)
C 00016630    D203D0147000    MVC     20(  4, 13),    0(  7)
C 00016636    984F7010        LM      4, 15,   16(  7)
C 0001663A    07FF            BCR    15, 15


  4014                         K=LINE&255

C 0001663C    411000FF        LA      1,  255(  0,  0)
C 00016640    5410907C        N       1,  124(  0,  9)
C 00016644    50107040        ST      1,   64(  0,  7)


  4015                         MONE=1 %IF K=0

C 00016648    58107040        L       1,   64(  0,  7)
C 0001664C    1211            LTR     1,  1
C 0001664E    477A002E        BC      7,   46( 10,  0)
C 00016652    920190CD        MVI    205(  9),  1


  4016                         PSI(X'92',K,GLA,23) %UNLESS K=VALUE %AND MONE=0

C 00016656    D5037040D688    CLC     64(  4,  7), 1672( 13)
C 0001665C    477A0040        BC      7,   64( 10,  0)
C 00016660    950090CD        CLI    205(  9),  0
C 00016664    478A0064        BC      8,  100( 10,  0)
C 00016668    41100092        LA      1,  146(  0,  0)
C 0001666C    5010B040        ST      1,   64(  0, 11)
C 00016670    D203B0447040    MVC     68(  4, 11),   64(  7)
C 00016676    D203B048D150    MVC     72(  4, 11),  336( 13)
C 0001667C    41100017        LA      1,   23(  0,  0)
C 00016680    5010B04C        ST      1,   76(  0, 11)
C 00016684    5810D1B8        L       1,  440(  0, 13)
C 00016688    45F0D074        BAL    15,  116(  0, 13)


  4017                         VALUE=K

C 0001668C    D203D6887040    MVC   1672(  4, 13),   64(  7)


  4018                               ->9 %IF MONE=0

C 00016692    950090CD        CLI    205(  9),  0
C 00016696    478A0000        BC      8,    0( 10,  0)


  4019                         PSI(X'92',LINE>>8,GLA,22);         ! MVI

C 0001669A    41100092        LA      1,  146(  0,  0)
C 0001669E    5010B040        ST      1,   64(  0, 11)
C 000166A2    5810907C        L       1,  124(  0,  9)
C 000166A6    88100008        SRL     1,    8(  0)
C 000166AA    5010B044        ST      1,   68(  0, 11)
C 000166AE    D203B048D150    MVC     72(  4, 11),  336( 13)
C 000166B4    41100016        LA      1,   22(  0,  0)
C 000166B8    5010B04C        ST      1,   76(  0, 11)
C 000166BC    5810D1B8        L       1,  440(  0, 13)
C 000166C0    45F0D074        BAL    15,  116(  0, 13)


  4020                9:       MONE=0; %END

C 000166C4    920090CD        MVI    205(  9),  0


D 00001608    C2 C2 C2 C2 0F A9 07 07 53 45 54 4C 49 4E 45 53 01 D6 88 05 56 41 4C 55 45 50 48 45 01 70 40 01 4B 70 58 02 FF FF FF FF


C 000166C8    D203D0147000    MVC     20(  4, 13),    0(  7)
C 000166CE    984F7010        LM      4, 15,   16(  7)
C 000166D2    07FF            BCR    15, 15


  4021                     %ROUTINE     CHECK CAPACITY(%INTEGER REG,DIS,X,LEVEL)

C 000166D4    0000
C 000166D6    0000
C 000166D8    47FA0000        BC     15,    0( 10,  0)
C 000166DC    50F0B03C        ST     15,   60(  0, 11)
C 000166E0    D203B000D014    MVC      0(  4, 11),   20( 13)
C 000166E6    41000FB5        LA      0, 4021(  0,  0)
C 000166EA    4000D014        STH     0,   20(  0, 13)
C 000166EE    187B            LR      7, 11
C 000166F0    41BB0000        LA     11,    0( 11,  0)
C 000166F4    41000004        LA      0,    4(  0,  0)
C 000166F8    59BD0044        C      11,   68( 13,  0)
C 000166FC    4720C054        BC      2,   84(  0, 12)
C 00016700    05A0            BALR   10,  0


  4022                         %SHORTROUTINE
  4023                         %INTEGER MASK
  4024                         %RETURN %UNLESS TYPE=1 %AND 1<=PREC<=2

C 00016702    95018094        CLI    148(  8),  1
C 00016706    477A0022        BC      7,   34( 10,  0)
C 0001670A    1F11            SLR     1,  1
C 0001670C    43108093        IC      1,  147(  0,  8)
C 00016710    41200001        LA      2,    1(  0,  0)
C 00016714    1921            CR      2,  1
C 00016716    473A0022        BC      3,   34( 10,  0)
C 0001671A    41200002        LA      2,    2(  0,  0)
C 0001671E    1912            CR      1,  2
C 00016720    47CA002E        BC     12,   46( 10,  0)
C 00016724    D203D0147000    MVC     20(  4, 13),    0(  7)
C 0001672A    984F7010        LM      4, 15,   16(  7)
C 0001672E    07FF            BCR    15, 15


  4025                         ->3 %IF PREC=1;               ! %YTE

C 00016730    95018093        CLI    147(  8),  1
C 00016734    478A0000        BC      8,    0( 10,  0)


  4026                         MASK=7

C 00016738    41100007        LA      1,    7(  0,  0)
C 0001673C    50107050        ST      1,   80(  0,  7)


  4027                         PRX(X'49',REG,LEVEL,X,DIS);   ! CH REG,STORED VALUE

C 00016740    41100049        LA      1,   73(  0,  0)
C 00016744    5010B040        ST      1,   64(  0, 11)
C 00016748    D203B0447040    MVC     68(  4, 11),   64(  7)
C 0001674E    D203B048704C    MVC     72(  4, 11),   76(  7)
C 00016754    D203B04C7048    MVC     76(  4, 11),   72(  7)
C 0001675A    D203B0507044    MVC     80(  4, 11),   68(  7)
C 00016760    5810D1C0        L       1,  448(  0, 13)
C 00016764    45F0D074        BAL    15,  116(  0, 13)


  4028                1:       PRX(X'47',MASK,12,0,88); ->99;          ! BC MASK,CAPACITY EXCE

C 00016768    41100047        LA      1,   71(  0,  0)
C 0001676C    5010B040        ST      1,   64(  0, 11)
C 00016770    D203B0447050    MVC     68(  4, 11),   80(  7)
C 00016776    4110000C        LA      1,   12(  0,  0)
C 0001677A    5010B048        ST      1,   72(  0, 11)
C 0001677E    1F11            SLR     1,  1
C 00016780    5010B04C        ST      1,   76(  0, 11)
C 00016784    41100058        LA      1,   88(  0,  0)
C 00016788    5010B050        ST      1,   80(  0, 11)
C 0001678C    5810D1C0        L       1,  448(  0, 13)
C 00016790    45F0D074        BAL    15,  116(  0, 13)



C 00016794    47FA0000        BC     15,    0( 10,  0)


  4029                3:       PRX(X'55',REG,0,GLA,24);      ! CL_1,=F'255'

C 00016798    41100055        LA      1,   85(  0,  0)
C 0001679C    5010B040        ST      1,   64(  0, 11)
C 000167A0    D203B0447040    MVC     68(  4, 11),   64(  7)
C 000167A6    1F11            SLR     1,  1
C 000167A8    5010B048        ST      1,   72(  0, 11)
C 000167AC    D203B04CD150    MVC     76(  4, 11),  336( 13)
C 000167B2    41100018        LA      1,   24(  0,  0)
C 000167B6    5010B050        ST      1,   80(  0, 11)
C 000167BA    5810D1C0        L       1,  448(  0, 13)
C 000167BE    45F0D074        BAL    15,  116(  0, 13)


  4030                         MASK=2; ->1

C 000167C2    41100002        LA      1,    2(  0,  0)
C 000167C6    50107050        ST      1,   80(  0,  7)



C 000167CA    47F0A066        BC     15,  102(  0, 10)


  4031                99:      %END
D 00001630    C2 C2 C2 C2 0F B5 07 0D 43 48 45 43 4B 43 41 50 41 43 49 54 59 41 4C 55 01 70 50 04 4D 41 53 4B 01 70 4C 05 4C 45 56 45 4C 70 54 02 01 70 48 01 58 70 40 05 01 70 44 03 44 49 53 04 01 70 40 03 52 45 47 01 FF FF FF FF


C 000167CE    D203D0147000    MVC     20(  4, 13),    0(  7)
C 000167D4    984F7010        LM      4, 15,   16(  7)
C 000167D8    07FF            BCR    15, 15


  4032            ! ******* LIST***PROCESSING***ROUTINES
  4033            %COMMENT MACROISING  THE FROMS,REPLACES & MLINK SAVES TIME & SPACE;
  4034            %COMMENT MACROISING  THE OTHERS SAVES TIME BUT INCREASES SIZE
  4035                     %ROUTINE FROM LIST(%INTEGER CELL,%INTEGERNAME S1,S2)

C 000167DA    0000
C 000167DC    0000
C 000167DE    47FA0000        BC     15,    0( 10,  0)
C 000167E2    50F0B03C        ST     15,   60(  0, 11)
C 000167E6    D203B000D014    MVC      0(  4, 11),   20( 13)
C 000167EC    41000FC3        LA      0, 4035(  0,  0)
C 000167F0    4000D014        STH     0,   20(  0, 13)
C 000167F4    187B            LR      7, 11
C 000167F6    41BB0000        LA     11,    0( 11,  0)
C 000167FA    41000004        LA      0,    4(  0,  0)
C 000167FE    59BD0044        C      11,   68( 13,  0)
C 00016802    4720C054        BC      2,   84(  0, 12)
C 00016806    05A0            BALR   10,  0


  4036                         %INTEGER J
  4037                         J=ADDR(ASLIST(CELL))

C 00016808    58107040        L       1,   64(  0,  7)
C 0001680C    413092CC        LA      3,  716(  0,  9)
C 00016810    45F0C05C        BAL    15,   92(  0, 12)
C 00016814    4111F000        LA      1,    0(  1, 15)
C 00016818    5010704C        ST      1,   76(  0,  7)


  4038                         S1=INTEGER(J)

C 0001681C    5810704C        L       1,   76(  0,  7)
C 00016820    58101000        L       1,    0(  0,  1)
C 00016824    58F07044        L      15,   68(  0,  7)
C 00016828    5010F000        ST      1,    0(  0, 15)


  4039                         S2= SHORT INTEGER(J+4)

C 0001682C    41100004        LA      1,    4(  0,  0)
C 00016830    5A10704C        A       1,   76(  0,  7)
C 00016834    48101000        LH      1,    0(  0,  1)
C 00016838    58F07048        L      15,   72(  0,  7)
C 0001683C    5010F000        ST      1,    0(  0, 15)


  4040                         %END
D 00001678    C2 C2 C2 C2 0F C3 07 08 46 52 4F 4D 4C 49 53 54 01 70 4C 01 4A 00 00 00 41 70 48 02 53 32 00 07 41 70 44 02 53 31 A6 F0 01 70 40 04 43 45 4C 4C FF FF FF FF


C 00016840    D203D0147000    MVC     20(  4, 13),    0(  7)
C 00016846    984F7010        LM      4, 15,   16(  7)
C 0001684A    07FF            BCR    15, 15


  4041                     %INTEGERFN NEW CELL

C 0001684C    0000
C 0001684E    0000
C 00016850    47FA0000        BC     15,    0( 10,  0)
C 00016854    50F0B03C        ST     15,   60(  0, 11)
C 00016858    D203B000D014    MVC      0(  4, 11),   20( 13)
C 0001685E    41000FC9        LA      0, 4041(  0,  0)
C 00016862    4000D014        STH     0,   20(  0, 13)
C 00016866    187B            LR      7, 11
C 00016868    41BB0000        LA     11,    0( 11,  0)
C 0001686C    41000004        LA      0,    4(  0,  0)
C 00016870    59BD0044        C      11,   68( 13,  0)
C 00016874    4720C054        BC      2,   84(  0, 12)
C 00016878    05A0            BALR   10,  0


  4042                         %INTEGER  P
  4043                         P=ASL; FAULT(107) %IF P=0

C 0001687A    D20370409064    MVC     64(  4,  7),  100(  9)



C 00016880    58107040        L       1,   64(  0,  7)
C 00016884    1211            LTR     1,  1
C 00016886    477A001C        BC      7,   28( 10,  0)
C 0001688A    926BB043        MVI     67( 11), 107
C 0001688E    5810D228        L       1,  552(  0, 13)
C 00016892    45F0D074        BAL    15,  116(  0, 13)


  4044                         ASL= SHORT INTEGER(ADDR(ASLIST(P+6)));! NEXT FREE CELL

C 00016896    41100006        LA      1,    6(  0,  0)
C 0001689A    5A107040        A       1,   64(  0,  7)
C 0001689E    413092CC        LA      3,  716(  0,  9)
C 000168A2    45F0C05C        BAL    15,   92(  0, 12)
C 000168A6    4111F000        LA      1,    0(  1, 15)
C 000168AA    48101000        LH      1,    0(  0,  1)
C 000168AE    50109064        ST      1,  100(  0,  9)


  4045                         SHORT INTEGER(ADDR(ASLIST(P+6)))=0;   ! LINK OF NEWCELL TO 0

C 000168B2    1F44            SLR     4,  4
C 000168B4    41100006        LA      1,    6(  0,  0)
C 000168B8    5A107040        A       1,   64(  0,  7)
C 000168BC    413092CC        LA      3,  716(  0,  9)
C 000168C0    45F0C05C        BAL    15,   92(  0, 12)
C 000168C4    4111F000        LA      1,    0(  1, 15)
C 000168C8    40401000        STH     4,    0(  0,  1)
C 000168CC    49410000        CH      4,    0(  1,  0)
C 000168D0    477C0058        BC      7,   88( 12,  0)


  4046                         %RESULT=P

C 000168D4    58107040        L       1,   64(  0,  7)
C 000168D8    D203D0147000    MVC     20(  4, 13),    0(  7)
C 000168DE    984F7010        LM      4, 15,   16(  7)
C 000168E2    07FF            BCR    15, 15


  4047                         %END
D 000016AC    C2 C2 C2 C2 0F C9 07 07 4E 45 57 43 45 4C 4C 03 01 70 40 01 50 00 08 55 FF FF FF FF


C 000168E4    4100000B        LA      0,   11(  0,  0)
C 000168E8    45F0C054        BAL    15,   84(  0, 12)


  4048                     %ROUTINE PUSH(%SHORTINTEGERNAME CELL,%INTEGER S1,S2)

C 000168EC    0000
C 000168EE    0000
C 000168F0    47FA0000        BC     15,    0( 10,  0)
C 000168F4    50F0B03C        ST     15,   60(  0, 11)
C 000168F8    D203B000D014    MVC      0(  4, 11),   20( 13)
C 000168FE    41000FD0        LA      0, 4048(  0,  0)
C 00016902    4000D014        STH     0,   20(  0, 13)
C 00016906    187B            LR      7, 11
C 00016908    41BB0000        LA     11,    0( 11,  0)
C 0001690C    41000004        LA      0,    4(  0,  0)
C 00016910    59BD0044        C      11,   68( 13,  0)
C 00016914    4720C054        BC      2,   84(  0, 12)
C 00016918    05A0            BALR   10,  0


  4049                         %INTEGER P,Q
  4050                         P=NEWCELL

C 0001691A    5810D404        L       1, 1028(  0, 13)
C 0001691E    45F0D074        BAL    15,  116(  0, 13)
C 00016922    5010704C        ST      1,   76(  0,  7)


  4051                         Q=ADDR(ASLIST(P))

C 00016926    5810704C        L       1,   76(  0,  7)
C 0001692A    413092CC        LA      3,  716(  0,  9)
C 0001692E    45F0C05C        BAL    15,   92(  0, 12)
C 00016932    4111F000        LA      1,    0(  1, 15)
C 00016936    50107050        ST      1,   80(  0,  7)


  4052                         INTEGER(Q)=S1

C 0001693A    58407044        L       4,   68(  0,  7)
C 0001693E    58107050        L       1,   80(  0,  7)
C 00016942    50401000        ST      4,    0(  0,  1)


  4053                         SHORT INTEGER(Q+4)=S2

C 00016946    58407048        L       4,   72(  0,  7)
C 0001694A    41100004        LA      1,    4(  0,  0)
C 0001694E    5A107050        A       1,   80(  0,  7)
C 00016952    40401000        STH     4,    0(  0,  1)
C 00016956    49410000        CH      4,    0(  1,  0)
C 0001695A    477C0058        BC      7,   88( 12,  0)


  4054                         SHORT INTEGER(Q+6)=CELL

C 0001695E    58F07040        L      15,   64(  0,  7)
C 00016962    4840F000        LH      4,    0(  0, 15)
C 00016966    41100006        LA      1,    6(  0,  0)
C 0001696A    5A107050        A       1,   80(  0,  7)
C 0001696E    40401000        STH     4,    0(  0,  1)
C 00016972    49410000        CH      4,    0(  1,  0)
C 00016976    477C0058        BC      7,   88( 12,  0)


  4055                         CELL=P

C 0001697A    5810704C        L       1,   76(  0,  7)
C 0001697E    4010F000        STH     1,    0(  0, 15)
C 00016982    491F0000        CH      1,    0( 15,  0)
C 00016986    477C0058        BC      7,   88( 12,  0)


  4056                         %END
D 000016C8    C2 C2 C2 C2 0F D0 07 04 50 55 53 48 01 70 50 01 51 FE A5 A0 01 70 4C 01 50 FE A5 B8 01 70 48 02 53 32 A5 CC 01 70 44 02 53 31 A5 D4 51 70 40 04 43 45 4C 4C FF FF FF FF


C 0001698A    D203D0147000    MVC     20(  4, 13),    0(  7)
C 00016990    984F7010        LM      4, 15,   16(  7)
C 00016994    07FF            BCR    15, 15


  4057                     %ROUTINE POP(%SHORTINTEGERNAME CELL,%INTEGERNAME S1,S2)

C 00016996    0000
C 00016998    0000
C 0001699A    47FA0000        BC     15,    0( 10,  0)
C 0001699E    50F0B03C        ST     15,   60(  0, 11)
C 000169A2    D203B000D014    MVC      0(  4, 11),   20( 13)
C 000169A8    41000FD9        LA      0, 4057(  0,  0)
C 000169AC    4000D014        STH     0,   20(  0, 13)
C 000169B0    187B            LR      7, 11
C 000169B2    41BB0000        LA     11,    0( 11,  0)
C 000169B6    41000004        LA      0,    4(  0,  0)
C 000169BA    59BD0044        C      11,   68( 13,  0)
C 000169BE    4720C054        BC      2,   84(  0, 12)
C 000169C2    05A0            BALR   10,  0


  4058                         %INTEGER P,Q
  4059                         Q=ADDR(ASLIST(CELL))

C 000169C4    58F07040        L      15,   64(  0,  7)
C 000169C8    4810F000        LH      1,    0(  0, 15)
C 000169CC    413092CC        LA      3,  716(  0,  9)
C 000169D0    45F0C05C        BAL    15,   92(  0, 12)
C 000169D4    4111F000        LA      1,    0(  1, 15)
C 000169D8    50107050        ST      1,   80(  0,  7)


  4060                         S1=INTEGER(Q)

C 000169DC    58107050        L       1,   80(  0,  7)
C 000169E0    58101000        L       1,    0(  0,  1)
C 000169E4    58F07044        L      15,   68(  0,  7)
C 000169E8    5010F000        ST      1,    0(  0, 15)


  4061                         S2=SHORT INTEGER(Q+4)

C 000169EC    41100004        LA      1,    4(  0,  0)
C 000169F0    5A107050        A       1,   80(  0,  7)
C 000169F4    48101000        LH      1,    0(  0,  1)
C 000169F8    58F07048        L      15,   72(  0,  7)
C 000169FC    5010F000        ST      1,    0(  0, 15)


  4062                         -> 1 %IF CELL=0;              ! LIST ALREADY EMPTY

C 00016A00    58F07040        L      15,   64(  0,  7)
C 00016A04    4810F000        LH      1,    0(  0, 15)
C 00016A08    1211            LTR     1,  1
C 00016A0A    0000
C 00016A0C    0000
C 00016A0E    478A0000        BC      8,    0( 10,  0)


  4063                         P=CELL; CELL=SHORT INTEGER(Q+6);! CELL ONTO NEXT CELL

C 00016A12    58F07040        L      15,   64(  0,  7)
C 00016A16    4810F000        LH      1,    0(  0, 15)
C 00016A1A    5010704C        ST      1,   76(  0,  7)



C 00016A1E    41100006        LA      1,    6(  0,  0)
C 00016A22    5A107050        A       1,   80(  0,  7)
C 00016A26    48101000        LH      1,    0(  0,  1)
C 00016A2A    4010F000        STH     1,    0(  0, 15)
C 00016A2E    491F0000        CH      1,    0( 15,  0)
C 00016A32    477C0058        BC      7,   88( 12,  0)


  4064                         SHORT INTEGER(Q+6)=ASL; ASL=P;! OLD CELL ONTO FREE LIST

C 00016A36    58409064        L       4,  100(  0,  9)
C 00016A3A    41100006        LA      1,    6(  0,  0)
C 00016A3E    5A107050        A       1,   80(  0,  7)
C 00016A42    40401000        STH     4,    0(  0,  1)
C 00016A46    49410000        CH      4,    0(  1,  0)
C 00016A4A    477C0058        BC      7,   88( 12,  0)



C 00016A4E    D2039064704C    MVC    100(  4,  9),   76(  7)


  4065                1:       %END
D 00001700    C2 C2 C2 C2 0F D9 07 03 50 4F 50 01 01 70 50 01 51 00 00 01 01 70 4C 01 50 00 00 00 41 70 48 02 53 32 A7 48 41 70 44 02 53 31 A6 E8 51 70 40 04 43 45 4C 4C FF FF FF FF


C 00016A54    D203D0147000    MVC     20(  4, 13),    0(  7)
C 00016A5A    984F7010        LM      4, 15,   16(  7)
C 00016A5E    07FF            BCR    15, 15


  4066                     %ROUTINE     REPLACE1(%INTEGER CELL,S1)

C 00016A60    0000
C 00016A62    0000
C 00016A64    47FA0000        BC     15,    0( 10,  0)
C 00016A68    50F0B03C        ST     15,   60(  0, 11)
C 00016A6C    D203B000D014    MVC      0(  4, 11),   20( 13)
C 00016A72    41000FE2        LA      0, 4066(  0,  0)
C 00016A76    4000D014        STH     0,   20(  0, 13)
C 00016A7A    187B            LR      7, 11
C 00016A7C    41BB0000        LA     11,    0( 11,  0)
C 00016A80    41000004        LA      0,    4(  0,  0)
C 00016A84    59BD0044        C      11,   68( 13,  0)
C 00016A88    4720C054        BC      2,   84(  0, 12)
C 00016A8C    05A0            BALR   10,  0


  4067                         INTEGER(ADDR(ASLIST(CELL)))=S1

C 00016A8E    58407044        L       4,   68(  0,  7)
C 00016A92    58107040        L       1,   64(  0,  7)
C 00016A96    413092CC        LA      3,  716(  0,  9)
C 00016A9A    45F0C05C        BAL    15,   92(  0, 12)
C 00016A9E    4111F000        LA      1,    0(  1, 15)
C 00016AA2    50401000        ST      4,    0(  0,  1)


  4068                         %END
D 00001738    C2 C2 C2 C2 0F E2 07 08 52 45 50 4C 41 43 45 31 01 70 44 02 53 31 08 55 01 70 40 04 43 45 4C 4C FF FF FF FF


C 00016AA6    D203D0147000    MVC     20(  4, 13),    0(  7)
C 00016AAC    984F7010        LM      4, 15,   16(  7)
C 00016AB0    07FF            BCR    15, 15


  4069                     %ROUTINE     REPLACE2(%INTEGER CELL,S2)

C 00016AB2    0000
C 00016AB4    0000
C 00016AB6    47FA0000        BC     15,    0( 10,  0)
C 00016ABA    50F0B03C        ST     15,   60(  0, 11)
C 00016ABE    D203B000D014    MVC      0(  4, 11),   20( 13)
C 00016AC4    41000FE5        LA      0, 4069(  0,  0)
C 00016AC8    4000D014        STH     0,   20(  0, 13)
C 00016ACC    187B            LR      7, 11
C 00016ACE    41BB0000        LA     11,    0( 11,  0)
C 00016AD2    41000004        LA      0,    4(  0,  0)
C 00016AD6    59BD0044        C      11,   68( 13,  0)
C 00016ADA    4720C054        BC      2,   84(  0, 12)
C 00016ADE    05A0            BALR   10,  0


  4070                         SHORT INTEGER(ADDR(ASLIST(CELL+4)))=S2

C 00016AE0    58407044        L       4,   68(  0,  7)
C 00016AE4    41100004        LA      1,    4(  0,  0)
C 00016AE8    5A107040        A       1,   64(  0,  7)
C 00016AEC    413092CC        LA      3,  716(  0,  9)
C 00016AF0    45F0C05C        BAL    15,   92(  0, 12)
C 00016AF4    4111F000        LA      1,    0(  1, 15)
C 00016AF8    40401000        STH     4,    0(  0,  1)
C 00016AFC    49410000        CH      4,    0(  1,  0)
C 00016B00    477C0058        BC      7,   88( 12,  0)


  4071                         %END
D 0000175C    C2 C2 C2 C2 0F E5 07 08 52 45 50 4C 41 43 45 32 01 70 44 02 53 32 08 55 01 70 40 04 43 45 4C 4C FF FF FF FF


C 00016B04    D203D0147000    MVC     20(  4, 13),    0(  7)
C 00016B0A    984F7010        LM      4, 15,   16(  7)
C 00016B0E    07FF            BCR    15, 15


  4072                     %ROUTINE     MLINK(%INTEGERNAME CELL)

C 00016B10    0000
C 00016B12    0000
C 00016B14    47FA0000        BC     15,    0( 10,  0)
C 00016B18    50F0B03C        ST     15,   60(  0, 11)
C 00016B1C    D203B000D014    MVC      0(  4, 11),   20( 13)
C 00016B22    41000FE8        LA      0, 4072(  0,  0)
C 00016B26    4000D014        STH     0,   20(  0, 13)
C 00016B2A    187B            LR      7, 11
C 00016B2C    41BB0000        LA     11,    0( 11,  0)
C 00016B30    41000004        LA      0,    4(  0,  0)
C 00016B34    59BD0044        C      11,   68( 13,  0)
C 00016B38    4720C054        BC      2,   84(  0, 12)
C 00016B3C    05A0            BALR   10,  0


  4073                         CELL=SHORT INTEGER(ADDR(ASLIST(CELL+6)))

C 00016B3E    41100006        LA      1,    6(  0,  0)
C 00016B42    58F07040        L      15,   64(  0,  7)
C 00016B46    5A10F000        A       1,    0(  0, 15)
C 00016B4A    413092CC        LA      3,  716(  0,  9)
C 00016B4E    45F0C05C        BAL    15,   92(  0, 12)
C 00016B52    4111F000        LA      1,    0(  1, 15)
C 00016B56    48101000        LH      1,    0(  0,  1)
C 00016B5A    58F07040        L      15,   64(  0,  7)
C 00016B5E    5010F000        ST      1,    0(  0, 15)


  4074                         %END
D 00001780    C2 C2 C2 C2 0F E8 07 05 4D 4C 49 4E 4B 43 45 32 41 70 40 04 43 45 4C 4C FF FF FF FF


C 00016B62    D203D0147000    MVC     20(  4, 13),    0(  7)
C 00016B68    984F7010        LM      4, 15,   16(  7)
C 00016B6C    07FF            BCR    15, 15


  4075                     %ROUTINE INSERT AFTER(%SHORTINTEGERNAME CELL,%INTEGER S1,S2)

C 00016B6E    0000
C 00016B70    0000
C 00016B72    47FA0000        BC     15,    0( 10,  0)
C 00016B76    50F0B03C        ST     15,   60(  0, 11)
C 00016B7A    D203B000D014    MVC      0(  4, 11),   20( 13)
C 00016B80    41000FEB        LA      0, 4075(  0,  0)
C 00016B84    4000D014        STH     0,   20(  0, 13)
C 00016B88    187B            LR      7, 11
C 00016B8A    41BB0000        LA     11,    0( 11,  0)
C 00016B8E    41000004        LA      0,    4(  0,  0)
C 00016B92    59BD0044        C      11,   68( 13,  0)
C 00016B96    4720C054        BC      2,   84(  0, 12)
C 00016B9A    05A0            BALR   10,  0


  4076                         -> 1 %IF CELL=0

C 00016B9C    58F07040        L      15,   64(  0,  7)
C 00016BA0    4810F000        LH      1,    0(  0, 15)
C 00016BA4    1211            LTR     1,  1
C 00016BA6    0000
C 00016BA8    0000
C 00016BAA    478A0000        BC      8,    0( 10,  0)


  4077                         PUSH(SHORT INTEGER(ADDR(ASLIST(CELL+6))),S1,S2)

C 00016BAE    41100006        LA      1,    6(  0,  0)
C 00016BB2    58F07040        L      15,   64(  0,  7)
C 00016BB6    4A10F000        AH      1,    0(  0, 15)
C 00016BBA    413092CC        LA      3,  716(  0,  9)
C 00016BBE    45F0C05C        BAL    15,   92(  0, 12)
C 00016BC2    4111F000        LA      1,    0(  1, 15)
C 00016BC6    5010B040        ST      1,   64(  0, 11)
C 00016BCA    41B0B048        LA     11,   72(  0, 11)
C 00016BCE    5AB0D050        A      11,   80(  0, 13)
C 00016BD2    D203B0007044    MVC      0(  4, 11),   68(  7)
C 00016BD8    41B0B004        LA     11,    4(  0, 11)
C 00016BDC    D203B0007048    MVC      0(  4, 11),   72(  7)
C 00016BE2    41000048        LA      0,   72(  0,  0)
C 00016BE6    1BB0            SR     11,  0
C 00016BE8    5810D3E0        L       1,  992(  0, 13)
C 00016BEC    45F0D074        BAL    15,  116(  0, 13)


  4078                         CELL=SHORT INTEGER(ADDR(ASLIST(CELL+6)))

C 00016BF0    41100006        LA      1,    6(  0,  0)
C 00016BF4    58F07040        L      15,   64(  0,  7)
C 00016BF8    4A10F000        AH      1,    0(  0, 15)
C 00016BFC    413092CC        LA      3,  716(  0,  9)
C 00016C00    45F0C05C        BAL    15,   92(  0, 12)
C 00016C04    4111F000        LA      1,    0(  1, 15)
C 00016C08    48101000        LH      1,    0(  0,  1)
C 00016C0C    58F07040        L      15,   64(  0,  7)
C 00016C10    4010F000        STH     1,    0(  0, 15)
C 00016C14    491F0000        CH      1,    0( 15,  0)
C 00016C18    477C0058        BC      7,   88( 12,  0)


  4079                         %RETURN

C 00016C1C    D203D0147000    MVC     20(  4, 13),    0(  7)
C 00016C22    984F7010        LM      4, 15,   16(  7)
C 00016C26    07FF            BCR    15, 15


  4080                1:       PUSH(CELL,S1,S2)

C 00016C28    58107040        L       1,   64(  0,  7)
C 00016C2C    5010B040        ST      1,   64(  0, 11)
C 00016C30    D203B0447044    MVC     68(  4, 11),   68(  7)
C 00016C36    D203B0487048    MVC     72(  4, 11),   72(  7)
C 00016C3C    5810D3E0        L       1,  992(  0, 13)
C 00016C40    45F0D074        BAL    15,  116(  0, 13)


  4081                         %END
D 0000179C    C2 C2 C2 C2 0F EB 07 0B 49 4E 53 45 52 54 41 46 54 45 52 C0 01 70 48 02 53 32 00 02 01 70 44 02 53 31 00 00 51 70 40 04 43 45 4C 4C FF FF FF FF


C 00016C44    D203D0147000    MVC     20(  4, 13),    0(  7)
C 00016C4A    984F7010        LM      4, 15,   16(  7)
C 00016C4E    07FF            BCR    15, 15


  4082                     %INTEGERFN     FIND(%INTEGER LAB,LIST)

C 00016C50    0000
C 00016C52    0000
C 00016C54    47FA0000        BC     15,    0( 10,  0)
C 00016C58    50F0B03C        ST     15,   60(  0, 11)
C 00016C5C    D203B000D014    MVC      0(  4, 11),   20( 13)
C 00016C62    41000FF2        LA      0, 4082(  0,  0)
C 00016C66    4000D014        STH     0,   20(  0, 13)
C 00016C6A    187B            LR      7, 11
C 00016C6C    41BB0000        LA     11,    0( 11,  0)
C 00016C70    41000004        LA      0,    4(  0,  0)
C 00016C74    59BD0044        C      11,   68( 13,  0)
C 00016C78    4720C054        BC      2,   84(  0, 12)
C 00016C7C    05A0            BALR   10,  0


  4083                3:       ->1 %IF LIST=0

C 00016C7E    58107044        L       1,   68(  0,  7)
C 00016C82    1211            LTR     1,  1
C 00016C84    0000
C 00016C86    0000
C 00016C88    478A0000        BC      8,    0( 10,  0)


  4084                         ->4 %IF SHORT INTEGER(ADDR(ASLIST(LIST+4)))=LAB

C 00016C8C    41100004        LA      1,    4(  0,  0)
C 00016C90    5A107044        A       1,   68(  0,  7)
C 00016C94    413092CC        LA      3,  716(  0,  9)
C 00016C98    45F0C05C        BAL    15,   92(  0, 12)
C 00016C9C    4111F000        LA      1,    0(  1, 15)
C 00016CA0    48101000        LH      1,    0(  0,  1)
C 00016CA4    59107040        C       1,   64(  0,  7)
C 00016CA8    0000
C 00016CAA    0000
C 00016CAC    478A0000        BC      8,    0( 10,  0)


  4085                         MLINK(LIST); ->3

C 00016CB0    41107044        LA      1,   68(  0,  7)
C 00016CB4    5010B040        ST      1,   64(  0, 11)
C 00016CB8    5810D3E8        L       1, 1000(  0, 13)
C 00016CBC    45F0D074        BAL    15,  116(  0, 13)



C 00016CC0    47F0A000        BC     15,    0(  0, 10)


  4086                4:       %RESULT=INTEGER(ADDR(ASLIST(LIST)))

C 00016CC4    58107044        L       1,   68(  0,  7)
C 00016CC8    413092CC        LA      3,  716(  0,  9)
C 00016CCC    45F0C05C        BAL    15,   92(  0, 12)
C 00016CD0    4111F000        LA      1,    0(  1, 15)
C 00016CD4    58101000        L       1,    0(  0,  1)
C 00016CD8    D203D0147000    MVC     20(  4, 13),    0(  7)
C 00016CDE    984F7010        LM      4, 15,   16(  7)
C 00016CE2    07FF            BCR    15, 15


  4087                1:       %RESULT =-1

C 00016CE4    5810D010        L       1,   16(  0, 13)
C 00016CE8    D203D0147000    MVC     20(  4, 13),    0(  7)
C 00016CEE    984F7010        LM      4, 15,   16(  7)
C 00016CF2    07FF            BCR    15, 15


  4088                         %END
D 000017CC    C2 C2 C2 C2 0F F2 07 04 46 49 4E 44 01 70 44 04 4C 49 53 54 01 70 40 03 4C 41 42 4A FF FF FF FF


C 00016CF4    4100000B        LA      0,   11(  0,  0)
C 00016CF8    45F0C054        BAL    15,   84(  0, 12)


  4089                     %ROUTINE     FROM1(%INTEGER CELL,%INTEGERNAME S1)

C 00016CFC    0000
C 00016CFE    0000
C 00016D00    47FA0000        BC     15,    0( 10,  0)
C 00016D04    50F0B03C        ST     15,   60(  0, 11)
C 00016D08    D203B000D014    MVC      0(  4, 11),   20( 13)
C 00016D0E    41000FF9        LA      0, 4089(  0,  0)
C 00016D12    4000D014        STH     0,   20(  0, 13)
C 00016D16    187B            LR      7, 11
C 00016D18    41BB0000        LA     11,    0( 11,  0)
C 00016D1C    41000004        LA      0,    4(  0,  0)
C 00016D20    59BD0044        C      11,   68( 13,  0)
C 00016D24    4720C054        BC      2,   84(  0, 12)
C 00016D28    05A0            BALR   10,  0


  4090                         S1=INTEGER(ADDR(ASLIST(CELL)))

C 00016D2A    58107040        L       1,   64(  0,  7)
C 00016D2E    413092CC        LA      3,  716(  0,  9)
C 00016D32    45F0C05C        BAL    15,   92(  0, 12)
C 00016D36    4111F000        LA      1,    0(  1, 15)
C 00016D3A    58101000        L       1,    0(  0,  1)
C 00016D3E    58F07044        L      15,   68(  0,  7)
C 00016D42    5010F000        ST      1,    0(  0, 15)


  4091                         %END
D 000017EC    C2 C2 C2 C2 0F F9 07 05 46 52 4F 4D 31 70 44 04 41 70 44 02 53 31 40 03 01 70 40 04 43 45 4C 4C FF FF FF FF


C 00016D46    D203D0147000    MVC     20(  4, 13),    0(  7)
C 00016D4C    984F7010        LM      4, 15,   16(  7)
C 00016D50    07FF            BCR    15, 15


  4092                     %ROUTINE     FROM2(%INTEGER CELL,%INTEGERNAME S2)

C 00016D52    0000
C 00016D54    0000
C 00016D56    47FA0000        BC     15,    0( 10,  0)
C 00016D5A    50F0B03C        ST     15,   60(  0, 11)
C 00016D5E    D203B000D014    MVC      0(  4, 11),   20( 13)
C 00016D64    41000FFC        LA      0, 4092(  0,  0)
C 00016D68    4000D014        STH     0,   20(  0, 13)
C 00016D6C    187B            LR      7, 11
C 00016D6E    41BB0000        LA     11,    0( 11,  0)
C 00016D72    41000004        LA      0,    4(  0,  0)
C 00016D76    59BD0044        C      11,   68( 13,  0)
C 00016D7A    4720C054        BC      2,   84(  0, 12)
C 00016D7E    05A0            BALR   10,  0


  4093                         S2=SHORT INTEGER(ADDR(ASLIST(CELL+4)))

C 00016D80    41100004        LA      1,    4(  0,  0)
C 00016D84    5A107040        A       1,   64(  0,  7)
C 00016D88    413092CC        LA      3,  716(  0,  9)
C 00016D8C    45F0C05C        BAL    15,   92(  0, 12)
C 00016D90    4111F000        LA      1,    0(  1, 15)
C 00016D94    48101000        LH      1,    0(  0,  1)
C 00016D98    58F07044        L      15,   68(  0,  7)
C 00016D9C    5010F000        ST      1,    0(  0, 15)


  4094                         %END
D 00001810    C2 C2 C2 C2 0F FC 07 05 46 52 4F 4D 32 70 44 04 41 70 44 02 53 32 40 03 01 70 40 04 43 45 4C 4C FF FF FF FF


C 00016DA0    D203D0147000    MVC     20(  4, 13),    0(  7)
C 00016DA6    984F7010        LM      4, 15,   16(  7)
C 00016DAA    07FF            BCR    15, 15


  4095                     %ROUTINE     REPLACE BOTH(%INTEGER CELL,S1,S2)

C 00016DAC    0000
C 00016DAE    0000
C 00016DB0    47FA0000        BC     15,    0( 10,  0)
C 00016DB4    50F0B03C        ST     15,   60(  0, 11)
C 00016DB8    D203B000D014    MVC      0(  4, 11),   20( 13)
C 00016DBE    41000FFF        LA      0, 4095(  0,  0)
C 00016DC2    4000D014        STH     0,   20(  0, 13)
C 00016DC6    187B            LR      7, 11
C 00016DC8    41BB0000        LA     11,    0( 11,  0)
C 00016DCC    41000004        LA      0,    4(  0,  0)
C 00016DD0    59BD0044        C      11,   68( 13,  0)
C 00016DD4    4720C054        BC      2,   84(  0, 12)
C 00016DD8    05A0            BALR   10,  0


  4096                         %INTEGER I
  4097                         I=ADDR(ASLIST(CELL))

C 00016DDA    58107040        L       1,   64(  0,  7)
C 00016DDE    413092CC        LA      3,  716(  0,  9)
C 00016DE2    45F0C05C        BAL    15,   92(  0, 12)
C 00016DE6    4111F000        LA      1,    0(  1, 15)
C 00016DEA    5010704C        ST      1,   76(  0,  7)


  4098                         INTEGER(I)=S1

C 00016DEE    58407044        L       4,   68(  0,  7)
C 00016DF2    5810704C        L       1,   76(  0,  7)
C 00016DF6    50401000        ST      4,    0(  0,  1)


  4099                         SHORT INTEGER(I+4)=S2

C 00016DFA    58407048        L       4,   72(  0,  7)
C 00016DFE    41100004        LA      1,    4(  0,  0)
C 00016E02    5A10704C        A       1,   76(  0,  7)
C 00016E06    40401000        STH     4,    0(  0,  1)
C 00016E0A    49410000        CH      4,    0(  1,  0)
C 00016E0E    477C0058        BC      7,   88( 12,  0)


  4100                         %END
D 00001834    C2 C2 C2 C2 0F FF 07 0B 52 45 50 4C 41 43 45 42 4F 54 48 A0 01 70 4C 01 49 FE A5 B8 01 70 48 02 53 32 A5 CC 01 70 44 02 53 31 A5 D4 01 70 40 04 43 45 4C 4C FF FF FF FF


C 00016E12    D203D0147000    MVC     20(  4, 13),    0(  7)
C 00016E18    984F7010        LM      4, 15,   16(  7)
C 00016E1C    07FF            BCR    15, 15


  4101                     %ROUTINE CLEAR LIST (%SHORTINTEGERNAME OPHEAD)

C 00016E1E    0000
C 00016E20    0000
C 00016E22    47FA0000        BC     15,    0( 10,  0)
C 00016E26    50F0B03C        ST     15,   60(  0, 11)
C 00016E2A    D203B000D014    MVC      0(  4, 11),   20( 13)
C 00016E30    41000005        LA      0,    5(  0,  0)
C 00016E34    5A00D028        A       0,   40(  0, 13)
C 00016E38    4000D014        STH     0,   20(  0, 13)
C 00016E3C    187B            LR      7, 11
C 00016E3E    41BB0000        LA     11,    0( 11,  0)
C 00016E42    41000004        LA      0,    4(  0,  0)
C 00016E46    59BD0044        C      11,   68( 13,  0)
C 00016E4A    4720C054        BC      2,   84(  0, 12)
C 00016E4E    05A0            BALR   10,  0


  4102                         %INTEGER I,J
  4103                1:       POP(OPHEAD,I,J)

C 00016E50    58107040        L       1,   64(  0,  7)
C 00016E54    5010B040        ST      1,   64(  0, 11)
C 00016E58    41107044        LA      1,   68(  0,  7)
C 00016E5C    5010B044        ST      1,   68(  0, 11)
C 00016E60    41107048        LA      1,   72(  0,  7)
C 00016E64    5010B048        ST      1,   72(  0, 11)
C 00016E68    5810D3DC        L       1,  988(  0, 13)
C 00016E6C    45F0D074        BAL    15,  116(  0, 13)


  4104                         ->1 %UNLESS I=-1

C 00016E70    5810D010        L       1,   16(  0, 13)
C 00016E74    59107044        C       1,   68(  0,  7)
C 00016E78    4770A000        BC      7,    0(  0, 10)


  4105                         %END
D 0000186C    C2 C2 C2 C2 10 05 07 09 43 4C 45 41 52 4C 49 53 54 54 48 A0 01 70 48 01 4A FE A5 B8 01 70 44 01 49 32 A5 CC 51 70 40 06 4F 50 48 45 41 44 40 04 FF FF FF FF


C 00016E7C    D203D0147000    MVC     20(  4, 13),    0(  7)
C 00016E82    984F7010        LM      4, 15,   16(  7)
C 00016E86    07FF            BCR    15, 15


  4106            ! ************END****OF****LIST****PROCESSING ROUTINES
  4107                     %ROUTINE     STORE TAG(%INTEGER KK,SLINK)

C 00016E88    0000
C 00016E8A    0000
C 00016E8C    47FA0000        BC     15,    0( 10,  0)
C 00016E90    50F0B03C        ST     15,   60(  0, 11)
C 00016E94    D203B000D014    MVC      0(  4, 11),   20( 13)
C 00016E9A    4100000B        LA      0,   11(  0,  0)
C 00016E9E    5A00D028        A       0,   40(  0, 13)
C 00016EA2    4000D014        STH     0,   20(  0, 13)
C 00016EA6    187B            LR      7, 11
C 00016EA8    41BB0000        LA     11,    0( 11,  0)
C 00016EAC    41000004        LA      0,    4(  0,  0)
C 00016EB0    59BD0044        C      11,   68( 13,  0)
C 00016EB4    4720C054        BC      2,   84(  0, 12)
C 00016EB8    05A0            BALR   10,  0


  4108                         PUSH(TAGS(KK),PTYPE<<16!LEVEL<<8!RBASE<<4!J,SLINK)

C 00016EBA    58107040        L       1,   64(  0,  7)
C 00016EBE    4130931C        LA      3,  796(  0,  9)
C 00016EC2    45F0C05C        BAL    15,   92(  0, 12)
C 00016EC6    4111F000        LA      1,    0(  1, 15)
C 00016ECA    5010B040        ST      1,   64(  0, 11)
C 00016ECE    58108098        L       1,  152(  0,  8)
C 00016ED2    89100010        SLL     1,   16(  0)
C 00016ED6    582090A8        L       2,  168(  0,  9)
C 00016EDA    89200008        SLL     2,    8(  0)
C 00016EDE    1612            OR      1,  2
C 00016EE0    582090F4        L       2,  244(  0,  9)
C 00016EE4    89200004        SLL     2,    4(  0)
C 00016EE8    1612            OR      1,  2
C 00016EEA    561080A0        O       1,  160(  0,  8)
C 00016EEE    5010B044        ST      1,   68(  0, 11)
C 00016EF2    D203B0487044    MVC     72(  4, 11),   68(  7)
C 00016EF8    5810D3E0        L       1,  992(  0, 13)
C 00016EFC    45F0D074        BAL    15,  116(  0, 13)


  4109                         PUSH(NAME(LEVEL),0,KK) %UNLESS LEVEL<=1

C 00016F00    41100001        LA      1,    1(  0,  0)
C 00016F04    591090A8        C       1,  168(  0,  9)
C 00016F08    47AA007A        BC     10,  122( 10,  0)
C 00016F0C    581090A8        L       1,  168(  0,  9)
C 00016F10    413091CC        LA      3,  460(  0,  9)
C 00016F14    45F0C05C        BAL    15,   92(  0, 12)
C 00016F18    4111F000        LA      1,    0(  1, 15)
C 00016F1C    5010B040        ST      1,   64(  0, 11)
C 00016F20    1F11            SLR     1,  1
C 00016F22    5010B044        ST      1,   68(  0, 11)
C 00016F26    D203B0487040    MVC     72(  4, 11),   64(  7)
C 00016F2C    5810D3E0        L       1,  992(  0, 13)
C 00016F30    45F0D074        BAL    15,  116(  0, 13)


  4110                         %END
D 000018A0    C2 C2 C2 C2 10 0B 07 08 53 54 4F 52 45 54 41 47 01 70 44 05 53 4C 49 4E 4B FE A5 B8 01 70 40 02 4B 4B A5 CC FF FF FF FF


C 00016F34    D203D0147000    MVC     20(  4, 13),    0(  7)
C 00016F3A    984F7010        LM      4, 15,   16(  7)
C 00016F3E    07FF            BCR    15, 15


  4111                     %INTEGERFN     COUNT APS

C 00016F40    0000
C 00016F42    0000
C 00016F44    47FA0000        BC     15,    0( 10,  0)
C 00016F48    50F0B03C        ST     15,   60(  0, 11)
C 00016F4C    D203B000D014    MVC      0(  4, 11),   20( 13)
C 00016F52    4100000F        LA      0,   15(  0,  0)
C 00016F56    5A00D028        A       0,   40(  0, 13)
C 00016F5A    4000D014        STH     0,   20(  0, 13)
C 00016F5E    187B            LR      7, 11
C 00016F60    41BB0000        LA     11,    0( 11,  0)
C 00016F64    41000004        LA      0,    4(  0,  0)
C 00016F68    59BD0044        C      11,   68( 13,  0)
C 00016F6C    4720C054        BC      2,   84(  0, 12)
C 00016F70    05A0            BALR   10,  0


  4112                         %INTEGER PP,Q
  4113                         Q=0; PP=P; P=P+1;             ! P ON NAME AT ENTRY

C 00016F72    1F11            SLR     1,  1
C 00016F74    50107044        ST      1,   68(  0,  7)



C 00016F78    D20370408040    MVC     64(  4,  7),   64(  8)



C 00016F7E    41100001        LA      1,    1(  0,  0)
C 00016F82    5A108040        A       1,   64(  0,  8)
C 00016F86    50108040        ST      1,   64(  0,  8)


  4114                1:       ->2 %IF A(P)=2

C 00016F8A    58108040        L       1,   64(  0,  8)
C 00016F8E    413092FC        LA      3,  764(  0,  9)
C 00016F92    45F0C05C        BAL    15,   92(  0, 12)
C 00016F96    4811F000        LH      1,    0(  1, 15)
C 00016F9A    41200002        LA      2,    2(  0,  0)
C 00016F9E    1912            CR      1,  2
C 00016FA0    0000
C 00016FA2    0000
C 00016FA4    478A0000        BC      8,    0( 10,  0)


  4115                      P=P+1; Q=Q+1; SKIP EXP; ->1

C 00016FA8    41100001        LA      1,    1(  0,  0)
C 00016FAC    5A108040        A       1,   64(  0,  8)
C 00016FB0    50108040        ST      1,   64(  0,  8)



C 00016FB4    41100001        LA      1,    1(  0,  0)
C 00016FB8    5A107044        A       1,   68(  0,  7)
C 00016FBC    50107044        ST      1,   68(  0,  7)



C 00016FC0    5810D444        L       1, 1092(  0, 13)
C 00016FC4    45F0D074        BAL    15,  116(  0, 13)



C 00016FC8    47F0A018        BC     15,   24(  0, 10)


  4116                2:       P=PP; %RESULT=Q

C 00016FCC    D20380407040    MVC     64(  4,  8),   64(  7)



C 00016FD2    58107044        L       1,   68(  0,  7)
C 00016FD6    D203D0147000    MVC     20(  4, 13),    0(  7)
C 00016FDC    984F7010        LM      4, 15,   16(  7)
C 00016FE0    07FF            BCR    15, 15


  4117                         %END
D 000018C8    C2 C2 C2 C2 10 0F 07 08 43 4F 55 4E 54 41 50 53 01 70 44 01 51 4C 49 4E 01 70 40 02 50 50 40 02 FF FF FF FF


C 00016FE2    4100000B        LA      0,   11(  0,  0)
C 00016FE6    45F0C054        BAL    15,   84(  0, 12)


  4118                     %INTEGERFN     DISPLACEMENT(%INTEGER LINK)

C 00016FEA    0000
C 00016FEC    0000
C 00016FEE    47FA0000        BC     15,    0( 10,  0)
C 00016FF2    50F0B03C        ST     15,   60(  0, 11)
C 00016FF6    D203B000D014    MVC      0(  4, 11),   20( 13)
C 00016FFC    41000016        LA      0,   22(  0,  0)
C 00017000    5A00D028        A       0,   40(  0, 13)
C 00017004    4000D014        STH     0,   20(  0, 13)
C 00017008    187B            LR      7, 11
C 0001700A    41BB0000        LA     11,    0( 11,  0)
C 0001700E    41000004        LA      0,    4(  0,  0)
C 00017012    59BD0044        C      11,   68( 13,  0)
C 00017016    4720C054        BC      2,   84(  0, 12)
C 0001701A    05A0            BALR   10,  0


  4119                         %SHORTROUTINE
  4120                ! A(P) HAS ENAME--LINK IS HEAD OF RFORMAT LIST. RESULT IS DISP FROM
  4121                ! START OF RECORD FOR SCALAR DISP OF DV FROM RECORD FORMAT FOR ARRAY
  4122                         %INTEGER RR,II
  4123                         ->2 %IF LINK=0

C 0001701C    58107040        L       1,   64(  0,  7)
C 00017020    1211            LTR     1,  1
C 00017022    478A0000        BC      8,    0( 10,  0)


  4124                         FROM2(LINK,LINK)

C 00017026    D203B0407040    MVC     64(  4, 11),   64(  7)
C 0001702C    41107040        LA      1,   64(  0,  7)
C 00017030    5010B044        ST      1,   68(  0, 11)
C 00017034    5810D3F8        L       1, 1016(  0, 13)
C 00017038    45F0D074        BAL    15,  116(  0, 13)


  4125                1:       MLINK(LINK); FROM LIST(LINK,RR,II)

C 0001703C    41107040        LA      1,   64(  0,  7)
C 00017040    5010B040        ST      1,   64(  0, 11)
C 00017044    5810D3E8        L       1, 1000(  0, 13)
C 00017048    45F0D074        BAL    15,  116(  0, 13)



C 0001704C    D203B0407040    MVC     64(  4, 11),   64(  7)
C 00017052    41107044        LA      1,   68(  0,  7)
C 00017056    5010B044        ST      1,   68(  0, 11)
C 0001705A    41107048        LA      1,   72(  0,  7)
C 0001705E    5010B048        ST      1,   72(  0, 11)
C 00017062    5810D3D8        L       1,  984(  0, 13)
C 00017066    45F0D074        BAL    15,  116(  0, 13)


  4126                         ->2 %IF II=-1

C 0001706A    5810D010        L       1,   16(  0, 13)
C 0001706E    59107048        C       1,   72(  0,  7)
C 00017072    478A0000        BC      8,    0( 10,  0)


  4127                         J=RR&15;PTYPE=RR>>4&X'FFFF'

C 00017076    4110000F        LA      1,   15(  0,  0)
C 0001707A    54107044        N       1,   68(  0,  7)
C 0001707E    501080A0        ST      1,  160(  0,  8)



C 00017082    58107044        L       1,   68(  0,  7)
C 00017086    88100004        SRL     1,    4(  0)
C 0001708A    5410D690        N       1, 1680(  0, 13)
C 0001708E    50108098        ST      1,  152(  0,  8)


  4128                         RR=RR>>20;K=LINK

C 00017092    58107044        L       1,   68(  0,  7)
C 00017096    88100014        SRL     1,   20(  0)
C 0001709A    50107044        ST      1,   68(  0,  7)



C 0001709E    D20380A47040    MVC    164(  4,  8),   64(  7)


  4129                         INREG=0

C 000170A4    1F11            SLR     1,  1
C 000170A6    501080AC        ST      1,  172(  0,  8)


  4130                         ->99 %IF RR=A(P); ->1

C 000170AA    58108040        L       1,   64(  0,  8)
C 000170AE    413092FC        LA      3,  764(  0,  9)
C 000170B2    45F0C05C        BAL    15,   92(  0, 12)
C 000170B6    4811F000        LH      1,    0(  1, 15)
C 000170BA    59107044        C       1,   68(  0,  7)
C 000170BE    478A0000        BC      8,    0( 10,  0)



C 000170C2    47F0A020        BC     15,   32(  0, 10)


  4131                2:       FAULT(65); PRINT NAME(A(P))

C 000170C6    9241B043        MVI     67( 11), 65
C 000170CA    5810D228        L       1,  552(  0, 13)
C 000170CE    45F0D074        BAL    15,  116(  0, 13)



C 000170D2    58108040        L       1,   64(  0,  8)
C 000170D6    413092FC        LA      3,  764(  0,  9)
C 000170DA    45F0C05C        BAL    15,   92(  0, 12)
C 000170DE    4811F000        LH      1,    0(  1, 15)
C 000170E2    5010B040        ST      1,   64(  0, 11)
C 000170E6    5810D230        L       1,  560(  0, 13)
C 000170EA    45F0D074        BAL    15,  116(  0, 13)


  4132                         PTYPE=1

C 000170EE    41100001        LA      1,    1(  0,  0)
C 000170F2    50108098        ST      1,  152(  0,  8)


  4133                99:      %RESULT=II

C 000170F6    58107048        L       1,   72(  0,  7)
C 000170FA    D203D0147000    MVC     20(  4, 13),    0(  7)
C 00017100    984F7010        LM      4, 15,   16(  7)
C 00017104    07FF            BCR    15, 15


  4134                         %END
D 000018EC    C2 C2 C2 C2 10 16 07 0C 44 49 53 50 4C 41 43 45 4D 45 4E 54 01 70 48 02 49 49 40 02 01 70 44 02 52 52 FF FF 01 70 40 04 4C 49 4E 4B FF FF FF FF


C 00017106    4100000B        LA      0,   11(  0,  0)
C 0001710A    45F0C054        BAL    15,   84(  0, 12)


  4135                     %INTEGERFN     COPY RECORD TAG

C 0001710E    0000
C 00017110    0000
C 00017112    47FA0000        BC     15,    0( 10,  0)
C 00017116    50F0B03C        ST     15,   60(  0, 11)
C 0001711A    D203B000D014    MVC      0(  4, 11),   20( 13)
C 00017120    41000027        LA      0,   39(  0,  0)
C 00017124    5A00D028        A       0,   40(  0, 13)
C 00017128    4000D014        STH     0,   20(  0, 13)
C 0001712C    187B            LR      7, 11
C 0001712E    41BB0000        LA     11,    0( 11,  0)
C 00017132    41000004        LA      0,    4(  0,  0)
C 00017136    59BD0044        C      11,   68( 13,  0)
C 0001713A    4720C054        BC      2,   84(  0, 12)
C 0001713E    05A0            BALR   10,  0


  4136                         %SHORTROUTINE
  4137                         ! AS COPY TAG-GIVES TYNE ETC OF THE ENAME
  4138                         !P POINTS TO RECORD NAME
  4139                         %INTEGER Q,FNAME
  4140                         ! K POINT TO SIDE CHAIN
  4141                1:       FROM1(K,FNAME)

C 00017140    D203B04080A4    MVC     64(  4, 11),  164(  8)
C 00017146    41107044        LA      1,   68(  0,  7)
C 0001714A    5010B044        ST      1,   68(  0, 11)
C 0001714E    5810D3FC        L       1, 1020(  0, 13)
C 00017152    45F0D074        BAL    15,  116(  0, 13)


  4142                         P=P+1; SKIP APP

C 00017156    41100001        LA      1,    1(  0,  0)
C 0001715A    5A108040        A       1,   64(  0,  8)
C 0001715E    50108040        ST      1,   64(  0,  8)



C 00017162    5810D39C        L       1,  924(  0, 13)
C 00017166    45F0D074        BAL    15,  116(  0, 13)


  4143                         %RESULT=0 %IF A(P)=2

C 0001716A    58108040        L       1,   64(  0,  8)
C 0001716E    413092FC        LA      3,  764(  0,  9)
C 00017172    45F0C05C        BAL    15,   92(  0, 12)
C 00017176    4811F000        LH      1,    0(  1, 15)
C 0001717A    41200002        LA      2,    2(  0,  0)
C 0001717E    1912            CR      1,  2
C 00017180    477A0052        BC      7,   82( 10,  0)
C 00017184    1F11            SLR     1,  1
C 00017186    D203D0147000    MVC     20(  4, 13),    0(  7)
C 0001718C    984F7010        LM      4, 15,   16(  7)
C 00017190    07FF            BCR    15, 15


  4144                         P=P+1; Q=DISPLACEMENT (FNAME)

C 00017192    41100001        LA      1,    1(  0,  0)
C 00017196    5A108040        A       1,   64(  0,  8)
C 0001719A    50108040        ST      1,   64(  0,  8)



C 0001719E    D203B0407044    MVC     64(  4, 11),   68(  7)
C 000171A4    5810D394        L       1,  916(  0, 13)
C 000171A8    45F0D074        BAL    15,  116(  0, 13)
C 000171AC    50107040        ST      1,   64(  0,  7)


  4145                         PTYPE=7 %IF Q=-1

C 000171B0    5810D010        L       1,   16(  0, 13)
C 000171B4    59107040        C       1,   64(  0,  7)
C 000171B8    477A0084        BC      7,  132( 10,  0)
C 000171BC    41100007        LA      1,    7(  0,  0)
C 000171C0    50108098        ST      1,  152(  0,  8)


  4146                         UNPACK

C 000171C4    5810D448        L       1, 1096(  0, 13)
C 000171C8    45F0D074        BAL    15,  116(  0, 13)


  4147                         %IF TYPE=3 %THEN %START

C 000171CC    95038094        CLI    148(  8),  3
C 000171D0    477A0000        BC      7,    0( 10,  0)


  4148                         K=Q; ->1; %FINISH

C 000171D4    D20380A47040    MVC    164(  4,  8),   64(  7)



C 000171DA    47F0A000        BC     15,    0(  0, 10)


  4149                         %RESULT=-1 %IF Q=-1

C 000171DE    5810D010        L       1,   16(  0, 13)
C 000171E2    59107040        C       1,   64(  0,  7)
C 000171E6    477A00BA        BC      7,  186( 10,  0)
C 000171EA    5810D010        L       1,   16(  0, 13)
C 000171EE    D203D0147000    MVC     20(  4, 13),    0(  7)
C 000171F4    984F7010        LM      4, 15,   16(  7)
C 000171F8    07FF            BCR    15, 15


  4150                         %RESULT=1

C 000171FA    41100001        LA      1,    1(  0,  0)
C 000171FE    D203D0147000    MVC     20(  4, 13),    0(  7)
C 00017204    984F7010        LM      4, 15,   16(  7)
C 00017208    07FF            BCR    15, 15


  4151                         %END
D 0000191C    C2 C2 C2 C2 10 27 07 0D 43 4F 50 59 52 45 43 4F 52 44 54 41 47 70 48 02 01 70 44 05 46 4E 41 4D 45 52 FF FF 01 70 40 01 51 49 4E 4B FF FF FF FF


C 0001720A    4100000B        LA      0,   11(  0,  0)
C 0001720E    45F0C054        BAL    15,   84(  0, 12)


  4152                     %ROUTINE COPY TAG(%INTEGER KK)

C 00017212    0000
C 00017214    0000
C 00017216    47FA0000        BC     15,    0( 10,  0)
C 0001721A    50F0B03C        ST     15,   60(  0, 11)
C 0001721E    D203B000D014    MVC      0(  4, 11),   20( 13)
C 00017224    41000038        LA      0,   56(  0,  0)
C 00017228    5A00D028        A       0,   40(  0, 13)
C 0001722C    4000D014        STH     0,   20(  0, 13)
C 00017230    187B            LR      7, 11
C 00017232    41BB0000        LA     11,    0( 11,  0)
C 00017236    41000004        LA      0,    4(  0,  0)
C 0001723A    59BD0044        C      11,   68( 13,  0)
C 0001723E    4720C054        BC      2,   84(  0, 12)
C 00017242    05A0            BALR   10,  0


  4153                         %INTEGER Q
  4154                         FROM LIST(TAGS(KK),Q,K)

C 00017244    58107040        L       1,   64(  0,  7)
C 00017248    4130931C        LA      3,  796(  0,  9)
C 0001724C    45F0C05C        BAL    15,   92(  0, 12)
C 00017250    4811F000        LH      1,    0(  1, 15)
C 00017254    5010B040        ST      1,   64(  0, 11)
C 00017258    41107044        LA      1,   68(  0,  7)
C 0001725C    5010B044        ST      1,   68(  0, 11)
C 00017260    411080A4        LA      1,  164(  0,  8)
C 00017264    5010B048        ST      1,   72(  0, 11)
C 00017268    5810D3D8        L       1,  984(  0, 13)
C 0001726C    45F0D074        BAL    15,  116(  0, 13)


  4155                         -> NOT SET %IF Q=-1

C 00017270    5810D010        L       1,   16(  0, 13)
C 00017274    59107044        C       1,   68(  0,  7)
C 00017278    0000
C 0001727A    0000
C 0001727C    478A0000        BC      8,    0( 10,  0)


  4156                         PTYPE=Q>>16

C 00017280    58107044        L       1,   68(  0,  7)
C 00017284    88100010        SRL     1,   16(  0)
C 00017288    50108098        ST      1,  152(  0,  8)


  4157                         INREG=Q>>12&15

C 0001728C    58107044        L       1,   68(  0,  7)
C 00017290    8810000C        SRL     1,   12(  0)
C 00017294    4120000F        LA      2,   15(  0,  0)
C 00017298    1412            NR      1,  2
C 0001729A    501080AC        ST      1,  172(  0,  8)


  4158                         OLDI=Q>>8&15

C 0001729E    58107044        L       1,   68(  0,  7)
C 000172A2    88100008        SRL     1,    8(  0)
C 000172A6    4120000F        LA      2,   15(  0,  0)
C 000172AA    1412            NR      1,  2
C 000172AC    501080A8        ST      1,  168(  0,  8)


  4159                         I=Q>>4&15

C 000172B0    58107044        L       1,   68(  0,  7)
C 000172B4    88100004        SRL     1,    4(  0)
C 000172B8    4120000F        LA      2,   15(  0,  0)
C 000172BC    1412            NR      1,  2
C 000172BE    5010809C        ST      1,  156(  0,  8)


  4160                         J=Q&15

C 000172C2    4110000F        LA      1,   15(  0,  0)
C 000172C6    54107044        N       1,   68(  0,  7)
C 000172CA    501080A0        ST      1,  160(  0,  8)


  4161                1:       UNPACK

C 000172CE    5810D448        L       1, 1096(  0, 13)
C 000172D2    45F0D074        BAL    15,  116(  0, 13)


  4162                         %RETURN

C 000172D6    D203D0147000    MVC     20(  4, 13),    0(  7)
C 000172DC    984F7010        LM      4, 15,   16(  7)
C 000172E0    07FF            BCR    15, 15


  4163                NOTSET:  PTYPE=7

C 000172E2    41100007        LA      1,    7(  0,  0)
C 000172E6    50108098        ST      1,  152(  0,  8)


  4164                         I=-1; J=I; OLDI=J; -> 1

C 000172EA    5810D010        L       1,   16(  0, 13)
C 000172EE    5010809C        ST      1,  156(  0,  8)



C 000172F2    D20380A0809C    MVC    160(  4,  8),  156(  8)



C 000172F8    D20380A880A0    MVC    168(  4,  8),  160(  8)



C 000172FE    47F0A08A        BC     15,  138(  0, 10)


  4165                         %END
D 0000194C    C2 C2 C2 C2 10 38 07 07 43 4F 50 59 54 41 47 B8 01 70 44 01 51 70 48 02 01 70 40 02 4B 4B 41 4D FF FF FF FF


C 00017302    D203D0147000    MVC     20(  4, 13),    0(  7)
C 00017308    984F7010        LM      4, 15,   16(  7)
C 0001730C    07FF            BCR    15, 15


  4166                           %ROUTINE REPLACE TAG (%INTEGER KK)

C 0001730E    0000
C 00017310    0000
C 00017312    47FA0000        BC     15,    0( 10,  0)
C 00017316    50F0B03C        ST     15,   60(  0, 11)
C 0001731A    D203B000D014    MVC      0(  4, 11),   20( 13)
C 00017320    41000046        LA      0,   70(  0,  0)
C 00017324    5A00D028        A       0,   40(  0, 13)
C 00017328    4000D014        STH     0,   20(  0, 13)
C 0001732C    187B            LR      7, 11
C 0001732E    41BB0000        LA     11,    0( 11,  0)
C 00017332    41000004        LA      0,    4(  0,  0)
C 00017336    59BD0044        C      11,   68( 13,  0)
C 0001733A    4720C054        BC      2,   84(  0, 12)
C 0001733E    05A0            BALR   10,  0


  4167                         %SHORTROUTINE
  4168                         %INTEGER P,Q
  4169                               P=TAGS(KK)

C 00017340    58107040        L       1,   64(  0,  7)
C 00017344    4130931C        LA      3,  796(  0,  9)
C 00017348    45F0C05C        BAL    15,   92(  0, 12)
C 0001734C    4811F000        LH      1,    0(  1, 15)
C 00017350    50107044        ST      1,   68(  0,  7)


  4170                         Q=PTYPE<<16!INREG<<12!OLDI<<8!I<<4!J

C 00017354    58108098        L       1,  152(  0,  8)
C 00017358    89100010        SLL     1,   16(  0)
C 0001735C    582080AC        L       2,  172(  0,  8)
C 00017360    8920000C        SLL     2,   12(  0)
C 00017364    1612            OR      1,  2
C 00017366    582080A8        L       2,  168(  0,  8)
C 0001736A    89200008        SLL     2,    8(  0)
C 0001736E    1612            OR      1,  2
C 00017370    5820809C        L       2,  156(  0,  8)
C 00017374    89200004        SLL     2,    4(  0)
C 00017378    1612            OR      1,  2
C 0001737A    561080A0        O       1,  160(  0,  8)
C 0001737E    50107048        ST      1,   72(  0,  7)


  4171                         REPLACE BOTH(P,Q,K)

C 00017382    D203B0407044    MVC     64(  4, 11),   68(  7)
C 00017388    D203B0447048    MVC     68(  4, 11),   72(  7)
C 0001738E    D203B04880A4    MVC     72(  4, 11),  164(  8)
C 00017394    5810D3F4        L       1, 1012(  0, 13)
C 00017398    45F0D074        BAL    15,  116(  0, 13)


  4172                               %END
D 00001970    C2 C2 C2 C2 10 46 07 0A 52 45 50 4C 41 43 45 54 41 47 00 00 01 70 48 01 51 FE A7 40 01 70 44 01 50 FE A6 E0 01 70 40 02 4B 4B 00 02 FF FF FF FF


C 0001739C    D203D0147000    MVC     20(  4, 13),    0(  7)
C 000173A2    984F7010        LM      4, 15,   16(  7)
C 000173A6    07FF            BCR    15, 15


  4173                     %ROUTINE UNPACK

C 000173A8    0000
C 000173AA    0000
C 000173AC    47FA0000        BC     15,    0( 10,  0)
C 000173B0    50F0B03C        ST     15,   60(  0, 11)
C 000173B4    D203B000D014    MVC      0(  4, 11),   20( 13)
C 000173BA    4100004D        LA      0,   77(  0,  0)
C 000173BE    5A00D028        A       0,   40(  0, 13)
C 000173C2    4000D014        STH     0,   20(  0, 13)
C 000173C6    187B            LR      7, 11
C 000173C8    41BB0000        LA     11,    0( 11,  0)
C 000173CC    41000004        LA      0,    4(  0,  0)
C 000173D0    59BD0044        C      11,   68( 13,  0)
C 000173D4    4720C054        BC      2,   84(  0, 12)
C 000173D8    05A0            BALR   10,  0


  4174                         %INTEGER Q
  4175                         ROUT=PTYPE//10000

C 000173DA    58008098        L       0,  152(  0,  8)
C 000173DE    8E000020        SRDA    0,   32(  0)
C 000173E2    5D00D694        D       0, 1684(  0, 13)
C 000173E6    42108090        STC     1,  144(  0,  8)
C 000173EA    5510D018        CL      1,   24(  0, 13)
C 000173EE    472C0058        BC      2,   88( 12,  0)


  4176                         Q=PTYPE-10000*ROUT

C 000173F2    5810D698        L       1, 1688(  0, 13)
C 000173F6    1F22            SLR     2,  2
C 000173F8    43208090        IC      2,  144(  0,  8)
C 000173FC    1C02            MR      0,  2
C 000173FE    58208098        L       2,  152(  0,  8)
C 00017402    1B21            SR      2,  1
C 00017404    50207040        ST      2,   64(  0,  7)


  4177                         NAM=Q//1000

C 00017408    58007040        L       0,   64(  0,  7)
C 0001740C    8E000020        SRDA    0,   32(  0)
C 00017410    412003E8        LA      2, 1000(  0,  0)
C 00017414    1D02            DR      0,  2
C 00017416    42108091        STC     1,  145(  0,  8)
C 0001741A    5510D018        CL      1,   24(  0, 13)
C 0001741E    472C0058        BC      2,   88( 12,  0)


  4178                         Q=Q-1000*NAM

C 00017422    411003E8        LA      1, 1000(  0,  0)
C 00017426    1F22            SLR     2,  2
C 00017428    43208091        IC      2,  145(  0,  8)
C 0001742C    1C02            MR      0,  2
C 0001742E    58207040        L       2,   64(  0,  7)
C 00017432    1B21            SR      2,  1
C 00017434    50207040        ST      2,   64(  0,  7)


  4179                         ARR=Q//100

C 00017438    58007040        L       0,   64(  0,  7)
C 0001743C    8E000020        SRDA    0,   32(  0)
C 00017440    41200064        LA      2,  100(  0,  0)
C 00017444    1D02            DR      0,  2
C 00017446    42108092        STC     1,  146(  0,  8)
C 0001744A    5510D018        CL      1,   24(  0, 13)
C 0001744E    472C0058        BC      2,   88( 12,  0)


  4180                         Q=Q-100*ARR

C 00017452    41100064        LA      1,  100(  0,  0)
C 00017456    1F22            SLR     2,  2
C 00017458    43208092        IC      2,  146(  0,  8)
C 0001745C    1C02            MR      0,  2
C 0001745E    58207040        L       2,   64(  0,  7)
C 00017462    1B21            SR      2,  1
C 00017464    50207040        ST      2,   64(  0,  7)


  4181                         PREC=Q//10

C 00017468    58007040        L       0,   64(  0,  7)
C 0001746C    8E000020        SRDA    0,   32(  0)
C 00017470    4120000A        LA      2,   10(  0,  0)
C 00017474    1D02            DR      0,  2
C 00017476    42108093        STC     1,  147(  0,  8)
C 0001747A    5510D018        CL      1,   24(  0, 13)
C 0001747E    472C0058        BC      2,   88( 12,  0)


  4182                         TYPE=Q-10*PREC

C 00017482    4110000A        LA      1,   10(  0,  0)
C 00017486    1F22            SLR     2,  2
C 00017488    43208093        IC      2,  147(  0,  8)
C 0001748C    1C02            MR      0,  2
C 0001748E    58207040        L       2,   64(  0,  7)
C 00017492    1B21            SR      2,  1
C 00017494    42208094        STC     2,  148(  0,  8)
C 00017498    5520D018        CL      2,   24(  0, 13)
C 0001749C    472C0058        BC      2,   88( 12,  0)


  4183                         %END
D 000019A0    C2 C2 C2 C2 10 4D 07 06 55 4E 50 41 43 4B 45 54 01 70 40 01 51 70 48 01 FF FF FF FF


C 000174A0    D203D0147000    MVC     20(  4, 13),    0(  7)
C 000174A6    984F7010        LM      4, 15,   16(  7)
C 000174AA    07FF            BCR    15, 15


  4184                     %ROUTINE     PACK(%INTEGERNAME PTYPE)

C 000174AC    0000
C 000174AE    0000
C 000174B0    47FA0000        BC     15,    0( 10,  0)
C 000174B4    50F0B03C        ST     15,   60(  0, 11)
C 000174B8    D203B000D014    MVC      0(  4, 11),   20( 13)
C 000174BE    41000058        LA      0,   88(  0,  0)
C 000174C2    5A00D028        A       0,   40(  0, 13)
C 000174C6    4000D014        STH     0,   20(  0, 13)
C 000174CA    187B            LR      7, 11
C 000174CC    41BB0000        LA     11,    0( 11,  0)
C 000174D0    41000004        LA      0,    4(  0,  0)
C 000174D4    59BD0044        C      11,   68( 13,  0)
C 000174D8    4720C054        BC      2,   84(  0, 12)
C 000174DC    05A0            BALR   10,  0


  4185                         %INTEGER Q
  4186                         Q=10000*ROUT+1000*NAM+100*ARR

C 000174DE    5810D69C        L       1, 1692(  0, 13)
C 000174E2    1F22            SLR     2,  2
C 000174E4    43208090        IC      2,  144(  0,  8)
C 000174E8    1C02            MR      0,  2
C 000174EA    413003E8        LA      3, 1000(  0,  0)
C 000174EE    1F44            SLR     4,  4
C 000174F0    43408091        IC      4,  145(  0,  8)
C 000174F4    1C24            MR      2,  4
C 000174F6    1A13            AR      1,  3
C 000174F8    41300064        LA      3,  100(  0,  0)
C 000174FC    1F44            SLR     4,  4
C 000174FE    43408092        IC      4,  146(  0,  8)
C 00017502    1C24            MR      2,  4
C 00017504    1A13            AR      1,  3
C 00017506    50107044        ST      1,   68(  0,  7)


  4187                         PTYPE=Q+10*PREC+TYPE

C 0001750A    4110000A        LA      1,   10(  0,  0)
C 0001750E    1F22            SLR     2,  2
C 00017510    43208093        IC      2,  147(  0,  8)
C 00017514    1C02            MR      0,  2
C 00017516    5A107044        A       1,   68(  0,  7)
C 0001751A    1F22            SLR     2,  2
C 0001751C    43208094        IC      2,  148(  0,  8)
C 00017520    1A12            AR      1,  2
C 00017522    58F07040        L      15,   64(  0,  7)
C 00017526    5010F000        ST      1,    0(  0, 15)


  4188                         %END
D 000019BC    C2 C2 C2 C2 10 58 07 04 50 41 43 4B 01 70 44 01 51 70 40 01 41 70 40 05 50 54 59 50 45 00 00 00 FF FF FF FF


C 0001752A    D203D0147000    MVC     20(  4, 13),    0(  7)
C 00017530    984F7010        LM      4, 15,   16(  7)
C 00017534    07FF            BCR    15, 15


  4189            !************* LABEL ***** AND**** JUMP **** ROUTINES*************
  4190                     %ROUTINE     PPJ(%BYTEINTEGER N)

C 00017536    0000
C 00017538    0000
C 0001753A    47FA0000        BC     15,    0( 10,  0)
C 0001753E    50F0B03C        ST     15,   60(  0, 11)
C 00017542    D203B000D014    MVC      0(  4, 11),   20( 13)
C 00017548    4100005E        LA      0,   94(  0,  0)
C 0001754C    5A00D028        A       0,   40(  0, 13)
C 00017550    4000D014        STH     0,   20(  0, 13)
C 00017554    187B            LR      7, 11
C 00017556    41BB0000        LA     11,    0( 11,  0)
C 0001755A    41000004        LA      0,    4(  0,  0)
C 0001755E    59BD0044        C      11,   68( 13,  0)
C 00017562    4720C054        BC      2,   84(  0, 12)
C 00017566    05A0            BALR   10,  0


  4191                         R13=0; PCONST(X'45F0C000'!N<<2);   ! BAL LINP,PLAB N

C 00017568    1F11            SLR     1,  1
C 0001756A    501090BC        ST      1,  188(  0,  9)



C 0001756E    1F11            SLR     1,  1
C 00017570    43107043        IC      1,   67(  0,  7)
C 00017574    89100002        SLL     1,    2(  0)
C 00017578    5610D6A0        O       1, 1696(  0, 13)
C 0001757C    5010B040        ST      1,   64(  0, 11)
C 00017580    5810D1B4        L       1,  436(  0, 13)
C 00017584    45F0D074        BAL    15,  116(  0, 13)


  4192                               %END
D 000019E0    C2 C2 C2 C2 10 5E 07 03 50 50 4A 4B 09 70 43 01 4E 70 40 01 FF FF FF FF


C 00017588    D203D0147000    MVC     20(  4, 13),    0(  7)
C 0001758E    984F7010        LM      4, 15,   16(  7)
C 00017592    07FF            BCR    15, 15


  4193                     %INTEGERFN     PAGENO(%INTEGER N)

C 00017594    0000
C 00017596    0000
C 00017598    47FA0000        BC     15,    0( 10,  0)
C 0001759C    50F0B03C        ST     15,   60(  0, 11)
C 000175A0    D203B000D014    MVC      0(  4, 11),   20( 13)
C 000175A6    41000061        LA      0,   97(  0,  0)
C 000175AA    5A00D028        A       0,   40(  0, 13)
C 000175AE    4000D014        STH     0,   20(  0, 13)
C 000175B2    187B            LR      7, 11
C 000175B4    41BB0000        LA     11,    0( 11,  0)
C 000175B8    41000004        LA      0,    4(  0,  0)
C 000175BC    59BD0044        C      11,   68( 13,  0)
C 000175C0    4720C054        BC      2,   84(  0, 12)
C 000175C4    05A0            BALR   10,  0


  4194                         %INTEGER I,J
  4195                         J=N>>12; I=PAGENOS(J)

C 000175C6    58107040        L       1,   64(  0,  7)
C 000175CA    8810000C        SRL     1,   12(  0)
C 000175CE    50107048        ST      1,   72(  0,  7)



C 000175D2    58107048        L       1,   72(  0,  7)
C 000175D6    4130929C        LA      3,  668(  0,  9)
C 000175DA    45F0C05C        BAL    15,   92(  0, 12)
C 000175DE    4811F000        LH      1,    0(  1, 15)
C 000175E2    50107044        ST      1,   68(  0,  7)


  4196                         %RESULT=I %UNLESS I=0

C 000175E6    58107044        L       1,   68(  0,  7)
C 000175EA    1211            LTR     1,  1
C 000175EC    478A003A        BC      8,   58( 10,  0)
C 000175F0    58107044        L       1,   68(  0,  7)
C 000175F4    D203D0147000    MVC     20(  4, 13),    0(  7)
C 000175FA    984F7010        LM      4, 15,   16(  7)
C 000175FE    07FF            BCR    15, 15


  4197                         ST(N0)=J<<12

C 00017600    58407048        L       4,   72(  0,  7)
C 00017604    8940000C        SLL     4,   12(  0)
C 00017608    58109088        L       1,  136(  0,  9)
C 0001760C    4130915C        LA      3,  348(  0,  9)
C 00017610    45F0C05C        BAL    15,   92(  0, 12)
C 00017614    5041F000        ST      4,    0(  1, 15)


  4198                         PAGENOS(J)=N0

C 00017618    58409088        L       4,  136(  0,  9)
C 0001761C    58107048        L       1,   72(  0,  7)
C 00017620    4130929C        LA      3,  668(  0,  9)
C 00017624    45F0C05C        BAL    15,   92(  0, 12)
C 00017628    4041F000        STH     4,    0(  1, 15)
C 0001762C    494F1000        CH      4,    0( 15,  1)
C 00017630    477C0058        BC      7,   88( 12,  0)


  4199                         N0=N0+1

C 00017634    41100001        LA      1,    1(  0,  0)
C 00017638    5A109088        A       1,  136(  0,  9)
C 0001763C    50109088        ST      1,  136(  0,  9)


  4200                         %RESULT=N0-1

C 00017640    58109088        L       1,  136(  0,  9)
C 00017644    0610            BCTR    1,  0
C 00017646    D203D0147000    MVC     20(  4, 13),    0(  7)
C 0001764C    984F7010        LM      4, 15,   16(  7)
C 00017650    07FF            BCR    15, 15


  4201                         %END
D 000019F8    C2 C2 C2 C2 10 61 07 06 50 41 47 45 4E 4F 00 48 01 70 48 01 4A 00 00 07 01 70 44 01 49 FE A6 E8 01 70 40 01 4E FE A6 F0 FF FF FF FF


C 00017652    4100000B        LA      0,   11(  0,  0)
C 00017656    45F0C054        BAL    15,   84(  0, 12)


  4202                     %ROUTINE FILL JUMPS(%INTEGER LEVEL)

C 0001765A    0000
C 0001765C    0000
C 0001765E    47FA0000        BC     15,    0( 10,  0)
C 00017662    50F0B03C        ST     15,   60(  0, 11)
C 00017666    D203B000D014    MVC      0(  4, 11),   20( 13)
C 0001766C    4100006A        LA      0,  106(  0,  0)
C 00017670    5A00D028        A       0,   40(  0, 13)
C 00017674    4000D014        STH     0,   20(  0, 13)
C 00017678    187B            LR      7, 11
C 0001767A    41BB0000        LA     11,    0( 11,  0)
C 0001767E    41000004        LA      0,    4(  0,  0)
C 00017682    59BD0044        C      11,   68( 13,  0)
C 00017686    4720C054        BC      2,   84(  0, 12)
C 0001768A    05A0            BALR   10,  0


  4203                         %SHORTROUTINE
  4204                         %INTEGER J,K,Q,KK
  4205                         OPHEAD=0

C 0001768C    1F11            SLR     1,  1
C 0001768E    40108054        STH     1,   84(  0,  8)
C 00017692    49180054        CH      1,   84(  8,  0)
C 00017696    477C0058        BC      7,   88( 12,  0)


  4206                1:       POP(JUMP(LEVEL),J,K); ->3 %IF J=-1

C 0001769A    58107040        L       1,   64(  0,  7)
C 0001769E    413091BC        LA      3,  444(  0,  9)
C 000176A2    45F0C05C        BAL    15,   92(  0, 12)
C 000176A6    4111F000        LA      1,    0(  1, 15)
C 000176AA    5010B040        ST      1,   64(  0, 11)
C 000176AE    41107044        LA      1,   68(  0,  7)
C 000176B2    5010B044        ST      1,   68(  0, 11)
C 000176B6    41107048        LA      1,   72(  0,  7)
C 000176BA    5010B048        ST      1,   72(  0, 11)
C 000176BE    5810D3DC        L       1,  988(  0, 13)
C 000176C2    45F0D074        BAL    15,  116(  0, 13)



C 000176C6    5810D010        L       1,   16(  0, 13)
C 000176CA    59107044        C       1,   68(  0,  7)
C 000176CE    478A0000        BC      8,    0( 10,  0)


  4207                         Q=FIND(K,LABEL(LEVEL))

C 000176D2    D203B0407048    MVC     64(  4, 11),   72(  7)
C 000176D8    58107040        L       1,   64(  0,  7)
C 000176DC    413091DC        LA      3,  476(  0,  9)
C 000176E0    45F0C05C        BAL    15,   92(  0, 12)
C 000176E4    4811F000        LH      1,    0(  1, 15)
C 000176E8    5010B044        ST      1,   68(  0, 11)
C 000176EC    5810D3E4        L       1,  996(  0, 13)
C 000176F0    45F0D074        BAL    15,  116(  0, 13)
C 000176F4    5010704C        ST      1,   76(  0,  7)


  4208                         ->2 %UNLESS Q=-1;

C 000176F8    5810D010        L       1,   16(  0, 13)
C 000176FC    5910704C        C       1,   76(  0,  7)
C 00017700    477A0000        BC      7,    0( 10,  0)


  4209                         PUSH(OPHEAD,J,K); ->1

C 00017704    41108054        LA      1,   84(  0,  8)
C 00017708    5010B040        ST      1,   64(  0, 11)
C 0001770C    D203B0447044    MVC     68(  4, 11),   68(  7)
C 00017712    D203B0487048    MVC     72(  4, 11),   72(  7)
C 00017718    5810D3E0        L       1,  992(  0, 13)
C 0001771C    45F0D074        BAL    15,  116(  0, 13)



C 00017720    47F0A00E        BC     15,   14(  0, 10)


  4210                2:       KK=0

C 00017724    1F11            SLR     1,  1
C 00017726    50107050        ST      1,   80(  0,  7)


  4211                         Q=Q-CODEBASE(LEVEL); K=Q>>12

C 0001772A    58107040        L       1,   64(  0,  7)
C 0001772E    4130917C        LA      3,  380(  0,  9)
C 00017732    45F0C05C        BAL    15,   92(  0, 12)
C 00017736    5861F000        L       6,    0(  1, 15)
C 0001773A    5810704C        L       1,   76(  0,  7)
C 0001773E    1B16            SR      1,  6
C 00017740    5010704C        ST      1,   76(  0,  7)



C 00017744    5810704C        L       1,   76(  0,  7)
C 00017748    8810000C        SRL     1,   12(  0)
C 0001774C    50107048        ST      1,   72(  0,  7)


  4212                         ->22 %IF J&LABSET#0

C 00017750    58107044        L       1,   68(  0,  7)
C 00017754    541090B8        N       1,  184(  0,  9)
C 00017758    477A0000        BC      7,    0( 10,  0)


  4213                         ->23 %IF SBFLAG=1

C 0001775C    950190CB        CLI    203(  9),  1
C 00017760    478A0000        BC      8,    0( 10,  0)


  4214                         PLUG(J,X'58E0')

C 00017764    D203B0407044    MVC     64(  4, 11),   68(  7)
C 0001776A    5810D6A4        L       1, 1700(  0, 13)
C 0001776E    5010B044        ST      1,   68(  0, 11)
C 00017772    5810D1F0        L       1,  496(  0, 13)
C 00017776    45F0D074        BAL    15,  116(  0, 13)


  4215                         PLUG(J+2,GLA<<12!4*PAGENO(Q)); J=J+4

C 0001777A    41100002        LA      1,    2(  0,  0)
C 0001777E    5A107044        A       1,   68(  0,  7)
C 00017782    5010B040        ST      1,   64(  0, 11)
C 00017786    41B0B048        LA     11,   72(  0, 11)
C 0001778A    D203B040704C    MVC     64(  4, 11),   76(  7)
C 00017790    5810D438        L       1, 1080(  0, 13)
C 00017794    45F0D074        BAL    15,  116(  0, 13)
C 00017798    1861            LR      6,  1
C 0001779A    5810D150        L       1,  336(  0, 13)
C 0001779E    8910000C        SLL     1,   12(  0)
C 000177A2    41300004        LA      3,    4(  0,  0)
C 000177A6    1C26            MR      2,  6
C 000177A8    1613            OR      1,  3
C 000177AA    5AB0D050        A      11,   80(  0, 13)
C 000177AE    5010B000        ST      1,    0(  0, 11)
C 000177B2    41000044        LA      0,   68(  0,  0)
C 000177B6    1BB0            SR     11,  0
C 000177B8    5810D1F0        L       1,  496(  0, 13)
C 000177BC    45F0D074        BAL    15,  116(  0, 13)



C 000177C0    41100004        LA      1,    4(  0,  0)
C 000177C4    5A107044        A       1,   68(  0,  7)
C 000177C8    50107044        ST      1,   68(  0,  7)


  4216                         KK=14 %UNLESS K=0

C 000177CC    58107048        L       1,   72(  0,  7)
C 000177D0    1211            LTR     1,  1
C 000177D2    478A0152        BC      8,  338( 10,  0)
C 000177D6    4110000E        LA      1,   14(  0,  0)
C 000177DA    50107050        ST      1,   80(  0,  7)


  4217                21:      PLUG(J+2,KK<<12!Q&X'FFF'); ->1

C 000177DE    41100002        LA      1,    2(  0,  0)
C 000177E2    5A107044        A       1,   68(  0,  7)
C 000177E6    5010B040        ST      1,   64(  0, 11)
C 000177EA    58107050        L       1,   80(  0,  7)
C 000177EE    8910000C        SLL     1,   12(  0)
C 000177F2    41200FFF        LA      2, 4095(  0,  0)
C 000177F6    5420704C        N       2,   76(  0,  7)
C 000177FA    1612            OR      1,  2
C 000177FC    5010B044        ST      1,   68(  0, 11)
C 00017800    5810D1F0        L       1,  496(  0, 13)
C 00017804    45F0D074        BAL    15,  116(  0, 13)



C 00017808    47F0A00E        BC     15,   14(  0, 10)


  4218                22:      J=J&X'FFFFFF'; KK=10

C 0001780C    58107044        L       1,   68(  0,  7)
C 00017810    5410D6A8        N       1, 1704(  0, 13)
C 00017814    50107044        ST      1,   68(  0,  7)



C 00017818    4110000A        LA      1,   10(  0,  0)
C 0001781C    50107050        ST      1,   80(  0,  7)


  4219                23:      FAULT(99) %IF Q>4095; ->21

C 00017820    41100FFF        LA      1, 4095(  0,  0)
C 00017824    5910704C        C       1,   76(  0,  7)
C 00017828    47BA01AC        BC     11,  428( 10,  0)
C 0001782C    9263B043        MVI     67( 11), 99
C 00017830    5810D228        L       1,  552(  0, 13)
C 00017834    45F0D074        BAL    15,  116(  0, 13)



C 00017838    47F0A152        BC     15,  338(  0, 10)


  4220                3:       JUMP(LEVEL)=OPHEAD

C 0001783C    48408054        LH      4,   84(  0,  8)
C 00017840    58107040        L       1,   64(  0,  7)
C 00017844    413091BC        LA      3,  444(  0,  9)
C 00017848    45F0C05C        BAL    15,   92(  0, 12)
C 0001784C    4041F000        STH     4,    0(  1, 15)
C 00017850    494F1000        CH      4,    0( 15,  1)
C 00017854    477C0058        BC      7,   88( 12,  0)


  4221                         %END
D 00001A24    C2 C2 C2 C2 10 6A 07 09 46 49 4C 4C 4A 55 4D 50 53 00 00 00 01 70 50 02 4B 4B A7 40 01 70 4C 01 51 FE A6 E0 01 70 48 01 4B 00 00 02 01 70 44 01 4A 00 00 06 01 70 40 05 4C 45 56 45 4C FF FD 60 FF FF FF FF


C 00017858    D203D0147000    MVC     20(  4, 13),    0(  7)
C 0001785E    984F7010        LM      4, 15,   16(  7)
C 00017862    07FF            BCR    15, 15


  4222                     %ROUTINE PJ(%INTEGER MASK,LAB)

C 00017864    0000
C 00017866    0000
C 00017868    47FA0000        BC     15,    0( 10,  0)
C 0001786C    50F0B03C        ST     15,   60(  0, 11)
C 00017870    D203B000D014    MVC      0(  4, 11),   20( 13)
C 00017876    4100007E        LA      0,  126(  0,  0)
C 0001787A    5A00D028        A       0,   40(  0, 13)
C 0001787E    4000D014        STH     0,   20(  0, 13)
C 00017882    187B            LR      7, 11
C 00017884    41BB0000        LA     11,    0( 11,  0)
C 00017888    41000004        LA      0,    4(  0,  0)
C 0001788C    59BD0044        C      11,   68( 13,  0)
C 00017890    4720C054        BC      2,   84(  0, 12)
C 00017894    05A0            BALR   10,  0


  4223                         %SHORTROUTINE
  4224                         %INTEGER I,J,Q
  4225                         J=FIND(LAB,LABEL(LEVEL)); ->200 %IF J=-1

C 00017896    D203B0407044    MVC     64(  4, 11),   68(  7)
C 0001789C    581090A8        L       1,  168(  0,  9)
C 000178A0    413091DC        LA      3,  476(  0,  9)
C 000178A4    45F0C05C        BAL    15,   92(  0, 12)
C 000178A8    4811F000        LH      1,    0(  1, 15)
C 000178AC    5010B044        ST      1,   68(  0, 11)
C 000178B0    5810D3E4        L       1,  996(  0, 13)
C 000178B4    45F0D074        BAL    15,  116(  0, 13)
C 000178B8    5010704C        ST      1,   76(  0,  7)



C 000178BC    5810D010        L       1,   16(  0, 13)
C 000178C0    5910704C        C       1,   76(  0,  7)
C 000178C4    478A0000        BC      8,    0( 10,  0)


  4226                         I=J-CODEBASE(LEVEL); ->50 %IF I>=4096

C 000178C8    581090A8        L       1,  168(  0,  9)
C 000178CC    4130917C        LA      3,  380(  0,  9)
C 000178D0    45F0C05C        BAL    15,   92(  0, 12)
C 000178D4    5861F000        L       6,    0(  1, 15)
C 000178D8    5810704C        L       1,   76(  0,  7)
C 000178DC    1B16            SR      1,  6
C 000178DE    50107048        ST      1,   72(  0,  7)



C 000178E2    5810D6AC        L       1, 1708(  0, 13)
C 000178E6    59107048        C       1,   72(  0,  7)
C 000178EA    47CA0000        BC     12,    0( 10,  0)


  4227                         PRX(X'47',MASK,0,10,I); ->999;!     BC MASK,I(10,0)

C 000178EE    41100047        LA      1,   71(  0,  0)
C 000178F2    5010B040        ST      1,   64(  0, 11)
C 000178F6    D203B0447040    MVC     68(  4, 11),   64(  7)
C 000178FC    1F11            SLR     1,  1
C 000178FE    5010B048        ST      1,   72(  0, 11)
C 00017902    4110000A        LA      1,   10(  0,  0)
C 00017906    5010B04C        ST      1,   76(  0, 11)
C 0001790A    D203B0507048    MVC     80(  4, 11),   72(  7)
C 00017910    5810D1C0        L       1,  448(  0, 13)
C 00017914    45F0D074        BAL    15,  116(  0, 13)



C 00017918    47FA0000        BC     15,    0( 10,  0)


  4228                50:      Q=4*PAGENO(I);                ! DISPLACEMENT OF MULTIPLE OF 4K

C 0001791C    D203B0407048    MVC     64(  4, 11),   72(  7)
C 00017922    5810D438        L       1, 1080(  0, 13)
C 00017926    45F0D074        BAL    15,  116(  0, 13)
C 0001792A    1861            LR      6,  1
C 0001792C    41100004        LA      1,    4(  0,  0)
C 00017930    1C06            MR      0,  6
C 00017932    50107050        ST      1,   80(  0,  7)


  4229                         PCONST(X'58E0D000'!Q);        ! L 14,Q(GLA)

C 00017936    5810D6B0        L       1, 1712(  0, 13)
C 0001793A    56107050        O       1,   80(  0,  7)
C 0001793E    5010B040        ST      1,   64(  0, 11)
C 00017942    5810D1B4        L       1,  436(  0, 13)
C 00017946    45F0D074        BAL    15,  116(  0, 13)


  4230                         PRX(X'47',MASK,14,10,I&4095); ->999;! BC MASK,?(10,14)

C 0001794A    41100047        LA      1,   71(  0,  0)
C 0001794E    5010B040        ST      1,   64(  0, 11)
C 00017952    D203B0447040    MVC     68(  4, 11),   64(  7)
C 00017958    4110000E        LA      1,   14(  0,  0)
C 0001795C    5010B048        ST      1,   72(  0, 11)
C 00017960    4110000A        LA      1,   10(  0,  0)
C 00017964    5010B04C        ST      1,   76(  0, 11)
C 00017968    41100FFF        LA      1, 4095(  0,  0)
C 0001796C    54107048        N       1,   72(  0,  7)
C 00017970    5010B050        ST      1,   80(  0, 11)
C 00017974    5810D1C0        L       1,  448(  0, 13)
C 00017978    45F0D074        BAL    15,  116(  0, 13)



C 0001797C    47FA0000        BC     15,    0( 10,  0)


  4231                200:     PUSH(JUMP(LEVEL),CA,LAB); PCONST(0) %UNLESS SBFLAG=1

C 00017980    581090A8        L       1,  168(  0,  9)
C 00017984    413091BC        LA      3,  444(  0,  9)
C 00017988    45F0C05C        BAL    15,   92(  0, 12)
C 0001798C    4111F000        LA      1,    0(  1, 15)
C 00017990    5010B040        ST      1,   64(  0, 11)
C 00017994    D203B04490AC    MVC     68(  4, 11),  172(  9)
C 0001799A    D203B0487044    MVC     72(  4, 11),   68(  7)
C 000179A0    5810D3E0        L       1,  992(  0, 13)
C 000179A4    45F0D074        BAL    15,  116(  0, 13)



C 000179A8    950190CB        CLI    203(  9),  1
C 000179AC    478A0128        BC      8,  296( 10,  0)
C 000179B0    1F11            SLR     1,  1
C 000179B2    5010B040        ST      1,   64(  0, 11)
C 000179B6    5810D1B4        L       1,  436(  0, 13)
C 000179BA    45F0D074        BAL    15,  116(  0, 13)


  4232                         PRX(X'47',MASK,10,0,0);       ! BC MASK,?(10,?)

C 000179BE    41100047        LA      1,   71(  0,  0)
C 000179C2    5010B040        ST      1,   64(  0, 11)
C 000179C6    D203B0447040    MVC     68(  4, 11),   64(  7)
C 000179CC    4110000A        LA      1,   10(  0,  0)
C 000179D0    5010B048        ST      1,   72(  0, 11)
C 000179D4    1F11            SLR     1,  1
C 000179D6    5010B04C        ST      1,   76(  0, 11)
C 000179DA    1F11            SLR     1,  1
C 000179DC    5010B050        ST      1,   80(  0, 11)
C 000179E0    5810D1C0        L       1,  448(  0, 13)
C 000179E4    45F0D074        BAL    15,  116(  0, 13)


  4233                999:     %END
D 00001A68    C2 C2 C2 C2 10 7E 07 02 50 4A 00 01 01 70 50 01 51 00 00 00 01 70 4C 01 4A FE A7 40 01 70 48 01 49 FE A6 E0 01 70 44 03 4C 41 42 02 01 70 40 04 4D 41 53 4B FF FF FF FF


C 000179E8    D203D0147000    MVC     20(  4, 13),    0(  7)
C 000179EE    984F7010        LM      4, 15,   16(  7)
C 000179F2    07FF            BCR    15, 15


  4234                           %ROUTINE     PLAB(%INTEGER M)

C 000179F4    0000
C 000179F6    0000
C 000179F8    47FA0000        BC     15,    0( 10,  0)
C 000179FC    50F0B03C        ST     15,   60(  0, 11)
C 00017A00    D203B000D014    MVC      0(  4, 11),   20( 13)
C 00017A06    4100008A        LA      0,  138(  0,  0)
C 00017A0A    5A00D028        A       0,   40(  0, 13)
C 00017A0E    4000D014        STH     0,   20(  0, 13)
C 00017A12    187B            LR      7, 11
C 00017A14    41BB0000        LA     11,    0( 11,  0)
C 00017A18    41000004        LA      0,    4(  0,  0)
C 00017A1C    59BD0044        C      11,   68( 13,  0)
C 00017A20    4720C054        BC      2,   84(  0, 12)
C 00017A24    05A0            BALR   10,  0


  4235                         %SHORTROUTINE
  4236                               MONE=1

C 00017A26    920190CD        MVI    205(  9),  1


  4237                         %IF M>=0 %THEN ->1

C 00017A2A    58107040        L       1,   64(  0,  7)
C 00017A2E    1211            LTR     1,  1
C 00017A30    47AA0000        BC     10,    0( 10,  0)


  4238                               PLABEL=PLABEL-1; K=PLABEL

C 00017A34    581090A4        L       1,  164(  0,  9)
C 00017A38    0610            BCTR    1,  0
C 00017A3A    501090A4        ST      1,  164(  0,  9)



C 00017A3E    D20380A490A4    MVC    164(  4,  8),  164(  9)


  4239                               M=K

C 00017A44    D203704080A4    MVC     64(  4,  7),  164(  8)


  4240                1:       PUSH(LABEL(LEVEL),CA,M)

C 00017A4A    581090A8        L       1,  168(  0,  9)
C 00017A4E    413091DC        LA      3,  476(  0,  9)
C 00017A52    45F0C05C        BAL    15,   92(  0, 12)
C 00017A56    4111F000        LA      1,    0(  1, 15)
C 00017A5A    5010B040        ST      1,   64(  0, 11)
C 00017A5E    D203B04490AC    MVC     68(  4, 11),  172(  9)
C 00017A64    D203B0487040    MVC     72(  4, 11),   64(  7)
C 00017A6A    5810D3E0        L       1,  992(  0, 13)
C 00017A6E    45F0D074        BAL    15,  116(  0, 13)


  4241                         R13=0

C 00017A72    1F11            SLR     1,  1
C 00017A74    501090BC        ST      1,  188(  0,  9)


  4242                         %END
D 00001AA0    C2 C2 C2 C2 10 8A 07 04 50 4C 41 42 01 70 40 01 4D 00 00 00 FF FF FF FF


C 00017A78    D203D0147000    MVC     20(  4, 13),    0(  7)
C 00017A7E    984F7010        LM      4, 15,   16(  7)
C 00017A82    07FF            BCR    15, 15


  4243            !********** END **** OF **** LABEL ****** ROUTINES **************
  4244                           %ROUTINE CHECK RF

C 00017A84    0000
C 00017A86    0000
C 00017A88    47FA0000        BC     15,    0( 10,  0)
C 00017A8C    50F0B03C        ST     15,   60(  0, 11)
C 00017A90    D203B000D014    MVC      0(  4, 11),   20( 13)
C 00017A96    41000094        LA      0,  148(  0,  0)
C 00017A9A    5A00D028        A       0,   40(  0, 13)
C 00017A9E    4000D014        STH     0,   20(  0, 13)
C 00017AA2    187B            LR      7, 11
C 00017AA4    41BB0000        LA     11,    0( 11,  0)
C 00017AA8    41000004        LA      0,    4(  0,  0)
C 00017AAC    59BD0044        C      11,   68( 13,  0)
C 00017AB0    4720C054        BC      2,   84(  0, 12)
C 00017AB4    05A0            BALR   10,  0


  4245                         %SHORTROUTINE
  4246                         COPYTAG(A(MARKER1))

C 00017AB6    581090B0        L       1,  176(  0,  9)
C 00017ABA    413092FC        LA      3,  764(  0,  9)
C 00017ABE    45F0C05C        BAL    15,   92(  0, 12)
C 00017AC2    4811F000        LH      1,    0(  1, 15)
C 00017AC6    5010B040        ST      1,   64(  0, 11)
C 00017ACA    5810D408        L       1, 1032(  0, 13)
C 00017ACE    45F0D074        BAL    15,  116(  0, 13)


  4247                         ->1 %UNLESS TYPE=4

C 00017AD2    95048094        CLI    148(  8),  4
C 00017AD6    477A0000        BC      7,    0( 10,  0)


  4248                               JJ=K; FROM LIST(JJ,Q,FNAME)

C 00017ADA    D203805880A4    MVC     88(  4,  8),  164(  8)



C 00017AE0    D203B0408058    MVC     64(  4, 11),   88(  8)
C 00017AE6    41108068        LA      1,  104(  0,  8)
C 00017AEA    5010B044        ST      1,   68(  0, 11)
C 00017AEE    41109130        LA      1,  304(  0,  9)
C 00017AF2    5010B048        ST      1,   72(  0, 11)
C 00017AF6    5810D3D8        L       1,  984(  0, 13)
C 00017AFA    45F0D074        BAL    15,  116(  0, 13)


  4249                         DUMP(0,4,Q,0,I);    ! ADDR OF FORMAT TO R4

C 00017AFE    1F11            SLR     1,  1
C 00017B00    5010B040        ST      1,   64(  0, 11)
C 00017B04    41100004        LA      1,    4(  0,  0)
C 00017B08    5010B044        ST      1,   68(  0, 11)
C 00017B0C    D203B0488068    MVC     72(  4, 11),  104(  8)
C 00017B12    1F11            SLR     1,  1
C 00017B14    5010B04C        ST      1,   76(  0, 11)
C 00017B18    D203B050809C    MVC     80(  4, 11),  156(  8)
C 00017B1E    5810D458        L       1, 1112(  0, 13)
C 00017B22    45F0D074        BAL    15,  116(  0, 13)


  4250                         ->9

C 00017B26    47FA0000        BC     15,    0( 10,  0)


  4251                1:       K=-1; FAULT(62)

C 00017B2A    5810D010        L       1,   16(  0, 13)
C 00017B2E    501080A4        ST      1,  164(  0,  8)



C 00017B32    923EB043        MVI     67( 11), 62
C 00017B36    5810D228        L       1,  552(  0, 13)
C 00017B3A    45F0D074        BAL    15,  116(  0, 13)


  4252                9:       %END
D 00001AB8    C2 C2 C2 C2 10 94 07 07 43 48 45 43 4B 52 46 B8 FF FF FF FF


C 00017B3E    D203D0147000    MVC     20(  4, 13),    0(  7)
C 00017B44    984F7010        LM      4, 15,   16(  7)
C 00017B48    07FF            BCR    15, 15


  4253                     %ROUTINE     DUMP(%INTEGER CODE,REG,DIS,X,LEVEL)

C 00017B4A    0000
C 00017B4C    0000
C 00017B4E    47FA0000        BC     15,    0( 10,  0)
C 00017B52    50F0B03C        ST     15,   60(  0, 11)
C 00017B56    D203B000D014    MVC      0(  4, 11),   20( 13)
C 00017B5C    4100009D        LA      0,  157(  0,  0)
C 00017B60    5A00D028        A       0,   40(  0, 13)
C 00017B64    4000D014        STH     0,   20(  0, 13)
C 00017B68    187B            LR      7, 11
C 00017B6A    41BB0000        LA     11,    0( 11,  0)
C 00017B6E    41000004        LA      0,    4(  0,  0)
C 00017B72    59BD0044        C      11,   68( 13,  0)
C 00017B76    4720C054        BC      2,   84(  0, 12)
C 00017B7A    05A0            BALR   10,  0


  4254                         %SHORTROUTINE
  4255                         %COMMENT CODE=8*(TYPE-1)+2*PREC+Z
  4256                         %INTEGER J
  4257                         %OWNBYTEINTEGERARRAY OPCODE(0:16)=X'41',
K 00000EA4    00 00 00 00
  4258                         X'50',X'58',X'42',X'43',X'40',X'48',X'59',X'49',
K 00000EA8    41 50 58 42
K 00000EAC    43 40 48 59
  4259                         X'70',X'78',0(4),X'60',X'68'
K 00000EB0    49 70 78 00
K 00000EB4    00 00 00 60
K 00000EB8    68 00 00 00
K 00000EBC    00 01 00 01
K 00000EC0    00 00 00 00
K 00000EC4    00 00 00 10
  4260                         J=OPCODE(CODE);FAULT(248) %IF J=0

C 00017B7C    58107040        L       1,   64(  0,  7)
C 00017B80    4130D6B4        LA      3, 1716(  0, 13)
C 00017B84    45F0C05C        BAL    15,   92(  0, 12)
C 00017B88    4311F000        IC      1,    0(  1, 15)
C 00017B8C    5410D018        N       1,   24(  0, 13)
C 00017B90    50107054        ST      1,   84(  0,  7)



C 00017B94    58107054        L       1,   84(  0,  7)
C 00017B98    1211            LTR     1,  1
C 00017B9A    477A002E        BC      7,   46( 10,  0)
C 00017B9E    92F8B043        MVI     67( 11), 248
C 00017BA2    5810D228        L       1,  552(  0, 13)
C 00017BA6    45F0D074        BAL    15,  116(  0, 13)


  4261                         ->4 %IF CODE=4;               ! IC NEEDED

C 00017BAA    41100004        LA      1,    4(  0,  0)
C 00017BAE    59107040        C       1,   64(  0,  7)
C 00017BB2    478A0000        BC      8,    0( 10,  0)


  4262                         ->1 %UNLESS CODE=0=DIS;       ! OPTIMISE LOAD ADDR

C 00017BB6    1F11            SLR     1,  1
C 00017BB8    59107040        C       1,   64(  0,  7)
C 00017BBC    477A0000        BC      7,    0( 10,  0)
C 00017BC0    59107048        C       1,   72(  0,  7)
C 00017BC4    477A0000        BC      7,    0( 10,  0)


  4263                         ->3 %UNLESS LEVEL=0=X

C 00017BC8    1F11            SLR     1,  1
C 00017BCA    59107050        C       1,   80(  0,  7)
C 00017BCE    477A0000        BC      7,    0( 10,  0)
C 00017BD2    5910704C        C       1,   76(  0,  7)
C 00017BD6    477A0000        BC      7,    0( 10,  0)


  4264                         PRR(X'1F',REG,REG); ->99;     ! SLR INSTEAD LO LA REG,0

C 00017BDA    4110001F        LA      1,   31(  0,  0)
C 00017BDE    5010B040        ST      1,   64(  0, 11)
C 00017BE2    D203B0447044    MVC     68(  4, 11),   68(  7)
C 00017BE8    D203B0487044    MVC     72(  4, 11),   68(  7)
C 00017BEE    5810D1D0        L       1,  464(  0, 13)
C 00017BF2    45F0D074        BAL    15,  116(  0, 13)



C 00017BF6    47FA0000        BC     15,    0( 10,  0)


  4265                3:       ->1 %UNLESS LEVEL=0 %OR X=0

C 00017BFA    58107050        L       1,   80(  0,  7)
C 00017BFE    1211            LTR     1,  1
C 00017C00    478A0092        BC      8,  146( 10,  0)
C 00017C04    5810704C        L       1,   76(  0,  7)
C 00017C08    1211            LTR     1,  1
C 00017C0A    477A0000        BC      7,    0( 10,  0)


  4266                         PRR(X'18',REG,X+LEVEL) %UNLESS REG=X+LEVEL;->99

C 00017C0E    5810704C        L       1,   76(  0,  7)
C 00017C12    5A107050        A       1,   80(  0,  7)
C 00017C16    59107044        C       1,   68(  0,  7)
C 00017C1A    478A00C4        BC      8,  196( 10,  0)
C 00017C1E    41100018        LA      1,   24(  0,  0)
C 00017C22    5010B040        ST      1,   64(  0, 11)
C 00017C26    D203B0447044    MVC     68(  4, 11),   68(  7)
C 00017C2C    5810704C        L       1,   76(  0,  7)
C 00017C30    5A107050        A       1,   80(  0,  7)
C 00017C34    5010B048        ST      1,   72(  0, 11)
C 00017C38    5810D1D0        L       1,  464(  0, 13)
C 00017C3C    45F0D074        BAL    15,  116(  0, 13)



C 00017C40    47FA0000        BC     15,    0( 10,  0)


  4267                4:       PRR(X'1F',REG,REG) %IF X#REG#LEVEL;    ! SLR FOR BYTE

C 00017C44    58107044        L       1,   68(  0,  7)
C 00017C48    5910704C        C       1,   76(  0,  7)
C 00017C4C    478A00F8        BC      8,  248( 10,  0)
C 00017C50    59107050        C       1,   80(  0,  7)
C 00017C54    478A00F8        BC      8,  248( 10,  0)
C 00017C58    4110001F        LA      1,   31(  0,  0)
C 00017C5C    5010B040        ST      1,   64(  0, 11)
C 00017C60    D203B0447044    MVC     68(  4, 11),   68(  7)
C 00017C66    D203B0487044    MVC     72(  4, 11),   68(  7)
C 00017C6C    5810D1D0        L       1,  464(  0, 13)
C 00017C70    45F0D074        BAL    15,  116(  0, 13)


  4268                1:       PRX(J,REG,X,LEVEL,DIS)

C 00017C74    D203B0407054    MVC     64(  4, 11),   84(  7)
C 00017C7A    D203B0447044    MVC     68(  4, 11),   68(  7)
C 00017C80    D203B048704C    MVC     72(  4, 11),   76(  7)
C 00017C86    D203B04C7050    MVC     76(  4, 11),   80(  7)
C 00017C8C    D203B0507048    MVC     80(  4, 11),   72(  7)
C 00017C92    5810D1C0        L       1,  448(  0, 13)
C 00017C96    45F0D074        BAL    15,  116(  0, 13)


  4269                         %COMMENT AND WITH 255 FOR BYTE IF SLR NOT POSSIBLE AS ADDR IN R
  4270                         PRX(X'54',REG,0,GLA,24) %UNLESS CODE#4 %OR X#REG#LEVEL

C 00017C9A    41100004        LA      1,    4(  0,  0)
C 00017C9E    59107040        C       1,   64(  0,  7)
C 00017CA2    477A0168        BC      7,  360( 10,  0)
C 00017CA6    58107044        L       1,   68(  0,  7)
C 00017CAA    5910704C        C       1,   76(  0,  7)
C 00017CAE    478A013E        BC      8,  318( 10,  0)
C 00017CB2    59107050        C       1,   80(  0,  7)
C 00017CB6    477A0168        BC      7,  360( 10,  0)
C 00017CBA    41100054        LA      1,   84(  0,  0)
C 00017CBE    5010B040        ST      1,   64(  0, 11)
C 00017CC2    D203B0447044    MVC     68(  4, 11),   68(  7)
C 00017CC8    1F11            SLR     1,  1
C 00017CCA    5010B048        ST      1,   72(  0, 11)
C 00017CCE    D203B04CD150    MVC     76(  4, 11),  336( 13)
C 00017CD4    41100018        LA      1,   24(  0,  0)
C 00017CD8    5010B050        ST      1,   80(  0, 11)
C 00017CDC    5810D1C0        L       1,  448(  0, 13)
C 00017CE0    45F0D074        BAL    15,  116(  0, 13)


  4271                99:      %END
D 00001ACC    C2 C2 C2 C2 10 9D 07 04 44 55 4D 50 01 70 54 01 4A 00 00 00 01 70 50 05 4C 45 56 45 4C FE A6 E8 01 70 4C 01 58 FE A6 F0 01 70 48 03 44 49 53 01 01 70 44 03 52 45 47 FF 01 70 40 04 43 4F 44 45 FF FF FF FF


C 00017CE4    D203D0147000    MVC     20(  4, 13),    0(  7)
C 00017CEA    984F7010        LM      4, 15,   16(  7)
C 00017CEE    07FF            BCR    15, 15


  4272                     %END
D 00001B10    C2 C2 C2 C2 03 BF 08 03 43 53 53 50 01 80 B8 07 43 48 4E 47 45 31 33 05 01 80 B4 06 53 41 56 45 31 33 4C 01 01 80 B0 06 50 54 59 50 45 50 53 01 01 80 AC 05 49 4E 52 45 47 70 40 04 01 80 A8 04 4F 4C 44 49 01 80 A4 01 4B 00 00 42 01 80 A0 01 4A 00 00 00 01 80 9C 01 49 FF FA 60 01 80 98 05 50 54 59 50 45 00 00 1C 09 80 95 05 50 52 45 43 50 FE A6 78 09 80 94 04 54 59 50 45 09 80 93 04 50 52 45 43 09 80 92 03 41 52 52 01 09 80 91 03 4E 41 4D 01 09 80 90 04 52 4F 55 54 11 80 8E 08 4C 4F 43 41 4C 4C 41 42 11 80 8C 08 4C 4F 43 41 4C 4A 55 4D 01 80 88 08 4C 4F 43 41 4C 41 44 44 01 80 84 08 4C 4F 43 41 4C 42 41 53 01 80 80 05 49 4E 44 45 58 00 00 01 01 80 7C 05 56 41 4C 55 45 00 04 00 01 80 78 04 44 49 53 50 01 80 74 04 42 41 53 45 01 80 70 05 45 58 54 52 4E 00 00 17 01 80 6C 02 51 51 05 37 01 80 68 01 51 00 00 4C 01 80 64 03 4B 4B 4B 58 01 80 60 02 4B 4B 00 04 01 80 5C 03 4A 4A 4A 44 01 80 58 02 4A 4A 00 58 11 80 54 06 4F 50 48 45 41 44 00 00 01 80 50 03 41 43 43 EC 01 80 4C 04 42 58 4C 45 01 80 48 04 49 4E 43 50 01 80 44 03 49 4E 43 00 01 80 40 01 50 00 00 01 FF FF FF FF


C 00017CF0    D203D0148000    MVC     20(  4, 13),    0(  8)
C 00017CF6    984F8010        LM      4, 15,   16(  8)
C 00017CFA    07FF            BCR    15, 15


  4273                 %ENDOFPROGRAM
D 00001C78    C2 C2 C2 C2 00 07 09 00 00 00 00 00 01 91 48 05 53 54 4D 54 53 31 33 05 01 91 44 04 51 4D 41 58 01 91 40 04 53 53 54 4C 11 91 3E 06 45 50 4C 49 4E 4B AC 05 11 91 3C 04 4E 45 50 53 01 91 38 05 4C 44 50 54 52 80 A4 01 01 91 34 08 58 52 45 46 4C 49 4E 4B 01 91 30 05 46 4E 41 4D 45 80 98 05 01 91 2C 04 4E 45 53 54 01 91 28 01 56 52 45 43 01 91 24 01 55 80 94 04 01 91 20 01 54 80 93 04 01 91 1C 01 53 80 92 03 01 91 18 01 52 80 91 03 01 91 14 01 51 80 90 04 01 91 10 01 50 80 8E 08 01 91 0C 07 53 54 52 49 4E 53 54 08 01 91 08 04 49 54 45 4D 01 91 04 02 4E 52 43 41 01 91 00 01 4E 80 84 08 01 90 FC 04 4E 45 58 54 01 90 F8 07 53 46 4C 41 42 45 4C 01 01 90 F4 05 52 42 41 53 45 00 04 00 01 90 F0 04 4D 41 53 4B 1A 90 E8 04 49 4D 41 58 1A 90 E0 06 43 56 41 4C 55 45 00 17 09 90 DD 08 50 52 49 4E 54 4D 41 50 09 90 DC 05 55 4E 41 53 53 4B 4B 58 09 90 DB 07 43 50 52 4D 4F 44 45 03 09 90 DA 08 43 4F 4D 50 49 4C 45 52 09 90 D9 05 44 43 4F 4D 50 44 00 00 09 90 D8 05 43 54 59 50 45 80 4C 04 09 90 D7 07 43 48 45 43 4B 53 50 50 09 90 D6 06 44 49 41 47 53 32 40 01 09 90 D5 06 44 49 41 47 53 31 00 00 09 90 D4 07 4C 49 4E 45 4E 4F 53 02 09 90 D3 07 41 4C 4C 4C 4F 4E 47 00 09 90 D2 04 4C 49 53 54 09 90 D1 08 4D 43 53 57 49 54 43 48 09 90 D0 04 50 45 52 4D 09 90 CF 02 51 55 00 58 09 90 CE 03 48 49 54 F2 09 90 CD 04 4D 4F 4E 45 09 90 CC 06 46 41 55 4C 54 59 00 00 09 90 CB 06 53 42 46 4C 41 47 00 00 09 90 CA 06 43 48 45 43 4B 53 00 00 09 90 C9 05 46 46 4C 41 47 00 00 00 09 90 C8 05 41 46 4C 41 47 00 00 00 01 90 C4 07 53 49 47 46 49 47 53 C8 01 90 C0 04 52 50 31 33 01 90 BC 03 52 31 33 01 01 90 B8 06 4C 41 42 53 45 54 FD 58 01 90 B4 07 4D 41 52 4B 45 52 32 32 01 90 B0 07 4D 41 52 4B 45 52 31 37 01 90 AC 02 43 41 00 00 01 90 A8 05 4C 45 56 45 4C 00 00 01 01 90 A4 06 50 4C 41 42 45 4C 00 00 01 90 A0 08 43 4F 4E 53 54 50 54 52 01 90 9C 07 4F 57 4E 4C 49 4E 4B 02 01 90 98 04 4E 4D 41 58 01 90 94 06 52 4C 45 56 45 4C 00 00 01 90 90 04 53 4E 55 4D 01 90 8C 03 4E 55 4D 58 01 90 88 02 4E 30 AB 3C 01 90 84 07 4C 45 4E 47 54 48 50 4C 01 90 80 06 4C 45 4E 47 54 48 87 74 01 90 7C 04 4C 49 4E 45 01 90 78 07 4F 4C 44 4C 49 4E 45 51 01 90 74 06 51 50 52 45 41 4C 00 01 01 90 70 06 50 50 43 55 52 52 04 00 01 90 6C 05 43 41 42 55 46 00 00 01 01 90 68 06 4E 4E 41 4D 45 53 00 FF 01 90 64 03 41 53 4C 02 11 90 62 06 4E 52 4F 55 54 53 00 20 11 90 60 05 44 53 49 5A 45 00 00 04 11 90 5E 06 41 52 53 49 5A 45 9A C0 11 90 5C 06 43 43 53 49 5A 45 00 00 01 D1 50 03 47 4C 41 00 01 D1 4C 04 57 53 50 52 01 D1 48 04 4C 49 4E 4B 01 D1 44 05 43 4F 44 45 52 00 00 01 11 D1 42 08 4D 41 58 4C 45 56 45 4C 01 D1 3C 05 4D 41 53 4B 32 00 00 04 01 D1 38 05 4D 41 53 4B 31 FE AA B8 01 90 58 02 53 53 00 0A 01 90 54 01 4B 01 EE 38 01 90 50 01 4A 00 00 78 01 90 4C 01 49 00 00 02 FF FF FF FF

D 00002010    C2 C2 C2 C2 00 00 09 00 00 00 00 00 FF FF FF FF
P 00000000    00 00 00 07 00 00 00 20 00 00 00 58 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 40 00 00 00 06 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 80 00 00 00 04 53 23 47 4F 20 20 20

C 00017CFC    45F0C018        BAL    15,   24(  0, 12)


G 00000000    00 02 00 00 10 10 00 00 00 00 00 00 00 00 00 00 FF FF FF FF 00 00 00 00 00 00 00 FF 00 00 00 00 00 00 06 B4 00 00 00 00 00 00 00 00 00 00 00 00 41 10 00 00 00 00 00 00 41 20 00 00 00 00 00 00 00 00 00 00 00 00 00 00 4E 00 00 00 00 00 00 00 FF FF FF FC FF FF FF F8 00 00 02 34 00 00 00 00 00 00 00 00 00 00 00 00 80 00 00 00 06 49 23 50 45 52 4D 41 90 4E B0 10 5A 10 D0 1C 07 F1 07 00 80 80 80 80 80 80 80 80 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 80 00 00 00 06 53 23 49 4F 43 50 20 00 00 00 00 FF FF FF FF 00 00 00 00 00 00 01 AC 00 00 00 00 FF FF F7 90 00 00 01 B8 00 00 08 5C 00 00 00 A8 00 00 08 68 00 00 08 68 00 00 08 E4 00 00 00 B8 00 00 08 F0 00 00 08 F0 00 00 0A D4 00 00 00 C8 00 00 0A E0 00 00 0A E0 00 00 0B 94 00 00 00 D8 00 00 0B A0 00 00 0B A0 00 00 0B D4 00 00 00 E8 00 00 0B E0 00 00 0B E0 00 00 0B E4 00 00 00 F8 00 00 0B EF 00 00 0B F0 00 00 0B FC 00 00 01 08 00 00 0C 07 00 00 0C 08 00 00 0C 10 00 00 01 18 0F 0F 0F 0F 0F 0F 0F 0F 00 00 00 0B 00 00 00 0C 00 00 00 0F 00 00 00 0B 00 00 00 0D 00 00 3A E4 00 00 00 88 00 00 00 00 00 00 00 00 00 00 00 00 80 00 00 00 05 53 23 43 4F 4D 00 00 00 00 01 58 00 00 00 00 00 00 00 00 00 00 00 00 80 00 00 00 08 53 23 53 45 54 43 4F 4D 00 00 00 00 00 01 74 00 00 00 00 00 00 00 00 00 00 00 00 80 00 00 00 06 53 23 49 4F 43 50 00 00 00 38 9A 00 00 38 38 00 00 37 46 00 00 37 B0 00 00 36 D2 00 00 34 DE 00 00 34 4A 00 00 35 A0 00 00 36 76 00 00 01 94 00 00 00 00 00 00 00 00 00 00 00 00 80 00 00 00 06 53 23 4C 50 55 54 00 00 00 39 94 00 00 3A 46 00 00 2B 0E 00 00 39 06 00 00 10 46 00 00 19 70 00 00 1C 3C 00 00 22 3A 00 00 28 94 00 00 32 8A 00 00 32 10 00 00 31 56 00 00 30 DC 00 00 3C E8 00 00 0D DE 00 00 05 A2 00 00 33 44 00 00 01 D4 00 00 00 00 00 00 00 00 00 00 00 00 80 00 00 00 06 52 45 43 4F 44 45 00 00 00 0B BE 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 18 FE 00 00 00 00 00 00 00 00 00 00 00 00 40 24 00 00 00 00 00 00 40 24 00 00 00 00 00 00 40 24 00 00 00 00 00 00 40 24 00 00 00 00 00 00 00 00 20 00 00 00 00 00 00 00 2A 46 00 00 00 00 00 00 0C 1F 00 00 0C 20 00 00 0D 60 00 00 01 28 00 00 0D 70 00 00 0D 70 00 00 0D C8 00 00 02 D8 00 00 00 00 00 00 00 00 00 00 00 00 00 00 30 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 0D D8 00 00 0D D8 00 00 0D E8 00 00 02 E8 00 00 3B E0 00 00 00 00 00 00 00 00 00 00 00 00 00 01 62 70 00 01 01 C2 00 01 60 2E 00 01 5D 6C 00 00 F4 D4 00 00 F4 02 00 01 6E 26 00 01 30 84 00 00 75 78 00 01 5B 8C 00 01 40 F8 00 00 E0 AE 00 01 76 62 00 01 66 02 00 00 92 A0 00 01 5A 72 00 00 A3 98 00 00 A6 FA 00 00 D6 F0 00 01 7A 8C 00 00 85 C4 00 01 71 16 00 01 6F 48 00 01 6F F2 00 01 48 62 00 01 45 D4 00 01 46 46 00 00 99 8E 00 00 9F 4E 00 01 43 3A 00 01 41 CE 00 01 50 CE 00 01 55 D8 00 01 63 F6 00 01 26 AC 00 01 12 16 00 01 0F 36 00 01 02 A8 00 01 09 E4 00 01 6B 76 00 01 67 E2 00 01 69 9E 00 01 68 F4 00 01 6C 58 00 01 6B 18 00 01 6A BA 00 01 6A 68 00 01 6D B4 00 01 6D 5A 00 01 6D 04 00 00 DB D2 00 01 68 54 00 01 72 1A 00 00 F6 40 00 01 73 16 00 01 53 4A 00 01 54 FE 00 01 54 64 00 01 51 CA 00 01 64 C6 00 01 65 56 00 01 3E DA 00 01 52 76 00 01 6E 90 00 01 75 9C 00 01 32 10 00 01 32 8A 00 01 43 F0 00 01 73 B0 00 00 D4 C2 00 01 74 B4 00 00 80 5A 00 01 7B 52 00 01 56 6A 00 01 3D EE 00 01 78 6C 00 00 83 F0 00 01 75 3E 00 01 79 FC 00 01 66 DC 00 01 49 18 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 71 F2 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 40 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 50 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 60 00 00 00 BE FC 00 00 BD 9A 00 00 B7 4E 00 00 B9 94 00 00 C8 78 00 00 04 00 00 00 00 00 00 00 B8 1A 00 00 B8 EE 00 00 C2 DE 00 00 C6 66 00 00 00 00 00 00 90 00 00 00 DF 8E 00 00 E0 1C 00 00 A0 00 00 00 EC CA 00 00 EE 00 00 00 E1 72 00 00 0D F7 00 00 0D F8 00 00 0E 00 00 00 03 18 00 00 0E 0F 00 00 0E 10 00 00 0E 18 00 00 05 6C 00 00 B0 00 00 00 00 00 00 00 0E 28 00 00 0E 28 00 00 0E 58 00 00 05 7C 00 00 0E 68 00 00 0E 68 00 00 0E 98 00 00 05 94 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 C0 00 00 00 00 00 00 00 00 00 00 00 D0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 E0 00 00 01 30 12 00 00 00 00 00 00 F0 00 00 01 38 90 00 01 39 EE 00 01 37 CE 00 01 3A BE 00 01 00 00 00 00 00 00 00 00 00 00 00 00 27 10 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 01 10 00 00 00 00 00 00 00 00 00 00 00 00 00 00 01 20 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 01 30 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 0E A8 00 00 0E A8 00 00 0E BC 00 00 05 A4 00 01 70 00 00 00 00 00 00 00 00 00
D 00002020    E2 E2 E2 E2

 7082 STATEMENTS COMPILED SUCCESSFULLY
CODE OCCUPIES 97536 BYTES      GLAP 1740 + 3784 BYTES      DIAG TABLES 8228 BYTES      TOTAL 111360 BYTES

S 00000000    00 01 7D 00 00 00 06 D0 00 00 00 40 00 00 20 28 00 00 0E C8 00 01 B3 00
