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 &YESD DEST DESTROY  SCARDS  0001&}ESD  SPRINT  0002& TXT } 0Au&0}&}0ؓ0A0{ss  0003&TXT {kAs{sk A40{0{ Č{KAʥ 0004&hTXT  As0A8{ssh ͌0{}}q} k}  0005&TXT 0  sHAS BEEN DESTROYED. 0006&RLD @d 40 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) uPACKED 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