University of Michigan Terminal System - UM Host Device: DS82 Task: 104 # sig mta # Enter password. ? # sig mts # Enter password. ? # Charging Rate: Terminal,Minimum,Overhead,UM,IBM 3090/300J # Last signon was at 21:47:17, Fri Jul 19/96 # User MTS signed on at 23:38:37, Fri Jul 19/96 ID? MTA:Sigfile (non-server) # l *flb 1 $Signon Tape 2 $Run Sys.:Fndlbl Guser=>OPER Sprint=>OPER Sercom=>OPER 3 $Signoff $ # r sys:fndlbl # 23:45:20 Enter tape drive name t920 Tape is unlabeled, density=1600 Enter tape drive name t921 *** Tape drive does not support density of tape. Enter tape drive name t915 Tape is unlabeled, density= 800 Enter tape drive name end of file # 23:50:14 T=0.051 $0.07 # mou ? xxx 9tp *d1t1* 'd1t1' ? xxx 9tp *d1t2* 'd1t2' ? end of file # *D1T1* (XXX): System is in unattended mode; no mounts allowed. # *D1T2* (XXX): Aborted. # mou ? xxx 9tp *d1t2* uam=off 'd1t2' ? xxx 9tp *d1t1* uam=off 'd1t1' ? end of file # *D1T2* (XXX): Mounted on T915 # *D1T1* (XXX): Mounted on T920 # ed *d1t1* : v : end of file # r *labelsniff par=*d1t1* # 23:52:57 Tape = *D1T1* User ID MTS. 23:52:57 19 July 1996 Receipt#=XXX Not labeled 1600-bpi 9TP LP=off BLK=on RING=out DTCHK=on RETRY=10 File Block Tapelen Block len # count (feet) av. max. 1 24 9.41 6210 6400 2 4 1.83 6060 6400 3 1 .71 5920 5920 4 2 .83 3600 6400 5 11 4.51 6225 6400 6 7 2.75 5543 6400 7 4 1.90 6400 6400 8 5 2.19 6016 6400 9 15 5.87 6027 6400 10 1 .70 5600 5600 11 3 1.27 4853 6400 12 16 6.26 6045 6400 13 14 5.77 6394 6400 14 4 1.83 6040 6400 15 17 6.64 6061 6400 16 7 2.78 5623 6400 17 13 5.15 6049 6400 18 74 28.72 6318 6400 19 4 1.69 5400 6400 20 5 2.26 6288 6400 21 4 1.65 5220 6400 22 1 .63 4400 4400 23 2 1.00 5160 6400 24 1 .64 4480 4480 25 1 .56 2960 2960 26 5 2.02 5360 6400 27 1 .57 3200 3200 28 1 .59 3520 3520 29 1 .53 2400 2400 30 1 .66 4960 4960 31 2 .83 3560 6400 32 5 1.97 5184 6400 33 13 5.22 6154 6400 34 1 .42 320 320 35 1 .72 6080 6080 36 8 3.15 5690 6400 37 3 1.45 5973 6400 38 1 .50 1840 1840 39 1 .63 4240 4240 40 2 1.02 5400 6400 41 2 .90 4280 6400 42 8 3.15 5690 6400 43 5 2.04 5456 6400 44 2 .85 3720 6400 45 2 1.09 6080 6400 Attn at file 46 BLK # 1 Do you want to continue? n # 23:53:28 T=0.151 $0.06 # con *d1t1* fb(6400,80) # CONTROL command aborted -- Error 0016: # "FB(6400,80) " Illegal control command on "*D1T1*" # con *d1t1* fmt fb(6400,80) # ed *d1t1* : v : count /f : 1863 lines : MTS # f *label *LABEL Type=Line, IdleDays=0, RPM=186, UseCnt=58698, Owner=TAPE, Create=Sep16/70, LastRef=Jul19/96, LastCatalog=Jan02/90, LastData=17:50:14 Dec23/89, FullAccess=U Owner, N Others, R (Pkey=*MTS.RUN?, Pkey=*MTS.FILESTA, Pkey=*AUTOREPLACE) # r *label # 23:54:56 Enter tape name, density, volume name, owner ? tc05 68000 d1t1 umcompcntr ? Density "6800" invalid for device. ? Enter tape name, density, volume name, owner ? tc05 64000 d1t1 umcompcntr ? Density "6400" invalid for device. ? Enter tape name, density, volume name, owner ? end of file # 23:56:57 T=0.057 $0.14 # f tape:?lab? TAPE:CAT/LABEL Mode (density) not valid for device : p file : MTSS:USUB*SA : $f tape:?*sa TAPE:LABEL*SA TAPE:LBLSNIFF*SA TAPE:MNTTST*SA TAPE:MOUNT*SA TAPE:SAVMS*SA TAPE:TAPECOPY*SA TAPE:TAPEDUMP*SA TAPE:TAPEFIXER*SA TAPE:TAPEQ*SA TAPE:TAPES*SA TAPE:TPMOVE*SA TAPE:UCTAPE*SA TAPE:UCTAPE_T*SA : $f dsr:?tap? DSR.:TAPE DSR.:TAPERTN DSR.:TAPERTN< DSR.:TAPERTN DSR.:TAPERTN>6SA DSR.:TAPERTN#SA DSR.:UCTAPE%UA : ed dsr:tapertn*sa : s@a /f 'density' : 59 &ST1 CMMD &STRING,&ENTRY,&CMMD,&SEQNUM,&ACCESS=CMMDAXSR,&DENSITY=0 CARTRIDG : 70 DC YL1(128+64+32+16+&DENSITY) CARTRIDG : 743 CHKDENS EQU X'10' NEED TO CHECK DENSITY : 817 CMMDDENS EQU 8 Density of mode command. CARTRIDG : 1684 BNE REL9 NO. DON'T PRINT DENSITY FOR OPERATOR : 1685 MVC 4(L'RMVMSG2,R3),RMVMSG2 ADD DENSITY WORDS : 1755 * Pop the top job on the tape queue that needs a drive of this density, : 2151 RICALL SET_DENS SET DEFAULT DENSITY AND MODE CARTRIDG : 2438 RICALL SET_DENS GET CURRENT DENSITY OF TAPE CARTRIDG : 2440 MVC LB2+15(1),DENS DENSITY CARTRIDG : 3705 OI DEVS+5,CHKDENS No - REMEMBER TO CHECK DENSITY CART_UD5 : 3777 TITLE 'SET_DENS, SET_DEN# - Set/retrive density' CART_UD3 : 3779 * ROUTINE TO SET DENSITY PARAMETER AND TO SET CART_UD3 : 3784 * 1 - pointer to density setings. CART_UD3 : 3852 MVC MODESET,CMMD_CCWCMD(R2) DEFAULT CURRENT TAPE DENSITY CART_UD3 : 4771 OI DEVS+5,CHKDENS Remember actual density : 4780 IF X'20':SNSDATA+6 If dual density : 4781 MVI DRVTYPE,3 Dual density 1600/6250 : 4786 IF X'20':SNSDATA+6 If dual density : 4787 MVI DRVTYPE,1 Dual density 800/1600 : 4802 MVC DENS,MODE Use first char of mode for density : 4814 SENSE9 SR R1,R1 CONVERT DRVTYPE TO DENSITY BITS : 4822 STC R1,4(,RF) PUT DENSITY BITS IN TABLE : 4974 * the top job on the tape queue needing a drive of this density. : 5004 SR R1,R1 Assume any density : 5405 CMMDSTRM CMMD 'STREAM',CLI_3480,M3480,,DENSITY=5 CART_UD3 : 5406 CMMD '38000',CLI_3480,M3480,,DENSITY=5 38000_MODE : 5407 CMMDIMMD CMMD 'IMMEDIATE',CLI_3480,M3480,,DENSITY=5 CART_UD3 : 5408 CMMD160 CMMD '160',CLI_9TP,M1600,,DENSITY=3 CART_UD3 : 5409 CMMD800 CMMD '800',CLI_9TP,M800,,DENSITY=2 CART_UD3 : 5410 CMMD625 CMMD '625',CLI_9TP,M6250,,DENSITY=4 CART_UD3 : 5411 CMMD '2CV',CLI_7TP,M2CV,,DENSITY=0 CART_UD3 : 5412 CMMD '2OF',CLI_7TP,M2OF,,DENSITY=0 CART_UD3 : 5413 CMMD '2ON',CLI_7TP,M2ON,,DENSITY=0 CART_UD3 : 5414 CMMD '2EF',CLI_7TP,M2EF,,DENSITY=0 CART_UD3 : 5415 CMMD '2EN',CLI_7TP,M2EN,,DENSITY=0 CART_UD3 : 5416 CMMD '5CV',CLI_7TP,M5CV,,DENSITY=1 CART_UD3 : 5417 CMMD '5OF',CLI_7TP,M5OF,,DENSITY=1 CART_UD3 : 5418 CMMD '5ON',CLI_7TP,M5ON,,DENSITY=1 CART_UD3 : 5419 CMMD '5EF',CLI_7TP,M5EF,,DENSITY=1 CART_UD3 : 5420 CMMD '5EN',CLI_7TP,M5EN,,DENSITY=1 CART_UD3 : 5421 CMMD '8CV',CLI_7TP,M8CV,,DENSITY=2 CART_UD3 : 5422 CMMD '8OF',CLI_7TP,M8OF,,DENSITY=2 CART_UD3 : 5423 CMMD '8ON',CLI_7TP,M8ON,,DENSITY=2 CART_UD3 : 5424 CMMD '8EF',CLI_7TP,M8EF,,DENSITY=2 CART_UD3 : 5425 CMMD '8EN',CLI_7TP,M8EN,,DENSITY=2 CART_UD3 : 6595 IF MODE(1),NE,CMMDNAME(R5),CLC Yes - Same density? : 6599 RCALL SET_DEN#(,,(R5)) Set 7 track density parameters CARTRIDG : 6619 * |||.-------------REQUESTING UNKNOWN DENSITY CART_UD3 : 7537 CASE (2) Density. : 7539 RCALL PAR_ERR(A(1)) Improper density. CART_UD3 : 7558 RCALL PAR_ERR(A(1)) Improper density given. CART_UD3 : 7845 * 78-82 DENSITY (BPI) CARTRIDG : 7846 * 83-88 DENSITY (BPMM) CARTRIDG : 8625 INVDMSG DC C'Unrecognizable density on cartridge' CART_UD3 : 8690 IC R6,D INCREMENT DENSITY CARTRIDG : 8693 IF D,O,X'C0',TM IS DENSITY 3? CARTRIDG : 10097 DENS DS C (14) OS LABEL DENSITY : v 5400 : s /f l 'cli_trace' : Search failed : s@a /f 'cli_trace' : Search failed : v : s /f l 'cli_trce' : 484 CLI_TRCE ROUTINE LINKAGE-TYPE(RM),PARAMETER-TYPE(R(2,0)),RSECT(TRCRCT) CARTRIDG : v : v 5380 : MTS # d rer Rerun text: $Run *label # rer # $Run *label # 00:06:47 Enter tape name, density, volume name, owner ? tc05 stream d1t1 umcompcntr % Warning: tape *D1T2* has not been used in the last 15 minutes. ? Unable to initialize due to write error. ? end of file # 00:08:13 T=0.031 $0.02 # l *lbl 1 $Signon TAPE 2 $Run *Tapesubmit Sercom=>OPER Guser=>OPER Par=Initialize 3 $Signoff $ # f *l??? *LAS *LBH *LBL *LCS *LEX *LIM *LMT *LOG *LPD *LPO *LP1 *LRL # l *lbh 1 $Signon SYS. 3 $Run *Label Sercom=>OPER Guser=>OPER 4 $Signoff $ # rer % Warning: tape *D1T1* has not been used in the last 15 minutes. # $Run *label # 00:09:55 Enter tape name, density, volume name, owner ? tc04 38000 d1t1 umcompcntr ? IBM labeled: Dens=38000 Vol=D1T1 Owner=UMCOMPCNTR ? + Attention interrupt at 0004DE in section LABEL # end of file % mou xxx # $RELEASE *PRINT* "*PRINT*": is not explicitly held. PA1 = attention interrupt PA2 (CNCL) = end of file CLEAR = refresh screen SYS REQ = pause / continue PF1 =%WF 1 PF2 =%WB 1 PF3 =%WL 1 PF4 =%WR 1 PF5 =%JSET PF6 =%Enter PF7 =$COPY *MSOURCE*@SP * PF8 =$RELEASE *PRINT* PF9 =%ENTER PF10=%ZIP PF11=%PAGE PF12=%ROLL PF13=%Wb=* PF14=%JB 1 PF15=MTS PF16=%Wf=* PF17=%JF 1 PF18=%FLIP PF19=%Wf PF20=%PAUSE PF21=%ACTIVITY PF22=%Wl PF23=%Wl=60 PF24=%Wr=60 Defined PF clusters: PFKEYS # mou xxx cart *out* ring=in uam=off vol=d1t1 # "CART" is an invalid device type. # Enter new mount request: ? mou xxx 3480 *out* ring=in uam=off vol=d1t1 # *OUT* (XXX): Mounted on TC04 # r *label # 00:11:56 Enter tape name, density, volume name, owner ? end of file # 00:12:12 T=0.003 $0.00 # r *tapecopy 0=*d1t1* 1=*out* # 00:12:25 File number Blocks In Out Read Written 1 1 24 24 2 2 4 4 3 3 1 1 4 4 2 2 5 5 11 11 6 6 7 7 7 7 4 4 8 8 5 5 9 9 15 15 10 10 1 1 11 11 3 3 12 12 16 16 13 13 14 14 14 14 4 4 15 15 17 17 16 16 7 7 17 17 13 13 18 18 74 74 19 19 4 4 20 20 5 5 21 21 4 4 22 22 1 1 23 23 2 2 24 24 1 1 25 25 1 1 26 26 5 5 27 27 1 1 28 28 1 1 29 29 1 1 30 30 1 1 31 31 2 2 32 32 5 5 33 33 13 13 34 34 1 1 35 35 1 1 36 36 8 8 37 37 3 3 38 38 1 1 39 39 1 1 40 40 2 2 41 41 2 2 42 42 8 8 43 43 5 5 44 44 2 2 45 45 2 2 46 46 4 4 47 47 12 12 48 48 5 5 49 49 5 5 50 50 7 7 51 51 2 2 52 52 1 1 53 53 2 2 54 54 4 4 55 55 2 2 56 56 1 1 57 57 7 7 58 58 102 102 59 59 123 123 60 60 6 6 61 61 9 9 62 62 16 16 63 63 1 1 64 64 3 3 65 65 2 2 66 66 27 27 67 67 10 10 68 68 1 1 69 69 2 2 70 70 4 4 71 71 1 1 72 72 8 8 73 73 5 5 74 74 1 1 75 75 2 2 76 76 1 1 77 77 11 11 78 78 9 9 79 79 1 1 80 80 2 2 81 81 1 1 82 82 3 3 83 83 4 4 84 84 6 6 85 85 1 1 86 86 2 2 87 87 1 1 88 88 1 1 89 89 10 10 90 90 2 2 91 91 1 1 92 92 1 1 93 93 1 1 94 94 2 2 95 95 2 2 96 96 3 3 97 97 3 3 98 98 2 2 99 99 5 5 100 100 2 2 101 101 1 1 102 102 4 4 103 103 4 4 104 104 2 2 105 105 4 4 106 106 5 5 107 107 2 2 108 108 2 2 109 109 8 8 110 110 2 2 111 111 3 3 112 112 12 12 113 113 3 3 114 114 3 3 115 115 5 5 116 116 1 1 117 117 4 4 118 118 3 3 119 119 1 1 120 120 13 13 121 121 1 1 122 122 5 5 123 123 3 3 124 124 6 6 125 125 18 18 126 126 1 1 127 127 12 12 128 128 10 10 129 129 2 2 130 130 2 2 131 131 13 13 132 132 2 2 133 133 2 2 134 134 2 2 135 135 10 10 136 136 3 3 137 137 1 1 138 138 2 2 139 139 4 4 140 140 2 2 141 141 2 2 142 142 5 5 143 143 3 3 144 144 2 2 145 145 7 7 146 146 3 3 147 147 4 4 148 148 53 53 149 149 10 10 150 150 1 1 151 151 2 2 152 152 34 34 153 153 34 34 154 154 1 1 155 155 17 17 156 156 1 1 157 157 1 1 158 158 8 8 159 159 4 4 160 160 4 4 161 161 2 2 162 162 1 1 163 163 9 9 164 164 2 2 165 165 2 2 166 166 3 3 167 167 16 16 168 168 24 24 169 169 14 14 170 170 5 5 171 171 9 9 172 172 6 6 173 173 9 9 174 174 7 7 175 175 4 4 176 176 2 2 177 177 10 10 178 178 1 1 179 179 1 1 180 180 18 18 181 181 4 4 182 182 1 1 183 183 19 19 184 184 6 6 185 185 2 2 186 186 2 2 187 187 1 1 188 188 3 3 189 189 1 1 190 190 1 1 191 191 3 3 192 192 2 2 193 193 1 1 194 194 2 2 195 195 2 2 196 196 4 4 197 197 27 27 198 198 1 1 199 199 1 1 200 200 1 1 201 201 1 1 202 202 6 6 *** Attention interrupt at file 203, block 2 Do you wish to continue? Enter "Y" or "N" n # 00:15:20 T=1.122 $0.43 # con *out* lbltype=vlo # rer # $Run *tapecopy 0=*d1t1* 1=*out* # 00:15:30 File number Blocks In Out Read Written Improper volume label on "*out*" at file 1, block 1 *** Note: the input tape blocking parameters have not been restored *** # 00:15:31 RC=8 T=0.007 $0.00 # con *out* rew # con *out* init # con *d1t1* rew # d *d1t1* *D1T1* on T920(9TP): Tape receipt=XXX File=1, Block=0, Record=0, Fmt=FB(32767,80) Mode=160(C3), Bpi=1600, Bpmm=63.0, Retry=10 Statistics (Read,Write,Control): Total tape operations (CCWs): 2007,0,284 Recovered errors: 0,0,0 Fatal errors: 0,0,0 Sense=01:004A00060040 2D0000080000 003EA021E991 700E001A0000 Status: at load point, date checking. # con *d1t1* fmt u(32767) # d *d1t1* *D1T1* on T920(9TP): Tape receipt=XXX File=1, Block=0, Record=0, Fmt=U(32767,80) Mode=160(C3), Bpi=1600, Bpmm=63.0, Retry=10 Statistics (Read,Write,Control): Total tape operations (CCWs): 2007,0,284 Recovered errors: 0,0,0 Fatal errors: 0,0,0 Sense=01:004A00060040 2D0000080000 003EA021E991 700E001A0000 Status: at load point, date checking. # rer # $Run *tapecopy 0=*d1t1* 1=*out* # 00:16:36 File number Blocks In Out Read Written 1 1 24 24 2 2 4 4 3 3 1 1 4 4 2 2 5 5 11 11 6 6 7 7 7 7 4 4 8 8 5 5 9 9 15 15 10 10 1 1 11 11 3 3 12 12 16 16 13 13 14 14 14 14 4 4 15 15 17 17 16 16 7 7 17 17 13 13 18 18 74 74 19 19 4 4 20 20 5 5 21 21 4 4 22 22 1 1 23 23 2 2 24 24 1 1 25 25 1 1 26 26 5 5 27 27 1 1 28 28 1 1 29 29 1 1 30 30 1 1 31 31 2 2 32 32 5 5 33 33 13 13 34 34 1 1 35 35 1 1 36 36 8 8 37 37 3 3 38 38 1 1 39 39 1 1 40 40 2 2 41 41 2 2 42 42 8 8 43 43 5 5 44 44 2 2 45 45 2 2 46 46 4 4 47 47 12 12 48 48 5 5 49 49 5 5 50 50 7 7 51 51 2 2 52 52 1 1 53 53 2 2 54 54 4 4 55 55 2 2 56 56 1 1 57 57 7 7 58 58 102 102 59 59 123 123 60 60 6 6 61 61 9 9 62 62 16 16 63 63 1 1 64 64 3 3 65 65 2 2 66 66 27 27 67 67 10 10 68 68 1 1 69 69 2 2 70 70 4 4 71 71 1 1 72 72 8 8 73 73 5 5 74 74 1 1 75 75 2 2 76 76 1 1 77 77 11 11 78 78 9 9 79 79 1 1 80 80 2 2 81 81 1 1 82 82 3 3 83 83 4 4 84 84 6 6 85 85 1 1 86 86 2 2 87 87 1 1 88 88 1 1 89 89 10 10 90 90 2 2 91 91 1 1 92 92 1 1 93 93 1 1 94 94 2 2 95 95 2 2 96 96 3 3 97 97 3 3 98 98 2 2 99 99 5 5 100 100 2 2 101 101 1 1 102 102 4 4 103 103 4 4 104 104 2 2 105 105 4 4 106 106 5 5 107 107 2 2 108 108 2 2 109 109 8 8 110 110 2 2 111 111 3 3 112 112 12 12 113 113 3 3 114 114 3 3 115 115 5 5 116 116 1 1 117 117 4 4 118 118 3 3 119 119 1 1 120 120 13 13 121 121 1 1 122 122 5 5 123 123 3 3 124 124 6 6 125 125 18 18 126 126 1 1 127 127 12 12 128 128 10 10 129 129 2 2 130 130 2 2 131 131 13 13 132 132 2 2 133 133 2 2 134 134 2 2 135 135 10 10 136 136 3 3 137 137 1 1 138 138 2 2 139 139 4 4 140 140 2 2 141 141 2 2 142 142 5 5 143 143 3 3 144 144 2 2 145 145 7 7 146 146 3 3 147 147 4 4 148 148 53 53 149 149 10 10 150 150 1 1 151 151 2 2 152 152 34 34 153 153 34 34 154 154 1 1 155 155 17 17 156 156 1 1 157 157 1 1 158 158 8 8 159 159 4 4 160 160 4 4 161 161 2 2 162 162 1 1 163 163 9 9 164 164 2 2 165 165 2 2 166 166 3 3 167 167 16 16 168 168 24 24 169 169 14 14 170 170 5 5 171 171 9 9 172 172 6 6 173 173 9 9 174 174 7 7 175 175 4 4 176 176 2 2 177 177 10 10 178 178 1 1 179 179 1 1 180 180 18 18 181 181 4 4 182 182 1 1 183 183 19 19 184 184 6 6 185 185 2 2 186 186 2 2 187 187 1 1 188 188 3 3 189 189 1 1 190 190 1 1 191 191 3 3 192 192 2 2 193 193 1 1 194 194 2 2 195 195 2 2 196 196 4 4 197 197 27 27 198 198 1 1 199 199 1 1 200 200 1 1 201 201 1 1 202 202 6 6 203 203 2 2 204 204 6 6 205 205 20 20 206 206 1 1 207 207 3 3 208 208 3 3 209 209 1 1 210 210 3 3 211 211 15 15 212 212 1 1 213 213 2 2 214 214 12 12 215 215 3 3 216 216 3 3 217 217 2 2 218 218 3 3 219 219 8 8 220 220 1 1 221 221 4 4 222 222 1 1 223 223 1 1 224 224 2 2 225 225 2 2 226 226 10 10 227 227 2 2 228 228 3 3 229 229 393 393 230 230 20 20 231 231 1 1 232 232 25 25 233 233 42 42 234 234 28 28 235 235 274 274 236 236 2 2 237 237 17 17 238 238 1 1 239 239 85 85 240 240 98 98 241 241 30 30 242 242 1 1 243 243 29 29 244 244 246 246 245 245 14 14 246 246 76 76 247 247 16 16 248 248 4 4 249 249 7 7 250 250 8 8 251 251 6 6 252 252 37 37 253 253 57 57 254 254 14 14 255 255 114 114 256 256 89 89 257 257 63 63 258 258 65 65 259 259 33 33 # 00:19:16 T=1.903 $0.70 # con *d1t1* posn *259* # con *out* posn *259* # d *d1t1* *D1T1* on T920(9TP): Tape receipt=XXX File=259, Block=0, Record=0, Fmt=U(32767,80) Mode=160(C3), Bpi=1600, Bpmm=63.0, Retry=10 Statistics (Read,Write,Control): Total tape operations (CCWs): 5648,0,807 Recovered errors: 0,0,0 Fatal errors: 0,0,0 Sense=01:004200040040 2D0000080000 003EA021E991 700E001A0000 Status: date checking. # ed *d1t1* : p@len@ntx : There are no lines in line range given : $d *d1t1* *D1T1* on T920(9TP): Tape receipt=XXX File=259, Block=-1, Record=-1, Fmt=U(32767,80) Mode=160(C3), Bpi=1600, Bpmm=63.0, Retry=10 Statistics (Read,Write,Control): Total tape operations (CCWs): 5682,0,809 Recovered errors: 0,0,0 Fatal errors: 0,0,0 Sense=01:004200060040 2D0000080000 003EA021E991 700E001A0000 Status: date checking. : MTS # r wsg:tt(1000) # Program key has been set to default value (*EXEC). # 00:22:11 Ready: a *d1t1* TYPE=9TP , INLEN=32767, OUTLEN=32767, WIDTH=unknown Ready: c posn *259* % Warning: tape *D1T2* has not been used in the last 30 minutes. Ready: r *** Input notify. LEN=06400 DAG07 CSECT DG070001 TITLE 'GPSS/360 - OUTPUT PHASE' DG070002 BALR 14,0 DG070003 USI Ready: r LEN=06400 BAL 5,RDCARD DG070081 CLC INPUTA+7(4),=C'ORIG' IS IT ORIGIN CARD DG070082 BNE GRORDER TO GIVE MESSAGE DG070083 BAL Ready: r LEN=06400 BAL 5,ICONV CONVERT E FIELD DG070161 DC X'002B0006' DG070162 L 7,NUM NUMERIC VALUE DG070163 LTR Ready: c posn *259* Ready: a *out* TYPE=3480, INLEN=32767, OUTLEN=32767, WIDTH=unknown Ready: d *** Invalid command. Type HELP for list of commands. Ready: s *** Invalid command. Type HELP for list of commands. Ready: s TC04(3480) RACK= VOL=D1T1 , DSN= , USER= , RECPT= OWNER=UMCOMPCNTR, CREDT=01-00-00, EXPDT=01-00-00, LBLTYPE=VLO FILE=0259, BLK=00000, RCD=00000000, FMT=U (32767,32767) MODE=STR(10), BPI=38000, BPMM=1496.3, RETRY=10 SNS=01:00402000000E 182000000000 000000000000 007000000000 STATUS: LP,BLK,DTCHK,RING Ready: r *** Input notify. LEN=06400 DAG07 CSECT DG070001 TITLE 'GPSS/360 - OUTPUT PHASE' DG070002 BALR 14,0 DG070003 USI Ready: c posn *259* Ready: c fmt fb(6400,80) Ready: MTS # ed *out* : v : MTS # res Ready: c posn *259* Ready: a *d1t1* TYPE=9TP , INLEN=32767, OUTLEN=32767, WIDTH=unknown Ready: s T920(9TP ) RACK= FILE=0259, BLK=00000, RCD=00000000, FMT=U (32767,00080) MODE=160(C3), BPI= 1600, BPMM= 63.0, RETRY=10 SNS=01:004200040040 2D0000080000 003EA021E991 700E001A0000 STATUS: DTCHK Ready: c fsf Ready: r *** Input notify. *** RC=004 Ready: r *** RC=004 Ready: r *** RC=004 Ready: a *out* TYPE=3480, INLEN=00080, OUTLEN=00080, WIDTH=unknown Ready: c fsf Ready: s TC04(3480) RACK= VOL=D1T1 , DSN= , USER= , RECPT= OWNER=UMCOMPCNTR, CREDT=01-00-00, EXPDT=01-00-00, LBLTYPE=VLO FILE=0260, BLK=00000, RCD=00000000, FMT=FB (06400,00080) MODE=STR(10), BPI=38000, BPMM=1496.3, RETRY=10 SNS=01:00406000000E 3A2000000000 000000000000 007000000000 STATUS: LP,BLK,DTCHK,RING Ready: end of file # 00:24:54 T=0.052 $0.04 # c *d1t2* rew > "REW": does not exist. > Enter a new file/device name, "CANCEL", or "HELP". ? # Attn! # con *d1t2* rew # r *tapecopy 0=*d1t2* 1=*out* par=norew # 00:25:33 File number Blocks In Out Read Written 1 260 125 125 2 261 8 8 3 262 8 8 4 263 10 10 5 264 17 17 6 265 16 16 7 266 3 3 8 267 8 8 9 268 3 3 10 269 4 4 11 270 9 9 12 271 5 5 13 272 2 2 14 273 4 4 15 274 5 5 16 275 1 1 17 276 19 19 18 277 22 22 19 278 18 18 20 279 2 2 21 280 95 95 22 281 29 29 23 282 2 2 24 283 1 1 25 284 1 1 26 285 1 1 27 286 25 25 28 287 36 36 29 288 20 20 30 289 38 38 31 290 4 4 32 291 28 28 33 292 1 1 34 293 17 17 35 294 3 3 36 295 3 3 37 296 3 3 38 297 18 18 39 298 4 4 40 299 20 20 41 300 4 4 42 301 4 4 43 302 5 5 44 303 33 33 45 304 91 91 46 305 2 2 47 306 1 1 48 307 1 1 49 308 12 12 50 309 5 5 51 310 9 9 52 311 11 11 53 312 33 33 54 313 1 1 55 314 1 1 56 315 1 1 57 316 1 1 58 317 60 60 59 318 15 15 60 319 29 29 61 320 19 19 62 321 8 8 63 322 1 1 64 323 5 5 65 324 5 5 66 325 11 11 67 326 18 18 68 327 17 17 69 328 10 10 70 329 10 10 71 330 10 10 72 331 7 7 73 332 34 34 74 333 3 3 75 334 38 38 76 335 4 4 77 336 3 3 78 337 5 5 79 338 3 3 80 339 3 3 81 340 3 3 82 341 325 325 83 342 9 9 84 343 13 13 85 344 2 2 86 345 5 5 87 346 7 7 88 347 1 1 89 348 2 2 90 349 1 1 91 350 1 1 92 351 1 1 93 352 11 11 94 353 2 2 95 354 5 5 96 355 2 2 97 356 4 4 98 357 5 5 99 358 17 17 100 359 4 4 101 360 2 2 102 361 3 3 103 362 1 1 104 363 1 1 105 364 1 1 106 365 1 1 107 366 3 3 108 367 1 1 109 368 5 5 110 369 4 4 111 370 1 1 112 371 1 1 113 372 28 28 114 373 30 30 115 374 2 2 116 375 11 11 117 376 1 1 118 377 1 1 119 378 1 1 120 379 1 1 121 380 3 3 122 381 6 6 123 382 2 2 124 383 3 3 125 384 3 3 126 385 1 1 127 386 20 20 128 387 6 6 129 388 15 15 130 389 2 2 131 390 3 3 132 391 3 3 133 392 3 3 134 393 12 12 135 394 1 1 136 395 4 4 137 396 2 2 138 397 2 2 139 398 1 1 140 399 17 17 141 400 20 20 142 401 4 4 143 402 28 28 144 403 8 8 145 404 11 11 146 405 8 8 147 406 13 13 148 407 21 21 149 408 53 53 150 409 40 40 151 410 32 32 152 411 13 13 153 412 14 14 154 413 15 15 155 414 2 2 156 415 10 10 157 416 2 2 158 417 8 8 159 418 5 5 160 419 11 11 161 420 15 15 162 421 12 12 163 422 3 3 164 423 14 14 165 424 8 8 166 425 2 2 167 426 14 14 168 427 7 7 169 428 12 12 170 429 2 2 171 430 11 11 172 431 6 6 173 432 6 6 174 433 3 3 175 434 5 5 176 435 6 6 177 436 6 6 178 437 6 6 179 438 3 3 180 439 6 6 181 440 17 17 182 441 5 5 183 442 11 11 184 443 25 25 185 444 9 9 186 445 30 30 187 446 17 17 188 447 18 18 189 448 56 56 190 449 6 6 191 450 14 14 192 451 16 16 193 452 26 26 194 453 13 13 195 454 10 10 196 455 20 20 197 456 5 5 198 457 2 2 199 458 2 2 200 459 42 42 201 460 4 4 202 461 29 29 203 462 3 3 204 463 5 5 205 464 5 5 206 465 9 9 207 466 32 32 208 467 21 21 209 468 22 22 210 469 5 5 211 470 31 31 212 471 42 42 213 472 122 122 # 00:29:44 T=1.607 $0.61 # r wsg:tt(1000) # Program key has been set to default value (*EXEC). # 00:30:06 Ready: a *d1t2* TYPE=9TP , INLEN=32767, OUTLEN=32767, WIDTH=unknown Ready: s T915(9TP ) RACK= FILE=0215, BLK=00000, RCD=00000000, FMT=U (32767,32767) MODE=800(CB), BPI= 800, BPMM= 31.5, RETRY=10 SNS=01:004203000040 3400000C0000 000000C0ADE0 00FF7F000030 STATUS: BLK,DTCHK Ready: r *** Input notify. *** RC=004 Ready: r *** RC=004 Ready: r *** RC=004 Ready: end of file # 00:30:19 T=0.016 $0.01 # rer # $Run wsg:tt(1000) # Program key has been set to default value (*EXEC). # 00:30:23 Ready: a *out* TYPE=3480, INLEN=00080, OUTLEN=00080, WIDTH=unknown Ready: c posn *469* Ready: r *** Input notify. LEN=00080 EJECT Ready: s TC04(3480) RACK= VOL=D1T1 , DSN= , USER= , RECPT= OWNER=UMCOMPCNTR, CREDT=01-00-00, EXPDT=01-00-00, LBLTYPE=VLO FILE=0469, BLK=00001, RCD=00000001, FMT=FB (06400,00080) MODE=STR(10), BPI=38000, BPMM=1496.3, RETRY=10 SNS=01:004020000019 BE2000000000 000000000000 007000000000 STATUS: LP,OPEN,BLK,DTCHK,RING Ready: c posn *469* Ready: $ed *out* : v : MTS Ready: s TC04(3480) RACK= VOL=D1T1 , DSN= , USER= , RECPT= OWNER=UMCOMPCNTR, CREDT=01-00-00, EXPDT=01-00-00, LBLTYPE=VLO FILE=0469, BLK=?????, RCD=????????, FMT=FB (06400,00080) MODE=STR(10), BPI=38000, BPMM=1496.3, RETRY=10 SNS=01:004080000019 C12000000000 000000000000 007000000000 STATUS: LP,OPEN,BLK,DTCHK,RING Ready: c posn *469* Ready: s TC04(3480) RACK= VOL=D1T1 , DSN= , USER= , RECPT= OWNER=UMCOMPCNTR, CREDT=01-00-00, EXPDT=01-00-00, LBLTYPE=VLO FILE=0469, BLK=00000, RCD=00000000, FMT=FB (06400,00080) MODE=STR(10), BPI=38000, BPMM=1496.3, RETRY=10 SNS=01:004060000019 BD2000000000 000000000000 007000000000 STATUS: LP,BLK,DTCHK,RING Ready: r LEN=00080 EJECT Ready: r LEN=00080 * ********************************************************** Ready: r LEN=00080 * * * Ready: r LEN=00080 * * COMMUNICATION AREA * Ready: r LEN=00080 * * * Ready: r LEN=00080 * ********************************************************** Ready: r LEN=00080 * Ready: r LEN=00080 DS 0D Ready: r 10 LEN=00080 SAVEAREA DS 19F PRIMARY SAVE AREA LEN=00080 SAVEARE2 DS 19F SECONDARY SAVE AREA LEN=00080 SAVE DS 5F LEN=00080 ADW DS D DOUBLE-WORD-ALIGNED WORKAREA LEN=00080 MSINK DS F *MSINK* FDUB PTR LEN=00080 MSOURCE DS F *MSOURCE* FDUB PTR LEN=00080 CURSINK DS A CURRENT SINK FDUB LEN=00080 CURSRC DS A CURRENT SOURCE FDUB LEN=00080 FDUBPTR DS F FDUB POINTER TO OBJECT FILE LEN=00080 SYMBASE DS F POINTER TO BASE OF SDS SYMBOL TABLE Ready: c fsf Ready: s TC04(3480) RACK= VOL=D1T1 , DSN= , USER= , RECPT= OWNER=UMCOMPCNTR, CREDT=01-00-00, EXPDT=01-00-00, LBLTYPE=VLO FILE=0470, BLK=00000, RCD=00000000, FMT=FB (06400,00080) MODE=STR(10), BPI=38000, BPMM=1496.3, RETRY=10 SNS=01:004040000019 C32000000000 000000000000 007000000000 STATUS: LP,BLK,DTCHK,RING Ready: r LEN=00080 MAIN TITLE 'MACRO DEFINITIONS' Ready: r LEN=00080 * Ready: r LEN=00080 PRINT NOGEN Ready: r 10 LEN=00080 * LEN=00080 MACRO SUBROUTINE ENTRY LEN=00080 &L SAVE &X LEN=00080 &L STM RE,&X,12(RD) LEN=00080 LA RF,4*(&X+3)+12(RD) LEN=00080 ST RF,8(RD) LEN=00080 ST RD,4(RF) LEN=00080 LR RD,RF LEN=00080 MEND LEN=00080 * Ready: r 10 LEN=00080 MACRO SUBROUTINE EXIT LEN=00080 &L RSTOR &X LEN=00080 &L L RD,4(RD) LEN=00080 LM RE,&X,12(RD) LEN=00080 BR RE LEN=00080 MEND LEN=00080 * LEN=00080 MACRO SEIZE MAIN CORE PAGE LEN=00080 &L GTPAG LEN=00080 &L LA R0,3 Ready: c fsf Ready: r 20 LEN=00080 TITLE PDP-8 RAMP CONTROL SYSTEM (VERSION 55) LEN=00080 ************************************************************************ LEN=00080 * * LEN=00080 * PDP-8 RAMP CONTROL SYSTEM * LEN=00080 * BASIC SYSTEM NUCLEUS * LEN=00080 * SYSTEM PARAMETERS AND OPERATOR DEFINITIONS * LEN=00080 * * LEN=00080 ************************************************************************ LEN=00080 SPACE 2 LEN=00080 * ASSEMBLY PARAMETERS LEN=00080 * LEN=00080 RAMP EQU 200 ORIGIN OF RAMP LEN=00080 DCBMAX EQU 10 MAXIMUM NUMBER OF LOGICAL DEVICES LEN=00080 QUESIZ EQU 120 TASK QUE BUFFER SIZE LEN=00080 KBDSIZ EQU 110 KEYBOARD BUFFER SIZE LEN=00080 ECOSIZ EQU 44 KEYBOARD ECHO BUFFER SIZE LEN=00080 L0RSIZ EQU 400 201 RECEIVE BUFFER SIZE LEN=00080 SYNCNT EQU 10 NUMBER OF SYNCS FOR 201 XMT LEN=00080 * LEN=00080 * MISCELLANEOUS MICROINSTRUCTIONS Ready: c fsf Ready: r 20 LEN=00080 TITLE PDP-8 RAMP CONTROL SYSTEM (VERSION 54) LEN=00080 ************************************************************************ LEN=00080 * * LEN=00080 * PDP-8 RAMP CONTROL SYSTEM * LEN=00080 * SYSTEM PARAMETERS AND OPERATOR DEFINITIONS * LEN=00080 * * LEN=00080 ************************************************************************ LEN=00080 SPACE 2 LEN=00080 * ASSEMBLY PARAMETERS LEN=00080 * LEN=00080 CBA OPD 00 CORE BANK A LEN=00080 CBAL EQU 0000 LEN=00080 ORGCBA EQU 00200 ORIGIN OF CORE BANK A LEN=00080 CBB OPD 10 CORE BANK B LEN=00080 CBBL EQU 1000 LEN=00080 ORGCBB EQU 10200 ORIGIN OF CORE BANK B LEN=00080 CBC OPD 20 CORE BANK C LEN=00080 CBCL EQU 2000 LEN=00080 ORGCBC EQU 20200 ORIGIN OF CORE BANK C LEN=00080 CBD OPD 20 CORE BANK D Ready: end of file # 00:33:00 T=0.075 $0.05 # con *out* rew # rel *d1t1* *D1T1*: XXX dismounted. # rel *d1t2* "*D1T2*": explicit hold has been removed. "*D1T2*": Use "$RELEASE FDname FULL" to force release. # ed :stop # unload # unload everything # *D1T2*: XXX dismounted. # f dist:5? DIST:5.0PACK DIST:5.1BNOTES DIST:5.1BPACK DIST:5.1BT1.LIST DIST:5.1BT2.LIST DIST:5.1CNOTES DIST:5.1CPACK DIST:5.1CREVLS DIST:5.1CT1LIST DIST:5.1CT2LIST DIST:5.1DNOTES DIST:5.1DPACK DIST:5.1DPLIST DIST:5.1PACK # f dist:?5? DIST:COMM.3/15 DIST:FS5L*OA DIST:LAB.5.1BT1 DIST:LAB.5.1BT2 DIST:LAB.5.1CT1 DIST:LAB.5.1CT2 DIST:LAB.5.1DT1 DIST:LAB.5.1DT2 DIST:LAB.5.1DT3 DIST:MTS510.FILES DIST:MTS511.FILES DIST:5.0PACK DIST:5.1BNOTES DIST:5.1BPACK DIST:5.1BT1.LIST DIST:5.1BT2.LIST DIST:5.1CNOTES DIST:5.1CPACK DIST:5.1CREVLS DIST:5.1CT1LIST DIST:5.1CT2LIST DIST:5.1DNOTES DIST:5.1DPACK DIST:5.1DPLIST DIST:5.1PACK # f dist:?1? DIST:COMM.3/14 DIST:COMM.3/15 DIST:DDB.T1AT2 DIST:DEDIT>1LA DIST:DEDIT>1OA DIST:DEDIT>1SA DIST:DEDIT>1UA DIST:GROUP1BRAIN DIST:LAB.5.1BT1 DIST:LAB.5.1BT2 DIST:LAB.5.1CT1 DIST:LAB.5.1CT2 DIST:LAB.5.1DT1 DIST:LAB.5.1DT2 DIST:LAB.5.1DT3 DIST:MTS510.FILES DIST:MTS511.FILES DIST:5.1BNOTES DIST:5.1BPACK DIST:5.1BT1.LIST DIST:5.1BT2.LIST DIST:5.1CNOTES DIST:5.1CPACK DIST:5.1CREVLS DIST:5.1CT1LIST DIST:5.1CT2LIST DIST:5.1DNOTES DIST:5.1DPACK DIST:5.1DPLIST DIST:5.1PACK # f ?5line? 5LINEDWB 5LINEW041 # f 5line? catalog 5LINEDWB Type=Line, IdleDays=23, RPM=1, UseCnt=8, Owner=MTS., Create=Feb12/96, LastRef=Jun27/96, LastCatalog=Feb12/96, LastData=18:00:00 Feb12/96, Volume=MTS042, PKey=*EXEC 5LINEW041 Type=Line, IdleDays=23, RPM=1, UseCnt=8, Owner=MTS., Create=Feb12/96, LastRef=Jun27/96, LastCatalog=Feb12/96, LastData=17:55:23 Feb12/96, Volume=MTS013, PKey=*EXEC # ed 5linedwb : v : MTS # f ?5lin? 5LINEDWB 5LINEW041 # f sys:?5lin? # f mtss:?5lin? # f sysu:?5lin? # f wsg:?5lin? # f umps:?5? UMPS:IPLBOOT#50SA UMPS:IPLREAD#50SA UMPS:580CCH*OA UMPS:580CCH*SA UMPS:580CCH*UA UMPS:580CCH#SA UMPS:580MCH*OA UMPS:580MCH*SA UMPS:580MCH*UA UMPS:580MCH#SA # f mtss:?5? MTSS:CCMACRO.T5 MTSS:CCSYM*51SQ MTSS:FORUM.C00045 MTSS:MTS!5UAL MTSS:45 # f ?5? AUTOREPL.54 BPM.W15C.15 BPM.W15C.16 CRFG.T54LIST CT3.5.OUT CT3/15/LOG CT3/5/LOG D6DLIST5 D6LIST5 MTS5.0FILES MTS50B.FILES MTS511.CCIDS MTS511.UM M04050012569 M18080112569 M42110012569 SOAJUN95PREL STAT1995 TYPE54MACS TYPE54P>LQ TYPE54P>OQ TYPE54P>SQ T54BILL2 T54CCIDS T54CMDS T54PICK1 T54SAS T54SAS1 T54SIGNON T54SIGOLD 232523 232524 232525 232526 5.1DT1.LIST 5.1DT2.LIST 5.1DT3.LIST 5LINEDWB 5LINEW041 # d ccid User ID: MTS. # ed mta:ckid.access : v : $f tape:?5? TAPE:TT.5.1 TAPE:Z/DATA5*D : $f file:?5? FILE:BAD.FSTEST5 FILE:BAD.02/25/86 FILE:LIST5 : ed file:list5 : v : count /f : 0 lines : $f file:list5 FILE:LIST5 Type=Line, IdleDays=0, RPM=0, UseCnt=52, Owner=FILE, Create=May19/86, LastRef=Jul20/96, LastCatalog=May15/93, LastData=02:53:50 Nov07/94, FullAccess=U Owner, N Others, R P=W? : $f unsp:?5? UNSP:GP0005 UNSP:GP0015 UNSP:GP0025 UNSP:GP0035 UNSP:GP0045 UNSP:GP0050 UNSP:GP0051 UNSP:GP0052 UNSP:GP0053 UNSP:GP0054 UNSP:MCS650XASR UNSP:SIM25 UNSP:SIM25.W : $f *?5? *ACCOUNTING5 *C15 *IG.QUMES5 *IG.TX4025 *IG.TX4025GIN *IG.TX4105 *MACPAINT4045 *MACPAINT4045*W *MCS650XASR *MESSAGES.OLD15 *MESSAGES.OLD25 *MESSAGES.OLD5 *MESSAGES15 *MESSAGES5 *NAL5 *PAG005 *SCRIPT5 *SCRIPT5.NOMSG *SCRIPT5< *SMTPIMP_IN5 *SMTPIMP_IN5_RES *SMTPIMP_IN5> *SMTPIMPIN5_< *TMP/SD5 *1052RTN *2501RTN *522 *523T *524 : MTS # f dist:?nlin? # f dist:?lin? # f dist:?snif? # f ?lin? NLINDEX1-16 NLINDEX17-41 NLINE ON/OFFLINE TESTLINK TESTLINKSUBR 5LINEDWB 5LINEW041 # ed nline : $f nline NLINE Type=Line, IdleDays=23, RPM=0, UseCnt=57, Owner=MTS., Create=Jan11/70, LastRef=Jun27/96, LastCatalog=Jun14/93, LastData=23:59:59 Nov17/76, FullAccess=U Owner, N Others : v : MTS # cre dist1.5line Done. # r nline(1000) par=10 # 00:42:51 *** PARAMETERS, PLEASE: end of file # 00:42:57 T=0.002 $0.00 # ed : v : MTS # rer sprint=dist1.5line # $Run nline(1000) sprint=dist1.5line par=10 # 00:45:07 *** PARAMETERS, PLEASE: *out* "*out*": at line 70204, Invalid "$CONTINUE WITH" encountered. # ed dist1.5line : count /f : 3087 lines : v1 : $d *out* *OUT* on TC04(3480): Tape receipt=XXX Vol=D1T1, Lbltype=VLO, Owner=UMCOMPCNTR DSN=, Credt=01-00-00, Expdt=01-00-00 File=144, Block=2, Record=120, Fmt=FB(6400,80) Mode=STR(10), Bpi=38000, Bpmm=1496.3, Retry=10 Statistics (Read,Write,Control): Total tape operations (CCWs): 1139,6320,2038 Recovered errors: 0,0,0 Fatal errors: 0,0,0 Sense=01:004020000004 492000000000 000000000000 007000000000 Status: BLK ON, file open, LP ON, date checking, ring IN. : MTS # ed : s/r l '-' : 3066 -FILE 143; 205 RECORDS: : MTS # con *out* rew # set ic=off # set ic=on # emp dist1.5line OK? "DIST1.5LINE" ? ok # rer # $Run nline(1000) sprint=dist1.5line par=10 # 00:47:35 *** PARAMETERS, PLEASE: *out*@檯c *** PARAMETERS, PLEASE: end of file # 00:51:28 T=28.883 $10.37 # d *out* *OUT* on TC04(3480): Tape receipt=XXX Vol=D1T1, Lbltype=VLO, Owner=UMCOMPCNTR DSN=, Credt=01-00-00, Expdt=01-00-00 File=1, Block=0, Record=0, Fmt=FB(6400,80) Mode=STR(10), Bpi=38000, Bpmm=1496.3, Retry=10 Statistics (Read,Write,Control): Total tape operations (CCWs): 7933,6320,2991 Recovered errors: 0,0,0 Fatal errors: 0,0,0 Sense=01:004840000000 002000000000 000000000000 007000000000 Status: BLK ON, at load point, LP ON, date checking, ring IN. # ed dist1.5line : count/f : 10062 lines : v1 : MTS # cre dist1.log Done. # c *source*@sp dist1.log 1$Log Output: Mike Alexander, MTS., Job#=930, Host=UM, 01:30:01 Sat Jul 20/96 #mou ?xxx 9tp *in* vol=d1t1 uam=off ? #ATTN! #*IN* (XXX): Aborted. #mou ?xxx cart *in* vol=d1t1 uam=off #"CART" is an invalid device type. #Enter new mount request: ?xxx 3480 *in* vol=d1t1 uam=off ?xxx 3480 *out* uam=off 'dist 1' #Operator wait to mount *IN* interrupted. #Do you wish to continue waiting? ?no #*IN* (XXX): Aborted. #*OUT* (XXX): Aborted. #mou ?xxx cart *in* vol=d1t1 uam=off #"CART" is an invalid device type. #Enter new mount request: ?xxx 3480 *out* uam=off ring=in 'dist 1' #Operator wait to mount *OUT* interrupted. #Do you wish to continue waiting? ?no #*OUT* (XXX): Aborted. #mou ?xxx 3480 *in* vol=d1t1 uam=off ?xxx 3480 *out* uam=off ring=in 'dist 1' #*IN* (XXX): Mounted on TC04 #*OUT* (XXX): Mounted on TC05 #r *tapecopy 0=*in* 1=*out* #01:33:13 0 File number Blocks In Out Read Written #01:33:16 T=0.005 $0.00 #con *in* lbltype=vlo #rer #$Run *tapecopy 0=*in* 1=*out* #01:33:31 0 File number Blocks In Out Read Written 1 1 24 24 2 2 4 4 3 3 1 1 4 4 2 2 5 5 11 11 6 6 7 7 7 7 4 4 8 8 5 5 9 9 15 15 10 10 1 1 11 11 3 3 12 12 16 16 13 13 14 14 14 14 4 4 15 15 17 17 16 16 7 7 17 17 13 13 18 18 74 74 19 19 4 4 20 20 5 5 21 21 4 4 22 22 1 1 23 23 2 2 24 24 1 1 25 25 1 1 26 26 5 5 27 27 1 1 28 28 1 1 29 29 1 1 30 30 1 1 31 31 2 2 32 32 5 5 33 33 13 13 34 34 1 1 35 35 1 1 36 36 8 8 37 37 3 3 38 38 1 1 39 39 1 1 40 40 2 2 41 41 2 2 42 42 8 8 43 43 5 5 44 44 2 2 45 45 2 2 46 46 4 4 47 47 12 12 48 48 5 5 49 49 5 5 50 50 7 7 51 51 2 2 52 52 1 1 53 53 2 2 54 54 4 4 55 55 2 2 56 56 1 1 57 57 7 7 58 58 102 102 59 59 123 123 60 60 6 6 61 61 9 9 62 62 16 16 63 63 1 1 64 64 3 3 65 65 2 2 66 66 27 27 67 67 10 10 68 68 1 1 69 69 2 2 70 70 4 4 71 71 1 1 72 72 8 8 73 73 5 5 74 74 1 1 75 75 2 2 76 76 1 1 77 77 11 11 78 78 9 9 79 79 1 1 80 80 2 2 81 81 1 1 82 82 3 3 83 83 4 4 84 84 6 6 85 85 1 1 86 86 2 2 87 87 1 1 88 88 1 1 89 89 10 10 90 90 2 2 91 91 1 1 92 92 1 1 93 93 1 1 94 94 2 2 95 95 2 2 96 96 3 3 97 97 3 3 98 98 2 2 99 99 5 5 100 100 2 2 101 101 1 1 102 102 4 4 103 103 4 4 104 104 2 2 105 105 4 4 106 106 5 5 107 107 2 2 108 108 2 2 109 109 8 8 110 110 2 2 111 111 3 3 112 112 12 12 113 113 3 3 114 114 3 3 115 115 5 5 116 116 1 1 117 117 4 4 118 118 3 3 119 119 1 1 120 120 13 13 121 121 1 1 122 122 5 5 123 123 3 3 124 124 6 6 125 125 18 18 126 126 1 1 127 127 12 12 128 128 10 10 129 129 2 2 130 130 2 2 131 131 13 13 132 132 2 2 133 133 2 2 134 134 2 2 135 135 10 10 136 136 3 3 137 137 1 1 138 138 2 2 139 139 4 4 140 140 2 2 141 141 2 2 142 142 5 5 143 143 3 3 144 144 2 2 145 145 7 7 146 146 3 3 147 147 4 4 148 148 53 53 149 149 10 10 150 150 1 1 151 151 2 2 152 152 34 34 153 153 34 34 154 154 1 1 155 155 17 17 156 156 1 1 157 157 1 1 158 158 8 8 159 159 4 4 160 160 4 4 161 161 2 2 162 162 1 1 163 163 9 9 164 164 2 2 165 165 2 2 166 166 3 3 167 167 16 16 168 168 24 24 169 169 14 14 170 170 5 5 171 171 9 9 172 172 6 6 173 173 9 9 174 174 7 7 175 175 4 4 176 176 2 2 177 177 10 10 178 178 1 1 179 179 1 1 180 180 18 18 181 181 4 4 182 182 1 1 183 183 19 19 184 184 6 6 185 185 2 2 186 186 2 2 187 187 1 1 188 188 3 3 189 189 1 1 190 190 1 1 191 191 3 3 192 192 2 2 193 193 1 1 194 194 2 2 195 195 2 2 196 196 4 4 197 197 27 27 198 198 1 1 199 199 1 1 200 200 1 1 201 201 1 1 202 202 6 6 203 203 2 2 204 204 6 6 205 205 20 20 206 206 1 1 207 207 3 3 208 208 3 3 209 209 1 1 210 210 3 3 211 211 15 15 212 212 1 1 213 213 2 2 214 214 12 12 215 215 3 3 216 216 3 3 217 217 2 2 218 218 3 3 219 219 8 8 220 220 1 1 221 221 4 4 222 222 1 1 223 223 1 1 224 224 2 2 225 225 2 2 226 226 10 10 227 227 2 2 228 228 3 3 229 229 393 393 230 230 20 20 231 231 1 1 232 232 25 25 233 233 42 42 234 234 28 28 235 235 274 274 236 236 2 2 237 237 17 17 238 238 1 1 239 239 85 85 240 240 98 98 241 241 30 30 242 242 1 1 243 243 29 29 244 244 246 246 245 245 14 14 246 246 76 76 247 247 16 16 248 248 4 4 249 249 7 7 250 250 8 8 251 251 6 6 252 252 37 37 253 253 57 57 254 254 14 14 255 255 114 114 256 256 89 89 257 257 63 63 258 258 65 65 259 259 33 33 260 260 125 125 261 261 8 8 262 262 8 8 263 263 10 10 264 264 17 17 265 265 16 16 266 266 3 3 267 267 8 8 268 268 3 3 269 269 4 4 270 270 9 9 271 271 5 5 272 272 2 2 273 273 4 4 274 274 5 5 275 275 1 1 276 276 19 19 277 277 22 22 278 278 18 18 279 279 2 2 280 280 95 95 281 281 29 29 282 282 2 2 283 283 1 1 284 284 1 1 285 285 1 1 286 286 25 25 287 287 36 36 288 288 20 20 289 289 38 38 290 290 4 4 291 291 28 28 292 292 1 1 293 293 17 17 294 294 3 3 295 295 3 3 296 296 3 3 297 297 18 18 298 298 4 4 299 299 20 20 300 300 4 4 301 301 4 4 302 302 5 5 303 303 33 33 304 304 91 91 305 305 2 2 306 306 1 1 307 307 1 1 308 308 12 12 309 309 5 5 310 310 9 9 311 311 11 11 312 312 33 33 313 313 1 1 314 314 1 1 315 315 1 1 316 316 1 1 317 317 60 60 318 318 15 15 319 319 29 29 320 320 19 19 321 321 8 8 322 322 1 1 323 323 5 5 324 324 5 5 325 325 11 11 326 326 18 18 327 327 17 17 328 328 10 10 329 329 10 10 330 330 10 10 331 331 7 7 332 332 34 34 333 333 3 3 334 334 38 38 335 335 4 4 336 336 3 3 337 337 5 5 338 338 3 3 339 339 3 3 340 340 3 3 341 341 325 325 342 342 9 9 343 343 13 13 344 344 2 2 345 345 5 5 346 346 7 7 347 347 1 1 348 348 2 2 349 349 1 1 350 350 1 1 351 351 1 1 352 352 11 11 353 353 2 2 354 354 5 5 355 355 2 2 356 356 4 4 357 357 5 5 358 358 17 17 359 359 4 4 360 360 2 2 361 361 3 3 362 362 1 1 363 363 1 1 364 364 1 1 365 365 1 1 366 366 3 3 367 367 1 1 368 368 5 5 369 369 4 4 370 370 1 1 371 371 1 1 372 372 28 28 373 373 30 30 374 374 2 2 375 375 11 11 376 376 1 1 377 377 1 1 378 378 1 1 379 379 1 1 380 380 3 3 381 381 6 6 382 382 2 2 383 383 3 3 384 384 3 3 385 385 1 1 386 386 20 20 387 387 6 6 388 388 15 15 389 389 2 2 390 390 3 3 391 391 3 3 392 392 3 3 393 393 12 12 394 394 1 1 395 395 4 4 396 396 2 2 397 397 2 2 398 398 1 1 399 399 17 17 400 400 20 20 401 401 4 4 402 402 28 28 403 403 8 8 404 404 11 11 405 405 8 8 406 406 13 13 407 407 21 21 408 408 53 53 409 409 40 40 410 410 32 32 411 411 13 13 412 412 14 14 413 413 15 15 414 414 2 2 415 415 10 10 416 416 2 2 417 417 8 8 418 418 5 5 419 419 11 11 420 420 15 15 421 421 12 12 422 422 3 3 423 423 14 14 424 424 8 8 425 425 2 2 426 426 14 14 427 427 7 7 428 428 12 12 429 429 2 2 430 430 11 11 431 431 6 6 432 432 6 6 433 433 3 3 434 434 5 5 435 435 6 6 436 436 6 6 437 437 6 6 438 438 3 3 439 439 6 6 440 440 17 17 441 441 5 5 442 442 11 11 443 443 25 25 444 444 9 9 445 445 30 30 446 446 17 17 447 447 18 18 448 448 56 56 449 449 6 6 450 450 14 14 451 451 16 16 452 452 26 26 453 453 13 13 454 454 10 10 455 455 20 20 456 456 5 5 457 457 2 2 458 458 2 2 459 459 42 42 460 460 4 4 461 461 29 29 462 462 3 3 463 463 5 5 464 464 5 5 465 465 9 9 466 466 32 32 467 467 21 21 468 468 22 22 469 469 5 5 470 470 31 31 471 471 42 42 472 472 122 122 #01:36:16 T=3.473 $1.27 #ed dist1.5line :s/r l '-' : 10041 -FILE 472; 9747 RECORDS: :ed nline :v :v :MTS #r *labelsniff sprint=-sniff par=*out* #01:38:22 #01:39:45 T=2.127 $0.77 #ed -sniff :v :$calc 6400/80 =80 :ed dist1.nline :File does not exist :ed dist1.5line :v :MTS #d *out* *OUT* on TC05(3480): Tape receipt=XXX File=1, Block=0, Record=0, Fmt=U(32767,32767) Mode=STR(10), Bpi=38000, Bpmm=1496.3, Retry=10 Statistics (Read,Write,Control): Total tape operations (CCWs): 6793,6319,2406 Recovered errors: 0,0,0 Fatal errors: 0,0,0 Sense=01:004840000000 002000000000 000000000000 007000000000 Status: BLK ON, at load point, date checking, ring IN. #con *out fmt fb(6400,80) #CONTROL command aborted -- Error 0004: #"*OUT": does not exist. #con *out* rew #con *out* fmt fb(6400,80) #emp dist1.5line OK? "DIST1.5LINE" ?ok #r nline(1000) sprint=dist1.5line par=10 *out*檯c #01:45:11 0 #### QSAM ERROR: *OUT*點C CANNOT BE REWOUND "*OUT*點C": does not exist. Enter a new file/device name, "CANCEL", or "HELP". ? #Attn! #con *out* rew #r nline(1000) sprint=dist1.5line par=10 *out*@檯c #01:45:53 0 #### QSAM ERROR: *OUT*@點C RETURN CODE GREATER THAN 4 FROM READ IN GET. #### Blocking error on "*OUT*@點C" #01:45:54 RC=8 T=0.003 $0.00 #d *out* *OUT* on TC05(3480): Tape receipt=XXX File=1, Block=1, Record=0, Fmt=FB(4000,80) Mode=STR(10), Bpi=38000, Bpmm=1496.3, Retry=10 Statistics (Read,Write,Control): Total tape operations (CCWs): 6794,6319,2414 Recovered errors: 0,0,0 Fatal errors: 0,0,0 Sense=01:004060000000 012000000000 000000000000 007000000000 Status: BLK ON, date checking, ring IN. #con *out* rew #con *out* fmt fb(6400,80) #d *out* *OUT* on TC05(3480): Tape receipt=XXX File=1, Block=0, Record=0, Fmt=FB(6400,80) Mode=STR(10), Bpi=38000, Bpmm=1496.3, Retry=10 Statistics (Read,Write,Control): Total tape operations (CCWs): 6794,6319,2417 Recovered errors: 0,0,0 Fatal errors: 0,0,0 Sense=01:004820000000 002000000000 000000000000 007000000000 Status: BLK ON, at load point, date checking, ring IN. #r nline(1000) sprint=dist1.5line par=10 *out*@檯c #01:46:55 0 #### QSAM ERROR: *OUT*@點C RETURN CODE GREATER THAN 4 FROM READ IN GET. #### Blocking error on "*OUT*@點C" #01:46:56 RC=8 T=0.003 $0.00 #d *out* *OUT* on TC05(3480): Tape receipt=XXX File=1, Block=1, Record=0, Fmt=FB(4000,80) Mode=STR(10), Bpi=38000, Bpmm=1496.3, Retry=10 Statistics (Read,Write,Control): Total tape operations (CCWs): 6795,6319,2423 Recovered errors: 0,0,0 Fatal errors: 0,0,0 Sense=01:004080000000 012000000000 000000000000 007000000000 Status: BLK ON, date checking, ring IN. #con *out* rew #con *out* fmt u(32767) #r nline(1000) sprint=dist1.5line par=10 *out*@檯c #01:47:53 0 #### QSAM ERROR: *OUT*@點C RETURN CODE GREATER THAN 4 FROM READ IN GET. #### Blocking error on "*OUT*@點C" #01:47:54 RC=8 T=0.003 $0.00 #d *out* *OUT* on TC05(3480): Tape receipt=XXX File=1, Block=1, Record=0, Fmt=FB(4000,80) Mode=STR(10), Bpi=38000, Bpmm=1496.3, Retry=10 Statistics (Read,Write,Control): Total tape operations (CCWs): 6796,6319,2430 Recovered errors: 0,0,0 Fatal errors: 0,0,0 Sense=01:004040000000 012000000000 000000000000 007000000000 Status: BLK ON, date checking, ring IN. #d log 0 Logging *MSINK* on DIST1.LOG(*L+1) 53 lines read 563 lines written #ed dist1.log :v % Warning: tape *IN* has not been used in the last 15 minutes. :ed nline :v :MTS #peek *find qopen Symbol QOPEN was not found in any LCS or LCSPR table. *$ed :v :MTS *deb nline(1000) Invalid PEEK command. *MTS #deb nline(1000) +map + Name Type Length Address Reloc SI# +NLINE CS 0016DC 00901000 901000 80 +$d map ENTRY = 00901000 Size = 000032A0 Pre-Defined Symbols Name SI# Value Name SI# Value Name SI# Value CLPLCS 80 00149F00 REWIND# 80 001F28C0 LCSYMBOL 80 001F86B8 80 00379ED8 80 004300B8 00 006A4000 ERROR 80 801D6256 GDINFO 80 801DE510 GETFD 80 801DFAEC FREEFD 80 801DFE4E GUSER 80 802096D0 READ 80 80209830 SERCOM 80 802098E0 SPRINT 80 80209938 WRITE 80 802099E8 CONTROL 80 8020C7B2 GETSPACE 80 80211DE6 FREESPAC 80 80212AE0 Section Definitions Name SI# Value Reloc Length Fl T QSAMP 80 00900348 8FE8F8 000170 00 L NLINE 80 00901000 901000 0016E0 00 QSAM 80 00905000 905000 001A50 00 L QGETUCB 80 00905000 E QOPEN 80 00905018 E QCLOSE 80 00905030 E QGET 80 00905048 E QCNTRL 80 00905078 E +d 905018@t=i...+18 +905018@t=i...+18 +QSAM+18 I: STM R14,R12,X'C'(R13) +QSAM+1C I: LR R10,R15 +QSAM+1E I: LA R15,X'18'(,R0) +QSAM+22 I: SR R10,R15 +QSAM+24 I: L R15,X'2C'(,R10) +QSAM+28 I: B X'A8'(,R10) +QSAM+2C I: DC X'0090' Invalid instr +QSAM+2E I: DC X'535E' Invalid instr +QSAM+30 I: STM R14,R12,X'C'(R13) +d 9050a8@t=i...+80 +9050a8@t=i...+80 +QSAM+A8 I: LA R11,X'FFF'(,R10) +QSAM+AC I: LA R11,X'1'(,R11) +QSAM+B0 I: L R12,X'9F8'(,R11) +QSAM+B4 I: LA R9,0(,R12) +QSAM+B8 I: ST R9,X'8'(,R13) +QSAM+BC I: ST R13,X'4'(,R9) +QSAM+C0 I: LR R13,R9 +QSAM+C2 I: BR R15 +QSAM+C4 I: LR R8,R1 +QSAM+C6 I: L R2,0(,R8) +QSAM+CA I: LR R3,R2 +QSAM+CC I: SR R4,R4 +QSAM+CE I: CLI 0(R2),0 +QSAM+D2 I: BNE X'DE'(,R10) +QSAM+D6 I: LA R3,X'4'(,R2) +QSAM+DA I: B X'112'(,R10) +QSAM+DE I: CLI 0(R3),X'40' +QSAM+E2 I: BEQ X'112'(,R10) +QSAM+E6 I: CLI 0(R3),X'6B' +QSAM+EA I: BNE X'F4'(,R10) +QSAM+EE I: LTR R4,R4 +QSAM+F0 I: BEQ X'112'(,R10) +QSAM+F4 I: CLI 0(R3),X'4D' +QSAM+F8 I: BNE X'100'(,R10) +QSAM+FC I: LA R4,X'1'(,R4) +QSAM+100 I: CLI 0(R3),X'5D' +QSAM+104 I: BNE X'10A'(,R10) +QSAM+108 I: BCTR R4,R0 +QSAM+10A I: LA R3,X'1'(,R3) +QSAM+10E I: B X'DE'(,R10) +QSAM+112 I: SLR R3,R2 +QSAM+114 I: LA R1,X'3'(,R3) +QSAM+118 I: LA R0,X'1'(,R0) +QSAM+11C I: B X'124'(,R10) +QSAM+120 I: DC X'8021' Invalid instr +QSAM+122 I: DR R14,R6 +QSAM+124 I: L R15,X'120'(,R10) +QSAM+128 I: BALR R14,R15 +d 90535e@t=i...+80 +90535e@t=i...+80 +QSAM+35E I: LR R8,R1 +QSAM+360 I: L R2,0(,R8) +QSAM+364 I: L R9,0(,R2) +QSAM+368 I: TM X'10'(R9),X'C' +QSAM+36C I: BO X'400'(,R10) +QSAM+370 I: MVC X'88'(18,R12),X'A28'(R11) +QSAM+376 I: BAL R1,X'95E'(,R11) +QSAM+37A I: LA R15,X'41'(,R15) +QSAM+37E I: STH R15,X'7C'(,R12) +QSAM+382 I: C R15,X'9FC'(,R11) +QSAM+386 I: BNH X'39E'(,R10) +QSAM+38A I: L R15,X'A00'(,R11) +QSAM+38E I: BALR R14,R15 +QSAM+390 I: L R13,X'4'(,R13) +QSAM+394 I: LM R14,R12,X'C'(R13) +QSAM+398 I: LA R15,X'4'(,R0) +QSAM+39C I: BR R14 +QSAM+39E I: MVC 0(46,R14),X'3C4'(R10) +QSAM+3A4 I: L R15,X'A04'(,R11) +QSAM+3A8 I: BAL R1,X'3B8'(,R10) +QSAM+3AC I: DC X'0090' Invalid instr +QSAM+3AE I: DC X'03D0' Invalid instr +QSAM+3B0 I: DC X'0090' Invalid instr +QSAM+3B2 I: DC X'03C4' Invalid instr +QSAM+3B4 I: DC X'0000' Invalid instr +QSAM+3B6 I: DC X'0000' Invalid instr +QSAM+3B8 I: BALR R14,R15 +QSAM+3BA I: B X'3F2'(,R10) +QSAM+3BE I: MVC X'9A'(1,R12),X'2'(R14) +QSAM+3C4 I: DC X'C8C1' Invalid instr +QSAM+3C6 I: DC X'E240' Invalid instr +QSAM+3C8 I: CLC X'340'(215,R14),X'2C5'(R12) +QSAM+3CE I: DC X'C5D5' Invalid instr +QSAM+3D0 I: STH R14,X'4C3'(R2,R14) +QSAM+3D4 I: DC X'C3C5' Invalid instr +QSAM+3D6 I: DC X'E2E2' Invalid instr +QSAM+3D8 I: DC X'C6E4' Invalid instr +QSAM+3DA I: MVZ X'840'(212,R14),X'1C3'(R12) +MTS #d runs Previous run commands: $Run nline(1000) sprint=d1mod1.5line par=10 *out*@檯c $Run *tapecopy 0=*in* 1=*out* $Run *labelsniff sprint=-sniff par=*out* $Run nline(1000) sprint=dist1.5line par=10 *out*檯c $Run nline(1000) sprint=dist1.5line par=10 *out*@檯c #emp dist1.5line OK? "DIST1.5LINE" ?ok #$Run nline(1000) sprint=dist1.5line par=10 *out*@檯c #02:05:58 #02:07:33 T=28.7 $10.28 #ed dist1.5line :v *l :MTS #log off