home *** CD-ROM | disk | FTP | other *** search
/ ftp.cs.arizona.edu / ftp.cs.arizona.edu.tar / ftp.cs.arizona.edu / snobol / subrs.360 < prev    next >
Text File  |  1988-10-19  |  59KB  |  1,798 lines
  1.          TITLE     'E33.13 (February 1, 1971)'
  2. SUBR     START
  3.          ENTRY     APDSP
  4.          ENTRY     BDSPEC
  5.          ENTRY     BIOPTB
  6.          ENTRY     CARDTB
  7.          ENTRY     COMPLG
  8.          ENTRY     COPL
  9.          ENTRY     DECBIN
  10.          ENTRY     ELEMTB
  11.          ENTRY     EOSTB
  12.          ENTRY     EXREAL
  13.          ENTRY     FINIS
  14.          ENTRY     FRWDTB
  15.          ENTRY     GOTOTB
  16.          ENTRY     IBLKTB
  17.          ENTRY     LBLTB
  18.          ENTRY     LBLXTB
  19.          ENTRY     LINKER
  20.          ENTRY     LOADER
  21.          ENTRY     LVAL
  22.          ENTRY     MOVTST
  23.          ENTRY     NUMBTB
  24.          ENTRY     REALST
  25.          ENTRY     SNABTB
  26.          ENTRY     SPECEQ
  27.          ENTRY     SPIECUT
  28.          ENTRY     SPIECUT2
  29.          ENTRY     SPIECUTF
  30.          ENTRY     SPIESAVE
  31.          ENTRY     SPREAL
  32.          ENTRY     STPRNT
  33.          ENTRY     STREAD
  34.          ENTRY     STREAM
  35.          ENTRY     UNLOADER
  36.          ENTRY     UNOPTB
  37.          ENTRY     VARATB
  38.          EXTRN     ADDFN
  39.          EXTRN     AROWFN
  40.          EXTRN     ATFN
  41.          EXTRN     BARFN
  42.          EXTRN     BIAMFN
  43.          EXTRN     BIATFN
  44.          EXTRN     BINGFN
  45.          EXTRN     BIPDFN
  46.          EXTRN     BIPRFN
  47.          EXTRN     BIQSFN
  48.          EXTRN     COMMON
  49.          EXTRN     DIVFN
  50.          EXTRN     DOLFN
  51.          EXTRN     DOTFN
  52.          EXTRN     EXPFN
  53.          EXTRN     IBCOM#
  54.          EXTRN     INDFN
  55.          EXTRN     INTR10
  56.          EXTRN     KEYFN
  57.          EXTRN     MNSFN
  58.          EXTRN     MPYFN
  59.          EXTRN     NAMFN
  60.          EXTRN     NEGFN
  61.          EXTRN     OBLIST
  62.          EXTRN     ORFN
  63.          EXTRN     PDFN
  64.          EXTRN     PLSFN
  65.          EXTRN     PRFN
  66.          EXTRN     QUESFN
  67.          EXTRN     RETCOD
  68.          EXTRN     SAVESAVE
  69.          EXTRN     SAVE13
  70.          EXTRN     SLHFN
  71.          EXTRN     STRFN
  72.          EXTRN     STYPE
  73.          EXTRN     SUBFN
  74.          EXTRN     SYSCUT
  75.          TITLE     'CONSTANTS'
  76. DWDTH    EQU       8
  77. S        EQU       1
  78. I        EQU       6
  79. R        EQU       7
  80. L        EQU       12
  81. ARGSZ    EQU       20
  82. LSTARG   EQU       128
  83. BCDFLD   EQU       4*DWDTH
  84. LNKFLD   EQU       3*DWDTH
  85. OBSIZ    EQU       256
  86.          TITLE     'APDSP'
  87.          USING     APDSP,15
  88. APDSP    CR        0,3
  89.          BE        0(14)
  90.          AR        4,5
  91.          LM        5,7,0(2)
  92.          AR        6,7
  93.          AR        6,5
  94.          AR        5,3
  95.          ST        5,0(2)
  96. MOVLOP   LA        2,256
  97.          CR        3,2
  98.          BNH       MOVSHORT
  99.          MVC       0(256,6),0(4)
  100.          AR        6,2
  101.          AR        4,2
  102.          SR        3,2
  103.          B         MOVLOP
  104. MOVSHORT BCTR      3,0
  105.          EX        3,MOVEX
  106.          BR        14
  107.          USING     *,15
  108. MOVTST   LA        2,256
  109.          CR        3,2
  110.          BNH       MVVSHORT
  111.          MVC       0(256,6),0(4)
  112.          AR        6,2
  113.          AR        4,2
  114.          SR        3,2
  115.          B         MOVTST
  116. MVVSHORT BCTR      3,0
  117.          EX        3,MOVEX
  118.          BR        14
  119. MOVEX    MVC       0(0,6),0(4)
  120.          LTORG
  121.          TITLE     'BDSPEC'
  122.          USING     BDSPEC,15
  123. BDSPEC   L         2,0(2)
  124.          CR        2,0
  125.          BE        BDSZ
  126.          BH        BDPLUS
  127.          LA        6,1
  128.          LCR       2,2
  129. BDCNV    CVD       2,BDPBUF
  130.          UNPK      BDBUF(12),BDPBUF(8)
  131.          OI        BDBUF+11,X'F0'
  132.          L         3,=A(BDBUF)
  133.          LA        4,1
  134.          LA        5,BDBUF+11
  135. BDLOOP   CLI       0(3),X'F0'
  136.          BNE       BDA
  137.          BXLE      3,4,BDLOOP
  138. BDA      CR        6,0
  139.          BE        BDB
  140.          SR        3,4
  141.          MVI       0(3),C'-'
  142. BDB      LR        5,3
  143.          L         4,=A(BDBUF)
  144.          LA        4,12(4)
  145.          SR        4,3
  146.          LR        3,4
  147. BDC      SR        4,4
  148.          LR        6,0
  149.          STM       3,6,0(1)
  150.          BR        14
  151. BDSZ     MVI       BDBUF,C'0'
  152.          LA        5,BDBUF
  153.          LA        3,1
  154.          B         BDC
  155. BDPLUS   SR        6,6
  156.          B         BDCNV
  157.          DS        0D
  158. BDBUF    DS        CL12
  159.          DS        0D
  160. BDPBUF   DS        CL8
  161.          LTORG
  162.          TITLE     'COPL'
  163.          USING     COPL,15
  164. COPL     ST        4,RESID
  165.          LR        1,2
  166.          L         2,0(2)
  167.          ST        5,THSORG
  168.          ST        6,NXTORG
  169. COPL1    LM        4,5,8(3)
  170.          STM       4,5,8(2)
  171.          LR        4,5
  172.          L         5,16(3)
  173.          CR        0,5
  174.          BE        COPL2
  175.          A         5,THSORG
  176. COPL2    L         6,20(3)
  177.          CR        0,6
  178.          BE        COPL3
  179.          A         6,THSORG
  180.          B         COPL4
  181. COPL3    L         6,NXTORG
  182. COPL4    STM       5,6,16(2)
  183.          LM        5,6,24(3)
  184.          A         5,RESID
  185.          A         6,RESID
  186.          STM       5,6,24(2)
  187.          LA        4,0(4)
  188.          S         4,=F'2'
  189.          BZ        COPL5
  190.          LM        5,6,32(3)
  191.          STM       5,6,32(2)
  192.          LA        4,32
  193.          B         COPL6
  194. COPL5    LA        4,24
  195. COPL6    AR        2,4
  196.          AR        3,4
  197.          SR        7,4
  198.          BH        COPL1
  199.          ST        2,0(1)
  200.          BR        14
  201. RESID    DS        F
  202. THSORG   DS        F
  203. NXTORG   DS        F
  204.          LTORG
  205.          TITLE     'DECBIN'
  206.          USING     DECBIN,15
  207. DECBIN   LM        2,4,0(2)
  208.          CR        0,2
  209.          BNE       DBCA
  210. DBCAA    ST        0,0(1)
  211.          B         DBCRET
  212. DBCA     AR        3,4
  213.          LA        4,1
  214.          LR        5,2
  215.          SR        5,4
  216.          AR        5,3
  217.          CLI       0(3),C'-'
  218.          BNE       DBCB
  219.          BXH       3,4,0(14)
  220.          SR        2,4
  221.          LR        6,4
  222.          B         DBCD
  223. DBCB     CLI       0(3),C'+'
  224.          BNE       DBCC
  225.          BXH       3,4,0(14)
  226.          SR        2,4
  227. DBCC     LR        6,0
  228. DBCD     CLI       0(3),C'0'
  229.          BNE       DBCDA
  230.          BXH       3,4,DBCAA
  231.          BCTR      2,0
  232.          B         DBCD
  233. DBCDA    C         2,=F'10'
  234.          BH        0(14)
  235.          LR        7,3
  236. DBCE     CLI       0(3),X'F0'
  237.          BL        0(14)
  238.          CLI       0(3),C'9'
  239.          BH        0(14)
  240.          BXLE      3,4,DBCE
  241.          BCTR      2,0
  242.          CR        0,6
  243.          BE        DBCEA
  244.          NI        0(5),X'BF'
  245. DBCEA    EX        2,DBCPACK
  246.          OI        0(5),X'F0'
  247.          CP        DBCBUF(8),=P'2147483647'
  248.          BH        0(14)
  249.          CP        DBCBUF(8),=P'-2147483648'
  250.          BL        0(14)
  251.          CVB       5,DBCBUF
  252.          ST        5,0(1)
  253. DBCRET   LA        2,I
  254.          ST        2,4(1)
  255.          B         4(14)
  256.          DS        0D
  257. DBCBUF   DS        CL8
  258. DBCPACK  PACK      DBCBUF(8),0(0,7)
  259.          LTORG
  260.          TITLE     'EXREAL'
  261.          USING     *,15
  262. EXREAL   STM       14,2,EXSAVE
  263.          LTER      0,0
  264.          BE        EXFAIL
  265.          LTER      2,2
  266.          BE        LOAD1
  267.          STE       0,BASE
  268.          STE       2,EXP
  269.          BAL       14,LOG
  270.          LE        2,EXP
  271.          MER       0,2
  272.          BAL       14,CEXP
  273. EGRESS   LM        14,2,EXSAVE
  274.          B         4(14)
  275. LOAD1    LE        0,ONER
  276.          B         EGRESS
  277. EXFAIL   LM        14,2,EXSAVE
  278.          BR        14
  279. LOG      L         0,BASE
  280.          LTR       0,0
  281.          BNH       EXFAIL
  282.          SRDL      0,24
  283.          SRL       1,8
  284.          ST        1,ARGR
  285.          OI        ARGR,X'40'
  286.          SLL       0,2
  287.          STH       0,IPART+2
  288.          SR        2,2
  289.          SRL       1,21
  290.          IC        2,TABLE(1)
  291.          LE        0,ARGR
  292.          LER       2,0
  293.          SE        0,ONER(2)
  294.          AE        2,ONER(2)
  295.          DER       0,2
  296.          STE       0,ARGR
  297.          MER       0,0
  298.          LE        2,C4
  299.          MER       2,0
  300.          AE        2,C3
  301.          MER       2,0
  302.          AE        2,C2
  303.          MER       2,0
  304.          AE        2,C1
  305.          MER       2,0
  306.          LE        0,ARGR
  307.          MER       2,0
  308.          AER       2,0
  309.          AER       2,0
  310.          LE        0,IPART
  311.          SRL       2,1
  312.          LA        2,256(2)
  313.          STH       2,IPART+2
  314.          SE        0,IPART
  315.          ME        0,LOGE2
  316.          ADR       0,2
  317.          BR        14
  318. CEXP     CE        0,MAX
  319.          STE       0,BASE
  320.          BH        EXFAIL
  321.          CE        0,MIN
  322.          BH        OK1
  323.          SER       0,0
  324.          B         EGRESS
  325. OK1      STE       0,BASE
  326.          L         1,BASE
  327.          SLDL      0,8
  328.          N         0,=X'0000007F'
  329.          CH        0,SMALL
  330.          BH        OK2
  331.          LE        0,ONER
  332.          BR        14
  333. OK2      SRL       1,1
  334.          SLL       0,2
  335.          LCR       2,0
  336.          M         0,LOG2E
  337.          SRDL      0,287(2)
  338.          LTER      0,0
  339.          BNH       OK3
  340.          X         0,ALLF
  341.          X         1,ALLF
  342. OK3      SLL       0,24
  343.          LR        2,0
  344.          SLDL      0,2
  345.          LR        3,0
  346.          SRL       1,4
  347.          LR        6,1
  348.          MR        0,1
  349.          LR        5,0
  350.          M         4,C
  351.          A         0,A
  352.          LR        5,0
  353.          L         0,B
  354.          DR        0,5
  355.          SR        1,6
  356.          SRL       1,1
  357.          A         1,D
  358.          AR        1,4
  359.          LR        4,6
  360.          SRL       4,2
  361.          DR        4,1
  362.          A         5,FXONE
  363.          SRL       5,0(3)
  364.          A         5,FUDGE
  365.          C         5,FXONE
  366.          BL        OK4
  367.          L         5,ONER
  368.          B         JOIN
  369. OK4      SRL       5,6
  370.          O         5,FXONE
  371. JOIN     SR        5,2
  372.          ST        5,ARGR
  373.          LE        0,ARGR
  374.          BR        14
  375. BASE     DS        F
  376. EXP      DS        F
  377. EXSAVE   DS        5F
  378. ARGR     DS        F
  379. IPART    DC        X'46000000'
  380. TABLE    DC        X'0804040400000000'
  381. ONER     DC        X'41100000'
  382.          DC        X'40400000'
  383.          DC        X'40100000'
  384. C4       DC        E'0.28157778'
  385. C3       DC        E'0.27965158'
  386. C2       DC        E'0.40024595'
  387. C1       DC        E'0.66666322'
  388. MAX      DC        E'174.673'
  389. MIN      DC        E'-180.218'
  390. ALLF     DC        X'FFFFFFFF'
  391. LOGE2    DC        X'40B17219'
  392. LOG2E    DC        X'5C551D95'
  393. A        DC        X'576AE119'
  394. B        DC        X'269F8E6B'
  395. C        DC        X'B9059003'
  396. D        DC        X'B05CFCE3'
  397. FXONE    DC        X'40000000'
  398. FUDGE    DC        X'00000020'
  399.          DS        0H
  400. SMALL    DC        X'0039'
  401.          LTORG
  402.          TITLE     'FINIS'
  403. FINIS    LR        12,15
  404.          USING     FINIS,12
  405.          L         10,=A(RETCOD)
  406.          L         10,0(10)
  407.          STH       10,FINISRET
  408.          L         15,=A(IBCOM#)
  409.          BAL       14,68(15)
  410. FINISRET DC        AL2(0)
  411.          LTORG
  412.          USING     *,15
  413. COMPLG   AR        6,7
  414.          AR        3,4
  415.          LR        1,2
  416.          CR        2,5
  417.          BNH       COMPARE
  418.          LR        2,5
  419. COMPARE  C         2,=F'256'
  420.          BNH       COMPDOWN
  421.          CLC       0(256,3),0(6)
  422.          BL        8(14)
  423.          BH        0(14)
  424.          S         2,=F'256'
  425.          BZ        4(14)
  426.          LA        3,256(3)
  427.          LA        6,256(6)
  428.          B         COMPARE
  429. COMPDOWN BCTR      2,0
  430.          EX        2,COMPOM
  431.          BL        8(14)
  432.          BH        0(14)
  433.          CR        1,5
  434.          BL        8(14)
  435.          BE        4(14)
  436.          BR        14
  437. COMPOM   CLC       0(0,3),0(6)
  438.          TITLE     'LVAL'
  439.          USING     LVAL,15
  440. LVAL     LR        3,2
  441. LVAL1    L         4,24(3)
  442. LVAL2    C         0,16(3)
  443.          BE        LVAL3
  444.          L         3,16(3)
  445.          AR        3,2
  446.          C         4,24(3)
  447.          BNH       LVAL2
  448.          B         LVAL1
  449. LVAL3    LR        5,0
  450.          STM       4,5,0(1)
  451.          BR        14
  452.          TITLE     'LINKER'
  453.          USING     *,15
  454. LINKER   STM       0,15,SAVE
  455.          SR        5,5
  456.          LA        7,SPEC
  457.          CL        2,=A(ARGSZ)
  458.          BNH       NXTARG
  459.          L         2,=A(ARGSZ)
  460. NXTARG   LH        6,6(1)
  461.          C         6,=A(S)
  462.          BE        STRARG
  463.          ST        1,ARG(5)
  464. NXTONE   LA        1,8(1)
  465.          LA        5,4(5)
  466.          BCT       2,NXTARG
  467.          LA        5,ARG-4(5)
  468.          MVI       0(5),LSTARG
  469.          LM        0,12,SAVE
  470.          LA        1,ARG
  471.          LA        13,DSAVE
  472.          LR        15,4
  473.          BALR      14,15
  474.          LA        14,0
  475.          BALR      15,0
  476.          USING     *,15
  477.          L         15,=A(LINKER)
  478.          USING     LINKER,15
  479.          CL        14,=A(0)
  480.          BNE       ERET
  481.          LM        1,15,SAVE+4
  482.          LH        5,6(3)
  483.          ST        0,0(3)
  484.          C         5,=A(I)
  485.          BE        GOBACK
  486.          C         5,=A(R)
  487.          BE        REAL
  488.          C         5,=A(S)
  489.          BE        STRRTN
  490.          B         USERDEF
  491. ERET     LM        0,15,SAVE
  492.          BR        14
  493. REAL     STE       0,0(3)
  494. GOBACK   LM        0,15,SAVE
  495.          B         4(14)
  496. STRARG   L         6,0(1)
  497.          CL        6,=A(0)
  498.          BE        NULSTR
  499.          L         8,4(6)
  500.          LA        8,0(8)
  501.          ST        8,4(7)
  502.          LA        6,32(6)
  503. STRNUL   ST        6,0(7)
  504.          ST        7,ARG(5)
  505.          LA        7,8(7)
  506.          B         NXTONE
  507. NULSTR   SR        6,6
  508.          ST        6,4(7)
  509.          B         STRNUL
  510. STRRTN   LR        11,0
  511.          L         6,0(11)
  512.          ST        6,SPEC+8
  513.          L         6,4(11)
  514.          ST        6,SPEC
  515.          L         6,=A(0)
  516.          ST        6,SPEC+4
  517.          ST        6,SPEC+12
  518.          LA        6,SPEC
  519.          ST        6,0(3)
  520.          L         6,=A(L)
  521.          ST        6,4(3)
  522.          B         GOBACK
  523. USERDEF  LR        11,0
  524.          LD        4,0(11)
  525.          STD       4,0(3)
  526.          B         GOBACK
  527.          DS        0D
  528. SAVE     DC        18F'0'
  529. DSAVE    DC        40F'0'
  530. ARG      DC        20F'0'
  531. SPEC     DC        40F'0'
  532.          LTORG
  533.          TITLE     'LOADER AND UNLOADER'
  534. OFLGS    EQU       48
  535. DDNAME   EQU       40
  536. LOADER   BALR      6,0
  537.          USING     *,6
  538. LOADOR   STM       8,0,SAVEX
  539.          L         3,0(1)
  540.          BCTR      3,0
  541.          CL        3,FULL
  542.          BNH       LE8
  543.          L         3,FULL
  544. LE8      L         4,4(1)
  545.          A         4,8(1)
  546.          LD        4,BLANKS
  547.          STD       4,LOADAX
  548.          EX        3,MOVE
  549.          L         3,0(2)
  550.          CR        0,3
  551.          BE        DSRNZ
  552.          BCTR      3,0
  553.          CL        3,FULL
  554.          BNH       LEE8
  555.          L         3,FULL
  556. LEE8     L         4,4(2)
  557.          A         4,8(2)
  558.          LD        4,BLANKS
  559.          STD       4,NEWDDN
  560.          EX        3,MOVEE
  561.          B         OPENTST
  562. DSRNZ    MVC       NEWDDN(8),SNOLIB
  563. OPENTST  TM        LIBE+OFLGS,X'10'
  564.          BZ        NOTOPEN
  565.          CLC       PRDDN(8),NEWDDN
  566.          BE        DOLOAD
  567.          CLOSE     (LIBE,DISP)
  568. NOTOPEN  MVC       LIBE+DDNAME(8),NEWDDN
  569.          OPEN      (LIBE,(INPUT))
  570.          MVC       PRDDN(8),NEWDDN
  571. DOLOAD   LOAD      EPLOC=LOADAX,DCB=LIBE
  572.          LR        2,0
  573.          LM        8,0,SAVEX
  574.          BR        14
  575.          USING     *,15
  576. UNLOADER L         6,=A(LOADOR)
  577.          DROP      15
  578.          USING     LOADOR,6
  579.          STM       8,0,SAVEX
  580.          L         2,0(1)
  581.          BCTR      2,0
  582.          CL        2,FULL
  583.          BNH       LT8
  584.          L         2,FULL
  585. LT8      L         4,4(1)
  586.          A         4,8(1)
  587.          LD        4,BLANKS
  588.          STD       4,LOADAX
  589.          EX        2,MOVE
  590. *                            WHERE THERE WAS GARBAGE
  591.          LR        7,15
  592.          DELETE    EPLOC=LOADAX
  593.          LR        15,7
  594.          LM        8,0,SAVEX
  595.          BR        14
  596.          DS        0D
  597. BLANKS   DC        CL8' '
  598. LOADAX   DS        D
  599. SAVEX    DC        18F'0'
  600. FULL     DC        F'7'
  601.          DS        D
  602. NEWDDN   DC        CL8' '
  603. PRDDN    DC        CL8' '
  604. SNOLIB   DC        CL8'SNOLIB'
  605. LIBE     DCB       DSORG=PO,MACRF=(R),DEVD=DA
  606. MOVE     MVC       LOADAX(0),0(4)
  607. MOVEE    MVC       NEWDDN(0),0(4)
  608.          TITLE     'REALST'
  609.          USING     REALST,15
  610. REALST   EQU       *
  611.          SR        1,1
  612.          SR        4,4
  613.          CE        2,=E'0'
  614.          BE        REALZERO
  615.          BH        REALPL
  616.          MVI       SIGN,C'-'
  617.          LCER      2,2
  618.          B         REAL1
  619. REALPL   MVI       SIGN,C'+'
  620. REAL1    CE        2,=X'46100000'
  621.          BNL       DLOOPA
  622. MLOOP    CE        2,=E'15'
  623.          BNL       MLOOPA
  624.          ME        2,=E'1.E+6'
  625.          LA        4,6(4)
  626.          B         MLOOP
  627. MLOOPA   CE        2,=E'15000'
  628.          BNL       MLOOPB
  629.          ME        2,=E'1000'
  630.          LA        4,3(4)
  631. MLOOPB   CE        2,=X'46100000'
  632.          BNL       MLOOPEND
  633.          ME        2,=E'10'
  634.          LA        4,1(4)
  635.          B         MLOOPB
  636. MLOOPEND EQU       *
  637.          STE       2,X
  638.          L         2,X
  639.          SRDL      2,24
  640.          SRL       3,8
  641.          CVD       3,XP
  642.          LA        3,RBUF+LPAT-1
  643.          SR        3,4
  644.          C         4,=F'15'
  645.          BNL       REALSM
  646.          MVC       RBUF(17),PAT
  647.          MVI       0(3),C'.'
  648.          EDMK      RBUF(17),XP
  649. REALSIG  CR        3,1
  650.          BH        REAL2
  651.          MVI       0(3),C'.'
  652.          BCTR      3,0
  653.          LR        1,3
  654. REAL2    CLI       SIGN,C'-'
  655.          BNE       REALDONE
  656.          BCTR      1,0
  657.          MVI       0(1),C'-'
  658. REALDONE ST        1,8(5)
  659.          LA        2,RBUF+LPAT
  660.          SR        2,1
  661.          SR        3,3
  662.          STM       2,3,0(5)
  663.          ST        3,12(5)
  664.          BR        14
  665. REALSM   MVI       MBUF,C'0'
  666.          MVC       MBUF+1(80),MBUF
  667.          MVC       RBUF+1(16),PAT
  668.          EDMK      RBUF+1(16),XP
  669.          B         REALSIG
  670. REALZERO LA        1,3
  671.          SR        2,2
  672.          LA        3,REALZIP
  673.          SR        4,4
  674.          STM       1,4,0(5)
  675.          BR        14
  676. DLOOP    DE        2,=E'10'
  677.          LA        4,1(4)
  678. DLOOPA   CE        2,=X'47100000'
  679.          BNL       DLOOP
  680.          STE       2,X
  681.          L         2,X
  682.          SRDL      2,24
  683.          SRL       3,8
  684.          CVD       3,XP
  685.          MVC       LBUF(16),PAT
  686.          EDMK      LBUF(16),XP
  687.          L         3,=A(MBUF)
  688.          AR        3,4
  689.          MVI       MBUF,C'0'
  690.          MVC       MBUF+1(80),MBUF
  691.          MVI       0(3),C'.'
  692.          CLI       SIGN,C'-'
  693.          BNE       REAL3
  694.          BCTR      1,0
  695.          MVI       0(1),C'-'
  696. REAL3    ST        1,8(5)
  697.          SR        3,1
  698.          LA        3,1(3)
  699.          SR        4,4
  700.          STM       3,4,0(5)
  701.          ST        4,12(5)
  702.          BR        14
  703. REALZIP  DC        C'0.0'
  704. LPAT     EQU       17
  705. LBUF     DC        16C'0'
  706. MBUF     DC        80C'0'
  707. RBUF     DC        17C'0'
  708. PAT      DC        C'0',16X'20'
  709. SIGN     DC        C'0'
  710. XP       DC        D'0'
  711. X        DC        F'0'
  712.          LTORG
  713.          TITLE    'SPECEQ'
  714.          USING     SPECEQ,15
  715. SPECEQ   CR        0,2
  716.          BE        4(14)
  717.          AR        6,7
  718.          AR        3,4
  719. SPECDOWN C         2,=F'256'
  720.          BNH       SPECSHRT
  721.          CLC       0(256,3),0(6)
  722.          BNE       0(14)
  723.          S         2,=F'256'
  724.          BZ        4(14)
  725.          LA        3,256(3)
  726.          LA        6,256(6)
  727.          B         SPECDOWN
  728. SPECSHRT BCTR      2,0
  729.          EX        2,SPECOM
  730.          BE        4(14)
  731.          BR        14
  732. SPECOM   CLC       0(0,3),0(6)
  733.          TITLE     'SPIECUT'
  734. SPIECUT  BALR      15,0
  735.          USING     *,15
  736.          CLI       SPIECUTF,X'00'
  737.          BE        SPIECUT1
  738.          ABEND     0,DUMP
  739. SPIECUT1 MVI       SPIECUTF,X'FF'
  740.          STM       3,14,SPIE3
  741.          MVC       SPIEPIE(32),0(1)
  742.          L         3,SIGRESET
  743.          SPM       3
  744.          L         11,=A(SYSCUT)
  745.          LA        0,0
  746.          LA        8,8
  747.          LM        9,10,SPIEREST
  748.          BR        11
  749. SPIECUT2 EQU       *
  750.          USING     SPIECUT2,15
  751.          L         9,=A(RETCOD)
  752.          LA        10,16
  753.          ST        10,0(9)
  754.          LA        0,0
  755.          LA        8,8
  756.          LM        9,10,SPIEREST
  757.          L         11,=A(SYSCUT)
  758.          BR        11
  759.          CNOP      4,8
  760. SPIEPIE  DS        0F
  761. SPIEPICA DC        AL1(0),AL3(0)
  762. SPIESAVE DC        D'0'
  763. SPIER14  DC        5F'0'
  764. SPIE3    DC        10F'0'
  765. SPIE13   DC        F'0'
  766. SPIE14   DC        F'0'
  767. SPIECUTF DC        A(0)
  768. SPIEREST DC        A(COMMON,COMMON+4096)
  769. SIGRESET DC        X'36000000'
  770.          LTORG
  771.          TITLE     'SPREAL'
  772.          USING     SPREAL,15
  773. SPREAL   AR        4,3
  774.          CR        2,0
  775.          BE        SPZERO
  776.          MVI       RSIGN,X'00'
  777.          AR        2,4
  778.          CLI       0(4),C'9'
  779.          BH        0(14)
  780.          CLI       0(4),X'F0'
  781.          BNL       SPSTART
  782.          CLI       0(4),C'+'
  783.          BNE       SPMINUS
  784. SPCHECK  LA        4,1(4)
  785.          CR        4,2
  786.          BNL       0(14)
  787.          CLI       0(4),X'F0'
  788.          BL        0(14)
  789.          CLI       0(4),C'9'
  790.          BH        0(14)
  791.          B         SPSTART
  792. SPMINUS  CLI       0(4),C'-'
  793.          BNE       0(14)
  794.          MVI       RSIGN,X'01'
  795.          B         SPCHECK
  796. SPSTART  MVC       CHAR(1),0(4)
  797.          NI        CHAR,X'0F'
  798.          LE        INT,DIGIT
  799. SPILOOP  LA        4,1(4)
  800.          CR        4,2
  801.          BE        SPRETURN
  802.          CLI       0(4),C'.'
  803.          BE        SPFRAC
  804.          CLI       0(4),X'F0'
  805.          BL        0(14)
  806.          CLI       0(4),C'9'
  807.          BH        0(14)
  808.          ME        INT,=E'10'
  809.          MVC       CHAR(1),0(4)
  810.          NI        CHAR,X'0F'
  811.          AE        INT,DIGIT
  812.          B         SPILOOP
  813. *
  814. *                                  FRACTION IS COMPUTED DIGIT BY
  815. *                                  DIGIT RIGHT TO LEFT.
  816. SPFRAC   LE        FRAC,RZERO
  817. SPFLOOP  BCTR      2,0
  818.          CR        4,2
  819.          BE        SPFIN
  820.          CLI       0(2),X'F0'
  821.          BL        0(14)
  822.          CLI       0(2),C'9'
  823.          BH        0(14)
  824.          MVC       CHAR(1),0(2)
  825.          NI        CHAR,X'0F'
  826.          AE        FRAC,DIGIT
  827.          DE        FRAC,TEN
  828.          B         SPFLOOP
  829. SPFIN    AER       INT,FRAC
  830. SPRETURN CLI       RSIGN,X'00'
  831.          BE        SPOS
  832.          LCER      INT,INT
  833. SPOS     STE       INT,0(1)
  834.          B         4(14)
  835. SPZERO   LE        INT,=E'0'
  836.          B         SPRETURN
  837. RSIGN    DS        1C
  838.          DS        0F
  839. TEN      DC        E'10'
  840. RZERO    DC        E'0'
  841. INT      EQU       2
  842. DIGIT    DC        X'42000000'
  843. CHAR     EQU       DIGIT+1
  844. FRAC     EQU       4
  845.          LTORG
  846.          TITLE     'STPRNT'
  847.          USING     STPRNT,7
  848. STPRNT   LR        7,15
  849.          STM       13,1,AISAVE
  850.          L         13,=A(SAVESAVE)
  851.          ST        0,0(1)
  852.          L         6,0(2)
  853.          LA        5,8(6)
  854. STPRNT0  ST        5,STPRUNIT
  855.          L         6,2*8(6)
  856.          MVI       STPRUNIT,X'01'
  857.          LA        6,BCDFLD(6)
  858.          ST        6,STPRFRMT
  859.          MVI       STPRFRMT,X'01'
  860.          LM        2,4,0(3)
  861.          LTR       2,2
  862.          BNZ       STPRNT1
  863.          LM        2,4,BLSP
  864. STPRNT1  STH       2,STPRLENG
  865.          AR        4,3
  866.          ST        4,STPRADDR
  867.          L         15,=A(IBCOM#)
  868.          CNOP      0,4
  869.          BAL       14,4(15)
  870. STPRUNIT DC        X'01',AL3(0)
  871. STPRFRMT DC        X'01',AL3(0)
  872.          L         15,=A(IBCOM#)
  873.          BAL       14,12(15)
  874. STPRADDR DC        A(0)
  875.          DC        XL2'0170'
  876. STPRLENG DC        H'0'
  877.          L         15,=A(IBCOM#)
  878.          BAL       14,16(15)
  879.          LM        13,1,AISAVE
  880.          BR        14
  881. BLSP     DC        A(1)
  882.          DC        A(0)
  883.          DC        A(BLST)
  884.          DC        A(0)
  885. BLST     DC        C' '
  886.          TITLE     'STREAD'
  887.          USING     STREAD,7
  888. STREAD   LR        7,15
  889.          STM       13,1,AISAVE
  890.          L         13,=A(SAVESAVE)
  891. STREAD0  ST        2,STRDUNIT
  892.          MVI       STRDUNIT,X'31'
  893.          LM        1,3,0(1)
  894.          STH       1,STRDLNTH+2
  895.          AR        2,3
  896.          ST        2,STRDBUF
  897.          L         15,=A(IBCOM#)
  898.          CNOP      0,4
  899.          BAL       14,0(15)
  900. STRDUNIT DC        X'31',AL3(0)
  901.          DC        X'01',AL3(INFORMAT)
  902.          DC        A(EOFADD)
  903.          DC        A(ERRADD)
  904.          L         15,=A(IBCOM#)
  905.          BAL       14,12(15)
  906. STRDBUF  DC        A(0)
  907. STRDLNTH DC        XL2'0170',AL2(0)
  908.          L         15,=A(IBCOM#)
  909.          BAL       14,16(15)
  910.          LM        13,1,AISAVE
  911.          B         8(14)
  912.          CNOP      0,4
  913. EOFADD   DC        A(EOF)
  914. ERRADD   DC        A(ERR)
  915. EOF      LM        13,1,AISAVE
  916.          BR        14
  917. ERR      LM        13,1,AISAVE
  918.          B         4(14)
  919. INFORMAT DC        C'(255(255A1))'
  920. AISAVE   DC        5F'0'
  921.          LTORG
  922.          TITLE     'STREAM'
  923. ARYTYP EQU     7
  924. CLNTYP EQU     5
  925. CMATYP EQU     2
  926. CMTTYP EQU     2
  927. CNTTYP EQU     4
  928. CTLTYP EQU     3
  929. DIMTYP EQU     1
  930. EOSTYP EQU     6
  931. EQTYP  EQU     4
  932. FGOTYP EQU     3
  933. FTOTYP EQU     6
  934. FLITYP EQU     6
  935. FNCTYP EQU     5
  936. ILITYP EQU     2
  937. LPTYP  EQU     1
  938. NBTYP  EQU     1
  939. NEWTYP EQU     1
  940. NSTTYP EQU     4
  941. QLITYP EQU     1
  942. RBTYP  EQU     7
  943. RPTYP  EQU     3
  944. SGOTYP EQU     2
  945. STOTYP EQU     5
  946. UGOTYP EQU     1
  947. UTOTYP EQU     4
  948. VARTYP EQU     3
  949.          SPACE
  950.          USING     STREAM,15
  951.          SPACE
  952.          DS        0D
  953. *        BIOPTB
  954. *        FOR(PLUS) PUT(ADDFN) GOTO(TBLKTB)
  955. *        FOR(MINUS) PUT(SUBFN) GOTO(TBLKTB)
  956. *        FOR(DOT) PUT(NAMFN) GOTO(TBLKTB)
  957. *        FOR(DOLLAR) PUT(DOLFN) GOTO(TBLKTB)
  958. *        FOR(STAR) PUT(MPYFN) GOTO(STARTB)
  959. *        FOR(SLASH) PUT(DIVFN) GOTO(TBLKTB)
  960. *        FOR(AT) PUT(BIATFN) GOTO(TBLKTB)
  961. *        FOR(POUND) PUT(BIPDFN) GOTO(TBLKTB)
  962. *        FOR(PERCENT) PUT(BIPRFN) GOTO(TBLKTB)
  963. *        FOR(RAISE) PUT(EXPFN) GOTO(TBLKTB)
  964. *        FOR(ORSYM) PUT(ORFN) GOTO(TBLKTB)
  965. *        FOR(KEYSYM) PUT(BIAMFN) GOTO(TBLKTB)
  966. *        FOR(NOTSYM) PUT(BINGFN) GOTO(TBLKTB)
  967. *        FOR(QUESYM) PUT(BIQSFN) GOTO(TBLKTB)
  968. *        ELSE ERROR
  969. BIOPTB   EQU       *
  970.          DC        X'74747474747474747474747474747474'
  971.          DC        X'74747474747474747474747474747474'
  972.          DC        X'74747474747474747474747474747474'
  973.          DC        X'74747474747474747474747474747474'
  974.          DC        X'74747474747474747474741474740454'
  975.          DC        X'5C7474747474747474744C1C24747464'
  976.          DC        X'0C2C747474747474747474744474746C'
  977.          DC        X'74747474747474747474743C34747474'
  978.          DC        X'74747474747474747474747474747474'
  979.          DC        X'7474747474747474747474747474744C'
  980.          DC        X'74747474747474747474747474747474'
  981.          DC        X'74747474747474747474747474747474'
  982.          DC        X'74747474747474747474747474747474'
  983.          DC        X'74747474747474747474747474747474'
  984.          DC        X'74747474747474747474747474747474'
  985.          DC        X'74747474747474747474747474747474'
  986.          L         7,=A(ADDFN)
  987.          L         3,=A(TBLKTB)
  988.          L         7,=A(SUBFN)
  989.          L         3,=A(TBLKTB)
  990.          L         7,=A(NAMFN)
  991.          L         3,=A(TBLKTB)
  992.          L         7,=A(DOLFN)
  993.          L         3,=A(TBLKTB)
  994.          L         7,=A(MPYFN)
  995.          L         3,=A(STARTB)
  996.          L         7,=A(DIVFN)
  997.          L         3,=A(TBLKTB)
  998.          L         7,=A(BIATFN)
  999.          L         3,=A(TBLKTB)
  1000.          L         7,=A(BIPDFN)
  1001.          L         3,=A(TBLKTB)
  1002.          L         7,=A(BIPRFN)
  1003.          L         3,=A(TBLKTB)
  1004.          L         7,=A(EXPFN)
  1005.          L         3,=A(TBLKTB)
  1006.          L         7,=A(ORFN)
  1007.          L         3,=A(TBLKTB)
  1008.          L         7,=A(BIAMFN)
  1009.          L         3,=A(TBLKTB)
  1010.          L         7,=A(BINGFN)
  1011.          L         3,=A(TBLKTB)
  1012.          L         7,=A(BIQSFN)
  1013.          L         3,=A(TBLKTB)
  1014.          BR        14
  1015.          SPACE
  1016.          DS        0D
  1017. *        CARDTB
  1018. *        FOR(CMT) PUT(CMTTYP) STOPSH
  1019. *        FOR(CTL) PUT(CTLTYP) STOPSH
  1020. *        FOR(CNT) PUT(CNTTYP) STOPSH
  1021. *        ELSE PUT(NEWTYP) STOPSH
  1022. CARDTB   EQU       *
  1023.          DC        X'1C1C1C1C1C1C1C1C1C1C1C1C1C1C1C1C'
  1024.          DC        X'1C1C1C1C1C1C1C1C1C1C1C1C1C1C1C1C'
  1025.          DC        X'1C1C1C1C1C1C1C1C1C1C1C1C1C1C1C1C'
  1026.          DC        X'1C1C1C1C1C1C1C1C1C1C1C1C1C1C1C1C'
  1027.          DC        X'1C1C1C1C1C1C1C1C1C1C1C141C1C1404'
  1028.          DC        X'1C1C1C1C1C1C1C1C1C1C1C1C041C1C1C'
  1029.          DC        X'0C1C1C1C1C1C1C1C1C1C1C1C1C1C1C1C'
  1030.          DC        X'1C1C1C1C1C1C1C1C1C1C1C1C1C1C1C1C'
  1031.          DC        X'1C1C1C1C1C1C1C1C1C1C1C1C1C1C1C1C'
  1032.          DC        X'1C1C1C1C1C1C1C1C1C1C1C1C1C1C1C1C'
  1033.          DC        X'1C1C1C1C1C1C1C1C1C1C1C0404041C1C'
  1034.          DC        X'1C1C1C1C1C1C1C1C1C1C1C1C1C1C1C1C'
  1035.          DC        X'1C1C1C1C1C1C1C1C1C1C1C1C1C1C1C1C'
  1036.          DC        X'1C1C1C1C1C1C1C1C1C1C1C1C1C1C1C1C'
  1037.          DC        X'1C1C1C1C1C1C1C1C1C1C1C1C1C1C1C1C'
  1038.          DC        X'1C1C1C1C1C1C1C1C1C1C1C1C1C1C1C1C'
  1039.          L         7,=A(CMTTYP)
  1040.          B         STRMSHRT
  1041.          L         7,=A(CTLTYP)
  1042.          B         STRMSHRT
  1043.          L         7,=A(CNTTYP)
  1044.          B         STRMSHRT
  1045.          L         7,=A(NEWTYP)
  1046.          B         STRMSHRT
  1047.          SPACE
  1048.          DS        0D
  1049. *        DQLITB
  1050. *        FOR(DQUOTE) STOP
  1051. *        ELSE CONTIN
  1052. DQLITB   EQU       *
  1053.          DC        X'00000000000000000000000000000000'
  1054.          DC        X'00000000000000000000000000000000'
  1055.          DC        X'00000000000000000000000000000000'
  1056.          DC        X'00000000000000000000000000000000'
  1057.          DC        X'00000000000000000000000000000000'
  1058.          DC        X'00000000000000000000000000000000'
  1059.          DC        X'00000000000000000000000000000000'
  1060.          DC        X'00000000000000000000000000000004'
  1061.          DC        X'00000000000000000000000000000000'
  1062.          DC        X'00000000000000000000000000000000'
  1063.          DC        X'00000000000000000000000000000000'
  1064.          DC        X'00000000000000000000000000000000'
  1065.          DC        X'00000000000000000000000000000000'
  1066.          DC        X'00000000000000000000000000000000'
  1067.          DC        X'00000000000000000000000000000000'
  1068.          DC        X'00000000000000000000000000000000'
  1069.          B         STRMSTOP
  1070.          SPACE
  1071.          DS        0D
  1072. *        ELEMTB
  1073. *        FOR(NUMBER) PUT(ILITYP) GOTO(INTGTB)
  1074. *        FOR(LETTER) PUT(VARTYP) GOTO(VARTB)
  1075. *        FOR(SQUOTE) PUT(QLITYP) GOTO(SQLITB)
  1076. *        FOR(DQUOTE) PUT(QLITYP) GOTO(DQLITB)
  1077. *        FOR(LEFTPAREN) PUT(NSTTYP) STOP
  1078. *        ELSE ERROR
  1079. ELEMTB   EQU       *
  1080.          DC        X'2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C'
  1081.          DC        X'2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C'
  1082.          DC        X'2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C'
  1083.          DC        X'2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C'
  1084.          DC        X'2C2C2C2C2C2C2C2C2C2C2C2C2C242C2C'
  1085.          DC        X'2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C'
  1086.          DC        X'2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C'
  1087.          DC        X'2C2C2C2C2C2C2C2C2C2C2C2C2C142C1C'
  1088.          DC        X'2C0C0C0C0C0C0C0C0C0C2C2C2C2C2C2C'
  1089.          DC        X'2C0C0C0C0C0C0C0C0C0C2C2C2C2C2C2C'
  1090.          DC        X'2C2C0C0C0C0C0C0C0C0C2C2C2C2C2C2C'
  1091.          DC        X'2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C'
  1092.          DC        X'2C0C0C0C0C0C0C0C0C0C2C2C2C2C2C2C'
  1093.          DC        X'2C0C0C0C0C0C0C0C0C0C2C2C2C2C2C2C'
  1094.          DC        X'2C2C0C0C0C0C0C0C0C0C2C2C2C2C2C2C'
  1095.          DC        X'040404040404040404042C2C2C2C2C2C'
  1096.          L         7,=A(ILITYP)
  1097.          L         3,=A(INTGTB)
  1098.          L         7,=A(VARTYP)
  1099.          L         3,=A(VARTB)
  1100.          L         7,=A(QLITYP)
  1101.          L         3,=A(SQLITB)
  1102.          L         7,=A(QLITYP)
  1103.          L         3,=A(DQLITB)
  1104.          L         7,=A(NSTTYP)
  1105.          B         STRMSTOP
  1106.          BR        14
  1107.          SPACE
  1108.          DS        0D
  1109. *        EOSTB
  1110. *        FOR(EOS) STOP
  1111. *        ELSE CONTIN
  1112. EOSTB    EQU       *
  1113.          DC        X'00000000000000000000000000000000'
  1114.          DC        X'00000000000000000000000000000000'
  1115.          DC        X'00000000000000000000000000000000'
  1116.          DC        X'00000000000000000000000000000000'
  1117.          DC        X'00000000000000000000000000000000'
  1118.          DC        X'00000000000000000000000000000400'
  1119.          DC        X'00000000000000000000000000000000'
  1120.          DC        X'00000000000000000000000000000000'
  1121.          DC        X'00000000000000000000000000000000'
  1122.          DC        X'00000000000000000000000000000000'
  1123.          DC        X'00000000000000000000000000000000'
  1124.          DC        X'00000000000000000000000000000000'
  1125.          DC        X'00000000000000000000000000000000'
  1126.          DC        X'00000000000000000000000000000000'
  1127.          DC        X'00000000000000000000000000000000'
  1128.          DC        X'00000000000000000000000000000000'
  1129.          B         STRMSTOP
  1130.          SPACE
  1131.          DS        0D
  1132. *        FLITB
  1133. *        FOR(NUMBER) CONTIN
  1134. *        FOR(TERMINATOR) STOPSH
  1135. *        ELSE ERROR
  1136. FLITB    EQU       *
  1137.          DC        X'08080808080408080808080808080808'
  1138.          DC        X'08080808080808080808080808080808'
  1139.          DC        X'08080808080808080808080808080808'
  1140.          DC        X'08080808080808080808080808080808'
  1141.          DC        X'04080808080808080808080808080808'
  1142.          DC        X'08080808080808080808080808040408'
  1143.          DC        X'08080808080808080808080408080408'
  1144.          DC        X'08080808080808080808080808080808'
  1145.          DC        X'08080808080808080808080808080808'
  1146.          DC        X'08080808080808080808080808080808'
  1147.          DC        X'08080808080808080808080808080808'
  1148.          DC        X'08080808080808080808080808040808'
  1149.          DC        X'08080808080808080808080808080808'
  1150.          DC        X'08080808080808080808080808080808'
  1151.          DC        X'08080808080808080808080808080808'
  1152.          DC        X'00000000000000000000080808080808'
  1153.          B         STRMSHRT
  1154.          BR        14
  1155.          SPACE
  1156.          DS        0D
  1157. *        FRWDTB
  1158. *        FOR(BLANK) CONTIN
  1159. *        FOR(EQUAL) PUT(EQTYP) STOP
  1160. *        FOR(RIGHTPAREN) PUT(RPTYP) STOP
  1161. *        FOR(RIGHTBR) PUT(RBTYP) STOP
  1162. *        FOR(COMMA) PUT(CMATYP) STOP
  1163. *        FOR(COLON) PUT(CLNTYP) STOP
  1164. *        FOR(EOS) PUT(EOSTYP) STOP
  1165. *        ELSE PUT(NBTYP) STOPSH
  1166. FRWDTB   EQU       *
  1167.          DC        X'34343434340034343434343434343434'
  1168.          DC        X'34343434343434343434343434343434'
  1169.          DC        X'34343434343434343434343434343434'
  1170.          DC        X'34343434343434343434343434343434'
  1171.          DC        X'00343434343434343434043434343434'
  1172.          DC        X'343434343434343434343434340C2C34'
  1173.          DC        X'34343434343434343434341C34341434'
  1174.          DC        X'34343434343434343434243434340434'
  1175.          DC        X'34343434343434343434343434343434'
  1176.          DC        X'34343434343434343434343434343434'
  1177.          DC        X'34343434343434343434343434343434'
  1178.          DC        X'34343434343434343434343434143434'
  1179.          DC        X'34343434343434343434343434343434'
  1180.          DC        X'34343434343434343434343434343434'
  1181.          DC        X'34343434343434343434343434343434'
  1182.          DC        X'34343434343434343434343434343434'
  1183.          L         7,=A(EQTYP)
  1184.          B         STRMSTOP
  1185.          L         7,=A(RPTYP)
  1186.          B         STRMSTOP
  1187.          L         7,=A(RBTYP)
  1188.          B         STRMSTOP
  1189.          L         7,=A(CMATYP)
  1190.          B         STRMSTOP
  1191.          L         7,=A(CLNTYP)
  1192.          B         STRMSTOP
  1193.          L         7,=A(EOSTYP)
  1194.          B         STRMSTOP
  1195.          L         7,=A(NBTYP)
  1196.          B         STRMSHRT
  1197.          SPACE
  1198.          DS        0D
  1199. *        GOTFTB
  1200. *        FOR(LEFTPAREN) PUT(FGOTYP) STOP
  1201. *        FOR(LEFTBR) PUT(FTOTYP) STOP
  1202. *        ELSE ERROR
  1203. GOTFTB   EQU       *
  1204.          DC        X'14141414141414141414141414141414'
  1205.          DC        X'14141414141414141414141414141414'
  1206.          DC        X'14141414141414141414141414141414'
  1207.          DC        X'14141414141414141414141414141414'
  1208.          DC        X'1414141414141414141414140C041414'
  1209.          DC        X'14141414141414141414141414141414'
  1210.          DC        X'14141414141414141414141414141414'
  1211.          DC        X'14141414141414141414141414141414'
  1212.          DC        X'14141414141414141414141414141414'
  1213.          DC        X'14141414141414141414141414141414'
  1214.          DC        X'141414141414141414141414140C1414'
  1215.          DC        X'14141414141414141414141414141414'
  1216.          DC        X'14141414141414141414141414141414'
  1217.          DC        X'14141414141414141414141414141414'
  1218.          DC        X'14141414141414141414141414141414'
  1219.          DC        X'14141414141414141414141414141414'
  1220.          L         7,=A(FGOTYP)
  1221.          B         STRMSTOP
  1222.          L         7,=A(FTOTYP)
  1223.          B         STRMSTOP
  1224.          BR        14
  1225.          SPACE
  1226.          DS        0D
  1227. *        GOTOTB
  1228. *        FOR(SGOSYM) GOTO(GOTSTB)
  1229. *        FOR(FGOSYM) GOTO(GOTFTB)
  1230. *        FOR(LEFTPAREN) PUT(UGOTYP) STOP
  1231. *        FOR(LEFTBR) PUT(UTOTYP) STOP
  1232. *        ELSE ERROR
  1233. GOTOTB   EQU       *
  1234.          DC        X'24242424242424242424242424242424'
  1235.          DC        X'24242424242424242424242424242424'
  1236.          DC        X'24242424242424242424242424242424'
  1237.          DC        X'24242424242424242424242424242424'
  1238.          DC        X'2424242424242424242424241C142424'
  1239.          DC        X'24242424242424242424242424242424'
  1240.          DC        X'24242424242424242424242424242424'
  1241.          DC        X'24242424242424242424242424242424'
  1242.          DC        X'2424242424240C242424242424242424'
  1243.          DC        X'24242424242424242424242424242424'
  1244.          DC        X'242404242424242424242424241C2424'
  1245.          DC        X'24242424242424242424242424242424'
  1246.          DC        X'2424242424240C242424242424242424'
  1247.          DC        X'24242424242424242424242424242424'
  1248.          DC        X'24240424242424242424242424242424'
  1249.          DC        X'24242424242424242424242424242424'
  1250.          SR        0,0
  1251.          SR        0,0
  1252.          L         3,=A(GOTSTB)
  1253.          SR        0,0
  1254.          SR        0,0
  1255.          L         3,=A(GOTFTB)
  1256.          L         7,=A(UGOTYP)
  1257.          B         STRMSTOP
  1258.          L         7,=A(UTOTYP)
  1259.          B         STRMSTOP
  1260.          BR        14
  1261.          SPACE
  1262.          DS        0D
  1263. *        GOTSTB
  1264. *        FOR(LEFTPAREN) PUT(SGOTYP) STOP
  1265. *        FOR(LEFTBR) PUT(STOTYP) STOP
  1266. *        ELSE ERROR
  1267. GOTSTB   EQU       *
  1268.          DC        X'14141414141414141414141414141414'
  1269.          DC        X'14141414141414141414141414141414'
  1270.          DC        X'14141414141414141414141414141414'
  1271.          DC        X'14141414141414141414141414141414'
  1272.          DC        X'1414141414141414141414140C041414'
  1273.          DC        X'14141414141414141414141414141414'
  1274.          DC        X'14141414141414141414141414141414'
  1275.          DC        X'14141414141414141414141414141414'
  1276.          DC        X'14141414141414141414141414141414'
  1277.          DC        X'14141414141414141414141414141414'
  1278.          DC        X'141414141414141414141414140C1414'
  1279.          DC        X'14141414141414141414141414141414'
  1280.          DC        X'14141414141414141414141414141414'
  1281.          DC        X'14141414141414141414141414141414'
  1282.          DC        X'14141414141414141414141414141414'
  1283.          DC        X'14141414141414141414141414141414'
  1284.          L         7,=A(SGOTYP)
  1285.          B         STRMSTOP
  1286.          L         7,=A(STOTYP)
  1287.          B         STRMSTOP
  1288.          BR        14
  1289.          SPACE
  1290.          DS        0D
  1291. *        IBLKTB
  1292. *        FOR(BLANK) GOTO(FRWDTB)
  1293. *        FOR(EOS) PUT(EOSTYP) STOP
  1294. *        ELSE ERROR
  1295. IBLKTB   EQU       *
  1296.          DC        X'14141414140414141414141414141414'
  1297.          DC        X'14141414141414141414141414141414'
  1298.          DC        X'14141414141414141414141414141414'
  1299.          DC        X'14141414141414141414141414141414'
  1300.          DC        X'04141414141414141414141414141414'
  1301.          DC        X'14141414141414141414141414140C14'
  1302.          DC        X'14141414141414141414141414141414'
  1303.          DC        X'14141414141414141414141414141414'
  1304.          DC        X'14141414141414141414141414141414'
  1305.          DC        X'14141414141414141414141414141414'
  1306.          DC        X'14141414141414141414141414141414'
  1307.          DC        X'14141414141414141414141414141414'
  1308.          DC        X'14141414141414141414141414141414'
  1309.          DC        X'14141414141414141414141414141414'
  1310.          DC        X'14141414141414141414141414141414'
  1311.          DC        X'14141414141414141414141414141414'
  1312.          SR        0,0
  1313.          SR        0,0
  1314.          L         3,=A(FRWDTB)
  1315.          L         7,=A(EOSTYP)
  1316.          B         STRMSTOP
  1317.          BR        14
  1318.          SPACE
  1319.          DS        0D
  1320. *        INTGTB
  1321. *        FOR(NUMBER) CONTIN
  1322. *        FOR(TERMINATOR) PUT(ILITYP) STOPSH
  1323. *        FOR(DOT) PUT(FLITYP) GOTO(FLITB)
  1324. *        ELSE ERROR
  1325. INTGTB   EQU       *
  1326.          DC        X'14141414140414141414141414141414'
  1327.          DC        X'14141414141414141414141414141414'
  1328.          DC        X'14141414141414141414141414141414'
  1329.          DC        X'14141414141414141414141414141414'
  1330.          DC        X'04141414141414141414140C14141414'
  1331.          DC        X'14141414141414141414141414040414'
  1332.          DC        X'14141414141414141414140414140414'
  1333.          DC        X'14141414141414141414141414141414'
  1334.          DC        X'14141414141414141414141414141414'
  1335.          DC        X'14141414141414141414141414141414'
  1336.          DC        X'14141414141414141414141414141414'
  1337.          DC        X'14141414141414141414141414041414'
  1338.          DC        X'14141414141414141414141414141414'
  1339.          DC        X'14141414141414141414141414141414'
  1340.          DC        X'14141414141414141414141414141414'
  1341.          DC        X'00000000000000000000141414141414'
  1342.          L         7,=A(ILITYP)
  1343.          B         STRMSHRT
  1344.          L         7,=A(FLITYP)
  1345.          L         3,=A(FLITB)
  1346.          BR        14
  1347.          SPACE
  1348.          DS        0D
  1349. *        LBLTB
  1350. *        FOR(ALPHANUMERIC) GOTO(LBLXTB)
  1351. *        FOR(BLANK,EOS) STOPSH
  1352. *        ELSE ERROR
  1353. LBLTB    EQU       *
  1354.          DC        X'10101010100C10101010101010101010'
  1355.          DC        X'10101010101010101010101010101010'
  1356.          DC        X'10101010101010101010101010101010'
  1357.          DC        X'10101010101010101010101010101010'
  1358.          DC        X'0C101010101010101010101010101010'
  1359.          DC        X'10101010101010101010101010100C10'
  1360.          DC        X'10101010101010101010101010101010'
  1361.          DC        X'10101010101010101010101010101010'
  1362.          DC        X'10040404040404040404101010101010'
  1363.          DC        X'10040404040404040404101010101010'
  1364.          DC        X'10100404040404040404101010101010'
  1365.          DC        X'10101010101010101010101010101010'
  1366.          DC        X'10040404040404040404101010101010'
  1367.          DC        X'10040404040404040404101010101010'
  1368.          DC        X'10100404040404040404101010101010'
  1369.          DC        X'04040404040404040404101010101010'
  1370.          SR        0,0
  1371.          SR        0,0
  1372.          L         3,=A(LBLXTB)
  1373.          B         STRMSHRT
  1374.          BR        14
  1375.          SPACE
  1376.          DS        0D
  1377. *        LBLXTB
  1378. *        FOR(BLANK,EOS) STOPSH
  1379. *        ELSE CONTIN
  1380. LBLXTB   EQU       *
  1381.          DC        X'00000000000400000000000000000000'
  1382.          DC        X'00000000000000000000000000000000'
  1383.          DC        X'00000000000000000000000000000000'
  1384.          DC        X'00000000000000000000000000000000'
  1385.          DC        X'04000000000000000000000000000000'
  1386.          DC        X'00000000000000000000000000000400'
  1387.          DC        X'00000000000000000000000000000000'
  1388.          DC        X'00000000000000000000000000000000'
  1389.          DC        X'00000000000000000000000000000000'
  1390.          DC        X'00000000000000000000000000000000'
  1391.          DC        X'00000000000000000000000000000000'
  1392.          DC        X'00000000000000000000000000000000'
  1393.          DC        X'00000000000000000000000000000000'
  1394.          DC        X'00000000000000000000000000000000'
  1395.          DC        X'00000000000000000000000000000000'
  1396.          DC        X'00000000000000000000000000000000'
  1397.          B         STRMSHRT
  1398.          SPACE
  1399.          DS        0D
  1400. *        NBLKTB
  1401. *        FOR(TERMINATOR) ERROR
  1402. *        ELSE STOPSH
  1403. NBLKTB   EQU       *
  1404.          DC        X'08080808080408080808080808080808'
  1405.          DC        X'08080808080808080808080808080808'
  1406.          DC        X'08080808080808080808080808080808'
  1407.          DC        X'08080808080808080808080808080808'
  1408.          DC        X'04080808080808080808080808080808'
  1409.          DC        X'08080808080808080808080808040408'
  1410.          DC        X'08080808080808080808080408080408'
  1411.          DC        X'08080808080808080808080808080808'
  1412.          DC        X'08080808080808080808080808080808'
  1413.          DC        X'08080808080808080808080808080808'
  1414.          DC        X'08080808080808080808080808080808'
  1415.          DC        X'08080808080808080808080808040808'
  1416.          DC        X'08080808080808080808080808080808'
  1417.          DC        X'08080808080808080808080808080808'
  1418.          DC        X'08080808080808080808080808080808'
  1419.          DC        X'08080808080808080808080808080808'
  1420.          BR        14
  1421.          SR        0,0
  1422.          B         STRMSHRT
  1423.          SPACE
  1424.          DS        0D
  1425. *        NUMBTB
  1426. *        FOR(NUMBER,PLUS,MINUS) GOTO(NUMCTB)
  1427. *        FOR(COMMA) PUT(CMATYP) STOPSH
  1428. *        FOR(COLON) PUT(DIMTYP) STOPSH
  1429. *        ELSE ERROR
  1430. NUMBTB   EQU       *
  1431.          DC        X'1C1C1C1C1C1C1C1C1C1C1C1C1C1C1C1C'
  1432.          DC        X'1C1C1C1C1C1C1C1C1C1C1C1C1C1C1C1C'
  1433.          DC        X'1C1C1C1C1C1C1C1C1C1C1C1C1C1C1C1C'
  1434.          DC        X'1C1C1C1C1C1C1C1C1C1C1C1C1C1C1C1C'
  1435.          DC        X'1C1C1C1C1C1C1C1C1C1C1C1C1C1C041C'
  1436.          DC        X'1C1C1C1C1C1C1C1C1C1C1C1C1C1C1C1C'
  1437.          DC        X'041C1C1C1C1C1C1C1C1C1C0C1C1C1C1C'
  1438.          DC        X'1C1C1C1C1C1C1C1C1C1C141C1C1C1C1C'
  1439.          DC        X'1C1C1C1C1C1C1C1C1C1C1C1C1C1C1C1C'
  1440.          DC        X'1C1C1C1C1C1C1C1C1C1C1C1C1C1C1C1C'
  1441.          DC        X'1C1C1C1C1C1C1C1C1C1C1C1C1C1C1C1C'
  1442.          DC        X'1C1C1C1C1C1C1C1C1C1C1C1C1C1C1C1C'
  1443.          DC        X'1C1C1C1C1C1C1C1C1C1C1C1C1C1C1C1C'
  1444.          DC        X'1C1C1C1C1C1C1C1C1C1C1C1C1C1C1C1C'
  1445.          DC        X'1C1C1C1C1C1C1C1C1C1C1C1C1C1C1C1C'
  1446.          DC        X'040404040404040404041C1C1C1C1C1C'
  1447.          SR        0,0
  1448.          SR        0,0
  1449.          L         3,=A(NUMCTB)
  1450.          L         7,=A(CMATYP)
  1451.          B         STRMSHRT
  1452.          L         7,=A(DIMTYP)
  1453.          B         STRMSHRT
  1454.          BR        14
  1455.          SPACE
  1456.          DS        0D
  1457. *        NUMCTB
  1458. *        FOR(NUMBER) CONTIN
  1459. *        FOR(COMMA) PUT(CMATYP) STOPSH
  1460. *        FOR(COLON) PUT(DIMTYP) STOPSH
  1461. *        ELSE ERROR
  1462. NUMCTB   EQU       *
  1463.          DC        X'14141414141414141414141414141414'
  1464.          DC        X'14141414141414141414141414141414'
  1465.          DC        X'14141414141414141414141414141414'
  1466.          DC        X'14141414141414141414141414141414'
  1467.          DC        X'14141414141414141414141414141414'
  1468.          DC        X'14141414141414141414141414141414'
  1469.          DC        X'14141414141414141414140414141414'
  1470.          DC        X'141414141414141414140C1414141414'
  1471.          DC        X'14141414141414141414141414141414'
  1472.          DC        X'14141414141414141414141414141414'
  1473.          DC        X'14141414141414141414141414141414'
  1474.          DC        X'14141414141414141414141414141414'
  1475.          DC        X'14141414141414141414141414141414'
  1476.          DC        X'14141414141414141414141414141414'
  1477.          DC        X'14141414141414141414141414141414'
  1478.          DC        X'00000000000000000000141414141414'
  1479.          L         7,=A(CMATYP)
  1480.          B         STRMSHRT
  1481.          L         7,=A(DIMTYP)
  1482.          B         STRMSHRT
  1483.          BR        14
  1484.          SPACE
  1485.          DS        0D
  1486. *        SNABTB
  1487. *        FOR(FGOSYM) STOP
  1488. *        FOR(SGOSYM) STOPSH
  1489. *        ELSE ERROR
  1490. SNABTB   EQU       *
  1491.          DC        X'0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C'
  1492.          DC        X'0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C'
  1493.          DC        X'0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C'
  1494.          DC        X'0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C'
  1495.          DC        X'0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C'
  1496.          DC        X'0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C'
  1497.          DC        X'0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C'
  1498.          DC        X'0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C'
  1499.          DC        X'0C0C0C0C0C0C040C0C0C0C0C0C0C0C0C'
  1500.          DC        X'0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C'
  1501.          DC        X'0C0C080C0C0C0C0C0C0C0C0C0C0C0C0C'
  1502.          DC        X'0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C'
  1503.          DC        X'0C0C0C0C0C0C040C0C0C0C0C0C0C0C0C'
  1504.          DC        X'0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C'
  1505.          DC        X'0C0C080C0C0C0C0C0C0C0C0C0C0C0C0C'
  1506.          DC        X'0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C'
  1507.          B         STRMSTOP
  1508.          B         STRMSHRT
  1509.          BR        14
  1510.          SPACE
  1511.          DS        0D
  1512. *        SQLITB
  1513. *        FOR(SQUOTE) STOP
  1514. *        ELSE CONTIN
  1515. SQLITB   EQU       *
  1516.          DC        X'00000000000000000000000000000000'
  1517.          DC        X'00000000000000000000000000000000'
  1518.          DC        X'00000000000000000000000000000000'
  1519.          DC        X'00000000000000000000000000000000'
  1520.          DC        X'00000000000000000000000000000000'
  1521.          DC        X'00000000000000000000000000000000'
  1522.          DC        X'00000000000000000000000000000000'
  1523.          DC        X'00000000000000000000000000040000'
  1524.          DC        X'00000000000000000000000000000000'
  1525.          DC        X'00000000000000000000000000000000'
  1526.          DC        X'00000000000000000000000000000000'
  1527.          DC        X'00000000000000000000000000000000'
  1528.          DC        X'00000000000000000000000000000000'
  1529.          DC        X'00000000000000000000000000000000'
  1530.          DC        X'00000000000000000000000000000000'
  1531.          DC        X'00000000000000000000000000000000'
  1532.          B         STRMSTOP
  1533.          SPACE
  1534.          DS        0D
  1535. *        STARTB
  1536. *        FOR(BLANK) STOP
  1537. *        FOR(STAR) PUT(EXPFN) GOTO(TBLKTB)
  1538. *        ELSE ERROR
  1539. STARTB   EQU       *
  1540.          DC        X'10101010100410101010101010101010'
  1541.          DC        X'10101010101010101010101010101010'
  1542.          DC        X'10101010101010101010101010101010'
  1543.          DC        X'10101010101010101010101010101010'
  1544.          DC        X'04101010101010101010101010101010'
  1545.          DC        X'10101010101010101010101008101010'
  1546.          DC        X'10101010101010101010101010101010'
  1547.          DC        X'10101010101010101010101010101010'
  1548.          DC        X'10101010101010101010101010101010'
  1549.          DC        X'10101010101010101010101010101010'
  1550.          DC        X'10101010101010101010101010101010'
  1551.          DC        X'10101010101010101010101010101010'
  1552.          DC        X'10101010101010101010101010101010'
  1553.          DC        X'10101010101010101010101010101010'
  1554.          DC        X'10101010101010101010101010101010'
  1555.          DC        X'10101010101010101010101010101010'
  1556.          B         STRMSTOP
  1557.          L         7,=A(EXPFN)
  1558.          L         3,=A(TBLKTB)
  1559.          BR        14
  1560.          SPACE
  1561.          DS        0D
  1562. *        TBLKTB
  1563. *        FOR(BLANK) STOP
  1564. *        ELSE ERROR
  1565. TBLKTB   EQU       *
  1566.          DC        X'08080808080408080808080808080808'
  1567.          DC        X'08080808080808080808080808080808'
  1568.          DC        X'08080808080808080808080808080808'
  1569.          DC        X'08080808080808080808080808080808'
  1570.          DC        X'04080808080808080808080808080808'
  1571.          DC        X'08080808080808080808080808080808'
  1572.          DC        X'08080808080808080808080808080808'
  1573.          DC        X'08080808080808080808080808080808'
  1574.          DC        X'08080808080808080808080808080808'
  1575.          DC        X'08080808080808080808080808080808'
  1576.          DC        X'08080808080808080808080808080808'
  1577.          DC        X'08080808080808080808080808080808'
  1578.          DC        X'08080808080808080808080808080808'
  1579.          DC        X'08080808080808080808080808080808'
  1580.          DC        X'08080808080808080808080808080808'
  1581.          DC        X'08080808080808080808080808080808'
  1582.          B         STRMSTOP
  1583.          BR        14
  1584.          SPACE
  1585.          DS        0D
  1586. *        UNOPTB
  1587. *        FOR(PLUS) PUT(PLSFN) GOTO(NBLKTB)
  1588. *        FOR(MINUS) PUT(MNSFN) GOTO(NBLKTB)
  1589. *        FOR(DOT) PUT(DOTFN) GOTO(NBLKTB)
  1590. *        FOR(DOLLAR) PUT(INDFN) GOTO(NBLKTB)
  1591. *        FOR(STAR) PUT(STRFN) GOTO(NBLKTB)
  1592. *        FOR(SLASH) PUT(SLHFN) GOTO(NBLKTB)
  1593. *        FOR(PERCENT) PUT(PRFN) GOTO(NBLKTB)
  1594. *        FOR(AT) PUT(ATFN) GOTO(NBLKTB)
  1595. *        FOR(POUND) PUT(PDFN) GOTO(NBLKTB)
  1596. *        FOR(KEYSYM) PUT(KEYFN) GOTO(NBLKTB)
  1597. *        FOR(NOTSYM) PUT(NEGFN) GOTO(NBLKTB)
  1598. *        FOR(ORSYM) PUT(BARFN) GOTO(NBLKTB)
  1599. *        FOR(QUESYM) PUT(QUESFN) GOTO(NBLKTB)
  1600. *        FOR(RAISE) PUT(AROWFN) GOTO(NBLKTB)
  1601. *        ELSE ERROR
  1602. UNOPTB   EQU       *
  1603.          DC        X'74747474747474747474747474747474'
  1604.          DC        X'74747474747474747474747474747474'
  1605.          DC        X'74747474747474747474747474747474'
  1606.          DC        X'74747474747474747474747474747474'
  1607.          DC        X'7474747474747474747474147474045C'
  1608.          DC        X'4C7474747474747474746C1C24747454'
  1609.          DC        X'0C2C7474747474747474747434747464'
  1610.          DC        X'7474747474747474747474443C747474'
  1611.          DC        X'74747474747474747474747474747474'
  1612.          DC        X'7474747474747474747474747474746C'
  1613.          DC        X'74747474747474747474747474747474'
  1614.          DC        X'74747474747474747474747474747474'
  1615.          DC        X'74747474747474747474747474747474'
  1616.          DC        X'74747474747474747474747474747474'
  1617.          DC        X'74747474747474747474747474747474'
  1618.          DC        X'74747474747474747474747474747474'
  1619.          L         7,=A(PLSFN)
  1620.          L         3,=A(NBLKTB)
  1621.          L         7,=A(MNSFN)
  1622.          L         3,=A(NBLKTB)
  1623.          L         7,=A(DOTFN)
  1624.          L         3,=A(NBLKTB)
  1625.          L         7,=A(INDFN)
  1626.          L         3,=A(NBLKTB)
  1627.          L         7,=A(STRFN)
  1628.          L         3,=A(NBLKTB)
  1629.          L         7,=A(SLHFN)
  1630.          L         3,=A(NBLKTB)
  1631.          L         7,=A(PRFN)
  1632.          L         3,=A(NBLKTB)
  1633.          L         7,=A(ATFN)
  1634.          L         3,=A(NBLKTB)
  1635.          L         7,=A(PDFN)
  1636.          L         3,=A(NBLKTB)
  1637.          L         7,=A(KEYFN)
  1638.          L         3,=A(NBLKTB)
  1639.          L         7,=A(NEGFN)
  1640.          L         3,=A(NBLKTB)
  1641.          L         7,=A(BARFN)
  1642.          L         3,=A(NBLKTB)
  1643.          L         7,=A(QUESFN)
  1644.          L         3,=A(NBLKTB)
  1645.          L         7,=A(AROWFN)
  1646.          L         3,=A(NBLKTB)
  1647.          BR        14
  1648.          SPACE
  1649.          DS        0D
  1650. *        VARATB
  1651. *        FOR(LETTER) GOTO(VARBTB)
  1652. *        FOR(COMMA) PUT(CMATYP) STOPSH
  1653. *        FOR(RIGHTPAREN) PUT(RPTYP) STOPSH
  1654. *        ELSE ERROR
  1655. VARATB   EQU       *
  1656.          DC        X'1C1C1C1C1C1C1C1C1C1C1C1C1C1C1C1C'
  1657.          DC        X'1C1C1C1C1C1C1C1C1C1C1C1C1C1C1C1C'
  1658.          DC        X'1C1C1C1C1C1C1C1C1C1C1C1C1C1C1C1C'
  1659.          DC        X'1C1C1C1C1C1C1C1C1C1C1C1C1C1C1C1C'
  1660.          DC        X'1C1C1C1C1C1C1C1C1C1C1C1C1C1C1C1C'
  1661.          DC        X'1C1C1C1C1C1C1C1C1C1C1C1C1C141C1C'
  1662.          DC        X'1C1C1C1C1C1C1C1C1C1C1C0C1C1C1C1C'
  1663.          DC        X'1C1C1C1C1C1C1C1C1C1C1C1C1C1C1C1C'
  1664.          DC        X'1C0404040404040404041C1C1C1C1C1C'
  1665.          DC        X'1C0404040404040404041C1C1C1C1C1C'
  1666.          DC        X'1C1C04040404040404041C1C1C1C1C1C'
  1667.          DC        X'1C1C1C1C1C1C1C1C1C1C1C1C1C1C1C1C'
  1668.          DC        X'1C0404040404040404041C1C1C1C1C1C'
  1669.          DC        X'1C0404040404040404041C1C1C1C1C1C'
  1670.          DC        X'1C1C04040404040404041C1C1C1C1C1C'
  1671.          DC        X'1C1C1C1C1C1C1C1C1C1C1C1C1C1C1C1C'
  1672.          SR        0,0
  1673.          SR        0,0
  1674.          L         3,=A(VARBTB)
  1675.          L         7,=A(CMATYP)
  1676.          B         STRMSHRT
  1677.          L         7,=A(RPTYP)
  1678.          B         STRMSHRT
  1679.          BR        14
  1680.          SPACE
  1681.          DS        0D
  1682. *        VARBTB
  1683. *        FOR(ALPHANUMERIC,BREAK) CONTIN
  1684. *        FOR(LEFTPAREN) PUT(LPTYP) STOPSH
  1685. *        FOR(COMMA) PUT(CMATYP) STOPSH
  1686. *        FOR(RIGHTPAREN) PUT(RPTYP) STOPSH
  1687. *        ELSE ERROR
  1688. VARBTB   EQU       *
  1689.          DC        X'1C1C1C1C1C1C1C1C1C1C1C1C1C1C1C1C'
  1690.          DC        X'1C1C1C1C1C1C1C1C1C1C1C1C1C1C1C1C'
  1691.          DC        X'1C1C1C1C1C1C1C1C1C1C1C1C1C1C1C1C'
  1692.          DC        X'1C1C1C1C1C1C1C1C1C1C1C1C1C1C1C1C'
  1693.          DC        X'1C1C1C1C1C1C1C1C1C1C1C001C041C1C'
  1694.          DC        X'1C1C1C1C1C1C1C1C1C1C1C1C1C141C1C'
  1695.          DC        X'1C1C1C1C1C1C1C1C1C1C1C0C1C001C1C'
  1696.          DC        X'1C1C1C1C1C1C1C1C1C1C1C1C1C1C1C1C'
  1697.          DC        X'1C0000000000000000001C1C1C1C1C1C'
  1698.          DC        X'1C0000000000000000001C1C1C1C1C1C'
  1699.          DC        X'1C1C00000000000000001C1C1C1C1C1C'
  1700.          DC        X'1C1C1C1C1C1C1C1C1C1C1C1C1C1C1C1C'
  1701.          DC        X'1C0000000000000000001C1C1C1C1C1C'
  1702.          DC        X'1C0000000000000000001C1C1C1C1C1C'
  1703.          DC        X'1C1C00000000000000001C1C1C1C1C1C'
  1704.          DC        X'000000000000000000001C1C1C1C1C1C'
  1705.          L         7,=A(LPTYP)
  1706.          B         STRMSHRT
  1707.          L         7,=A(CMATYP)
  1708.          B         STRMSHRT
  1709.          L         7,=A(RPTYP)
  1710.          B         STRMSHRT
  1711.          BR        14
  1712.          SPACE
  1713.          DS        0D
  1714. *        VARTB
  1715. *        FOR(ALPHANUMERIC,BREAK) CONTIN
  1716. *        FOR(TERMINATOR) PUT(VARTYP) STOPSH
  1717. *        FOR(LEFTPAREN) PUT(FNCTYP) STOP
  1718. *        FOR(LEFTBR) PUT(ARYTYP) STOP
  1719. *        ELSE ERROR
  1720. VARTB    EQU       *
  1721.          DC        X'1C1C1C1C1C041C1C1C1C1C1C1C1C1C1C'
  1722.          DC        X'1C1C1C1C1C1C1C1C1C1C1C1C1C1C1C1C'
  1723.          DC        X'1C1C1C1C1C1C1C1C1C1C1C1C1C1C1C1C'
  1724.          DC        X'1C1C1C1C1C1C1C1C1C1C1C1C1C1C1C1C'
  1725.          DC        X'041C1C1C1C1C1C1C1C1C1C00140C1C1C'
  1726.          DC        X'1C1C1C1C1C1C1C1C1C1C1C1C1C04041C'
  1727.          DC        X'1C1C1C1C1C1C1C1C1C1C1C041C00041C'
  1728.          DC        X'1C1C1C1C1C1C1C1C1C1C1C1C1C1C1C1C'
  1729.          DC        X'1C0000000000000000001C1C1C1C1C1C'
  1730.          DC        X'1C0000000000000000001C1C1C1C1C1C'
  1731.          DC        X'1C1C00000000000000001C1C1C141C1C'
  1732.          DC        X'1C1C1C1C1C1C1C1C1C1C1C1C1C041C1C'
  1733.          DC        X'1C0000000000000000001C1C1C1C1C1C'
  1734.          DC        X'1C0000000000000000001C1C1C1C1C1C'
  1735.          DC        X'1C1C00000000000000001C1C1C1C1C1C'
  1736.          DC        X'000000000000000000001C1C1C1C1C1C'
  1737.          L         7,=A(VARTYP)
  1738.          B         STRMSHRT
  1739.          L         7,=A(FNCTYP)
  1740.          B         STRMSTOP
  1741.          L         7,=A(ARYTYP)
  1742.          B         STRMSTOP
  1743.          BR        14
  1744.          USING     STREAM,15
  1745. STREAM   LM        4,7,0(2)
  1746.          STM       1,2,STTEMP
  1747.          STM       4,7,0(1)
  1748.          LTR       4,4
  1749.          BZ        4(14)
  1750.          LA        1,0(5,6)
  1751.          BCTR      1,0
  1752.          AR        4,1
  1753.          BCTR      4,0
  1754.          LR        7,0
  1755.          B         STRMTEST
  1756. STRMLOOP LR        2,0
  1757.          C         5,=F'256'
  1758.          BL        STRMSMAL
  1759.          TRT       1(256,1),0(3)
  1760.          BNZ       STRMJOIN
  1761.          LA        1,256(1)
  1762.          B         STRMTEST
  1763. STRMSMAL EX        5,STRMTRT
  1764.          BZ        STRMOUT
  1765. STRMJOIN AR        2,3
  1766.          EX        0,256-4(2)
  1767.          EX        0,256(2)
  1768. STRMTEST LR        5,4
  1769.          SR        5,1
  1770.          BNM       STRMLOOP
  1771. STRMOUT  L         1,=A(STYPE)
  1772.          ST        7,0(1)
  1773.          L         2,STTEMP+4
  1774.          ST        0,0(2)
  1775.          B         4(14)
  1776. STRMSHRT BCTR      1,0
  1777. STRMSTOP SR        4,1
  1778.          LA        4,1(4)
  1779.          LA        5,1(1)
  1780.          SR        5,6
  1781.          LM        2,3,STTEMP
  1782.          STM       4,5,0(3)
  1783.          L         3,0(2)
  1784.          SR        3,4
  1785.          ST        3,0(2)
  1786.          L         1,=A(STYPE)
  1787.          ST        7,0(1)
  1788.          B         8(14)
  1789. STRMTRT  TRT       1(0,1),0(3)
  1790. STTEMP   DC        2F'0'
  1791.          LTORG
  1792.          TITLE     'ARITH# AND ADJSWTCH'
  1793. ARITH#   CSECT
  1794.          DC        F'0'
  1795. ADJSWTCH CSECT
  1796.          DC        F'0'
  1797.          END
  1798.