1$Log Output: Mike Alexander, MTS., Job#=9598, Host=UM, 02:40:01 Wed Jul 24/96
 #mou xxx 9tp *in* vol=mts2.3 uam=off timer=off
 #*IN* (XXX): Mounted on T920 
 #r wsg:tt
 #02:41:28 
& Ready: 
  a *in*
  TYPE=9TP , INLEN=32767, OUTLEN=32767, WIDTH=unknown
& Ready: 
  r
  *** Input notify.
  LEN=00774
   &  YESD          DEST          DESTROY        SCARDS                     0001 &  }ESD          SPRINT                                                     0002 &  TXT          }0Au&0}&}0ؓ0A0{   s  s              	    0003 &  TXT         {kAs{sk  A4 0{    0{	Č{KAʥ     0004 &  hTXT         As 0A8{   s  s   h    	͌0{}}q}k}          0005 &  TXT  0             s    HAS BEEN DESTROYED.                             0006 &  RLD                       @    d 4       0        0007 &   RLD              8                                                    0008 &  END                                   ASMG 70JUL10  11:15.20 17 AUG 70     0009
& Ready: 
  r
  *** RC=004
& Ready: 
  r
  LEN=03316
     Y*****************************************************************    }*                                                               *    *        THE ENCODE, DECODE,IO DSECT                            *    *                                                               *    h*****************************************************************             SPACE 2    DS9A     DSECT     FUDGE    DS    30A                DAMN    SV       DS    18A                SAVE AREA    EXPARG   DS    D                  DW FOR DBBL PREC EXP.    8EXPL1    DS    A(EXPARG)          PAR LIST FOR BEXP    \SIGDIGDW DS    D                  SIG DIGITS    HSIGDIG   EQU   SIGDIGDW           SORRY    ^SIGDIGUP DS    CL11               SIGNIFICANT DIGITS  UNPACKED    qBLNK     DS    C' '               RPQ FOR CEL    OUTBUFF  DS    CL13               OUTPUT BUFFER    POWSWT   DS    X                  =0 FOR E TYPE NUMBERS, =0 OTHERWISE    &EXPON    DS    C'E-XX'            FLT EXPONENT    EDPAT    DS    CL4                EDIT PATTERN    +         EJECT    *****************************************************************    0*                                                               *    Q*        THIS IS THE I/O PART OF THE DSECT                      *    ){*                                                               *    /y*****************************************************************             SPACE 2    IODSECT  DS    0D    _-SAVIO    DS    18A                I/O SAVE AREA    CONVPAR1 DS    3A                 INIT A(-,CONVBUF,HSTRL,-)    CONVPAR2 DS    3A                 INIT A(-,HSTRL,-)    `FILELST  DS    4A                 INIT A(-,LINEBUF,LINECNT,-)    ' MATSAV   DS    5A                 MATRIX SAVE AREA    YGETLSAV  DS    5A                 GETLIN SAVE AREA    d}LINSAV   DS    PL4                SAVE PREVIOUS LINE#    hPUTLSAV  DS    5A                 PUTLIN SAVE AREA    ݵDUMWRDS  DS    2A                 CLINE#,CURPTR DUMMY'S    hDUMDCNT  EQU   PUTLSAV    mLISTSAV  DS    A    qTTYPARS  DS    2A     TTYPFX   DS    2A                 INIT A(PFX,PFXLN)    TTYLIS   DS    2A                 INIT A(LINEBUF,LINECNT+2)    uPACKED   DS    X                  PRINT PACKED?    x8FILSWT   DS    X                  FILE MODE?    \NEWLINE  DS    X                  STARTING NEW LINE?    HOPCOD    DS    X    ^TEMP     DS    D                  FOR FIX    qLINEBUF  DS    CL300              THE LINE FOR I/O    ]LINEBUF1 DS    CL260              INTERMEDIATE TEXT LINE    ׂLINECNT  DS    F    C&PFXLN    DS    H                  INIT H'1'    GPFX      DS    C                  INIT C'?'             DS    C    QUOTE    DS    C                  INIT C'"'     K0STRNBUF  DS    CL(2*STRNGLEN+2)   LARGEST QUOTED STRING ALLOWED    OQCONVBUF  DS    CL15               FOR ENCODE    {BKSWT    DS    X                  TURN OFF GETLIN IN BREAKIT    yHSTRL    DS    H                  FOR ENCODE    SINCON    DS    H                  INREM FOR MATIO LOOP    WSKPCNT   DS    H                  #ITEMS TO SKIP ON INPUT    -PRMSWT   DS    X                   SWT: WHETHER " BEGAN ITEM OR NOT.    DS9ALAST DS    0D    2LDSECT9A DXD   (DS9ALAST-DS9A)C    6         SPACE 2 
& Ready: 
  r
  *** RC=004
& Ready: 
  con posn *l*
  *** RC=016
  Invalid control command parameter on "*IN*"
& Ready: 
  c posn *eot*
& Ready: 
  s 
0 T920(9TP ) RACK= 
  VOL=MTS2.3, DSN=                 , USER=        , RECPT= 
  OWNER=UMCOMPCNTR, CREDT=01-00-00, EXPDT=01-00-00, LBLTYPE=OS/VS 
  FILE=0069, BLK=00000, RCD=00000000, FMT=VB (08000,00255)
  MODE=160(C3), BPI= 1600, BPMM=  63.0, RETRY=10
  SNS=01:004200040040 2D0000080000 003EA021E991 700E001A0000
  STATUS:  LP,LEOT,BLK,DTCHK
& Ready: 
  c posn *68*
& Ready: 
  r
  LEN=00055
  1              Description of the Virtual 360/67 in MTS
& Ready: 
  r
  LEN=00001
 
& Ready: 
  r
  LEN=00068
                 The preliminary version of the virtual 360/67 for use
& Ready: 
  r
  LEN=00063
             in MTS is stored in the file MTA:IV67.  It should be
& Ready: 
  r
  LEN=00043
             run as any other program in MTS.
& Ready: 
  c posn *
& Ready: 
  MTS
 #c *in* -xxx
 #ed -xxx
 :v
 :res
 :MTS
 #res
& Ready: 
  c bsf
& Ready: 
  s
0 T920(9TP ) RACK= 
  VOL=MTS2.3, DSN=V67.WRITEUP      , USER=MTS.    , RECPT= 
  OWNER=UMCOMPCNTR, CREDT=06-30-71, EXPDT=01-00-00, LBLTYPE=OS/VS 
  FILE=0068, BLK=00002, RCD=????????, FMT=VB (08000,00255)
  MODE=160(C3), BPI= 1600, BPMM=  63.0, RETRY=10
  SNS=01:004200060040 2D0000080000 003EA021E991 700E001A0000
  STATUS:  LP,OPEN,BLK,DTCHK
& Ready: 
  MTS
 #r *labelsniff par=*in*
 #02:47:44 
1 Tape = *IN* User ID MTS. 02:47:44 24 July 1996
0 Receipt#=XXX
  IBM labeled  1600-bpi 9TP Volume=MTS2.3 Owner=UMCOMPCNTR 
  LP=on BLK=on RING=out DTCHK=on RETRY=10
0 File                    Block Record  Tapelen  Record 
     # Data set name      count  count   (feet)  format 
0    1 BASIC.FSAVE.1          1            1.44 U(32767) 
     2 BASIC.FSAVE.2          1            1.51 U(32767) 
     3 BASIC.FSAVE.3          1            1.44 U(32767) 
     4 BASIC.FSAVE.4          1            1.37 U(32767) 
     5 BASIC.FSAVE.5          1            1.38 U(32767) 
     6 BASIC.FSAVE.6          1            1.52 U(32767) 
     7 BASIC.FSAVE.7          1            1.74 U(32767) 
     8 BASIC.FSAVE.8          1            1.71 U(32767) 
     9 BASIC.FSAVE.9          1            1.68 U(32767) 
    10 BASIC.FSAVE.10         1            1.41 U(32767) 
    11 BASIC.FSAVE.11         1            1.37 U(32767) 
    12 BASIC.FSAVE.12         1            1.38 U(32767) 
    13 BASIC.FSAVE.13         1            1.66 U(32767) 
    14 BASIC.FSAVE.14         1            1.35 U(32767) 
    15 BASIC.FSAVE.15         1            1.46 U(32767) 
    16 BASIC.FSAVE.16         1            1.48 U(32767) 
    17 BASIC.FSAVE.17         1            1.40 U(32767) 
    18 BASIC.FSAVE.18         1            1.46 U(32767) 
    19 BASIC.FSAVE.19         1            1.41 U(32767) 
    20 BASIC.FSAVE.20         6           10.45 U(32767) 
    21 BASIC.FSAVE.21         1            1.38 U(32767) 
    22 BASIC.FSAVE.22         2            1.81 U(32767) 
    23 BASIC.FSAVE.23         0            1.28 U(32767) 
    24 BASIC.CLI             28           25.38 U(16000) 
    25 BASIC.LEX             26           23.98 U(16000) 
    26 BASIC.CMP             23           21.58 U(16000) 
    27 BASIC.CPS             19           17.53 U(16000) 
    28 BASIC.NUM             14           12.99 U(16000) 
    29 BASIC.VFL              6            6.45 U(16000) 
    30 BASIC.BIO              9            9.17 U(16000) 
    31 BASIC.INF              9            8.59 U(16000) 
    32 BASIC.BSI              2            2.25 U(16000) 
    33 TAPERTN               35    3493   17.74 FB(8000,80) 
    34 MOUNT                 23    2224   11.80 FB(8000,80) 
    35 CONTROL                1      66    1.61 FB(8000,80) 
    36 TAPEDUMP               7     670    4.46 FB(8000,80) 
    37 TAPECOPY               6     551    3.91 FB(8000,80) 
    38 LABEL                  3     208    2.31 FB(8000,80) 
    39 LABELSNIFF            11    1054    6.27 FB(8000,80) 
    40 NEWM1.V1             110   12083   92.86 VB(15000,150) 
    41 DEBUGDUMP.V1           1      80    1.89 FB(13200,132) 
    42 NEWM3.V2              45    4922   38.60 VB(15000,150) 
    43 NEWM5.V3              59    6424   50.00 VB(15000,150) 
    44 NEWM1.V11             29    5037   24.90 VB(15000,150) 
    45 PDP11.ASMBLR           3            4.24 U(32767) 
    46 PDP11.LKE              1            1.80 U(32767) 
    47 PDP11.ASMBLRX          4            7.33 U(32767) 
    48 PDP11.LKEX             1            2.33 U(32767) 
    49 PDP11.ERROR            1            1.74 U(32767) 
    50 PDP11.MACRO            1            1.97 U(32767) 
    51 PDP11.MALGEN           1            1.38 U(32767) 
    52 PDP11.LINKSOU          4            6.77 U(32767) 
    53 PDP11.UATS/MAL         8           14.02 U(32767) 
    54 PDP11.DCEVAL/MAL       2            3.50 U(32767) 
    55 PDP11.REPSCAN          1            2.22 U(32767) 
    56 PDP11.MAC              5            9.08 U(32767) 
    57 PDP11.SYMT/MAL         1            1.74 U(32767) 
    58 PDP11.TRAP             1            1.60 U(32767) 
    59 PDP11.MANUAL           6           10.61 U(32767) 
    60 PDP11.DIRECTORY        2            1.81 U(32767) 
    61 MTSUPDATE             20    1975   10.60 FB(8000,80) 
    62 DASDUC                 8     753    4.86 FB(8000,80) 
    63 UMMPSUPDATE           26    2596   13.51 FB(8000,80) 
    64 PSA                    3     219    2.36 FB(8000,80) 
    65 V67.MONITOR           50    4940   24.58 FB(8000,80) 
    66 V67.DEVICELIST         1      38    1.50 FB(8000,80) 
    67 V67.S2301              5     406    3.25 FB(8000,80) 
    68 V67.WRITEUP            3     465    2.64 VB(8000,255) 
 
  Total tape length = 562.77 feet.
 
  <*><*><*>  End of tape  <*><*><*> 
 #02:48:53  T=0.404  $0.15 
 #r *fsave 0=*in*
 #02:49:32 
 %...LIST
-%*** TABLE OF CONTENTS FOR THIS TAPE:
 % 
 %DESTROY 
 %DSECT9A 
 %INTFACMAC 
 %SYMTABDEF 
 %BIFDSECT 
 %OPDEFEQUS 
 %OPDEFMACROS 
 %DSECTCOMM 
 %CLIDSECT 
 %LDICDSCT 
 %FHDRDSECT 
 %MAPDSECT 
 %PDSECT 
 %GLOBALSYM 
 %SYMTABSECT 
 %DS6A 
 %WSLAYOUT 
 %BASIC.STRT1 
 %BASIC.STRT2 
 %BSOURCE 
 %TEXT360B 
-%
 #02:51:07  T=0.052  $0.03 
 #r wsg:tt
 #02:52:19 
& Ready: 
  a *in*
  TYPE=9TP , INLEN=32767, OUTLEN=32767, WIDTH=unknown
& Ready: 
  c posn *24*
& Ready: 
  r
  *** Input notify.
  LEN=16000
  CINT     TITLE '****COMMAND INITIALIZATION****'                         CLI00001*****************************************************************       CLI00002*                                                               *       CLI00003*        COMMAND INITIALIZATION - JUST CLEAR SIGNON SWT         *       CLI00004*                                                               *       CLI00005*****************************************************************       CLI00006         SPACE 2                                                        CLI00007CMNDINIT CSECT                                                          CLI00008         SPACE 1                                                        CLI00009         USING CLIDSCT,15                                               CLI00010         USING BASICOMM,12                                              CLI00011         SPACE 1                                                        CLI00012         L     15,DSECT3          ADDRESS DSECT                         CLI00013         MVI   SIGSWT,0           WE HAVEN'T SIGNED ON YET              CLI00014         SR    15,15              RC=0                                  CLI00015         BR    14                 RETURN                                CLI00016         SPACE 1                                                        CLI00017         DROP  15                                                       CLI00018         EJECT                                                          CLI00019*****************************************************************       CLI00020*                                                               *       CLI00021*        B A S I C      D S E C T                               *       CLI00022*                                                               *       CLI00023*****************************************************************       CLI00024         SPACE 2                                                        CLI00025         COPY  DSECTCOMM                                                CLI00026         EJECT                                                          CLI00027         COPY  CLIDSECT                                                 CLI00028         SPACE 2                                                        CLI00029         END                                                            CLI00030CLI      TITLE '***COMMAND LANGUAGE INTERPRETER - COMPILER GROUP***'    CLI00031*****************************************************************       CLI00032*                                                               *       CLI00033*        MACROS                                                 *       CLI00034*                                                               *       CLI00035*****************************************************************       CLI00036         SPACE 2                                                        CLI00037         MACRO                                                          CLI00038&LAB     KEY   &NAME                                                    CLI00039&LAB     DC    CL12'&NAME '                                             CLI00040         MEND                                                           CLI00041         SPACE 1                                                        CLI00042         MACRO                                                          CLI00043&LAB     MSG   &MES                                                     CLI00044&LAB     BAL   14,WRITMES                                               CLI00045         B     ME&SYSNDX                                                CLI00046         DC    Y(L'MS&SYSNDX)                                           CLI00047MS&SYSNDX DC   C&MES                                                    CLI00048ME&SYSNDX DS   0H                                                       CLI00049         MEND                                                           CLI00050         SPACE 1                                                        CLI00051         MACRO                                                          CLI00052&LAB     MESS  &MES                                                     CLI00053&LAB     LA    1,&MES                                                   CLI00054         BAL   14,WRITME                                                CLI00055         MEND                                                           CLI00056         SPACE 1                                                        CLI00057         MACRO                                                          CLI00058&LAB     QUERY                                                          CLI00059&LAB     BAL   7,ISQUE                                                  CLI00060         MEND                                                           CLI00061         SPACE 1                                                        CLI00062         MACRO                                                          CLI00063&LAB     COMENT &NAME,&ADD                                              CLI00064&LAB     DC    CL12'&NAME '                                             CLI00065         DC    A(&ADD)                                                  CLI00066         MEND                                                           CLI00067         SPACE 1                                                        CLI00068         MACRO                                                          CLI00069&LAB     ERR   &MES                                                     CLI00070         LCLA  &L                                                       CLI00071&L       SETA  K'&MES-2                                                 CLI00072&LAB     BAL   14,ERRRT                                                 CLI00073         B     ER&SYSNDX                                                CLI00074         DC    Y(&L)                                                    CLI00075         DC    C&MES                                                    CLI00076ER&SYSNDX DS   0H                                                       CLI00077         MEND                                                           CLI00078         SPACE 1                                                        CLI00079         MACRO                                                          CLI00080&LAB     ERRS  &COM                                                     CLI00081&LAB     LA    1,&COM                                                   CLI00082         BAL   14,ERRSR                                                 CLI00083         MEND                                                           CLI00084         SPACE 1                                                        CLI00085         MACRO                                                          CLI00086&LAB     MSX   &MES                                                     CLI00087&LAB     L     1,=V(&MES)                                               CLI00088         BAL   14,WRITME                                                CLI00089         MEND                                                           CLI00090         SPACE 1                                                        CLI00091         MACRO                                                          CLI00092&LAB     MRX   &MES                                                     CLI00093&LAB     L     1,=V(&MES)                                               CLI00094         BAL   14,ERRSR                                                 CLI00095         MEND                                                           CLI00096         SPACE 2                                                        CLI00097         MACRO                                                          CLI00098&LAB     KWIC  &KEY,&NDX                                                CLI00099         LCLA  &L                                                       CLI00100&L       SETA  K'&KEY                                                   CLI00101&LAB     DC    AL1(&L,&NDX),C'&KEY'                                     CLI00102         MEND                                                           CLI00103         SPACE 2                                                        CLI00104         MACRO                                                          CLI00105         HELLO                                                          CLI00106         GBLC  &SCHOOL                                                  CLI00107BHELLO   DC    Y(LBHELLO)                                               CLI00108         DC    C'@LQUP@'                                                CLI00109         DC    C'&SCHOOL'                                               CLI00110         DC    C' BASIC SYSTEM'                                         CLI00111LBHELLO  EQU   *-BHELLO                                                 CLI00112         MEND                                                           CLI00113         EJECT                                                          CLI00114         SPACE 12                                                       CLI00115*****************************************************************       CLI00116*                                                               *       CLI00117*        B A S I C  GLOBAL SET SYMBOLS                          *       CLI00118*                                                               *       CLI00119*****************************************************************       CLI00120         SPACE 2                                                        CLI00121         GBLC  &SLT                                                     CLI00122         GBLC  &SWAP                                                    CLI00123         GBLC  &SCHOOL                                                  CLI00124         SPACE 2                                                        CLI00125         COPY  GLOBALSYM                                                CLI00126         EJECT                                                          CLI00127*****************************************************************       CLI00128*                                                               *       CLI00129*        PROLOGUE                 CODE                          *       CLI00130*                                                               *       CLI00131*****************************************************************       CLI00132         SPACE 2                                                        CLI00133COMMAND  CSECT                                                          CLI00134         BALR  15,0                                                     CLI00135         SPACE 1                                                        CLI00136         USING *,9,8,10                                                 CLI00137         USING CLIDSCT,13                                               CLI00138         USING WSLAYOUT,7                                               CLI00139         USING BASICOMM,12                                              CLI00140         SPACE 1                                                        CLI00141         STM   14,12,12(13)       SAVE GRS STATUS                       CLI00142         L     2,0(0,1)           SAVE PAR PTR                          CLI00143         L     11,DSECT3          ADDRESS OF DSECT                      CLI00144         ST    11,8(0,13)         FORWARD POINTER                       CLI00145         ST    13,4(0,11)         BACKWARD POINTER                      CLI00146         LR    13,11              ADDRESS THE DSECT                     CLI00147         LR    9,15               ADDRESSABILITY!                       CLI00148         LA    1,1                                                      CLI00149         LA    8,4095(1,9)                                              CLI00150         LA    10,4095(1,8)                                             CLI00151         ST    2,PARFLD           SAVE PAR FIELD PTR                    CLI00152         EJECT                                                          CLI00153*****************************************************************       CLI00154*                                                               *       CLI00155*        DO THE INIT THING                                      *       CLI00156*                                                               *       CLI00157*****************************************************************       CLI00158         SPACE 2                                                        CLI00159RESETA   LA    1,SIGID            INIT SIGNON LIST                      CLI00160         ST    1,SIGLIS                                                 CLI00161         LA    1,4(0,1)           ADDRESS OF PASSWORD                   CLI00162         ST    1,SIGLIS+4                                               CLI00163         MVC   NUM1(4),=X'00000050'   INIT SWITS AND PREFIX             CLI00164         LA    1,FDUB2            INIT READ AND WRITE LISTS             CLI00165         ST    1,CPLIS            FOR COPYING                           CLI00166         LA    1,8(0,1)           ADDRESS OF LINE# FOR COPYING          CLI00167         ST    1,CPLIS+12                                               CLI00168         LA    1,FDUB                                                   CLI00169         ST    1,XCOMLIS          FOR EXECUTE COMMAND                   CLI00170         ST    1,EMPLIS           FOR EMPTY COMMAND                     CLI00171         ST    1,COMPCAL          FOR COMPILE COMMAND                   CLI00172         ST    1,CPLIS2           ALSO FOR COPYING                      CLI00173         ST    1,RDLIST           FOR LISTING                           CLI00174         LA    1,8(0,1)           AGING FOR LINE# FOR COPYING AND LISTI CLI00175         ST    1,CPLIS2+12                                              CLI00176         ST    1,RDLIST+12                                              CLI00177         LA    1,LINBUF           BUFFER FOR COPYING AND LISTING        CLI00178         LA    2,LINECNT          FWD CNT FOR COPYING                   CLI00179         STM   1,2,CPLIS+4                                              CLI00180         STM   1,2,CPLIS2+4                                             CLI00181         STM   1,2,RDLIST+4                                             CLI00182         BCTR  1,0                LINBUF-1                              CLI00183         ST    1,TTYLIS           FOR LIST COMMAND                      CLI00184         LA    1,CURFIL           CURRENT ACTIVE FILE                   CLI00185         ST    1,EMPLINE                                                CLI00186         ST    1,FILLIST          FOR ENTERING DATA LINE                CLI00187         LA    1,INLINE           COMMAND INPUT BUFFER                  CLI00188         STM   1,2,FILLIST+4                                            CLI00189         LA    2,2(0,2)           LINECNT+2                             CLI00190         ST    2,TTYLIS+4         FOR LIST COMMAND                      CLI00191         LA    3,LINE#                                                  CLI00192         ST    3,EMPLIS+4                                               CLI00193         ST    3,EMPLINE+4        FOR NULLINE                           CLI00194         ST    3,FILLIST+12                                             CLI00195         LA    2,LINELN                                                 CLI00196         STM   1,2,INPLIST+8                                            CLI00197         ST    2,INPLIS2+12                                             CLI00198         LA    1,PFX              FOR PREFIXED READ                     CLI00199         LA    2,PFXLN                                                  CLI00200
& Ready: 
  r
  LEN=16000
           STM   1,2,TTWPARC        FOR FORPRT                            CLI00201         STM   1,2,INPLIST                                              CLI00202         STM   1,2,WRITLIS                                              CLI00203         LA    1,PFXLN2                                                 CLI00204         ST    1,INPLIS2+4                                              CLI00205         LA    1,SYMPTR                                                 CLI00206         ST    1,COMPCAL+8                                              CLI00207         LA    1,XCOML            SWITCH FOR COMP AND EXEC              CLI00208         ST    1,COMPCAL+4                                              CLI00209         ST    1,XCOMLIS+4                                              CLI00210         LA    1,LINBEG                                                 CLI00211         ST    1,XCOMLIS+8                                              CLI00212         MVI   UNDLIN,C'_'                                              CLI00213         MVI   ATTNFLAG,0         MASK ATTENTION                        CLI00214         MVI   BLANK,C' '         TO STOP CARRIAGE CONTROL              CLI00215         XC    GBLSWTS(4),GBLSWTS   SET GLOBAL/LOCAL SWITCHES           CLI00216         LA    1,LLN                                                    CLI00217         LA    2,PL5                                                    CLI00218         STM   1,2,LLINE#+8       INIT FINDLINE PAR LIXT                CLI00219         MVI   RESPT,0                                                  CLI00220         MVI   COMPRET#,0                                               CLI00221         MVI   HELSWT,0                                                 CLI00222         MVI   OPFX,X'50'         INIT PREFIX                           CLI00223         SDR   0,0                GET A ZERO                            CLI00224         STD   0,UVARCON          INIT DEF. FOR NUM. VARS               CLI00225         XC    USTRCON(STRNGLEN),USTRCON  INIT DEF. STRING VAR. VALUE   CLI00226         LA    0,1                 INIT PREFIX LEN'S                    CLI00227         STH   0,PFXLN                                                  CLI00228         STH   0,OPFXLN                                                 CLI00229         MVC   PL5,=PL4'5'        SET UP A CONS. PACKED 5 FOR LINE DIR. CLI00230         LA    1,EDPR1            INTI EDIT PAR LIST                    CLI00231         LA    2,EDPR2                                                  CLI00232         LA    3,EDPR3                                                  CLI00233         LA    4,FDUB                                                   CLI00234         LA    5,VERFSWT                                                CLI00235         STM   1,5,EDPARS                                               CLI00236         MVC   EDPR3(4),=PL4'0'   INIT LINE POINTER                     CLI00237         MVI   SCNFDUB,0          NO FDUB AT BEGINNING                  CLI00238         MVI   SCNBUF,0           INIT SCAN PATTERN TO NULL             CLI00239         MVC   PERMFILE(4),=F'-1' DEF. PERMANENT FILES TO DATACELL      CLI00240         MVC   DEFDIMS(2),=H'10'  DEFAULT DIMENSION IS 10               CLI00241         MVI   SIGOFFS,0          DON'T CALL QUIT                       CLI00242         MVI   EDPR1+2,0          FOR EDITING                           CLI00243         MVI   EDCHAR,C''''                                             CLI00244         MVI   RUNNSW,0           INIT RUNSWT                           CLI00245         MVI   INCLSW,0           INIT INCLUDE                          CLI00246         MVI   ECHOSW,0           INIT ECHO OFF                         CLI00247         MVI   TERSWT,0                                                 CLI00248         MVI   CONFSWT,0          DS                                    CLI00249         MVI   GRJUSSW,0          INIT JUSTIFY TO LEFT                  CLI00250         MVI   ATLINSW,0          AT LINE COMMENT TO BE PRINTED         CLI00251         MVI   CONCSWT,0          NOT RETURNING NOW                     CLI00252         TS    DFILCRE            INIT AUTO DATA FILE CRE ON            CLI00253         TS    DFILEMP            EMPTY DATA FILES ON COMP (DEFAULT)    CLI00254         MVC   CWDGLB(4),=F'15'   INIT OUTPUT FIELD WIDTH TO 15         CLI00255         MVC   ATTNCNT(2),=PL2'0'                                       CLI00256         XC    GLSWTS(LGLSWTS),GLSWTS   INIT COMMAND SWTS               CLI00257         MVC   ERRQD(4),=PL4'0'   NO ERROR MESSAGES Q'D                 CLI00258         CLI   BATCHSW,0          BATCH?                                CLI00259         BE    *+12               NOPE                                  CLI00260         TS    ECHOSW#            YUP, ECHO ON                          CLI00261         TS    CONFSWT#           AND NO CONFIRM                        CLI00262         CALLS SETDEF             SET OTHER DEFAULT PARAMETERS          CLI00263         EJECT                                                          CLI00264*****************************************************************       CLI00265*                                                               *       CLI00266*        SIGNON - ID,PASSWORD                                   *       CLI00267*                                                               *       CLI00268*****************************************************************       CLI00269         SPACE 2                                                        CLI00270         TM    SIGSWT,X'FF'       ARE WE SIGNED ON YET                  CLI00271         BO    DISP               YES                                   CLI00272         MESS  BHELLO                                                   CLI00273SIG      CALLS GETSIGID                                                 CLI00274         ST    1,SAVEAR2          GET THE USER'S ID                     CLI00275         MVC   SIGID,SAVEAR2                                            CLI00276SETSIG   TS    SIGSWT             SIGNED ON WITH MESSAGE                CLI00277         MVC   MESSBUF(LSIGMS),SIGMS  GIVE SIGNON MESSGAE               CLI00278         MVC   MESSBUF+SIGMS1-SIGMS(1),SIGID                            CLI00279         MVC   MESSBUF+SIGMS1-SIGMS+3(1),SIGID+1                        CLI00280         MVC   MESSBUF+SIGMS1-SIGMS+6(1),SIGID+2                        CLI00281         MVC   MESSBUF+SIGMS1-SIGMS+9(1),SIGID+3                        CLI00282         MESS  MESSBUF                                                  CLI00283         BAL   14,TOD             PRINT TIME OF DAY                     CLI00284         LA    1,=C'SIGNONMESSAGE'                                      CLI00285         LA    2,12                                                     CLI00286         CALLS HELP                                                     CLI00287         EJECT                                                          CLI00288*****************************************************************       CLI00289*                                                               *       CLI00290*        THIS IS THE CENTRAL DISPATCHER!!!!                     *       CLI00291*                                                               *       CLI00292*****************************************************************       CLI00293         SPACE 2                                                        CLI00294DISP     CLI   CONCSWT,0          SHOULD WE RETURN TO PROG?             CLI00295         BNE   RETCMD                                                   CLI00296         CLC   ERRQD(4),=PL4'0'   ERROR MESSAGE Q'D?                    CLI00297         BNH   *+10               NOPE                                  CLI00298         SP    ERRQD(4),=PL4'1'   ONLY FOR ONE COMMAND                  CLI00299         BAL   11,GETLINE         REQUEST COMMAND OR DATA               CLI00300DISP2    MVC   FLSWTS(LGLSWTS),GLSWTS INIT SWITCHES                     CLI00301         BAL   14,ATTN            DID WE HAVE AN ATTENTION?             CLI00302         BAL   11,BREAKIT         GET COMMAND OR LINE NUMBER            CLI00303         BZ    BADCOM             MISSING => BAD COMMAND                CLI00304         TM    0(1),C'0'          DATALINE?                             CLI00305         BO    DATALINE           YES                                   CLI00306         L     11,=V(TRANUC)      UPPER CASE TRANSLATE TABLE            CLI00307         EX    2,TRTUC            TRANSLATE CMD TO UPPER CASE           CLI00308         EJECT                                                          CLI00309*****************************************************************       CLI00310*                                                               *       CLI00311*        COMMAND INTERPRETER   IE. WHERE DO WE GO?              *       CLI00312*                                                               *       CLI00313*****************************************************************       CLI00314         SPACE 2                                                        CLI00315COMINT   LR    7,1                SAVE GR1                              CLI00316         CLI   0(1),C'*'          A COMMENT?                            CLI00317         BE    ECKPH              YUP, GO STRAIGHT TO ECHO PHASE        CLI00318         LR    3,1                                                      CLI00319         LA    4,1(0,2)           TRUE COUNT                            CLI00320LPATCK   CLI   0(3),C'@'          LOOK FOR MODIFIERS                    CLI00321         BE    PARSECOM           FOUND ONE MUST PARSE COMMAND          CLI00322         LA    3,1(0,3)           NEXT CHAR                             CLI00323         BCT   4,LPATCK           COUNT 'EM DOWN                        CLI00324ECKPH    BAL   14,ECHOM           SEE IF WE ECHO AND DO IT IF           CLI00325         LR    1,7                RESTORE GR1                           CLI00326         CLI   0(1),C'*'          A COMMENT?                            CLI00327         BE    DISP               YES, IGNORE                           CLI00328         CLI   0(1),C'%'          % PREFIX?                             CLI00329         BNE   STRTLK             NOPE, GO AHEAD                        CLI00330         LTR   2,2                IS THAT ALL THERE IS?                 CLI00331         BZ    BADCOM             YUP                                   CLI00332         BCTR  2,0                LOP OFF %                             CLI00333         LA    1,1(0,1)           POINT PAST IT                         CLI00334         SPACE 1                                                        CLI00335STRTLK   L     4,=A(COMLIST)      COMMAND "KWIC" TABLE                  CLI00336         SPACE 1                                                        CLI00337REPEAT   CLI   0(4),0             END OF TABLE?                         CLI00338         BE    BADCOM             YUP, INVALID COMMAND                  CLI00339         SR    5,5                CLEAR GR FOR IC                       CLI00340         IC    5,0(0,4)           GET LEN OF COMPARAND                  CLI00341         BCTR  5,0                IBM OF IT                             CLI00342         CR    2,5                COMMAND TOO LONG?                     CLI00343         BH    NOMATH             YUP, NO MATCH                         CLI00344         EX    2,COMPAR2          MAKE COMPARE                          CLI00345         BE    FOUNDIT            SUCCESS                               CLI00346NOMATH   LA    4,3(5,4)           NEXT POSSIBLE MATCH                   CLI00347         B     REPEAT             CHECK IT                              CLI00348BDECK    BAL   14,ECHOM           ECHO?                                 CLI00349BADCOM   MRX   CLI11                                                    CLI00350         B     DISP               NEXT COMMAND                          CLI00351FOUNDIT  IC    5,1(0,4)           GET INDEX IN TO BRANCH TABLE          CLI00352         SLL   5,2                * 4                                   CLI00353         A     5,=A(CMDBC)        + BASE OF BRANCH TABLE                CLI00354         B     0(0,5)             GO DO IT                              CLI00355         SPACE 1                                                        CLI00356COMPAR2  CLC   0(0,1),2(4)        IS THIS THE COMMAND?                  CLI00357         EJECT                                                          CLI00358*****************************************************************       CLI00359*                                                               *       CLI00360*        PARSECOM - PARSE A COMMAND FOR '@' MODIFIERS           *       CLI00361*                                                               *       CLI00362*****************************************************************       CLI00363         SPACE 2                                                        CLI00364PARSECOM SR    2,4                GET TRUE LENGTH OF COMMAND            CLI00365         BL    BDECK              BAD COMMAND                           CLI00366         LA    15,1               GET A ONE                             CLI00367PATLOOP  AR    3,15               LOOK PAST '@'                         CLI00368         BCTR  4,0                COUNT IT OFF                          CLI00369         LTR   4,4                A ZERO COUNT IS BAD                   CLI00370         BL    ECKPH              NEGATIVE MEANS WE ARE DONE            CLI00371         BZ    BDECK              BAD COMMAND                           CLI00372         LR    11,3               SAVE PTR TO MOD                       CLI00373         SR    14,14              INIT LEN COUNT                        CLI00374         CLI   0(3),C'@'          ANOTHER '@'                           CLI00375         BE    *+12               YUP, THAT'S ALL FOR THE PREVIOUS MOD  CLI00376         AR    14,15              INCR COUNT                            CLI00377         AR    3,15               INCR PTR                              CLI00378         BCT   4,*-12             BACK FOR MORE                         CLI00379         LTR   14,14              ZERO COUNT                            CLI00380         BZ    INVMOD             YUP, INVALID MOD                      CLI00381         BCTR  14,0               IBM OF MOD LEN                        CLI00382         L     5,=A(MODFTAB)      TABLE OF MODIFIERS                    CLI00383         SR    6,6                GET A CLEAR GR                        CLI00384LPMODMT  CLI   0(5),X'FF'         END OF TABLE?                         CLI00385         BE    INVMOD             YUP, INVALID MOD                      CLI00386         IC    6,0(0,5)           PICK UP LEN OF STRING                 CLI00387         CR    14,6               IF GIVEN MOD IS LONGER                CLI00388         BH    INCRPST            GO TO NEXT POSS MATCH                 CLI00389         EX    14,CLCMOD          IS THIS THE ONE?                      CLI00390         BE    FNDMOD             YUP, DO THE EXECUTE BIT               CLI00391INCRPST  LA    5,3(6,5)           PT TO NEXT POSSIBLE MATCH             CLI00392         B     LPMODMT            AND TRY THAT ONE                      CLI00393FNDMOD   IC    6,1(0,5)           EXECUTE INDEX                         CLI00394         A     6,=A(MODEXTB)      + BASE OF EX TAB                      CLI00395         EX    0,0(0,6)           EXECUTE THE GRABBER                   CLI00396         B     PATLOOP            LOOK FOR MORE MODIFIERS               CLI00397         SPACE 1                                                        CLI00398INVMOD   BAL   14,ECHOM           ECHO?                                 CLI00399         MRX   CLI2                                                     CLI00400
& Ready: 
  c rew
& Ready: 
 #02:53:32  T=0.07  $0.04 
 #cre basic.strt1
  Done.
 #r *fsave 0=*IN*
 #02:53:51 
 %...RESTORE
 %BASIC.STRT1 
 %*** FILE 'BASIC.STRT1' RESTORED
 #02:54:12  T=0.075  $0.03 
 #ed basic.strt1
 :v
 :p/f
 :     1     $COM THE FILES TEXT360B AND BSOURCE SAVED ON THIS TAPE
 :     2     $COM WILL NOT BE RESTORED BY THIS PROCEDURE.  THEY ARE,
 :     3     $COM RESPECTIVELY, THE PROCEDURE TO PRINT THE TEXT/360
 :     4     $COM BASIC WRITEUP, AND THE SOURCE FOR THE WRITEUP.
 :     5     $COM THE FILE BSOURCE IS APPROX. 100 PAGES. TEXT360B IS
 :     6     $COM JUST A FEW LINES.
 :     7     $CRE DESTROY
 :     8     $RUN *FSAVE 0=*T* SCARDS=*SOURCE*
 :     9     ...RESTORE 
 :    10     DESTROY 
 :    11     $ENDFILE
 :    12     $RUN DESTROY
 :    13     DSECT9A 
 :    14     INTFACMAC
 :    15     SYMTABDEF
 :    16     BIFDSECT
 :    17     OPDEFEQUS
 :    18     OPDEFMACROS
 :    19     DSECTCOMM
 :    20     CLIDSECT
 :    21     LDICDSCT
 :    22     FHDRDSECT
 :    23     MAPDSECT
 :    24     GLOBALSYM
 :    25     SYMTABSECT
 :    26     DS6A
 :    27     WSLAYOUT
 :    28     PDSECT
 :    29     LEXTOTOBJ
 :    30     CLITOTOBJ
 :    31     CMPTOTOBJ
 :    32     CPSTOTOBJ
 :    33     NUMTOTOBJ
 :    34     VFLTOTOBJ
 :    35     BIOTOTOBJ
 :    36     INFTOTOBJ
 :    37     BASINTOBJ
 :    38     BASICOBJ
 :    39     BASIC.STRT2
 :    40     $ENDFILE
 :    41     $CRE DSECT9A 
 :    42     $CRE INTFACMAC
 :    43     $CRE SYMTABDEF
 :    44     $CRE BIFDSECT
 :    45     $CRE OPDEFEQUS
 :    46     $CRE OPDEFMACROS
 :    47     $CRE DSECTCOMM
 :    48     $CRE CLIDSECT SIZE=6P
 :    49     $CRE LDICDSCT
 :    50     $CRE FHDRDSECT
 :    51     $CRE MAPDSECT
 :    52     $CRE GLOBALSYM
 :    53     $CRE SYMTABSECT
 :    54     $CRE DS6A
 :    55     $CRE WSLAYOUT
 :    56     $CRE PDSECT
 :    57     $CRE LEXTOTOBJ SIZE=10P 
 :    58     $CRE CLITOTOBJ SIZE=30P 
 :    59     $CRE CMPTOTOBJ SIZE=30P 
 :    60     $CRE CPSTOTOBJ SIZE=30P 
 :    61     $CRE NUMTOTOBJ SIZE=30P 
 :    62     $CRE VFLTOTOBJ SIZE=30P 
 :    63     $CRE BIOTOTOBJ SIZE=30P 
 :    64     $CRE INFTOTOBJ SIZE=30P 
 :    65     $CRE BASINTOBJ
 :    66     $CRE BASICOBJ SIZE=100P TYPE=SEQ
 :    67     $CRE BASIC.STRT2
 :    68     $COP *SOURCE* *T*@CC
 :    69     REW
 :    70     $ENDFILE
 :    71     $RUN *FSAVE 0=*T* SCARDS=*SOURCE*
 :    72     ...RESTORE
 :    73     DSECT9A 
 :    74     INTFACMAC
 :    75     SYMTABDEF
 :    76     BIFDSECT
 :    77     OPDEFEQUS
 :    78     OPDEFMACROS
 :    79     DSECTCOMM
 :    80     CLIDSECT
 :    81     LDICDSCT
 :    82     FHDRDSECT
 :    83     MAPDSECT
 :    84     GLOBALSYM
 :    85     SYMTABSECT
 :    86     DS6A
 :    87     WSLAYOUT
 :    88     PDSECT
 :    89     BASIC.STRT2
 :    90     $ENDFILE
 :    91     $RUN *DISMOUNT PAR=*T*
 :    92     $LIST GLOBALSYM
 :    93     $COM AT THIS POINT YOU SHOULD MAKE THE APPROPRIATE CHANGES
 :    94     $COM TO THE FILE "GLOBALSYM" (LISTED ABOVE) AND TO LINE 
 :    95     $COM 1 OF THE FILE "BASIC.STRT2".  YOU SHOULD CHANGE THE 
 :    96     $COM MOUNT INFORMATION TO THAT APPROPRIATE TO YOUR 
 :    97     $COM INSTALLATION.  AFTER ALL THIS, YOU CAN $SOURCE TO
 :    98     $COM BASIC.STRT2 TO GENERATE BASIC.
 :MTS
 #des basic.strt1
  OK? "BASIC.STRT1"
 ?ok
 #mou yyy 3480 *out* rint=in uam=off vol=mts2.3
 #"RING" for "RINT" in "RINT=IN"?
 ?y
 #*OUT* (YYY): Mounted on TC07 
 #r *tapecopy 0=*in* 1=*out*
 #03:00:17 
0   File number        Blocks
     In    Out      Read   Written
      1      1         1         1
      2      2         1         1
      3      3         1         1
      4      4         1         1
      5      5         1         1
      6      6         1         1
      7      7         1         1
      8      8         1         1
      9      9         1         1
     10     10         1         1
     11     11         1         1
     12     12         1         1
     13     13         1         1
     14     14         1         1
     15     15         1         1
     16     16         1         1
     17     17         1         1
     18     18         1         1
     19     19         1         1
     20     20         6         6
     21     21         1         1
     22     22         2         2
     23     23         0         0
     24     24        28        28
     25     25        26        26
     26     26        23        23
     27     27        19        19
     28     28        14        14
     29     29         6         6
     30     30         9         9
     31     31         9         9
     32     32         2         2
     33     33        35        35
     34     34        23        23
     35     35         1         1
     36     36         7         7
     37     37         6         6
     38     38         3         3
     39     39        11        11
     40     40       110       110
     41     41         1         1
     42     42        45        45
     43     43        59        59
     44     44        29        29
     45     45         3         3
     46     46         1         1
     47     47         4         4
     48     48         1         1
     49     49         1         1
     50     50         1         1
     51     51         1         1
     52     52         4         4
     53     53         8         8
     54     54         2         2
     55     55         1         1
     56     56         5         5
     57     57         1         1
     58     58         1         1
     59     59         6         6
     60     60         2         2
     61     61        20        20
     62     62         8         8
     63     63        26        26
     64     64         3         3
     65     65        50        50
     66     66         1         1
     67     67         5         5
     68     68         3         3
 #03:01:56  T=0.696  $0.26 
 #r *labelsniff par=*out*
 #03:02:11 
1 Tape = *OUT* User ID MTS. 03:02:11 24 July 1996
0 Receipt#=YYY
  IBM labeled 38000-bpi CTP Volume=MTS2.3 Owner=UMCOMPCNTR 
  LP=on BLK=on RING=in DTCHK=on RETRY=10
0 File                    Block Record  Tapelen  Record 
     # Data set name      count  count   (feet)  format 
0    1 BASIC.FSAVE.1          1             .05 U(32767) 
     2 BASIC.FSAVE.2          1             .05 U(32767) 
     3 BASIC.FSAVE.3          1             .05 U(32767) 
     4 BASIC.FSAVE.4          1             .04 U(32767) 
     5 BASIC.FSAVE.5          1             .05 U(32767) 
     6 BASIC.FSAVE.6          1             .05 U(32767) 
     7 BASIC.FSAVE.7          1             .06 U(32767) 
     8 BASIC.FSAVE.8          1             .06 U(32767) 
     9 BASIC.FSAVE.9          1             .06 U(32767) 
    10 BASIC.FSAVE.10         1             .05 U(32767) 
    11 BASIC.FSAVE.11         1             .04 U(32767) 
    12 BASIC.FSAVE.12         1             .05 U(32767) 
    13 BASIC.FSAVE.13         1             .06 U(32767) 
    14 BASIC.FSAVE.14         1             .04 U(32767) 
    15 BASIC.FSAVE.15         1             .05 U(32767) 
    16 BASIC.FSAVE.16         1             .05 U(32767) 
    17 BASIC.FSAVE.17         1             .05 U(32767) 
    18 BASIC.FSAVE.18         1             .05 U(32767) 
    19 BASIC.FSAVE.19         1             .05 U(32767) 
    20 BASIC.FSAVE.20         6             .45 U(32767) 
    21 BASIC.FSAVE.21         1             .05 U(32767) 
    22 BASIC.FSAVE.22         2             .07 U(32767) 
    23 BASIC.FSAVE.23         0             .04 U(32767) 
    24 BASIC.CLI             28            1.17 U(16000) 
    25 BASIC.LEX             26            1.10 U(16000) 
    26 BASIC.CMP             23             .99 U(16000) 
    27 BASIC.CPS             19             .80 U(16000) 
    28 BASIC.NUM             14             .59 U(16000) 
    29 BASIC.VFL              6             .28 U(16000) 
    30 BASIC.BIO              9             .41 U(16000) 
    31 BASIC.INF              9             .38 U(16000) 
    32 BASIC.BSI              2             .09 U(16000) 
    33 TAPERTN               35    3493     .88 FB(8000,80) 
    34 MOUNT                 23    2224     .58 FB(8000,80) 
    35 CONTROL                1      66     .05 FB(8000,80) 
    36 TAPEDUMP               7     670     .20 FB(8000,80) 
    37 TAPECOPY               6     551     .17 FB(8000,80) 
    38 LABEL                  3     208     .09 FB(8000,80) 
    39 LABELSNIFF            11    1054     .29 FB(8000,80) 
    40 NEWM1.V1             110   12083    4.37 VB(15000,150) 
    41 DEBUGDUMP.V1           1      80     .07 FB(13200,132) 
    42 NEWM3.V2              45    4922    1.80 VB(15000,150) 
    43 NEWM5.V3              59    6424    2.34 VB(15000,150) 
    44 NEWM1.V11             29    5037    1.16 VB(15000,150) 
    45 PDP11.ASMBLR           3             .17 U(32767) 
    46 PDP11.LKE              1             .06 U(32767) 
    47 PDP11.ASMBLRX          4             .31 U(32767) 
    48 PDP11.LKEX             1             .09 U(32767) 
    49 PDP11.ERROR            1             .06 U(32767) 
    50 PDP11.MACRO            1             .07 U(32767) 
    51 PDP11.MALGEN           1             .05 U(32767) 
    52 PDP11.LINKSOU          4             .28 U(32767) 
    53 PDP11.UATS/MAL         8             .61 U(32767) 
    54 PDP11.DCEVAL/MAL       2             .14 U(32767) 
    55 PDP11.REPSCAN          1             .08 U(32767) 
    56 PDP11.MAC              5             .39 U(32767) 
    57 PDP11.SYMT/MAL         1             .06 U(32767) 
    58 PDP11.TRAP             1             .05 U(32767) 
    59 PDP11.MANUAL           6             .46 U(32767) 
    60 PDP11.DIRECTORY        2             .07 U(32767) 
    61 MTSUPDATE             20    1975     .52 FB(8000,80) 
    62 DASDUC                 8     753     .22 FB(8000,80) 
    63 UMMPSUPDATE           26    2596     .66 FB(8000,80) 
    64 PSA                    3     219     .09 FB(8000,80) 
    65 V67.MONITOR           50    4940    1.23 FB(8000,80) 
    66 V67.DEVICELIST         1      38     .05 FB(8000,80) 
    67 V67.S2301              5     406     .14 FB(8000,80) 
    68 V67.WRITEUP            3     465     .11 VB(8000,255) 
 
  Total tape length = 25.33 feet.
 
  <*><*><*>  End of tape  <*><*><*> 
 #03:03:36  T=0.437  $0.17 
 #rel *in*
  *IN*: XXX dismounted.
 #rel *out*
  *OUT*: YYY dismounted.
 #log off
