IMD 1.16: 2/09/2008 18:23:20 84-93659-01-e400 os4 dumpobj    @0|)wwЀЀtQql)  " }gA ` MIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIOS4 ME480092512011600800929040409 800929040409,F65901 VOLOS4 DUMPOBJ (84-93659-01-E400)   IIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIII M@jjggg@ o G`k_C# b# }B u[ ]e JRiCCp@<;: F8P@ G;NPCHC C GTqE'ɞ * Cϟx @0DAJL )‘ЀЀΎQBx"  i+ fEB)3 `jmBBI,v  BI,m  @EEFF)D^EF% jH@pOğv g7g4]X] PhV+s=胾c_N GF֞ؾ “@ALS)"$ C k1/j-h p vRw ppwp ki 15 !^\d X %'+Ns愾Q)s ED|{ @$ o O m J K i g. V tsFn`"FED) E`Cnrgy w"N{Rq1H }L2`0tG- Bc (>=Z 4UN6DI8OL:TV= AW5o (40A2)(A1,2X,Z4,3X,8(2X,Z4),4X,16A1)(' OPEN ERROR, STATUS =',I6)$ ('1 FILE NAME = ',40A2//)1(16A1) Kg(FOXLhMUiTsv¡~ž`_ . bdmQtuy %g'@A 42 OPENAGĂ HwIJKLM!I QAGĂ  H AGĂ  H  EKHw̠wE6CI AGĂ H  AGĂ H  E# E6 wI ,II IIIII@MNC@AG SNLƀFMFLy I IIIIIINI  E6IwFfN@ADFPE6A H+ H+DxPNP # @ALF# F# A` # READ EXTERNAL UNFORMATTED READ INTERNAL UNFORMATTED WRITE EXTERNAL UNFORMATTEDWRITE INTERNAL UNFORMATTEDXAGĂ  H AGĂ  H  K1C,KEo bQTaRE67/ I AĒG;Ă H  AĒG=Ă H EoI I EEJC7E@6F@EiI +I)I)I )I)I)I)NI)@MNOƀFMFLy I I)I)I)I)I[I)NOI @ALF# F# A` # Z[\N*2 E6GJР` ,`k ,J ,z`^ I# ^` k# ^d ^k# }(WX@QC*WyW !m# 3oJol# ^__^# ^ab`# ^`Ea^B ^# ^d ^# QRQ# @ dQ@uj%'# # @ dQHuj@%'# {:VV# `JQ ^# h,d# w$Q# _RdE6K6IRWQ+W|# E/6w  K # ) *3=# 6  # GGGΞGGמGGYHX'T/AZILFEGD)(P-*$,"yd !READ INTERNAL FORMATTED WRITE INTERNAL FORMATTEDREAD EXTERNAL FORMATTED WRITE EXTERNAL FORMATTEDATTEMPT TO WRITE LONG RECORDILLEGAL INTEGER IN FORMAT ILLEGAL REPEAT COUNT IN FORMAT%UNMATCHED RIGHT PARENTHESES IN FORMAT %TOO MANY NESTED PARENTHESES IN FORMAT ILLEGAL CHARACTER IN FORMAT HOLLERITH INPU#T   XO E6 Y  X 0 кAYGYr 0 , b YJBXG`YM YCXY` ^T 0 S9XC - ^ aŸ   O E6 XY , T FuY ,Ϟy` ^)TY)F   E6bW , 0 ЄS   I SÀS\\WgN#S*Ӆ2< NWb^^  0Ww YX1AF SYG%YQIS# G'Y , YZ[\# Y /1TYZ/1YZ[/1Z[\/1[\T# INPUT OVERFLOWNUMERIC/LOGICAL  E6ǀO ԟ,O  cDb bE| N E@ @E'G=  X  '=G  pc^b bcDpc Xp p( ` `b bDc   XE6ҀO   I I'9ă E || Np)E6`} N(ep   E6ME6F} ZO  I I'9ăE }eE B O  HFYZO ̀[\GNOY@[NGZ OL v@RgSXQdGQᎴ'@AT'JSCITTIJN0C /TR3XQS@ @I GG` X' Q'@ FO) O # GYe Y1Cpepe(  EE@6 DpÄp - p 'p 0p 0  SA VU`cVUX1A ^aX1C -S  S S:USc W .SFS 0  Wt # Y/.IY 0 : &mv TF )1f*ٞ| T\[./I\/Z/Y[/Y/iZ TaTXYG)` XYZ[\#  ZY ppe  E}E)XpvYAXZ[m\{O  ) ) vGG @IG*( Y@ ZNN[\/A. \/I[/. [/YZ/. Z/iY/i. . Y v p# E6(W'SvD vX SW{ 0H NSDS SW{# cq Yg'GA pqpY Z[\ vp3D ! zv U v U|'A qp# P ]  vYT   sF .+ (l Wv W{# 0r   Xspk .c trppk ,k ,  v [ BB|# H%'H# J%'JC# )6  #  ERROR AT : LINE  CALLED FROM : IN SL  @B` {C#` yNzO$ ` O+Nq M#  逆 LCKށCB0ЁCB9ǁCB0@#  A L} @GĄCJB6JCn}GQٞQCB[XĄˁCB6 !IФL  KK@# IͤL }ĄK! LR$TCJLRB6LH@KKĄB0@# LR$TLJ KCn}̄QA  @# EŸrDED  EHEGE   FBF LI 'J+R` yz+KS@# @  J G G'r@-ć# @Ĉ\J G G't@,ć# I).JI*.@@KQL@<ć@#  @6   @6   @o6 @<@?6 @_6À?6I 6 # v  l IЂG' G!AKĈ@ć HĀ# Q G 6ˀKŀ< K#  G 0K# G 3K# /6-l I I# @/6Ÿl # /6 ,t# zyGIHSDIIH@QM+GuHLI ERG$T# IG'  GLG& Ў+G{L/6lG&G' = # K>K# @SBBI# ` A# L 1BL@M@Lć# WIWIWIWIÝQYΘQքPL1AQ1AQ1CRLRP# SLOCGGQ GWI WIWII'I!I#I I"I0I1U@O6BUVY?  sU@ DJQB # LG IG' +G{LL # /*DEOLNEDICOUN ?".%%%%%%%%%%%%%%.Ku4.%./%%%%fG i Dx C  @# OC CX>` yz+KS@# @  J G G'r@-ć# @G+s # } ƣ| 6VKԀCC C :!߫m ^] | G ǟǟ:s:{  # |(Bywz ã # } B90.r# [1# {VQB: ɣS:# ,2-0. *,INYSs ˃ׇӢnn ÃlBˇ# h"y) MQ B T QQ˾",O ,R,V܃?: ) ,d4 Т11̃ .k%% #  y2pTOOMT1/) r}@ I%C B'`(d%C @'` ^Koe `kA NYX- ƃD # % {#  ~|{IC @`@@+kc #  ~ƊK  1ģ+ icqp  C @ @…Ā+c # MTEX (E400) J NAME .EXT LENGTH  DATE TIME EXTENTS AU'S F# 2NDX NAMSJ NAME .EXT NAME .EXT NAME .EXT NAME .EXT <1PAGE  VIEW (E400) UNIT= VOLUME= N 19YY/MM/DD HH:MM:SS CREATED 19YY/MM/DD HH:MM:SS DIRECTORY=   TITLE=  LU DEVICE FNO  TOTAL AU'S =  TOTAL FILES=  AU'S FREE =  AU'S USED =  AU  YY/MM/DD HH:MM:SS /JOB (FILE IS OVERWRITTEN) > FILE ALREADY EXISTS. OVERWRITES IT?(Y OR N)  VERIFY SUCCESS VERIFY IS PROGRESSING , END OF MEDIA, MOUNT NEXT VOLUME?(Y OR N)  END OF MEDIA  FILES DO NOT MATCH SYNTAX ERROR INVALID COMMAND  DIRECTORY NOT FOUND  INVALID UNIT NAME  INVALID OPTION INVALID DECIMAL NUMBER UNIT NOT FOUND INVALID FILE NAME & FILE ALREADY EXISTS FILE NOT FOUND ON  " NEITHER UNIT OR VOLUME SPECIFIED CLOSING  VOLUME NOT GIVEN( CORRECT VOLUME NAME IS  PARAMETERS IGNORED & FILE IS SYSTEM FILE BAD AU  UNITS NOT SAME TYPE INVALID DATE  INVALID TIME   SYSTEM LOGICAL UNIT  NOT LABELED  UNITS DO NOT MATCH  JCL STACK FULL 8 FILES DO NOT MATCH AT RECORD  WORD 2 FILE DOES NOT EXIST, CREATE IT?  FILE IS NOT DELETED* NOT ENOUGH MEMORY FOR MAG. TAPE BUFFERR  FILE IS BAD 4 UNIMPLIMENTED COMMAND. USE MAG TAPE EXEC (MTEX::) j#FILE FBLOCK B0123456789ABCDEF d)Z1Z1PZ3OCOC OC CX> CRX> H!냺êJSQôƃA «+ §:  n7 7p60jO38W5S50*878Ne00-0'j` ^Y V TI) D M +ރq ϠلD Ճ 4yϢ1.  I  I KD  + L " !§K ;iy7257) 7P5 5F1); V19/9O9 E , # J:'s;0pD:em7,B y M0)xע$PH I ſ: `۟]K QR91ܧ܃܇ Y yK͞KB+ >:f9KõII%IQZìǻ¾ǸI%ǹIǶI9 Y y×ǦI%Ǧ+IǠǚI%ǚI38072VOL15099968999 b3^ P[ET P 1:# K:'# H:e# E;# 7677 3-܃ (փ  ps,' 1Xxvn' (emk``QÂ܃VAƃ)Iև ԢIӄEЂC˞zȟ D  01 ¥,Ƕ8  D 228788?2 2 j 5S577 428 8A UU SSנOdHLaJ8 IτG:>S<8<߿߻4 )) ''#8 58 # :'u:er;o;k;0h:ne;b 26p1P5s?B7 LJLJݢeՃQT9c% K k#  # ̢@AǏߌ|# .:'# 73,OMTj385S59y9z68677eeeݢeej@b__]RЃZ N@AVF D AMv# FHDG? <=9܃64I G K@A0> D (w# ;# ;# ;# 7527tj%R@AǸ IC ߯y# ]ߨžwV# Q;# N:'# K; GF# ˢ: # 8:e# 75+MTvtrǯìm # # yI SI DIǖ)I) I # ;# 7:s)A₩  jƢa# Aߔߖg# {7575 6J' R17643 333b0.FSQBYv" B מ   ƀ I @ C2Ć # # # ʣSQt +IÛ Q_:X44CK666A6V7B)K B@I+_]Z TT+RT # @σHSQu{7s7XDJQK qp ˞҇ :bB OSRߵF :99; 4{=;J:{ 3ߗ1#  ߋIǖǖ#  2776 7656J66C C @c `:#ZN J۠݀@+kUc I# ΂҇ уHIςχ `Iþ>;Oc ć ::'yH RI CI rI cI# #  ˢF #  # ;0# VOL166AB;^7;a7585:6'ǻBFჵL±Kǯǫ+ +ã QCўfC a # E;0@: # 8â6# #  5767D D߾ўz DhIqaBB] # f D  # ߟ# D 5# Dmʞz ;Ǟq77 # # 666A76 tD # # Y N y n nu# #  Y y # P : # P:# 667995996:: y# ́G# 者xrāo #ԃI:Nע ʃՇʃ_ I ?:#@'="abcdefghi jklmnopqr~stuvwxyz{ABCDEFGHI}JKLMNOPQR\STUVWXYZ0123456789* 19YY/MM/DD HH:MM:SS ANSI STD. LEVEL = 3 B NO NAME .EXT TY* BLK RCD AC CREATION EXPIRED BLOCK B -PE SIZE SIZE DATE DATE COUNT  BLOCK  TAPE MARK0 END OF TAPE, CONTINUE TO NEXT VOLUME(Y OR N)? DEVICE READY('Y' MEANS READY)? > *TYPE D=VARIABLE LENGTH, F=FIXED LENGTH, S=SPANNED RECORD& AC(ACCESSIBILITY CODE) D=DELETED* KILL DELETES ALL FILES PAST THIS POINT 6 ARE YOU SURE YOU WANT TO DO THIS (TYPE 'K'TO KILL)?. +MEANS THIS IS A PART OF MULTI-VOLUME FILE  OLD VOLUME NAME IS -- & OVERWRITE OLD VOLUME NAME (Y OR N)? & OLD OWNER I.D. IS -- $ OVERWRITE OLD OWNER I.D. (Y OR N)?, IS THIS INITIALIZATION OR RENAME (I OR R)? UNIT IS NOT LABELED  LABEL IS PROGRESSING SYNTAX ERROR INVALID COMMAND  DIRECTORY NOT FOUND  INVALID UNIT NAME  INVALID MODE INVALID DECIMAL NUMBER UNIT NOT FOUND INVALID FILE NAME & FILE ALREADY EXISTS FILE NOT FOUND ON " NEITHER UNIT OR VOLUME SPECIFIED CLOSING  VOLUME NOT GIVEN( CORRECT VOLUME NAME IS  PARAMETERS IGNORED & FILE IS SYSTEM FILE BAD AU  UNITS NOT SAME TYPE INVALID DATE  INVALID TIME  SYSTEM LOGICAL UNIT  NOT LABELED  UNITS DO NOT MATCH  JCL STACK FULL & COPY VERIFY ERROR AT BLOCK 2 FILE DOES NOT EXIST, CREATE IT?  FILE IS NOT DELETED* NOT ENOUGH MEMORY FOR MAG. TAPE BUFFERR ( INVALID VOLUME. NEED BLANK LABELED TAPE END OF MEDIA  TAPE MARK FOUND ON DEVICE FILE IS BAD  FILES DO NOT MATCH OCCURANCE OPTION IGNORED HARDWARE ERROR WRITE PROTECT <ZB< P<RCI<CIEFõXQ# Z$ 0:< P :<9 1:<Z$ØXQÕ֕ǓVD SZ%O=!<6=!=! (=R=d=<BՂ :<ˇ P΂Ƅ+ K| :< &:<؃  P ":< ? O :< 1:<: > CX> @ gg/dMN t72t8] ÏXQCv SHCItt4t3: )ZZ  B& d /ڢǃ Z ߗ AɃ ׿Ԟ,t t9 #xt* GţB-d b Yރ\ ˂ UV҃RPKЃNE ,% ȃJE Bt   B21l  kZ1t @x 1: g] +  X: 0: ㍀@AM CIt7t t3S ΃L:C# ,%z*y'tt ,,߅Y w/=q0 ƿ t- @QDɃ螃QڃC ly MMLˎ ԃǎ%B1HFJ ɄB*t 1: N+ B @ AK!I` `{ҿxÑΛQ É΍Q ۇ 2*t CI20.tSLCLt:Lt6 nDg  0: Ń , +# 2 ,h KO܃JK G1GD  0i: :N+ B㠀@A%V*S 1T: $KHC@B t7t t3 : Bw1Ŀn% rj:: 怀y C Xc c x_n)): U ӂӇ  Ѣу ƒ @Ȟw:k ƒA  õ@BKǶ1N F 례B C ߓߖX:O C:# 7! yFSLDEt9t:p3 ע:ރ ΃ۖA؂҃ BςчʇɃz€ ɇǣ QD QA Pp: ιL @  " @0®$㙀@k+U# |%yt ,*/(UT)IN008DFDPDM#2B; ^XXWY˃U0P1. ؂؄ND ҇  D͇D Ƈ¢D: k-烸߶ '#G   :: IĀ,tIR  !"0.H$: 'a: \ύQ# |yv/2Bg     ŀBy M: 򃞷 nk 僙`m nyOqoLOtrt.W p q ƟƟƟ +9 Y+ ½¼ :  ++  " + 7E4 1m0  pNe S o x y | $s7GH i;+  B@ >~ ^ O,#NMT ;OQ=A?P I R ΃`LZy M  OWǪ LRRJP EMMDLCKB =;ǐA ƂW t$: -"Rtttt/t'xt% L [:F% QAk  0:s ؇b ǞUU ƒԃ̇ˇʇLȇI IBBô@Dz9G d8:ݞ /: Ճȃţ# Qkȃƃ:Z蟝LvU;t)t#t( ~TVB $yp=A?St  N! U = O Gb񿪞 RTZ KS R1D  N FF <;:,ttr ^P,MT <M_7OR >B@  6ȃE   cSB@A@Y  IO +OOw E +AA@ : ,# # ;FLKQpL rolif)c? ` Oσ͂: )nlk2Bt t9 ѣ̧̀ڇʣ 1D ăć ȇ'Dƒ ŇŇŃɢ ֞Ӄ ˢ lcT<7MUt$  NR OMTVXt)>=S:tt $ \Ң\+ S P#mytttt/t'x  Âp+ l1.,52.,:Bş. 0:s *  d  dǂHC:ꃡÃ͞: ÌK  kΞ ;7 v~y"!WtOSR: Cޞʃ` ^[قل:  UσPППο8 ɢɠ+  K /1ģ+ , + Y NX y n Tv# %tpurS p/ t rB@j ,jSB@A@Y" X +/V ÿ~K ,B# 2FQpyuvrsopli%fg)c? `ՇՃՇ)Qɢᄀ LJ˂܇܇Ƈ ևփ QɢDŽ  L힉ɇ‡烬  .ý QAǡӢ+›ǘ  ± Ă US;NMt##7ttt/t'Bt$:AtZ4$Z3myVT>Ǔ<A:98wR vy"Wt:q 0:{  ÞQ¢  ÛK :  p~F~ rqB%& ڢڠ+ Ÿ[ "Оχςχ +̓Þȇ‚LJ ,# \: ・ -  - :: B# |B2/;t)rRK=t pWUN !BS2 X΃ʇʂ͇ǢSSŇ DB˃MЃ CDB6C:s44QD1:{ /-(    @QA+k4# F Lt'x{w +n:{k +:s d eaC @a ] ¸ ²  IðG! G!@ B  20INjc # ,2p<c7t&fRt C BLOCK AU  IĀ+ # Ҟ 1 # g- I?ʣʄ+U# KH ǢGăD # A{ | : 䃧⃯ ކII ڣ; 㝀@+k Uƀy@NyC # s{ t $n ă B #  { a9: YX@AKN1U # ڞ} KLG+s # } ƣ|  6VKԀCC C : !߫m ^] |  G ǟǟ:s:{  # | (Bywz ã # }  B90.r# [1# {VQB: ɣS:# ,t2-0.t* INYSs ˃ׇӢnn  lBˇ# h"y) MQ B g! T QQ˾ ,O ,R,V ?: ) ,d4  11̃ .k%% #  y2pTOt)OMTt#1/t(g  r}@ I%C B '`(d%C @'` ^K oe `kA NYX-g  ƃD #  {g'# g ~|{g IC @`@@+kc # g$  ~ƊK 1ģ+ icqpt tt; C @ @…Ā+c #  MTEX (E400) J N AME .EXT LENGTH  DATE TIME EXTENT S AU'S F# 2NDX NAMSJ NAME .EXT NAM E .EXT NAME  .EXT NAME .EXT  <1PAGE VIEW (E4 00) UNIT= VOLUM E= N 19YY/ MM/DD HH:MM:SS CREATED  19YY/MM/DD HH:MM:SS  DIRECTORY=   TITLE=  LU DEVICE F NO  TOTAL AU'S =   TOTAL FILES=  A U'S FREE =  AU'S  USED =  AU  YY/MM/DD HH:MM:SS /JOB (F ILE IS OVERWRITTEN) >  FILE  ALR EADY EXISTS. OVERWRITES  IT?(Y OR N)  VERIFY S UCCESS VERIFY IS PROG RESSING , END OF MEDIA , MOUNT NEXT VOLUME?(Y O R N)  END OF MEDIA  FILES DO NOT MATCH  SYNTAX ERROR INVALID  COMMAND  DIRECTORY NO T FOUND  INVALID UNIT NAME  INVALID OPTION  INVALID DECIMAL NUMB ER UNIT NOT FOUND  INVALID FILE NAME & FI LE ALREA DY EXISTS FILE  NOT FOUND  ON " NEITHER UNIT OR VOLUME SPECIFIED CLOSING   VOLUME NOT GIVEN(  CORRECT VOLUME NAME IS   PARAMET ERS IGNORED & FILE  IS SYSTEM  FILE BAD AU  UNITS N OT SAME TYPE INVALID D ATE  INVALID TIME   SYSTEM LOGICAL UNIT   NOT LABELED  UNITS DO NOT MATCH  J CL STACK FULL 8 FILES  DO NOT MATCH AT   RECORD WORD  2 FILE  DOES NOT EXIST, CREATE  IT?  FILE IS NOT DELET ED* NOT ENOUGH MEMORY  FOR MAG. TAPE BUFFERR  FILE I S BAD 4 UNIMPLIMENTED  COMMAND. USE MAG TAPE EXEC (M TEX::) EW (E4 00) UNIT= VOLUM E= N 19YY/ MM/DD HH:MM:SS CREATED  19YY/MM/DD HH:MM:SS  DIRECTORY=   TITLE=  LU DEVICE F NO  TOTAL AU'S =   TOTAL FILES=  A U'S FREE =  AU0 829C 08CD 1240 COPY:M =DIRME,A,DRBUF 08B1 87A2 08D4 1240+ 08B2 3A07 1241 I:IO DRIOB  ITSELF 08B3 0183 1241+ 08B4 9EB4 08E9 1242 JMP CRE9B 08B5 A29F 08D5 1243 COPY:M =DRBUFF,X,DRBUF 08B6 A79D 08D4 1243+ 08B7 0907 1245 COPY =7,A 08B8 4900 1246 COPY =0,Q 08B9 C480 0000 1247 CRE9 COPY Q,0(X) 08BA 15BE 08B9 1248 JNED A,CRE9 08BB 9E9C 08D8 1249  JMP CRE9A 08BC 9EAD 08EA 1250 CRE10J JMP CRE10 08BD 9EB3 08F1 1251 CRE16J JMP CRE16 001A 1252 LPOOL 08BE 0186 DRFC 08BF 08E9 CRE9B 08C0 08EA CRE10 08C1 08EB CRE12 08C2 08EE CRE14 08C3 012C ISMPL 08C4 000E E:ISM 08C5 1AF4 LOOKUP 08C6 0102 T3 08C7 4952 08C8 0120 INXT 08C9 0121 SEXT 08CA 0122 RLN 08CB 0130 DF 08CC 012E DV  08CD 00E2 DIRME 1PAGE 0063 MACRO (E100) OS4MTEX - MAG TAPE EXECUTIVE (93462-11-E400) 1980/06/04 19:07:54.00 CREATE -- SI = DH01.OS4EXEC .ASM SO = DH01.OS4MTEX .OBJ LI = DH01.OS4MTEX .LST 08CE 011F FNO 08CF 00EA DIRYOU 08D0 1748 RFE 08D1 00DD DIRPL 08D2 1712 CODR 08D3 1724 OPDR 08D4 0188 DRBUF 08D5 01F6 DRBUFF 08D6 08D7 08D8 3A07 1254 CRE9A I:IO DRIOB 08D9 0183 1254+ 08DA 9E8F 08EA 1255 JMP CRE10 08DB 0927 1256 COPY:M =PO:%4+RWP:,A,DRFC 08DC 8761 08BE 1256+ 08DD 3A07 1257 I:IO DRIOB READ WRITE POINTER 08DE 0183 1257+ 08DF 9E89 08E9 1258 JMP CRE9B 08E0 0918 1259 COPY:M =WRFSFC,A,DRFC 08E1 875C 08BE 1259+ 08E2 A393 08F6 1260 COPY DRCFI,X ADDR OF WRITE POINTER 08E3 8080 0000 1261 COPY  0(X),A 08E4 C081 0001 1262 COPY 1(X),Q 08E5 8F8E 08F4 1263 SUB T1,A SEE IF AT EOF YET 08E6 11B1 08D8 1264 JNE A,CRE9A NO 08E7 CF8D 08F5 1265 SUB T2,Q 08E8 51AF 08D8 1266 JNE Q,CRE9A 08E9 FF8D 08F7 1267 CRE9B JSK CLDR CLOSE DIRECTORY 08EA 2309 1268 CRE10 RSK 1PAGE 0064 MACRO (E100) OS4MTEX - MAG TAPE EXECUTIVE (93462-11-E400) 1980/06/04 19:07:55.50 CREATE -- SI = DH01.OS4EXEC .ASM SO = DH01.OS4MTEX .OBJ LI = DH01.OS4MTEX .LST 08EB BF8C 08F8 1270 CRE12 JST MSG  SYNTAX ERROR 08EC 1CBE 1271 WORD ERR1 08ED 9E7C 08EA 1272 JMP CRE10 000008EE 1274 CRE14 EQU $ 08EE BF89 08F8 1275 JST MSG INVALIF FILE NAME 08EF 1D06 1276  WORD ERR8 08F0 9E79 08EA 1277 JMP CRE10 08F1 BF87 08F9 1279 CRE16 JST FMSG  FILE ALREADY EXISTS 08F2 1D11 1280 WORD ERR9 08F3 9E76 08EA 1281 JMP CRE10 0006  1282 LPOOL 08F4 0100 T1 08F5 0101 T2 08F6 0185 DRCFI 08F7 172F CLDR 08F8 1B32 MSG 08F9 1B42 FMSG 1PAGE 006 5 MACRO (E100) OS4MTEX - MAG TAPE EXECUTIVE (93462-11-E400) 1980/06/04 19:07:56.00 VIEW -- SI = DH01.OS4EXEC .ASM SO = DH01.OS4MTEX .OBJ LI = DH01.OS4MTEX .LST 000008FA 1284 VIEW EQU $ 08FA FFBF 093A 1285 JSK OPLO OPEN 'LO' 08FB 11F8 0934 1286 JNE A,VIEW9J ERROR 08FC FFBE 093B 1287 JSK INITVAL INITIALIZE VARIABLES 08FD 0901 1288 COPY:M =1,A,OPTIONS INIT OPTION TO DEFAULT 08FE 87B7 0936 1288+ 08FF 0900 1289 COPY:M =0,A,MODE RESET MODE 0900 87BB 093C 1289+ 0901 FFBB 093D 1290  JSK GDIR GET DIRECTORY 0902 13F2 0935 1291 JLT A,VEW91J BAD UNIT 0903 0901 1292 COPY:M =1,A,PAGE SET PAGE NO TO 1 0904 87B9 093E 1292+ 0905 08D9 1293 COPY:M =-39,A,VIEWLPP DEFAULT LINES/PAGE = 39 0906 87B8 093F 1293+ 0907 82B8 0940 1294 E:SLU ='LO' FIND LO DIB/FCB 0908 FFB8 0941 1294+ 0909 A081 0001 1295 COPY 1(X),X " 090A 8081 0001 1296 COPY DI:FLG(X),A LOAD FLAG WORD INTO A 090B 13C5 0911 1297 JLT A,VIEWINIT IF IT'S AN FCB, BRANCH AROUND 090C 8091 0011 1298 COPY DI:LPP(X),A LOAD LINES/PAGE INTO A 090D 18FF 1299 AND =:FF,A " 090E 1142 0911 1300 JEQ A,VIEWINIT IF NOT VALID FOR THIS DEVICE, BRANCH AROUND 090F 0001 1301 NEG A,A NEGATE FOR IMS'S 0910 87AE 093F 1302 COPY A,VIEWLPP ELSE, USE THE LO LINES/PAGE 00000911  1303 VIEWINIT EQU $ 0911 83AD 093F 1304 COPY:M VIEWLPP,A,LINE INITIALIZE LINE COUNTER 0912 87AF 0942 1304+ 0913 A3A3 0937 1305 COPY UNIT,X GET DIB ADDRESS 0914 8084 0004 1306 COPY DI:NAM(X),A DEVICE NAME 0915 0E79 1307 SHIFT A,RO,8 0916 0C4D 1308 CLSN ='M',A 00000001 1309 IFT MFMEXEC 0917 9FAB 0943 1310 JMP MTVIEW DEVICE IS A MAG. TAPE 1311  ENDC 0918 3A19 1315 F:MONT NAMPTR+1 ELSE, MOUNT THE DIRECTORY'S DEVICE 1PAGE 0066 MACRO (E100) OS4MTEX - MAG TAPE EXECUTIVE (93462-11-E400) 1980/06/04 19:07:57.75 VIEW -- SI = DH01.OS4EXEC .ASM SO = DH01.OS4MTEX .OBJ LI = DH01.OS4MTEX .LST 0919 011D 1315+ 091A 82A9 0944 1316 COPY =OPTBL,A 091B FFA9 0945  1317 JSK GOPT GO TO GET OPTION 091C 11F2 094F 1318 JNE A,VEW10J ERROR 091D 839E 093C 1319 COPY MODE,A GET THE OPTION 091E B797 0936 1320 OR OPTIONS,A 091F 8796 0936 1321 COPY A,OPTIONS 0920 12F0 0951 1322 JLE A,VEW16J SYNTAX ERROR 0921 0ADE 1323  SUB =:22,A 0922 126E 0951 1324 JGT A,VEW16J SYNTAX ERROR 0923 8392 0936 1325 COPY  OPTIONS,A 0924 1803 1326 AND =3,A CHECK FOR FILE VIEW 0925 116B 0951 1327 JEQ A,VEW16J SYNTAX ERROR 0926 0D02 1328 CSK A,=2 0927 9EAA 0952 1329 JMP VIEWA  IT IS PUN VIEW 0928 9EA8 0951 1330 JMP VEW16J SYNTAX ERROR 0929 838C 0936 1331 COPY OPTIONS,A 092A 1804 1332 AND =4,A 092B 11E5 0951 1333 JNE A,VEW16J SYNTAX ERROR 092C 8399 0946 1334 COPY:M NAMT,A,NAMPTR 092D 8799 0947 1334+ 092E FF99 0948 1335 JSK SND SEARCH FILE NAME 092F 1160 0950 1336 JEQ A,VEW14J NO FOUND 0930 BF87 0938 1337 JST LOMSGNFC  PRINTS FILE HEADING 0931 1B6D 1338 WORD MES2 0932 FF86 0939 1339 JSK BLB BLANK BUFFER 0933 9EFC 09B0 1340 JMP VEW1A1 0934 9F94 0949 1341 VIEW9J JMP VIEW9 0935 9F94 094A 1342  VEW91J JMP VIEW91 0018 1343 LPOOL 0936 016E OPTIONS 0937 011E UNIT 0938 14F2 LOMSGNFC 0939 1979 BLB 093A 17C0 OPLO 1PAGE 0067 MACRO (E100) OS4MTEX - MAG TAPE EXECUTIVE (93462-11-E400) 1980/06/04 19:07:59.00 VIEW -- SI = DH01.OS4EXEC .ASM SO = DH01.OS4MTEX .OBJ LI = DH01.OS4MTEX .LST 093B 0EBD INITVAL 093C 014F MODE 093D 1616 GDIR 093E 0171 PAGE 093F 016F VIEWLPP 0940 4C4F 0941 0011 E:SLU 0942 0172 LINE 0943 002E MTVIEW 0944 0094 OPTBL 0945 1AAD GOPT 0946 0157 NAMT 0947 011C NAMPTR 0948 198E SND 0949 0A70 VIEW9 094A 0A71 VIEW91 094B 094C 094D 1PAGE 0068 MACRO (E100) OS4MTEX - MAG TAPE EXECUTIVE (93462-11-E400) 1980/06/04 19:07:59.25 VIEW -- SI = DH01.OS4EXEC .ASM SO = DH01.OS4MTEX .OBJ LI = DH01.OS4MTEX .LST 094E 9FC6 0995 1345 VIEW8K JMP VIEW8 094F 9FC6 0996 1346 VEW10J JMP  VIEW10 0950 9FC6 0997 1347 VEW14J JMP VIEW14 0951 9FC6 0998 1348 VEW16J JMP VIEW16 00000952 1349 VIEWA EQU $ 0952 FFC6 0999 1350 JSK CODR CONNECT TO DIRECTORY 0953 11BB 094F 1351  JNE A,VEW10J BAD CONNECTION 0954 FFC5 099A 1352 JSK OPDR OPEN DIRECTORY 0955 11B9 094F 1353 JNE A,VEW10J ERROR 0956 FFC4 099B 1355 JSK RVOL READ VOLUME LABEL 0957 11B6 094E 1356 JNE A,VIEW8K ERROR 0958 A3B5 098E 1357 COPY DUBUF,X MOVE VOL NAME TO MESSAGE 0959 2B39 1358 ADD =VC:NAM,X 095A 0907 1359 COPY =7,A 095B C2C0 099C 1360  COPY =MES3B,Q 095C FFC0 099D 1361 JSK MOV 0000095D 1363 VIEWB EQU $ 095D A359 0937 1364 COPY UNIT,X MOVE UNIT NAME 095E 2B04 1365 ADD =DI:NAM,X 095F 0902  1366 COPY =2,A 0960 C2BD 099E 1367 COPY =MES3A,Q 0961 FFBB 099D 1368 JSK MOV 0962 A3BC 099F 1369 COPY DIRPL,X MOVE DIRECTORY NAME TO MESSAGE 0963 C2BC 09A0 1370 COPY =MES3C,Q 0964 0907 1371 COPY =7,A 0965 FFB7 099D 1372 JSK MOV 0966 3A1B 1373  R:GATD TOD GET TIME & DATE 0967 00F9 1373+ 0968 A2B8 09A1 1374 COPY =TOD,X SAVE INPUT POINTER 1PAGE 0069 MACRO (E100) OS4MTEX - MAG TAPE EXECUTIVE (93462-11-E400) 1980/06/04 19:08:01.00 VIEW -- SI = DH01.OS 4EXEC .ASM SO = DH01.OS4MTEX .OBJ LI = DH01.OS4MTEX .LST 0969 0905 1375 COPY:M =MES31A-MES31*2+3,A,BP 096A 87A4 098F 1375+ 096B 82B6 09A2 1376 COPY:M =MES31,A,T1 SET OUTPUT BUFFER TO MESSAGE 096C 8707 08F4 1376+ 096D FFA2 0990 1377 JSK PDAT PUT TIME & DATE 096E 0901 1378 COPY:M =1,A,T2 SET QUARTER SECOND REQUESTED 096F 8705 08F5 1378+ 0970 2B03 1379 ADD =3,X 0971 FF9F 0991 1380  JSK PTIM 0972 A39B 098E 1382 COPY DUBUF,X 0973 2B0C 1383 ADD =VC:CYR,X  CREATION DATE & TIME 0974 0922 1384 COPY:M =MES31C-MES31*2,A,BP 0975 8799 098F 1384+ 0976 82AB 09A2 1385 COPY:M =MES31,A,T1 0977 879A 0992 1385+ 0978 FF97 0990 1386 JSK PDAT PUT TIME & DATE 0979 0901 1387 COPY:M =1,A,T2 QUARTER SECOND REQUESTED 097A 8798 0993 1387+ 097B 2B03 1388  ADD =3,X 097C FF94 0991 1389 JSK PTIM PUT TIME 097D FFA5 09A3 1390 JSK VIEWHD PRINTS HEADING 097E 8337 0936 1392 COPY OPTIONS,A 097F 1804 1393 AND =:4,A  IF FILE NAME ONLY,BIT 3 IS ON 0980 1145 0986 1394 JEQ A,VIEWC JUMP IF NOT FILE NAME ONLY 0981 8334 0936 1395 COPY OPTIONS,A 0982 0AFB 1396 SUB =5,A 0983 11C9 098D 1397 JNE A,VEW16JJ SYNTAX ERROR 0984 FF9F 09A4 1398 JSK FNAMVU DO FILE NAME ONLY 0985 9F8E 0994 1399  JMP VIEW7 EXIT 00000986 1400 VIEWC EQU $ 0986 BF31 0938 1401 JST LOMSGNFC  PRINTS FILE HEADING 0987 1B6D 1402 WORD MES2 0988 FF30 0939 1403 JSK BLB BLANK BUFFER 1PAGE 0070 MACRO (E100) OS4MTEX - MAG TAPE EXECUTIVE (93462-11-E400) 1980/06/04 19:08:02.50 VIEW -- SI = DH01.OS4EXEC .ASM SO = DH01.OS4MTEX .OBJ LI = DH01.OS4MTEX .LST 0989 0900 1404 COPY:M =0,A,GRANDAU GRAND AU TOTAL INIT 098A 879A 09A5 1404+ 098B 879A 09A6 1405 COPY A,TOTALFL TOTAL FILE 098C 9E9E 09AB 1406  JMP VIEW1 098D 9F8A 0998 1407 VEW16JJ JMP VIEW16 001C 1408 LPOOL 098E 01A0 DUBUF  098F 0170 BP 0990 144E PDAT 0991 1465 PTIM 0992 0100 T1 0993 0101 T2 0994 0A53 VIEW7 0995 0A6F VIEW8 0996 0A78 VIEW10 0997 0A79 VIEW14 0998 0A7C VIEW16 0999 1712 CODR 099A 1724 OPDR 099B 1773 RVOL 099C 1BD1 MES3B 099D 1B37 MOV 099E 1BC9 MES3A 099F 00DD DIRPL 09A0 1BF9 MES3C 09A1 00F9 TOD 09A2 1BD8 MES31 09A3 1698 VIEWHD 09A4 14FF FNAMVU 09A5 0147 GRANDAU 09A6 0148 TOTALFL 09A7 09A8 09A9 1PAGE 0071 MACRO (E100) OS4MTEX - MAG TAPE EXECUTIVE (93462-11-E400) 1980/06/04 19:08:03.00 VIEW -- SI = DH01.OS4EXEC .ASM SO = DH01.OS4MTEX .OBJ LI = DH01.OS4MTEX .LST 09AA 9F69 0994 1410 VIEW7J  JMP VIEW7 000009AB 1411 VIEW1 EQU $ 09AB FFB5 09E1 1412 JSK GNE GET NEXT ENTRY 09AC 11BD 09AA 1413 JNE A,VIEW7J ERROR 09AD A3B4 09E2 1414 COPY DRBUF,X 09AE 8080 0000  1415 COPY 0(X),A FNO 09AF 113B 09AB 1416 JEQ A,VIEW1 EMPTY 000009B0 1418 VEW1A1 EQU $ 09B0 A3B1 09E2 1419 COPY DRBUF,X 09B1 2B01 1420 ADD =1,X 09B2 0901 1421 COPY =MES2A-MES2,A 09B3 FFAF 09E3 1422 JSK MOVNAM MOVE NAME INTO BUFFER  09B4 093C 1424 COPY =MES2B-MES2A*2,A BYTE POINTER FOR FNO 09B5 8759 098F 1425 COPY A,BP 09B6 A3AB 09E2 1426 COPY DRBUF,X 09B7 8080 0000 1427 COPY 0(X),A FNO 09B8 FFA7 09E0 1428  JSK HAD CONVERT IT TO ASCII & PIUT IN BUFFER 000009B9 1430 VIEW1A EQU $  GET # OF DIR.,FILE LEN.,2EXT,AND LM DATE & TIME 09B9 FFAA 09E4 1431 JSK RFE READ FLIST ENTRY 09BA 11AF 09AA 1432 JNE A,VIEW7J ERROR 09BB A352 098E 1433 COPY DUBUF,X GET SECOND FLIST FOR FILE 09BC 8082 0002 1434 COPY FL:BLK(X),A HAS MORE THAN ONE FLIST 09BD 11F6 09F4 1435 JNE  A,VIEW21 JUMP IF SECOND FLIST FOR SAME FILE 09BE 0946 1436 COPY =MES2E-MES2A*2,A BYTE DISP FOR NUMBER OF LINKS 09BF 874F 098F 1437 COPY A,BP 09C0 8084 0004 1438 COPY FL:NED(X),A 1PAGE 0072 MACRO (E100) OS4MTEX - MAG TAPE EXECUTIVE (93462-11-E400) 1980/06/04 19:08:04.25 VIEW -- SI = DH01.OS4EXEC .ASM SO = DH01.OS4MTEX .OBJ LI = DH01.OS4MTEX .LST 09C1 0002 1439 ADD A,A 2 WORDS PER DESCRIPTOR 09C2 2002 1440 ADD A,X 09C3 2B05 1441 ADD =FL:EXP,X START OF FILE INFO 09C4 A7A0 09E5  1442 COPY X,FLISTADR SAVE THE ADDRESS OF FILE INFO 09C5 8084 0004 1443 COPY FL:NDL(X),A NUMBER OF DIRECTORY LINKS 09C6 FF99 09E0 1444 JSK HAD PUT IN BUFFER 09C7 0912 1445 COPY:M =MES2LN-MES2A*2,A,BP DISPLACEMENT FOR FILE LENGTH 09C8 8746 098F 1445+ 09C9 8085 0005 1446 COPY FL:LEN(X),A 09CA FF95 09E0 1447 JSK HAD PUT IT IN BUFFER 09CB 8086 0006 1448 COPY FL:LEN+1(X),A 09CC FF93 09E0 1449 JSK HAD SECOND WORD 09CD 0941 1450 COPY:M =MES2F-MES2A*2+1,A,BP 09CE 8740 098F 1450+ 09CF 809C 001C 1451 COPY FL:SEX(X),A GET SECOND. EXTENT SIZE ADDR. 09D0 FF8F 09E0 1452 JSK HAD CONVERT IT TO ASCII 09D1 2B0F 1453 ADD =FL:MDA,X GET MODIFIED DATE 09D2 491E 1454 COPY:M =MES2DA-MES2A*2,Q,BP 09D3 C73B 098F 1454+ 09D4 8391 09E6 1455 COPY:M  LOBUF,A,T1 09D5 873C 0992 1455+ 09D6 FF39 0990 1456 JSK PDAT PUT DATE & TIME IN MESSAGE 09D7 0900  1457 COPY:M =0,A,T2 09D8 873A 0993 1457+ 09D9 2B03 1458 ADD =3,X 09DA FF36 0991 1459 JSK PTIM 09DB 491B 1460 COPY:M =MES2LM-MES2A*2+1,Q,BP 09DC C732 098F 1460+ 09DD 8289 09E7  1461 COPY ='LM',A PUT 'LM' IN MESSAGE 09DE FF89 09E8 1462 JSK ATB 09DF 9E91 09F1 1463   JMP VIEW2 0011 1464 LPOOL 09E0 1407 HAD 09E1 17E9 GNE 09E2 0188 DRBUF 1PAGE 0073 MACRO (E100) OS4MTEX - MAG TAPE EXECUTIVE (93462-11-E400) 1980/06/04 19:08:05.75 VIEW -- SI = DH01.OS4EXEC .ASM SO = DH01.OS4MTEX .OBJ LI = DH01.OS4MTEX .LST 09E3 147F MOVNAM 09E4 1748 RFE 09E5 0149 FLISTADR 09E6 0190 LOBUF 09E7 4C4D 09E8 1433 ATB 09E9 09EA 09EB 09EC 09ED 09EE 09EF 09F0 000009F1 1466 VIEW2 EQU $ GETS EXTENTS 09F1 0900 1467 COPY:M =0,A,UNITCNT SET EXTENT COUNTER 09F2 87D0 0A43 1467+ 09F3 87D0 0A44 1468  COPY A,AUCNT TOTAL SECTORS 000009F4 1469 VIEW21 EQU $ 09F4 A319 098E 1470 COPY DUBUF,X 09F5 0020 1471 COPY X,A 09F6 0AFE 1472 SUB =2,A 09F7 87CD 0A45 1473  COPY A,OFFSET 09F8 8084 0004 1474 COPY FL:NED(X),A GET NO. OF EXTENTS IN FLIST(=:65) 09F9 1152 0A0C 1475 JEQ A,VIEW3A NO MORE EXTENTS 000009FA 1476 VIEW3 EQU $ 09FA A3CA 0A45 1477 COPY OFFSET,X GET DISCRIPTOR ADDR. 09FB 2B02 1478 ADD =2,X 09FC A7C8 0A45 1479 COPY  X,OFFSET 09FD 8086 0006 1480 COPY FL:LEX(X),A LENGTH 09FE 115D 0A1C 1481 JEQ A,VEW3D1 NO MORE EXTENTS 09FF 8BC4 0A44 1482 ADD AUCNT,A # AU'S OF THIS EXTENT 1PAGE 0074 MACRO (E100) OS4MTEX - MAG TAPE EXECUTIVE (93462-11-E400) 1980/06/04 19:08:06.50 VIEW -- SI = DH01.OS4EXEC .ASM SO = DH01.OS4MTEX .OBJ LI = DH01.OS4MTEX .LST 0A00 87C3 0A44 1483 COPY A,AUCNT 0A01 092D 1484 COPY =MES2C-MES2A*2+1,A FOR EXTENT START 0A02 870C 098F 1485 COPY A,BP 0A03 8085 0005 1486 COPY FL:EXP(X),A 0A04 FF5B 09E0 1487 JSK HAD CONVERT TO ASCII & PUT IN BUFFER 0A05 092D 1488 COPY ='-',A 0A06 FFBF 0A46 1489 JSK BTB SEPARATE LIMITS 0A07 A3BD 0A45 1490 COPY OFFSET,X 0A08 8085 0005 1491 COPY FL:EXP(X),A START OF EXTENT 0A09 8886 0006 1492 ADD FL:LEX(X),A 0A0A 0AFF 1493 SUB =1,A LAST AU OF EXTENT 0A0B FF54 09E0 1494 JSK HAD 00000A0C 1495 VIEW3A EQU $ 0A0C 0937 1496 COPY =MES2D-MES2A*2+1,A BYTE POINTER FOR TOTAL AU'S 0A0D 8701 098F 1497 COPY A,BP 0A0E 83B5 0A44 1498 COPY AUCNT,A TOTAL SO FAR 0A0F FF50 09E0 1499  JSK HAD PUT IN BUFFER 0A10 FFB6 0A47 1500 JSK LACR GET LA & CR 00000A11  1502 VIEW3C EQU $ OUTPUT EXTENTS 0A11 FFB6 0A48 1503 JSK VIEWIO DO I/O 0A12 0D01  1504 CSK A,=1 0A13 9E84 0A18 1505 JMP VIEW3D NORMAL RETURNED 0A14 9EBE 0A53 1506  JMP VIEW7 ERROR 0A15 FFB3 0A49 1507 JSK VIEWHD OUTPUT HEADING 0A16 BFA6 0A3D 1508 JST LOMSGNFC CHANGED NEW PAGE 0A17 1B6D 1509 WORD MES2 00000A18 1511 ! VIEW3D EQU $ CLEAR OUTPUT BUFFER 0A18 DFAA 0A43 1512 IMS UNITCNT NEXT EXTENT 0A19 0000 1513 NOP 1PAGE 0075 MACRO (E100) OS4MTEX - MAG TAPE EXECUTIVE (93462-11-E400) 1980/06/04 19:08:08.00 VIEW -- SI = DH01.OS4EXEC .ASM SO = DH01.OS4MTEX .OBJ LI = DH01.OS4MTEX .LST 0A1A FFAF 0A4A 1514 JSK  BLB BLANK BUFFER 0A1B 9E5E 09FA 1515 JMP VIEW3 GET NEXT EXTENT 00000A1C 1517  VEW3D1 EQU $ 0A1C 83A6 0A43 1518 COPY UNITCNT,A NO EXTENTS PRINTED YET, 0A1D 112E 0A0C 1519  JEQ A,VIEW3A SO DO 1. 0A1E A3AC 0A4B 1520 COPY DUBUF,X LINK TO ANY FLIST 0A1F 8081 0001 1521 COPY FL:FLK(X),A 0A20 1143 0A24 1522 JEQ A,VIEW3E NO, GET NEXT ENTRY 0A21 A3A9 0A4B 1523 COPY DUBUF,X 0A22 8081 0001 1524 COPY FL:FLK(X),A 0A23 9E15 09B9 1525 JMP VIEW1A GET SECOND FLIST 00000A24 1527 VIEW3E EQU $ 0A24 8399 0A3E 1528 COPY OPTIONS,A  IF EXTENDED FORM REQUESTED 0A25 183A 1529 AND =:3A,A 0A26 1144 0A2B 1530 JEQ A,VIEW4  NO, SKIP 0A27 1810 1531 AND =:10,A 0A28 11C2 0A2B 1532 JNE A,VIEW4 EXTENDED FORM IS NOT REQUESTED 0A29 FF9D 0A47 1533 JSK LACR GET LA & CR 0A2A 1126 0A11 1534 JEQ A,VIEW3C LA & CR 00000A2B 1536 VIEW4 EQU $ 0A2B 8392 0A3E 1537 COPY OPTIONS,A FILE VIEW? 0A2C 0E1B 1538 ROTATE A,RO,2 0A2D 36C2 0A30 1539 JF OV,VIEW5 JUMP IF NOT 0A2E 0E3B 1540 ROTATE A,RO,4 ALLFILE REQUESTED? 0A2F 36CC 0A3C 1541 JF OV,VIEW8J JUMP IF NOT 00000A30 1542 VIEW5 EQU $ 1PAGE 0076 MACRO (E100) OS4MTEX - MAG TAPE EXECUTIVE (93462-11-E400) 1980/06/04 19:08:09.00 VIEW -- SI = DH01.OS4EXEC .ASM SO = DH01.OS4MTEX .OBJ LI = DH01.OS4MTEX .LST 0A30 DF8E 0A3F 1543 IMS TOTALFL INCREMENT NO. OF FILES 0A31 8392 0A44 1544 COPY AUCNT,A TOTAL AU'S THIS FILE 0A32 8B8D 0A40 1545 ADD GRANDAU,A ADD TO GRAND TOTAL 0A33 878C 0A40 1546 COPY A,GRANDAU 0A34 3641 0A36 1547 JT OV,$+2 JUMP IF NOT ALLFILE VIEW 0A35 9F96 0A4C 1548 JMP  VIEW1 OTHERWISE GET NEXT ENTRY 0A36 838A 0A41 1549 COPY:M NAMT,A,NAMPTR GET FILE NAME 0A37 878A 0A42 1549+ 0A38 FF94 0A4D 1550 JSK SND1 SEARCH FOR NEXT FILE WITH THAT NAME 0A39 1142 0A3C 1551 JEQ A,VIEW8J NOT FOUND,EXIT 0A3A FF8F 0A4A 1552 JSK BLB FOUND IT, BLANK BUFFER 0A3B 9F92 0A4E 1553 JMP VEW1A1 GO TO PROCESS 0A3C 9EB2 0A6F 1554 VIEW8J JMP VIEW8 0016 1555  LPOOL 0A3D 14F2 LOMSGNFC 0A3E 016E OPTIONS 0A3F 0148 TOTALFL 0A40 0147 GRANDAU 0A41 0157 NAMT 0A42 011C NAMPTR 0A43 0146 UNITCNT 0A44 014A AUCNT 0A45 0145 OFFSET 0A46 1429 BTB 0A47 16DC LACR 0A48 1529 VIEWIO 0A49 1698 VIEWHD 0A4A 1979 " BLB 0A4B 01A0 DUBUF 0A4C 09AB VIEW1 0A4D 199D SND1 0A4E 09B0 VEW1A1 0A4F 0A50 0A51 1PAGE 0077 MACRO (E100) OS4MTEX - MAG TAPE EXECUTIVE (93462-11-E400) 1980/06/04 19:08:10.00 VIEW -- SI = DH01.OS4EXEC .ASM SO = DH01.OS4MTEX .OBJ LI = DH01.OS4MTEX .LST 0A52 00000A53 1557 VIEW7 EQU $ 0A53 BF69 0A3D 1558 JST LOMSGNFC BLANK LINE 0A54 1B6B 1559 WORD MES1 0A55 0900 1560 COPY:M =0,A,BP 0A56 87A9 0A80  1560+ 0A57 8367 0A3F 1561 COPY TOTALFL,A TOTAL NO OF FILE 0A58 FF07 09E0 1562 JSK HAD  CONVERT TO ASCII 0A59 83A7 0A81 1563 COPY:M LOBUFF,A,MES51A TO MESSAGE 0A5A 87A7 0A82 1563+ 0A5B 83A7 0A83 1564 COPY:M LOBUFF+1,A,MES51A+1 0A5C 87A7 0A84 1564+ 0A5D BF5F 0A3D 1565 JST LOMSGNFC 0A5E 1C18 1566 WORD MES51 0A5F 835E 0A3E 1567 COPY OPTIONS,A IF FILE NAME VIEW 0A60 1804  1568 AND =4,A THEN EXIT 0A61 11CD 0A6F 1569 JNE A,VIEW8 0A62 0900 1570  COPY:M =0,A,BP 0A63 879C 0A80 1570+ 0A64 835B 0A40 1571 COPY GRANDAU,A GRAND TOTAL AU'S 0A65 FF9F 0A85 1572 JSK HAD CONVERT TO ASCII 0A66 839A 0A81 1573 COPY:M LOBUFF,A,MES5A TO MESSAGE 0A67 879E 0A86 1573+ 0A68 879E 0A87 1574 COPY A,MES53A 0A69 8399 0A83 1575 COPY:M LOBUFF+1,A,MES5A+1 0A6A 879D 0A88 1575+ 0A6B 879D 0A89 1576 COPY A,MES53A+1 1577 * JST LOMSGNFC UNTIL MULTIPLE DIRECTORIES ARE IMPLEMENTED 1578 * WORD MES5 " 0A6C FF9D 0A8A 1579 JSK  NUBAU GET # OF FREE AU'S 0A6D BF4F 0A3D 1580 JST LOMSGNFC # OF AU USED 0A6E 1C2C 1581  WORD MES53 1PAGE 0078 MACRO (E100) OS4MTEX - MAG TAPE EXECUTIVE (93462-11-E400) 1980/06/04 19:08:11.25 VIEW --  SI = DH01.OS4EXEC .ASM SO = DH01.OS4MTEX .OBJ LI = DH01.OS4MTEX .LST 00000A6F 1583 VIEW8 EQU  $ 0A6F FF9B 0A8B 1584 JSK CLLO CLOSE LO 00000A70 1585 VIEW9 EQU $ 0A70 FF9B 0A8C 1586 JSK CLDR CLOSE DIRECTORY 0A71 838D 0A7F 1587 VIEW91 COPY TC,A 0A72 1145 0A78 1588  JEQ A,VIEW10 CR, EXIT 0A73 0C2C 1589 CLSN =',',A IF MORE VIEW ASKED 0A74 9F98 0A8D  1590 JMP VIEW YES, CONTINUE 0A75 0C20 1591 CLSN =' ',A A BLANK, CONTINUE 0A76 9F96 0A8D 1592 JMP VIEW 0A77 9E84 0A7C 1593 JMP VIEW16 SYNTAX ERROR 00000A78  1594 VIEW10 EQU $ 0A78 2309 1595 RSK 00000A79 1597 VIEW14 EQU $ 0A79 BF94 0A8E  1598 JST FMSG FILE NOT FOUND 0A7A 1D25 1599 WORD ERR10 0A7B 9E73 0A6F 1600  JMP VIEW8 00000A7C 1602 VIEW16 EQU $ 0A7C BF92 0A8F 1603 JST MSG SYNTAX ERROR 0A7D 1CBE 1604 WORD ERR1 0A7E 9E79 0A78 1605 JMP VIEW10 0011 1606 #  LPOOL 0A7F 012C TC 0A80 0170 BP 0A81 01FE LOBUFF 0A82 1C20 MES51A 1PAGE 0079 MACRO (E100) OS4MTEX - MAG TAPE EXECUTIVE (93462-11-E400) 1980/06/04 19:08:12.25 VIEW -- SI = DH01.OS4EXEC .ASM SO = DH01.OS4MTEX .OBJ LI = DH01.OS4MTEX .LST 0A83 01FF 0A84 1C21 0A85 1407 HAD 0A86 1C16 MES5A 0A87 1C34 MES53A 0A88 1C17 0A89 1C35 0A8A 1496 NUBAU 0A8B 17CE CLLO 0A8C 172F CLDR 0A8D 08FA VIEW 0A8E 1B42 FMSG 0A8F 1B32 MSG 1PAGE 0080 MACRO (E100) OS4MTEX - MAG TAPE EXECUTIVE (93462-11-E400) 1980/06/04 19:08:12.50 COPY-- SI = DH01.OS4EXEC .ASM SO = DH01.OS4MTEX .OBJ LI = DH01.OS4MTEX .LST 00000A90 1608 COPY EQU $ 0A90 FFDB 0AEC 1609 JSK INITVAL INITIALIZE VARIABLES 0A91 091A 1610 COPY:M =WR:%4+FB:,A,OUTFC 0A92 87DA 0AED 1610+ 1612 * HANDLE OUTPUT FILE 00000A93 1613 COP1 EQU $ 0A93 BFDA 0AEE 1614 JST CONEXTFN SCAN NEXT FILE NAME 0A94 9FDA 0AEF 1615 JMP COP16 BRANCH ON BAD FILE NAME 0A95 FFDA 0AF0 1616 JSK CPUN  CHECK FOR DEFUALT UNIT 0A96 832B 0A42 1618 COPY:M NAMPTR,A,NAMT 0 IF DEVICE 0A97 8729 0A41 1618+ 0A98 1145 0A9E 1619 JEQ A,COP2 DEVICE 0A99 A2D7 0AF1 1620 COPY =NAME,X MOVE NAME TO OUTPUT NAME 0A9A C2C0 0ADB 1621 COPY =NAME1,Q 0A9B C725 0A41 1622 COPY Q,NAMT ADDR OF FILE NAME 0A9C 0907 1623 COPY =7,A 0A9D FFBE 0ADC 1624 JSK MOV 00000A9E 1625 COP2 EQU $ 0A9E 83BE 0ADD 1626 COPY:M FNO,A,FNOT DIRECTORY FNO OF OUTPUT 0A9F 87D2 0AF2 1626+ 0AA0 A3BD 0ADE  1627 COPY:M UNIT,X,UNITT OUTPUT UNIT 0AA1 A7BD 0ADF 1627+ 0AA2 8084 0004 1628 COPY DI:NAM(X),A 0AA3 8ECF 0AF3 1629 SUB ='MT',A 00000001 1630 IFT MFMEXEC 0AA4 87CF 0AF4 1631  COPY A,DFLAGT 1632 ENDC 0AA5 82CF 0AF5 1637 COPY =MODTBL,A 0AA6 FFCF 0AF6 1638 JSK GMOD GET POSSIBLE MODE 1PAGE 0081 MACRO (E100) OS4MTEX - MAG TAPE EXECUTIVE (93462-11-E400) 1980/06/04 19:08:14.00 COPY-- SI = DH01.OS4EXEC .ASM SO = DH01.OS4MTEX .OBJ LI = DH01.OS4MTEX .LST 0AA7 11EF 0AD7 1639 JNE A,COP10J INVALID MODE 0AA8 83CE 0AF7 1640 COPY:M MODE,A,MODET OUTPUT MODE 0AA9 87CE 0AF8 1640+ 00000001 1641 IFT MFMEXEC 0AAA 83B5 0AE0 1642 COPY:M VRFLAG,A,VFLAGT VERIFY FLAG IN TO MAG TAPE 0AAB 87CD 0AF9 1642+ 0AAC 83B4 0AE1 1643 COPY:M RWDFLAG,A,RWFLAGT REWIND FLAG 0AAD 87CC 0AFA 1643+ 0AAE 83B3 0AE2 1644 COPY:M OCCUFLAG,A,OUFLAGT OCCUR FLAG 0AAF 87CB 0AFB 1644+ 0AB0 0900 1645  COPY:M =0,A,RWDFLAG RESET FLAG 0AB1 87AF 0AE1 1645+ 0AB2 87AF 0AE2 1646 COPY A,OCCUFLAG  1647 ENDC 0AB3 834B 0A7F 1649 COPY TC,A CHECK FOR EQUAL 0AB4 0AC3 1650 SUB ='=',A 0AB5 11E4 0ADA 1651 JNE A,COP18J SYNTAX ERROR 1652 * $  1653 * HANDLE INPUT FILE 1654 * 00000AB6 1655 COP2A EQU $ 0AB6 BFB7 0AEE 1656 JST CONEXTFN SCAN NEXT FILE NAME 0AB7 9FB7 0AEF 1657 JMP COP16 BRANCH ON BAD FILE NAME 0AB8 FFB7 0AF0 1658 JSK CPUN CHECK FOR DEFUALT UNIT 0AB9 8308 0A42 1660 COPY:M  NAMPTR,A,NAMF 0 IF DEVICE 0ABA 87A8 0AE3 1660+ 1PAGE 0082 MACRO (E100) OS4MTEX - MAG TAPE EXECUTIVE (93462-11-E400) 1980/06/04 19:08:15.00 COPY-- SI = DH01.OS4EXEC .ASM SO = DH01.OS4MTEX .OBJ LI = DH01.OS4MTEX .LST 0ABB 1145 0AC1  1661 JEQ A,COP2D DEVICE 0ABC A2B4 0AF1 1662 COPY =NAME,X MOVE FILE NAME 0ABD 0907  1663 COPY =7,A 0ABE C2A5 0AE4 1664 COPY =NAME2,Q TO HERE 0ABF C7A3 0AE3 1665  COPY Q,NAMF ADDR OF FROM FILE NAME 0AC0 FF9B 0ADC 1666 JSK MOV 00000AC1 1667 COP2D EQU  $ 0AC1 A39C 0ADE 1668 COPY:M UNIT,X,UNITF FROM UNIT 0AC2 A7A2 0AE5 1668+ 0AC3 8084 0004 1669 COPY DI:NAM(X),A 0AC4 8EAE 0AF3 1670 SUB ='MT',A 00000001 1671 IFT MFMEXEC 0AC5 87A0 0AE6 1672 COPY A,DFLAGF 1673 ENDC 0AC6 8396 0ADD 1678 COPY:M FNO,A,FNOF FROM DIRECTORY FNO 0AC7 879F 0AE7 1678+ 0AC8 82AC 0AF5 1679 COPY =MODTBL,A 0AC9 FFAC 0AF6 1680  JSK GMOD GET POSSIBLE MODE 0ACA 11CC 0AD7 1681 JNE A,COP10J INVALID MODE 0ACB 83AB 0AF7 1682 COPY:M MODE,A,MODEF FROM MODE 0ACC 87AF 0AFC 1682+ 00000001 1683 IFT MFMEXEC 0ACD 8392 0AE0 1684 COPY:M VRFLAG,A,VFLAGF VERIFY FLAG IN FROM MAG TAPE 0ACE 8799 0AE8 1684+ 0ACF 8391 0AE1 1685  COPY:M RWDFLAG,A,RWFLAGF REWIND FLAG 0AD0 8798 0AE9 1685+ 0AD1 8390 0AE2 1686 COPY:M OCCUFLAG,A,OUFLAGF OCCUR FLAG 0AD2 8797 0AEA 1686+ 0AD3 0900 1687 COPY:M =0,A,RWDFLAG RESET FLAG 0AD4 878C 0AE1 1687+ 0AD5 878C 0AE2 1688 COPY A,OCCUFLAG 1689 ENDC 1PAGE 0083 MACRO (E100) OS4MTEX - MAG TAPE EXECUTIVE (93462-11-E400) 1980/06/04 19:08:16.50 COPY-- SI = DH01.OS4EXEC .ASM SO = DH01.OS4MTEX .OBJ LI = DH01.OS4MTEX .LST 0AD6 9EA9 0B00 1691 JMP COP3 0AD7 9F93 0AEB 1692 COP10J JMP COP10 0AD8 9FA4 0AFD 1693 COP12J JMP COP12 0AD9 9F95 0AEF 1694 COP16J JMP COP16 0ADA 9FA3 0AFE 1695 COP18J JMP COP18  0025 1696 LPOOL 0ADB 0158 NAME1 0ADC 1B37 MOV 0ADD 011F FNO 0ADE 011E UNIT 0ADF 0155 UNITT 0AE0 0029 VRFLAG 0AE1 0023 RWDFLAG 0AE2 0028 OCCUFLAG 0AE3 0156 NAMF 0AE4 015F NAME2 0AE5 0154 UNITF 0AE6 013C DFLAGF 0AE7 014D FNOF 0AE8 013E VFLAGF 0AE9 0142 RWFLAGF 0AEA 0140 OUFLAGF 0AEB 0C3E COP10 0AEC 0EBD INITVAL 0AED 017E OUTFC 0AEE 0C5E CONEXTFN 0AEF 0C4F COP16 0AF0 1B2C CPUN 0AF1 0123 NAME 0AF2 014E FNOT 0AF3 4D54 0AF4 013B DFLAGT 0AF5 0088 MODTBL 0AF6 1A9E GMOD 0AF7 014F MODE 1PAGE 0084 MACRO (E100) OS4MTEX - MAG TAPE EXECUTIVE (93462-11-E400) 1980/06/04 19:08:17.00 COPY-- SI =%  DH01.OS4EXEC .ASM SO = DH01.OS4MTEX .OBJ LI = DH01.OS4MTEX .LST 0AF8 0151 MODET 0AF9 013D VFLAGT 0AFA 0141 RWFLAGT 0AFB 013F OUFLAGT 0AFC 0150 MODEF 0AFD 0C49 COP12 0AFE 0C52 COP18 0AFF 1698 * CHECK FOR SYNTEX 1699 * 00000B00 1700 COP3 EQU $ 0B00 83B7 0B38 1701 COPY NAMT,A 0B01 11CE 0B10 1702 JNE A,COP3C NAME GIVEN 0B02 8360 0AE3 1703 COPY NAMF,A 0B03 114C 0B10 1704 JEQ A,COP3C NO NAME ON FROM 0B04 A35A 0ADF 1705 COPY UNITT,X NO NAME ON TO SO USE FROM NAME 0B05 8084 0004 1706 COPY DI:NAM(X),A IF DISK 0B06 0E79 1707 SHIFT A,RO,8 00000001 1708 IFT MFMEXEC 0B07 0C4D 1709 CLSN ='M',A 0B08 9E82 0B0B 1710 JMP  COP3A IT IS MAG TAPE 1711 ENDC 0B09 0ABC 1712 SUB ='D',A 0B0A 11C5 0B10 1713 JNE A,COP3C NOT DISK 00000B0B 1714 COP3A EQU $ 0B0B C24F 0ADB 1715 COPY =NAME1,Q 0B0C A257 0AE4 1716 COPY =NAME2,X 0B0D C7AA 0B38 1717 COPY Q,NAMT 0B0E 0907  1718 COPY =7,A TO BE USED AS TO NAME 0B0F FF4C 0ADC 1719 JSK MOV 1PAGE 0085 MACRO (E100) OS4MTEX - MAG TAPE EXECUTIVE (93462-11-E400) 1980/06/04 19:08:18.00 COPY-- SI = DH01.OS4EXEC .ASM SO = DH01.OS4MTEX .OBJ LI = DH01.OS4MTEX .LST 1721 * CONNECT FROM FILE 1722 * 00000B10 1723 COP3C EQU $ 0B10 8352 0AE3 1724 COPY:M NAMF,A,NAMPTR 0B11 87A7 0B39 1724+ 0B12 8352 0AE5 1725 COPY:M UNITF,A,UNIT FROM UNIT 0B13 874A 0ADE 1725+ 0B14 83AA 0B3F 1726 COPY:M LUNF,A,LUN LU FOR CONNECT 0B15 87A4 0B3A 1726+ 0B16 8350 0AE7 1727 COPY:M FNOF,A,FNO DIRECTORY FNO 0B17 8745 0ADD 1727+  00000B18 1728 COP3D EQU $ 00000001 1729 IFT MFMEXEC 0B18 834D 0AE6 1730 COPY DFLAGF,A 0B19 11F0 0B4A 1731 JNE A,COP3E NOT FROM MACy TAPE 1732 *  1733 * FILE IS FROM THE MAG. TAPE 1734 * 0B1A 834D 0AE8 1735 COPY:M VFLAGF,A,VRFLAG VERIFY FLAG 0B1B 8744 0AE0 1735+ 0B1C 834C 0AE9 1736 COPY:M RWFLAGF,A,RWDFLAG 0B1D 8743 0AE1 1736+ 0B1E 834B 0AEA 1737 COPY:M OUFLAGF,A,OCCUFLAG 0B1F 8742 0AE2 1737+ 0B20 A29A 0B3B 1738 COPY =MFMIOB,X 0B21 839D 0B3F 1739 COPY:M LUNF,A,IO:LUN(X) GET LOGICAL UNIT TO USE 0B22 8480 0000 1739+ 0B23 FF98 0B3C 1740  JSK COKM CONNECT DISK 0B24 11D1 0B36 1741 JNE A,COP14J DEVICE NOT FOUND 0B25 C33D 0AE3 1742 COPY NAMF,Q 0B26 FF99 0B40 1743 JSK MFM:TPOS GO FIND THE FILE AND POSITION READY FOR FILE 0B27 C33B 0AE3 1744 COPY:M NAMF,Q,NAMPTR RESTORE NAME POINTER FOR MESSAGE 0B28 C790 0B39 1744+ 0B29 1141 0B2B  1745 JEQ A,$+2 FILE FOUND 0B2A 9F92 0B3D 1746 JMP COP9S FILE NOT FOUND 1PAGE 0& 086 MACRO (E100) OS4MTEX - MAG TAPE EXECUTIVE (93462-11-E400) 1980/06/04 19:08:19.50 COPY-- SI = DH01.OS4EXEC .ASM SO = DH01.OS4MTEX .OBJ LI = DH01.OS4MTEX .LST 0B2B FF95 0B41 1747 JSK MFM:HD2 READ HEADER 2 0B2C 11CA 0B37 1748 JNE A,COP26J ERROR 0B2D FF94 0B42 1749 JSK MFM:SKFM  SKIP THE FILE MARK 0B2E 11C8 0B37 1750 JNE A,COP26J ERROR 0B2F FF93 0B43 1751 JSK MFMSETUP GO SET UP 0B30 11C6 0B37 1752 JNE A,COP26J ERROR 0B31 8292 0B44 1753 COPY:M =SCRBUF,A,INBUF SET BUFFER 0B32 8792 0B45 1753+ 0B33 8392 0B46 1754 COPY:M RECZF,A,RLN 0B34 8789 0B3E 1754+ 0B35 9EA7 0B5D 1755  JMP COP3S 0B36 9F90 0B47 1756 COP14J JMP COP14 0B37 9F90 0B48 1757 COP26J JMP COP26 0012  1758 LPOOL 0B38 0157 NAMT 0B39 011C NAMPTR 0B3A 0120 LUN 0B3B 0024 MFMIOB 0B3C 173A COKM 0B3D 0C2D COP9S 0B3E 0122 RLN 0B3F 0152 LUNF 0B40 0016 MFM:TPOS 0B41 0019 MFM:HD2 0B42 0015 MFM:SKFM 0B43 002F MFMSETUP 0B44 0027 SCRBUF 0B45 0178 INBUF 0B46 0025 RECZF 0B47 0C4C COP14 0B48 0C5B COP26 0B49 00000B4A 1759 COP3E EQU $  1760 ENDC 0B4A 3A18 1761 F:CONN NAMPTR CONNECT FROM FILE 1PAGE 0087 MACRO (E100) OS4MTEX - MAG TAPE EXECUTIVE (93462-11-E400) 1980/06/04 19:08:20.50 COPY-- SI = DH01.OS4EXEC .ASM SO = DH01.OS4MTEX .OBJ e;800925120116800925120116800929041410e@800925120116800925120116800925120116e:' 800925120116800925120116800925120116e800925120116800925120116800925120116800925120116800925120116800925120116e5n8009290413405080092904134950800929041349de4 .8009251517290080092515173425800925151734de>!8009251518170080092515182375800925151823d eO8009251518537580092515185750800925151857d(  eR/]D8009251519327580092515194575800925151945d e8009251520205080092515202450800925152024d e08009251521002580092515210350800925152103d e8009251521370080092515214100800925152141deY8009251522360080092515223925800925152239de8009251523055080092515230875800925152308de%) I 8009251525260080092515253725800925152537de> 8009251526585080092515270275800925152702deCJ8009251527325080092515290375800925152903d* + , - . / 0 . DUMPOBJ SYSMTEX:VERIFYJCLMTEX:COPY JCLMTEX:DUMP JCLMTEX:TEST JCLMTEX:CUE JCLMTEX:VIEW JCLMTEX:KILL JCLMTEXASM JCLMTEXLINK JCLOS4MTEX OBJOS4MTEX MAPOS4MTEX LST1PAGE 0001 MULTI-TASKING LINKER (E7) 1980/06/04 19:15:14 FILE USAGE SUMMARY DH1.MTEX::.SYS=DH1.OS4MTEX.OBJ+ DH1.OS4MTEXINT.OBJ+ DH1.OS4INITJCL.OBJ+ DH1.OS4.LIB NOTE: *** OS4.LIB - REV E400 1  *** 1PAGE 0002 MULTI-TASKING LINKER (E7,E4,E5,E3,--,E2,E0) 1980/06/04 19:18:32 ALL SYMBOLS THE TRANSFER ADDRESS IS 0000(BLANK) ABSOLUTE SYMBOLS 0001-F:CFNO 0001-I:IO 0101-E:MONE 0107-E:UAT  010D-E:MSG 0113-E:PRINT 0123-E:CIBHD 0001-F:CONN 0001-R:GATD 0102-E:LOAD 0108-E:UATP 010E-E:ISM 0114-E:CIFP  0124-E:ZBSEM 0001-F:CREA 0001-R:SATD 0103-E:LDR 0109-E:SF 010F-E:ICH 0115-E:SLFP 0125-E:BASEM 0001-F:DELE 0001-R:SIG 0104-E:ERR 010A-E:UF 0110-E:GFN 0116-E:EXEC 0126-E:BUFSEM 0001-F:DMNT 0001-R:WAIT 0105-E:HIGH 010B-E:JCL 0111-E:RCI 011B-E:LL1 0127-E:ERRTAB 0001-F:MONT 0100-E:MON 0106-E:LOW 010C-E:IJCL 0112-E:SLU 011F-E:LL2 0128-E:SYSFLG MEMORY RELOCATABLE 0000-R:LOW 3D8F-R:HIGH SEGMENT BLANK (0000 - 3D8F) RELOCATABLE - RAM 0100-T1 0170-BP 13EC-DECTOBIN 17D9-LOMSG 1EA9-IFILENO 3346-MFMSETUP 35E3-MFM:SKT 0101-T2 0171-PAGE 13FE-MEMIO 1979-BLB 1EAD-VRFLAG 3373-MFM:CEAT 3608-MFM:EMG 0102-T3 0173-INIOB 1407-HAD 1AAD-GOPT 1EAE-OCCUFLAG 3378-MFM:CRT 3612-MFM:RD80 0103-T4 017B-OUTIOB 1429-BTB 1AF4-LOOKUP 1EB7-MFMIOB 33B0-MFM:RD 36C5-MFM:FIN 0104-T5 018B-LOIOB 144E-PDAT 1B1D-GPUN 2720-SCRBUF 3431-MFM:WT 36D2-MFM:FINN  011C-NAMPTR 019B-DUIOB 1465-PTIM 1B2C-CPUN 2F30-MTVIEW 349D-MFM:WTBK 37D3-MFM:RWD 012C-ISMPL 023F-CBUF  147F-MOVNAM 1B32-MSG 3036-INIT 34AD-MFM:RDBK 37D8-MFM:SKFM 0143-RECCT 0540-EXEC: 14F2-LOMSGNFC 1B37-MOV  3105-MTDUMP 351D-MFM:SVU 37DC-MFM:BKSP 014B-FORML 08FA-VIEW 1529-VIEWIO 1B42-FMSG 3234-KILL 3553-MFM:TPOS 3893-MTMES1 014F-MODE 133F-DUMLINE 1616-GDIR 1E98-BCT 3258-REWIND 3584-MFM:HD2 38A9-MTMES11 0156-NAMF 13AB-COMPARE 173A-COKM 1E9C-RECZF 3261-WTAPEM 3598-MFM:TPOF 38CB-MTMES12 0157-NAMT 13BA-BCOMPARE 17C0-OPLO 1EA1-SAVEL 3290-BACKSP 35C4-MFM:FEOT 3C6D-INITJCL 016E-OPTIONS 13D3-BMOVE 17CE-CLLO 1EA8-RWDFLAG 32E7-ADVANCE 35E1-MFM:SDT NO WARNINGS -E:LL1 0127-E:ERRTAB 0001-F:MONT 0100-E:MON 0106-E:LOW 010C-E:IJCL 0112-E:SL1PAGE 0001 MACRO (E100) 1980/06/04 19:06:44.50 SI = DH01.OS4EXEC .ASM SO = DH01.OS4MTEX .OBJ LI = DH01.OS4MTEX  .LST 0001 **************************************************************** 0002 *  0003 * PROGRAM REVISION HISTORY 0004 * 0005 * C0 - MADE SLASH OPTIONAL AND CHANGED SECONDARY EXTENT 0006 * REQUEST FROM 10 TO 100 E.W. 11/20/78 0007 * 0008 * C1 - CHANGED AUTOLOAD TO READ BOOTS IN A BUFFER IN EXEC, 0009 * MODIFY NAME AND THEN WRITE UP TO HIGH MEMORY 0010 * ALSO ASSIGNMENTS TO SINGLE DIGITS ON 410 FIXED 0011 * RENAME CHANGED TO ALLOW PUN OR LUN ON 2ND FILE 0012 *  IF IT RESOLVES TO SAME UNIT AS 1ST FILE. 0013 * SPLIT MOUNT AND DISMOUNT CALLS. 2  0014 * CHECK LU ON ASSIGN AND PRINT 0015 *  INVALID MESSAGE IF NOT IN UAT 0016 * E.W. 1/9/79 0017 * 0018 * CA - CHANGED FORMAT OF VIEW, IT CAN VIEW A SINGLE FILE 0019 *  AND INCLUDED LAST ACCESS DATE, LAST MODIFIED DATE, 0020 * AND CREATION DATE IN ONE OF THE OPTIONS. 0021 * MODIFIED COPY SO THAT IT CAN OVERWRITE A EXISTED FILE 0022 *  WHEN DOUBLE SLASHES SUPPLIED, CAN COPY MORE THAN 0023 * ONE FILE AT A TIME, AND MERGE FILE IS AVAILABLE TOO. 0024 * M.T.C. 4/10/79 0025  * 0026 * CB - CHANGED AUTOLOAD TO ACCEPT .AUT & .BIN AS DEFAULT 0027 *  EXTENSIONS IN THE ORDER LISTED. 0028 * CHANGED FILENAME TO LOOK FOR .BIN & .SYS AS DEFAULT  0029 * EXTENSIONS INSTEAD OF .SYS & .BIN & . 0030 * CHANGED ASSIGN COMMAND TO CREATE THE SPECIFIED FILE 0031 * IF IT DOES NOT CURRENTLY EXIST ON APPROVAL FROM  0032 * THE USER. 0033 * ADDED MAGTAPE VIEW & DUMP CODE FROM PORTLAND. 0034 * D.P. 24 APR 1979 0035 * 1PAGE 0002 MACRO (E100) 1980/06/04 19:06:45.75 SI = DH01.OS4EXEC .ASM SO = DH01.OS4MTEX .OBJ LI = DH01.OS4MTEX .LST  0036 * D0 - CHANGED FILE ASSIGNMENT SCREEN OUTPUT. 0037 * MODIFIED COPYALL SO THAT IT CAN OVERWRITE A EXISTED FILE 0038 * WHEN DOUBLE SLASHES SUPPLIED. 0039 * ADD ONE MORE FEATURE TO VIEW SO THAT IT CAN VIEW ALL THE 0040 * FILE WITH SAME NAME BUT DIFFERENT EXTENTION. 0041 * M.T.C. 5/23/79 0042 * 0043 * D1 - UPDATED FOR PRODUCTION RELEASE. 0044 * ADDED F:MONT CALL IN VIEW. 0045 * ADDED NEXT COMMAND LINE SCANNING IN COPY. 0046 *  D.P. 16 SEP 1979 0047 * 0048 * D2 - ADDED MAG. TAPE ANSI STANDARD FILES TO EXEC, 0049 * AND UPDATED EXISTING CODE FOR MAG TAPE. 0050 *  0051 * M.T.C. 26 SEP 1979 0052 *  0053 * E000 - SPLIT MAG TAPE ROUTINES AND OS4 EXECUTIVE. ADDED MORE 0054 * MAG TAPE COMMANDS AND VERIFY COMMAND. CHANGED VIEW 0055 * SO THAT IT ALLOWS MULTIPLE FILE OR DEVICE VIEW COMMAND. 0056 * 0057 * M.T.C. JAN 28 1980 3  0058 * 0059 * E100 - MODIFIED COPY TO WORK FOR X=X+Y FILE AND 0060 * MODIFIED VERIFY SO WHEN TWO SIMILAR FILES 0061 * IN DIFFERENT LENGTH CAN BE CAUGHT 0062 * 0063 * M.T.C. MARCH 14 1980  0064 * 0065 * MODIFY JOB TO PREVENT SYSTEM CRASH WHEN DOING A 0066 *  JOB WHEN A LUN IS PERMANENTLY ASSIGNED TO A FILE. 0067 * INCLUDE INTO 'PAUSE' A SKIP OPTION (UNDOCUMENTED, 0068 * EXCEPT FOR HERE) WHICH WILL IGNORE ALL STATEMENTS 0069 * BETWEEN 'PAUSE' COMMANDS IN A JCL WHEN THE '~' 0070 * CHARACTER IS ENTERED IN THE PLACE OF 'C' OR 'X'. 1PAGE 0003 MACRO (E100) 1980/06/04 19:06:47.00 SI = DH01.OS4EXEC .ASM SO = DH01.OS4MTEX  .OBJ LI = DH01.OS4MTEX .LST 0071 * 0072 * L.J.V. MARCH 26 1980 0073 * 0074 * E200 - CHANGED ASSIGN TO SEND A DECIMAL VALUE TO E:SLU RATHER 0075 * THAN AN ASCII EQUIVALENT.(WHEN INDEXING INTO TABLE) 0076 *  0077 * D.O'G APRIL 4 1980 0078 * E300 - REV LEVEL CHANGE ONLY 0079 * DO'G APRIL 22 1980 0080 *  0081 * E400 - DUMP LOWER CASE. 0082 * DO'G MAY 28 1980  0083 **************************************************************** 1PAGE 0004 MACRO (E100) 1980/06/04 19:06:47.25 SI = DH01.OS4EXEC .ASM SO = DH01.OS4MTEX .OBJ LI = DH01.OS4MTEX .LST 0540 0085 NAM EXEC: 13BA 0086 NAM BCOMPARE,BLB,BMOVE,BTB,CLLO,COKM,COMPARE 1979 13D3 1429  17CE 173A 13AB 1B2C 0087 NAM CPUN,DECTOBIN,DUMLINE,FMSG,FORML 13EC 133F  1B42 014B 1616 0088 NAM GDIR,GOPT,GPUN,HAD,LOMSG,LOMSGNFC 1AAD 1B1D 1407 17D9 14F2 1AF4 0089 NAM LOOKUP,MEMIO,MOV,MOVNAM,MSG,OPLO 13FE 1B37 147F 1B32 17C0 144E 0090 NAM PDAT,PTIM,VIEW,VIEWIO,NAMF,RECCT 1465 08FA 1529 0156 0143 011C 0091 NAM NAMPTR,MODE,NAMT,BP,INIOB,OUTIOB 014F 0157 0170 1PAGE 0005 MACRO (E100) 1980/06/04 19:06:48.00 SI = DH01.OS4EXEC .ASM SO = DH01.OS4MTEX .OBJ LI = DH01.OS4MTEX .LST 0173 017B 018B 0092 NAM LOIOB,DUIOB,CBUF,ISMPL,OPTIONS 019B 023F 012C 016E 0100 0093 NAM T1,T2,T3,T4,T5,PAGE 0101 0102 0103 0104  0171 0094 EXTR E:MSG 0095 EXTR E:UATP,E:UAT 4  0096 EXTR E:ERR 0097 EXTR E:CIFP 0098 EXTR E:SLFP  0099 EXTR E:PRINT 0100 EXTR E:SYSFLG 0101  EXTR INITJCL 0103 * LENGTH OF MESSAGE 0104 MACRO LNM  0105 WORD #1-$-1*2 0106 ENDM 00000001 0108 IFT MFMEXEC 0109 EXTR ADVANCE,BACKSP,INIT,MFMSETUP 0110 EXTR MTVIEW,MTDUMP,REWIND,WTAPEM 0111 EXTR KILL,VRFLAG,OCCUFLAG,SCRBUF,BCT 1PAGE 0006 MACRO (E100) 1980/06/04 19:06:49.00 SI = DH01.OS4EXEC .ASM SO = DH01.OS4MTEX .OBJ LI = DH01.OS4MTEX .LST 0112 EXTR RECZF,MFMIOB,SAVEL,RWDFLAG,IFILENO 0113 EXTR MFMIOB,MTMES1,MTMES11,MTMES12  0114 EXTR MFM:BKSP,MFM:CEAT,MFM:SKT,MFM:EMG 0115 EXTR MFM:FEOT,MFM:FIN,MFM:FINN,MFM:CRT 0116 EXTR MFM:HD2,MFM:RD,MFM:TPOF,MFM:TPOS 0117 EXTR MFM:RD80,MFM:RDBK,MFM:RWD,MFM:SKFM 0118 EXTR MFM:SVU,MFM:WT,MFM:WTBK,MFM:SDT 0119  ENDC 00000021 0120 R:ACT EQU :21 00000024 0121 R:EMEM EQU :24 00000001 0125  IFT MFMEXEC 1PAGE 0007 MACRO (E100) OS4MTEX - MAG TAPE EXECUTIVE (93462-11-E400) 1980/06/04 19:06:49.50 SI = DH01.OS4EXEC .ASM SO = DH01.OS4MTEX .OBJ LI = DH01.OS4MTEX .LST 0127 ENDC 00004349 0128 CI EQU 'CI' 00004C4F 0129 LO EQU 'LO' LIST OUTPUT 0000534C 0130 SL  EQU 'SL' SYSTEM LOG 0000001B 0132 WRFAFC EQU WR:%4+FA: WRITE FORMATTED ALPHA  00000008 0133 REFSFC EQU RE:%4+FS: READ FORMATTED STREAM 00000018 0134 WRFSFC EQU WR:%4+FS:  WRITE FORMATTED STREAM 0000000B 0135 REFAFC EQU RE:%4+FA: READ FORMATTED ASCII 0000001C 0136 WRDSFC EQU WR:%4+DS: WRITE DIRECT FORMATTED STREAM 00000030 0137 OPENFC EQU FU:%4+OP: OPEN FUNCTION CODE 00000031 0138 CLOZFC EQU FU:%4+CL: CLOSE FUNCTION CODE 00000021 0139 PORBFC EQU PO:%4+FRB: POSITION RELATIVE BYTES 0000001C 0140 WRDSFC EQU WR:%4+DS: WRITE DIRECT STREAM 0000000C 0141 REDSFC EQU RE:%4+DS: READ DIRECT STREAM 00000000 0143 REUFFC EQU RE:%4+UF: READ UNFORMATTED 0144 * FNO EQUATES 00000003 0145 FREE EQU 3 00000005 0146 BAD EQU 5 0000000B 0148 FEXT EQU 11 START OF FILE EXTESION 0000002F 0149 SLASH EQU '/' FIRST CHAR OF JCL COMMAND 0000000D 0150 CR EQU :D 1PAGE 0008 MACRO (E100) OS4MTEX - MAG TAPE EXECUTIVE (93462-11-E400) 1980/06/04 19:06:50.75 SI = DH01.OS4EXEC .ASM SO = DH01.OS4MTEX .OBJ LI = DH01.OS4MTEX5  .LST 0152 * 0153 * DEBUGGER'S OASIS, SO EXEC CAN START AT REL 0  0154 * 0000 9F80 0001 0155 STARTEX JMP *$+1 0001 0540 0156 WORD EXEC: 0002 9F80 0003 0157  JMP *$+1 0003 0572 0158 WORD MTEX: 1PAGE 0009 MACRO (E100) OS4MTEX - MAG TAPE EXECUTIVE (93462-11-E400) 1980/06/04 19:06:51.00 SI = DH01.OS4EXEC .ASM SO = DH01.OS4MTEX .OBJ LI = DH01.OS4MTEX .LST 00000008 0160 CMDLN EQU 8 COMMAND LENGTH 00000004 0161 CMDTBL EQU $ 0004 0004 0162  WORD CMDLN+1/2 WORD LENGTH OF A COMMAND 0005 4153 0163 BYTE 'ASSIGN ' 0006 5349 0007 474E 0008 2020 0009 0668 0164 WORD ASSIGN 000A 4144 0165 BYTE 'ADVANCE ' 000B 5641 000C 4E43 000D 4520 000E 0032 0166 WORD ADVANCE 000F 4155 0167 BYTE 'AUTOLOAD' 0010 544F 0011 4C4F 0012 4144 0013 07DF 0168 WORD AUTOLD 0014 4241 0169 BYTE 'BACKSP ' 0015 434B 0016 5350 0017 2020 0018 0031 0170 WORD BACKSP 0019 434F 0171 BYTE 'COPY  ' 001A 5059 001B 2020 001C 2020 001D 0A90 0172 WORD COPY 001E 434F 0173 BYTE 'COPYALL ' 001F 5059 0020 414C 0021 4C20 0022 0C7C 0174 WORD CPYALL 0023 5843 0175 BYTE 'XCREATE ' 0024 5245 1PAGE 0010 MACRO (E100) OS4MTEX - MAG TAPE EXECUTIVE (93462-11-E400) 1980/06/04 19:06:51.75 SI = DH01.OS4EXEC .ASM SO = DH01.OS4MTEX .OBJ LI = DH01.OS4MTEX .LST 0025 4154 0026 4520 0027 085C 0176  WORD CREATE 0028 434F 0177 BYTE 'COPYPACK' 0029 5059 002A 5041 002B 434B 002C 0E11 0178  WORD CPYPAC 002D 4441 0179 BYTE 'DATE ' 002E 5445 002F 2020 0030 2020 0031 11AA 0180 WORD DATE 0032 4445 0181 BYTE 'DELETE ' 0033 4C45 0034 5445 0035 2020 0036 0640 0182 WORD DELETE 0037 4449 0183 BYTE 'DISMOUNT' 0038 534D 0039 4F55 003A 4E54 003B 1545  0184 WORD DMOUNT 003C 444F 0185 BYTE 'DO ' 003D 2020 003E 2020 003F 2020 0040 065D 0186 WORD DO 0041 4455 0187 BYTE 'DUMP ' 0042 4D50 0043 2020 0044 2020 0045 12C7 0188 WORD DUMP 0046 4944 0189 BYTE 'IDIR ' 0047 4952 1PAGE 0011 MACRO (E100) OS4MTEX - MAG TAPE EXECUTIVE (93462-11-E400) 1980/06/04 19:06:52.25 SI = DH01.OS4EXEC .ASM SO = DH01.OS4MTEX .OBJ LI = DH01.OS4MTEX .LST 0048 2020 0049 2020 004A 11F6 0190 WORD IDIR 004B 494E 0191 BYTE 'INIT ' 004C 4954 004D 2020 004E 2020 004F 0030 0192 WORD INIT 0050 4A4F 0193  BYTE 'JOB ' 0051 4220 0052 2020 0053 2020 0054 125D 0194 WORD JOB 0055 4B49 0195  BYTE 'KILL ' 0056 4C4C 0057 2020 0058 2020 0059 002A 0196 WORD KILL 005A 4D4F 0197 6  BYTE 'MOUNT ' 005B 554E 005C 5420 005D 2020 005E 1548 0198 WORD MOUNT 005F 5041 0199 BYTE 'PAUSE ' 0060 5553 0061 4520 0062 2020 0063 1378 0200 WORD PAUSE 0064 5052 0201 BYTE 'PRINT ' 0065 494E 0066 5420 0067 2020 0068 1566 0202 WORD PRINT 0069 5245  0203 BYTE 'RENAME ' 006A 4E41 1PAGE 0012 MACRO (E100) OS4MTEX - MAG TAPE EXECUTIVE (93462-11-E400) 1980/06/04 19:06:53.00 SI = DH01.OS4EXEC .ASM SO = DH01.OS4MTEX .OBJ LI = DH01.OS4MTEX .LST 006B 4D45 006C 2020 006D 157D 0204 WORD RENAME 006E 5245 0205 BYTE 'REWIND ' 006F 5749 0070 4E44 0071 2020 0072 002C 0206 WORD REWIND 0073 5449 0207 BYTE 'TIME ' 0074 4D45 0075 2020 0076 2020 0077 15D3 0208 WORD TIME 0078 5649 0209 BYTE 'VIEW ' 0079 4557 007A 2020 007B 2020 007C 08FA 0210 WORD VIEW 007D 5645 0211 BYTE 'VERIFY ' 007E 5249 007F 4659 0080 2020 0081 0ED8 0212 WORD VERIFY 0082 5754 0213 BYTE 'WTAPEM ' 0083 4150 0084 454D 0085 2020 0086 002B 0214 WORD WTAPEM 0087 0000 0215 WORD 0 1PAGE 0013 MACRO (E100) OS4MTEX - MAG TAPE EXECUTIVE (93462-11-E400) 1980/06/04 19:06:53.50 SI = DH01.OS4EXEC .ASM SO = DH01.OS4MTEX .OBJ LI = DH01.OS4MTEX .LST 00000088 0217 MODTBL EQU $ COPY MODIFIER TABLE 0088 0001 0218 WORD 1 1 WORD PER ENTRY 0089 4641 0219 BYTE 'FA' 008A 000B 0220 WORD FA: 008B 4642 0221 BYTE 'FB' 008C 000A 0222 WORD FB: 008D 4653 0223 BYTE 'FS' 008E 0008 0224 WORD FS: 008F 5546 0225 BYTE 'UF'  0090 0000 0226 WORD UF: 0091 464C 0227 BYTE 'FL' FORMATTED LISTING 0092 000B 0228 WORD FA: 0093 0000 0229 WORD 0 00000094 0231 OPTBL EQU $ OPTION TABLE FOR VIEW 0094 0004 0232 WORD 4 0095 4E41 0233 BYTE  'NAMEONLY' 0096 4D45 0097 4F4E 0098 4C59 0099 0004 0234 WORD :4 009A 4558 0235 BYTE  'EXTENDED' 009B 5445 009C 4E44 009D 4544 009E 0008 0236 WORD :8 009F 5354 0237 BYTE  'STANDARD' 1PAGE 0014 MACRO (E100) OS4MTEX - MAG TAPE EXECUTIVE (93462-11-E400) 1980/06/04 19:06:54.25 SI = DH01.OS4EXEC .ASM SO = DH01.OS4MTEX .OBJ LI = DH01.OS4MTEX .LST 00A0 414E 00A1 4441 00A2 5244 00A3 0010 0238  WORD :10 00A4 414C 0239 BYTE 'ALLFILE ' 00A5 4C46 00A6 494C 00A7 4520 00A8 0020 0240  WORD :20 00A9 0000 0241 WORD 0 000000AA 0242 CPYALLBL EQU $ 00AA 0005 0243  WORD 5 00AB 4F56 0244 BYTE 'OVERWRITE ' 00AC 4552 00AD 5752 00AE 4954 00AF 4520 00B0 00017  0245 WORD 1 00B1 0000 0246 WORD 0 00000001 0247 IFT MFMEXEC  000000B2 0248 RVTBL EQU $ 00B2 0004 0249 WORD 4 00B3 5245 0250 BYTE 'REWIND ' 00B4 5749 00B5 4E44 00B6 2020 00B7 0052 0251 WORD 'R' REWIND THE TAPE 00B8 5645 0252 BYTE 'VERIFY ' 00B9 5249 00BA 4659 00BB 2020 00BC 0056 0253 WORD 'V' VERIFY FOR COPY 00BD 4F43 0254 BYTE 'OCCUR ' 00BE 4355 00BF 5220 1PAGE 0015 MACRO (E100) OS4MTEX - MAG TAPE EXECUTIVE (93462-11-E400) 1980/06/04 19:06:54.75 SI = DH01.OS4EXEC .ASM SO = DH01.OS4MTEX .OBJ LI = DH01.OS4MTEX  .LST 00C0 2020 00C1 004F 0255 WORD 'O' OCCURANCE OPTION 00C2 0000 0256 WORD 0 0257 ENDC 000000C3 0258 CRE8TABL EQU $ CREATE OPTION TABLE 00C3 0005 0259 WORD 10/2 WORD LENGTH OF OPTION 00C4 4449 0260 BYTE 'DIRECTORY ' 00C5 5245 00C6 4354 00C7 4F52 00C8 5920 00C9 0000 0261 WORD 0 00CA 4649 0262 BYTE 'FILE ' 00CB 4C45 00CC 2020 00CD 2020 00CE 2020 00CF 0001 0263 WORD 1 00D0 0000 0264 WORD 0 000000D1 0266 HEXTAB EQU $ BINARY TO ASCII HEXADECIMAL CONVERSION TABLE 00D1 3031  0267 BYTE '0123456789' 00D2 3233 00D3 3435 00D4 3637 00D5 3839 00D6 4142 0268 BYTE 'ABCDEF' 00D7 4344 00D8 4546 000000D9 0269 DECTAB EQU $ BINARY TO ASCII DECIMAL CONVERSION TABLE 00D9 0001 0270 WORD 1,10,100,1000 00DA 000A 00DB 0064 1PAGE 0016 MACRO (E100) OS4MTEX - MAG TAPE EXECUTIVE (93462-11-E400) 1980/06/04 19:06:55.50 SI = DH01.OS4EXEC .ASM SO = DH01.OS4MTEX .OBJ LI = DH01.OS4MTEX .LST  00DC 03E8 00DD 00E3 0271 CONN:A DIRPL,ROOT,,,'Z3' DIRECTORY CONNECT LIST 00DE 0000 0271+ 00DF 0000  0271+ 00E0 0000 0271+ 00E1 5A33 0271+ 00E2 0000 0272 DIRME RES 1,0 FNO OF DIRECTORY 00E3 2E20 0273 ROOT BYTE '. ' NAME OF ROOT 00E4 2020 00E5 2020 00E6 2020 00E7 2020 00E8 2020 00E9 2020 00EA 0000 0274 DIRYOU RES 1,0 FNO OF PARENT DIRECTORY 00EB 2E2E 0275 BYTE  '.. ' 00EC 2020 00ED 2020 00EE 2020 00EF 2020 00F0 2020 00F1 2020 00F2 4F53 0277 OS::  BYTE 'OS:: SYS' 00F3 3A3A 00F4 2020 00F5 2020 00F6 2020 00F7 2053 00F8 5953 1PAGE 0017 MACRO (E100) OS4MTEX - MAG TAPE EXECUTIVE (93462-11-E400) 1980/06/04 19:06:56.50 SI = DH01.OS4EXEC .ASM SO = DH01.OS4MTEX .OBJ LI = DH01.OS4MTEX .LST 000000F9 0279 TOD EQU $ TIME OF DAY 00F9 0000 0280 YY RES  1,0 00FA 0000 0281 MO RES 1,0 MONTH 00FB 0000 0282 DD RES 1,0 00FC 0000  0283 HH RES 1,0 00FD 0000 0284 MI RES 1,0 MINUTES 00FE 0000 0285 SE RE8 S 1,0 SECONDS 00FF 0000 0286 HS RES 1,0 HUNDRETHS OF A SECOND 0100 0000  0288 T1 RES 1,0 TEMP 0101 0000 0289 T2 RES 1,0 TEMP 0102 0000 0290 T3 RES 1,0 TEMP 0103 0000 0291 T4 RES 1,0 0104 0000 0292 T5 RES 1,0 0105 0000 0293 T6 RES 1,0 0106 0000 0294 T7 RES 1,0 0107 0000 0295 T8 RES  1,0 0108 0000 0297 SLASHF RES 1,0 DOUBLE SLASH FLAG 0109 0000 0298 ASSDO RES 1,0 ASSIGN DO FLAG 010A 0000 0299 PAU:FLAG RES 1,0 PAUSE SKIP FLAG 0301 *  LOAD LISTS 010B 4C44 0302 LL1 BYTE 'LD' FIRST PROGRAM ALWAYS USES LD 010C 0000 0303  RES 3,0 010F 5A31 0304 LL2 BYTE 'Z1' SECOND PROGRAM USES Z1 1PAGE 0018 MACRO (E100) OS4MTEX - MAG TAPE EXECUTIVE (93462-11-E400) 1980/06/04 19:06:57.50 SI = DH01.OS4EXEC .ASM SO = DH01.OS4MTEX .OBJ LI = DH01.OS4MTEX .LST 0110 0000 0305 RES 3,0 0113 4C44 0306 LLMT LOAD: 'LD',:200 FOR MAG TAPE LOADING 0114 0000 0306+ 0115 0200 0306+ 0116 0000 0306+ 0117 0000 0306+ 0118 0000 0306+  0119 0000 0306+ 011A 0000 0306+ 011B 00F0 0306+ 011C 0000 0308 GFN:PL NAMPTR,ISMPL 011D 0000 0308+ 011E 0000 0308+ 011F 0000 0308+ 0120 0000 0308+ 0121 0000 0308+ 0122 0000  0308+ 0123 0000 0308+ 012A 0000 0308+ 012C 0000 0308+ 0000011D 0309 VOLPTR EQU NAMPTR+VOLPT: VOLUME POINTER 0000011E 0310 UNIT EQU NAMPTR+PUN: UNIT 0000011F 0311 FNO EQU NAMPTR+FNO: DIRECTORY FNO 00000120 0312 LUN EQU NAMPTR+LUN: LU 00000120 0313 INXT EQU NAMPTR+INXT: INIT EXTENT 00000121 0314 SEXT EQU NAMPTR+SEXT: SECONDARY EXTENT 00000122 0315 RLN EQU  NAMPTR+RLN: RECORD LENGTH 00000123 0316 NAME EQU NAMPTR+NAME: FILE NAME, 7 WORDS 0000012A 0317 FEXTL EQU NAMPTR+FEXTL: FILE EXTENSION LENGTH 1PAGE 0019 MACRO (E100) OS4MTEX - MAG TAPE EXECUTIVE (93462-11-E400) 1980/06/04 19:06:59.25 SI = DH01.OS4EXEC .ASM SO = DH01.OS4MTEX .OBJ LI = DH01.OS4MTEX .LST  0319 * ISM PL 0000012C 0320 ISM EQU ISMPL 0000012C 0321 TC EQU ISM+ISMTC: TEST CHAR 0000012D 0322 NC EQU ISM+ISMNC: NUMBER OF CHARS 0000012E 0323 DV EQU ISM+ISMDV: DECIMAL VALUE 0000012F 0324 HV EQU ISM+ISMHV: HEX VALUE 00000130 0325 DF EQU ISM+ISMDF: DECIMAL FLAG 00000131 0326 HF EQU ISM+ISMHF: HEX FLAG 00000132 0327 SBUF EQU  ISM+ISMSB: SYMBOL BUFFER 00000139 0328 CMDBP EQU ISM+ISMBP: BUFFER POINTER 1PAGE 0020 MACRO (E100) OS4MTEX - MAG TAPE EXECUTIVE (93462-11-E400) 1980/06/04 19:06:59.75 SI = DH01.OS4EXEC .ASM SO = DH01.OS4MTEX .OBJ LI 9 = DH01.OS4MTEX .LST 00000001 0330 IFT MFMEXEC 013B 0000 0331 DFLAGT RES 1,0  DEVICE TO FLAG = 0 IF MAG. TAPE 013C 0000 0332 DFLAGF RES 1,0 DEVICE FROM FLAG = 0 IF MAG. TAPE 013D 0000 0333 VFLAGT RES 1,0 VERIFY FLAG TO MAG TAPE 013E 0000 0334 VFLAGF RES 1,0 VERIFY FLAG FROM MAG TAPE 013F 0000 0335 OUFLAGT RES 1,0 OCCURANCE FLAG TO MAG TAPE 0140 0000 0336 OUFLAGF RES 1,0 OCCURANCE FLAG FROM MAG TAPE 0141 0000 0337 RWFLAGT RES 1,0 REWIND FLAG TO MAG TAPE 0142 0000 0338 RWFLAGF RES 1,0 REWIND FLAG FROM MAG TAPE 0339 ENDC 0143 0000 0340 RECCT RES 1,0 RECORD # 0144 0000 0341 UNITLN RES 1,0 # OF UNIT PER LINE 0145 0000 0342 OFFSET RES 1,0 OFFSET TO BUFFER FOR /AS 0146 0000 0343 UNITCNT RES 1,0 # OF UNIT PRINTED 0147 0000 0344 GRANDAU RES 1,0 GRAND AU TOTAL FOR VIEW 0148 0000 0345 TOTALFL RES 1,0 TOTAL # OF FILES 0149 0000 0346 FLISTADR RES 1,0 ADDRESS OF FLIST 014A 0000 0347 AUCNT RES 1,0 # OF AU FOR VIEW 014B 0000 0348 FORML RES 1,0  FORM CONTROL OFFSET FOR COPY 014C 0000 0349 PLUSFLAG RES 1,0 PLUSED FILE FLAG FOR COPY 014D 0000  0350 FNOF RES 1,0 FROM DDIRECTORY FNO 014E 0000 0351 FNOT RES 1,0 TO DIRECTORY FNO 014F 0000 0352 MODE RES 1,0 0150 0000 0353 MODEF RES 1,0 FROM MODE 0151 0000  0354 MODET RES 1,0 TO MODE 0152 5A31 0355 LUNF WORD 'Z1' FROM LU 0153 5A32  0356 LUNT WORD 'Z2' TO LU 0154 0000 0357 UNITF RES 1,0 FROM UNIT 0155 0000  0358 UNITT RES 1,0 TO UNIT 0156 0000 0359 NAMF RES 1,0 FROM NAME POINTER 0157 0000 0360 NAMT RES 1,0 TO NAME POINTER 0158 0000 0361 NAME1 RES 7,0 FILE NAMES FOR COPY 015F 0000 0362 NAME2 RES 7,0 0166 0000 0363 VOLUME RES 7,0 VOLUME NAME 016D 0000 0364 RECNO RES 1,0 RECORD NUMBER FOR COPY 1PAGE 0021 MACRO (E100) OS4MTEX - MAG TAPE EXECUTIVE (93462-11-E400) 1980/06/04 19:07:01.50 SI = DH01.OS4EXEC .ASM SO = DH01.OS4MTEX .OBJ LI = DH01.OS4MTEX .LST 016E 0000 0365 OPTIONS RES 1,0 OPTION FOR VIEW 016F 0000 0366 VIEWLPP RES 1,0 LINES/PAGE FOR VIEW 0170 0000 0367 BP RES 1,0 COMMAND BUFFER POINTER 0171 0000 0368 PAGE RES 1,0 PAGE NO 0172 0000 0369 LINE RES 1,0 LINE NO 00000173 0371 INIOB  EQU $ INPUT IOB 0173 5A31 0372 INLUN WORD 'Z1' LU 0174 0000 0373 RES 1,0 0175 01DD 0374 INCFI WORD INFP ADDR OF FILE POINTER 0176 0000 0375 INFC RES 1: ,0 FUNCTION CODE 0177 0200 0376 INBCT WORD 512 MAX BYTE COUNT 0178 023F 0377 INBUF  WORD CBUF BUFFER ADDR 0179 0000 0378 INACT RES 1,0 COUNT DONE 017A 0000 0379 INST RES 1,0 STATUS 0000017B 0381 OUTIOB EQU $ OUTOUT IOB 017B 5A32 0382 OUTLUN WORD 'Z2' LU 017C 0000 0383 RES 1,0 017D 01DF 0384 OUTCFI WORD OUTFP ADDR OF FILE POINTER 017E 0000 0385 OUTFC RES 1,0 FUNCTION CODE 017F 0000 0386 OUTBCT RES 1,0 BYTE COUNT 0180 023F 0387 OUTBUF WORD CBUF BUFFER ADDR 0181 0000 0388 OUTACT RES 1,0 COUNT DONE 0182 0000 0389 OUTST RES 1,0 00000183 0391 DRIOB EQU $ DIRECTORY IOB 0183 5A33 0392 DRLUN WORD 'Z3' LU 0184 0000 0393 RES 1,0 1PAGE 0022 MACRO (E100) OS4MTEX - MAG TAPE EXECUTIVE (93462-11-E400) 1980/06/04 19:07:02.75 SI = DH01.OS4EXEC  .ASM SO = DH01.OS4MTEX .OBJ LI = DH01.OS4MTEX .LST 0185 01DB 0394 DRCFI WORD DRFP FP ADDR 0186 0000 0395 DRFC RES 1,0 FUNCTION CODE 0187 0010 0396 DRBCT WORD 16 LENGTH OF ENTRRY 0188 01F6 0397 DRBUF WORD DRBUFF BUFFER ADDR 0189 0000 0398 DRACT RES 1,0 018A 0000 0399 DRST RES 1,0 0000018B 0401 LOIOB EQU $ 'LO' IOB 018B 4C4F 0402 LOLUN WORD 'LO' LU 018C 0000 0403 RES 1,0 018D 01E1 0404 LOCFI WORD LOFP 018E 001B 0405 LOFC WORD WRFAFC WRITE ASCII 018F 0080 0406 LOBCT WORD 128 0190 01FE  0407 LOBUF WORD LOBUFF 0191 0000 0408 LOACT RES 1,0 0192 0000 0409 LOST RES 1,0  00000193 0411 CIIOB EQU $ CI IOB 0193 4349 0412 CILUN WORD 'CI' 0194 0000  0413 RES 1,0 0195 0000 0414 CICFI RES 1,0 0196 0000 0415 CIFC RES 1,0  FUNCTION CODE 0197 0000 0416 CIBCT RES 1,0 0198 0000 0417 CIBUF RES 1,0 0199 0000 0418 CIACT RES 1,0 019A 0000 0419 CIST RES 1,0 0000019B 0421 DUIOB EQU $ 019B 5A31  0422 DULUN WORD 'Z1' LU 1PAGE 0023 MACRO (E100) OS4MTEX - MAG TAPE EXECUTIVE (93462-11-E400) 1980/06/04 19:07:03.75 SI = DH01.OS4EXEC .ASM SO = DH01.OS4MTEX .OBJ LI = DH01.OS4MTEX .LST 019C 0000 0423  RES 1,0 019D 01E3 0424 DUCFI WORD DUFP FP ADDR 019E 0000 0425 DUFC WORD REUFFC 019F 0000 0426 DUBCT WORD 0 BYTE COUNT 01A0 033F 0427 DUBUF WORD DUBUFF BUFFER ADDR 01A1 0000 0428 DUACT RES 1,0 01A2 0000 0429 DUST RES 1,0 01A3 4349 0431  IOB:A PROMPT,'CI',WR:,WP:,2,PCHAR,0 01A4 0000 0431+ 01A5 0000 0431+ 01A6 0011 0431+ 01A7 0002 ;  0431+ 01A8 01EF 0431+ 01A9 0000 0431+ 01AA 0000 0431+ 01AB 4349 0432 IOB:A EXPR,'CI',WR:,WP:,6,EXPC,0 01AC 0000 0432+ 01AD 0000 0432+ 01AE 0011 0432+ 01AF 0006 0432+ 01B0 01E9 0432+ 01B1 0000 0432+ 01B2 0000 0432+ 01B3 4F43 0433 IOB:A OCIOB,'OC',RE:,UF:,1,SBUF,0 01B4 0000 0433+ 01B5 0000 0433+ 01B6 0000 0433+ 01B7 0001 0433+ 01B8 0132 0433+ 01B9 0000 0433+  01BA 0000 0433+ 000001B7 0434 OCCNT EQU OCIOB+IO:BCT 1PAGE 0024 MACRO (E100) OS4MTEX - MAG TAPE EXECUTIVE (93462-11-E400) 1980/06/04 19:07:05.00 SI = DH01.OS4EXEC .ASM SO = DH01.OS4MTEX .OBJ LI = DH01.OS4MTEX .LST  000001B8 0435 OCBUF EQU OCIOB+IO:BUF 01BB 4F43 0436 IOB:A MSIOB,'OC',WR:,WP:,0,0,0 01BC 0000 0436+ 01BD 0000 0436+ 01BE 0011 0436+ 01BF 0000 0436+ 01C0 0000 0436+ 01C1 0000 0436+ 01C2 0000 0436+ 000001BF 0437 MSCNT EQU MSIOB+IO:BCT 000001C0 0438 MSBUF EQU MSIOB+IO:BUF 01C3 4349 0439 IOB:A UWIOB,'CI',WR:,UF:,0,UWBUFF,0 01C4 0000 0439+ 01C5 0000 0439+ 01C6 0010 0439+ 01C7 0000 0439+ 01C8 01F5 0439+ 01C9 0000 0439+ 01CA 0000 0439+ 01CB 4F43 0440 IOB:A PAUSPR,'OC',WR:,WP:,4,PAUSPC,0 01CC 0000 0440+ 01CD 0000 0440+ 01CE 0011 0440+ 01CF 0004 0440+ 01D0 01F0 0440+ 01D1 0000 0440+ 01D2 0000 0440+ 01D3 0000 0441 IOB:A  XXIOB,0,0,0,0,0,XXFP 01D4 0000 0441+ 01D5 01E5 0441+ 01D6 0000 0441+ 01D7 0000 0441+ 01D8 0000  0441+ 01D9 0000 0441+ 01DA 0000 0441+ 1PAGE 0025 MACRO (E100) OS4MTEX - MAG TAPE EXECUTIVE (93462-11-E400) 1980/06/04 19:07:06.25 SI = DH01.OS4EXEC .ASM SO = DH01.OS4MTEX .OBJ LI = DH01.OS4MTEX .LST 000001D3 0442 XXLUN EQU XXIOB+IO:LUN 000001D6 0443 XXFC EQU XXIOB+IO:FC 01DB 0000 0445 DRFP RES 2,0 01DD 0000 0446 INFP RES 2,0 01DF 0000 0447 OUTFP RES 2,0 01E1 0000 0448 LOFP  RES 2,0 01E3 0000 0449 DUFP RES 2,0 01E5 0000 0450 XXFP RES 2,0 01E7 0000 0451 CIFNO RES 1,0 FNO OF CURRNET CI 01E8 0000 0452 CIPUN RES 1,0 CURRENT CI UNIT  01E9 203C 0454 EXPC BYTE ' ' EXEC PROMPT MESSAGE 01EA 4F53 01EB 343E 01EC 203C 0455 COPROMPT BYTE ' ' COPY PROMPT MESSAGE (USES EXEC PROMPT IOB) 01ED 4350 01EE 593E 01EF 203E 0456 PCHAR BYTE  ' >' 01F0 2043 0457 PAUSPC BYTE ' CX>' C OR X REPONSE TO PAUSE 01F1 583E 01F2 2020 0458 BLANKS  BYTE ' ' 01F3 2020 01F4 2020 01F5 0000 0460 UWBUFF RES 1,0 UNFORMATTED WRITE BUFFER  01F6 0000 0461 DRBUFF RES 8,0 DIRECTORY ENTRY BUFFER 01FE 0000 0462 LOBUFF RES 64,0 023E 2020 0463 BYTE ' ' FORM CONTROL FOR COPY 1PAGE 0026 MACRO (E100) OS4MTEX - MAG TAPE EXECUTIVE < (93462-11-E400) 1980/06/04 19:07:07.25 SI = DH01.OS4EXEC .ASM SO = DH01.OS4MTEX .OBJ LI = DH01.OS4MTEX .LST  0000023F 0464 CBUF EQU $ COPY BUFFER 023F 0000 0465 RES 256,0 033F 0000  0466 DUBUFF RES 256,0 NOTE: DUBUFF & BUFF2 ARE 0467 * USED AS A :200 WORD BUFF 0468 * ON THE /AUTOLOAD COMMAND 00000001 0469  IFT MFMEXEC 0470 * 0471 * AND ALSO AS THE INPUT BUFFER FOR MAG. TAPE COPY 0472 * 0000033F 0473 OBUF EQU DUBUFF 0474 ENDC 0000043F 0475 BUFF2 EQU $ 043F 0000 0476 RES 256,0 053F 9F8C 054C 0478 EXC12J JMP EXEC12 00000540 0480 EXEC: EQU $ 0540 838C 054D 0481 COPY:M E:CIFP,A,CICFI SET CI FILE POINTER 0541 878C 054E 0481+ 0542 BF8C 054F 0482 JST MSG ANNOUNCE EXEC 0543 1B64 0483 WORD MES0 0544 838B 0550 0484 COPY E:ERR,A CHECK FOR ERROR ENTRY 0545 114D 0553 0485  JEQ A,EXEC NO ERROR 0546 BF88 054F 0486 JST MSG '/JOB' 0547 1C4E 0487  WORD MES9 1PAGE 0027 MACRO (E100) OS4MTEX - MAG TAPE EXECUTIVE (93462-11-E400) 1980/06/04 19:07:08.25 SI = DH01.OS4EXEC .ASM SO = DH01.OS4MTEX .OBJ LI = DH01.OS4MTEX .LST 0548 FF88 0551 0488 JSK JOB DO '/JOB' 0549 0900 0489 COPY =0,A 054A 9385 0550 0490 EXCH E:ERR,A RESET ERROR & PASS CODE 054B 9F86 0552 0491 EXC14J JMP EXEC14 0007 0492 LPOOL 054C 05E5 EXEC12 054D 0037 E:CIFP  054E 0195 CICFI 054F 1B32 MSG 0550 0038 E:ERR 0551 125D JOB 0552 0608 EXEC14 00000553 0494 EXEC EQU  $ 0553 8291 0565 0495 E:SLU ='CI' 0554 FF91 0566 0495+ 0555 A081 0001 0496 COPY 1(X),X 0556 8081 0001 0497 COPY FC:FLG(X),A 0557 C38F 0567 0498 COPY E:SYSFLG,Q 0558 5801 0499  AND =SF:BATCH,Q SEE IF BATCH MODE 0559 5143 055D 0500 JEQ Q,FILECI JUMP IF NOT BATCH MODE 055A 13C2 055D 0501 JLT A,FILECI JUMP IF FILE 055B FF8C 0568 0502 JSK INITJCL GET NEXT JCL FILE 055C 9E76 0553 0503 JMP EXEC 0000055D 0504 FILECI EQU $ 055D 13C2 0560 0505 JLT A,ISFILE JUMP IF FILE 055E 0900 0506 COPY =0,A NOT FILE SO F NUMBER IS 0 055F 9E8A 056A 0507 JMP EXEC0 00000560 0508 ISFILE EQU $ 0560 C081 0001 0509 COPY FC:FLG(X),Q 0561 5348 056A 0510 JGE Q,EXEC0 0562 808A 000A 0511 COPY FC:FNO(X),A FNO 0563 A089 0009 0512 COPY FC:DIB(X),X 1PAGE 0028 MACRO (E100) OS4MTEX - MAG TAPE EXECUTIVE (93462-11-E400) 1980/06/04 19:07:09.25 SI = DH01.OS4EXEC .ASM SO = DH01.OS4MTEX .OBJ LI = DH01.OS4MTEX .LST 0564 9E85 056A 0513 JMP =  EXEC0 0005 0514 LPOOL 0565 4349 0566 0011 E:SLU 0567 0034 E:SYSFLG 0568 0033 INITJCL 0569 056A 87B9 05A4 0515 EXEC0 COPY A,CIFNO SET CI FNO & DIB 056B A7B9 05A5 0516 COPY X,CIPUN 0000056C 0518 EXEC1 EQU $ 056C 3A07 0519 I:IO EXPR PROMPT CI 056D 01AB 0519+ 056E 0000 0520 NOP IGNORE ERROR 056F 2900 0521 E:RCI 0 READ FROM CI 0570 FFB9 05AA 0521+ 0571 1199 054B 0522 JNE A,EXC14J INPUT ERROR 00000572 0523 MTEX: EQU  $ 00000001 0524 IFT MFMEXEC 0572 835A 054D 0525 COPY:M E:CIFP,A,CICFI SET CI FILE POINTER FOR MTEX 0573 875A 054E 0525+ 0526 ENDC 0574 08FF 0527 COPY:M =-1,A,CMDBP RESET TO START OF BUFFER 0575 87B5 05AB 0527+ 0576 0900 0528 COPY:M =0,A,SLASHF CLEAR DOUBLE SLASH FLAG 0577 87B4 05AC 0528+ 0578 87B4 05AD 0529 COPY A,ASSDO RESET ASSIGN DO FLAG 0579 87B4 05AE 0530  COPY A,VOLPTR INIT 057A 87B4 05AF 0531 COPY A,FNO RESET TO ROOT 057B 82B4 05B0 0532  COPY:M =NAME,A,NAMPTR RESET NAMPTR 057C 87A9 05A6 0532+ 057D 83B3 05B1 0533 COPY:M INBUF,A,OUTBUF RESET OUTPUT BUFFER 057E 87B3 05B2 0533+ 1PAGE 0029 MACRO (E100) OS4MTEX - MAG TAPE EXECUTIVE (93462-11-E400) 1980/06/04 19:07:11.00 SI = DH01.OS4EXEC .ASM SO = DH01.OS4MTEX .OBJ LI = DH01.OS4MTEX .LST 057F A2A7 05A7 0535 E:ISM ISMPL GET SLASH 0580 FFB2 05B3 0535+ 0581 1142 0584 0536 JEQ A,$+3 WAS A SLASH 0582 08FF 0537 COPY =-1,A RESET CMDBP IF NO SLASH 0583 9E93 0597 0538 JMP EXEC2P 0584 83A2 05A7 0539 COPY TC,A 0585 1126 056C 0540 JEQ A,EXEC1 NULL INPUT 0586 0C20 0541  CLSN A,=' ' CHECK FOR NULL 0587 9E64 056C 0542 JMP EXEC1 NULL INPUT 0588 0C2F 0543 CLSN A,=SLASH 0589 9E81 058B 0544 JMP $+2 058A 9EDA 05E5 0545 JMP EXEC12  NOT SLASH 058B A29B 05A7 0546 E:ISM ISMPL CHECK FOR POSSIBLE SECOND SLASH 058C FFA6 05B3 0546+ 058D 11C7 0595 0547 JNE A,EXEC2 NO IT'S COMMAND 058E 8398 05A7 0548 COPY TC,A 058F 111C 056C 0549 JEQ A,EXEC1 0590 0C20 0550 CLSN A,=' ' CHECK FOR COMMENT 0591 9E5A 056C 0551 JMP EXEC1 COMMENT 0592 0AD1 0552 SUB =SLASH,A 0593 11C1 0595 0553 JNE  A,EXEC2 NOT ITS ABBREVIATED COMMAND 0594 DF97 05AC 0554 IMS SLASHF SET DOUBLE SLASH FLAG  00000595 0555 EXEC2 EQU $ 0595 0901 0556 COPY =1,A SKIP SLASH 0596 8B95 05AC 0557  ADD SLASHF,A SKIP POSSIBLE SECOND SLASH 0597 8793 05AB 0558 EXEC2P COPY A,CMDBP 0598 A28D 05A6 0559 E:GFN NAMPTR CHECK FOR VALID FILE NAME 0599 FF8E 05A8 0559+ 059A 1141 059C 0560 JEQ A,$> +2 059B 9EC9 05E5 0561 JMP EXEC12 INVALID FILE NAME 1PAGE 0030 MACRO (E100) OS4MTEX - MAG TAPE EXECUTIVE (93462-11-E400) 1980/06/04 19:07:12.75 SI = DH01.OS4EXEC .ASM SO = DH01.OS4MTEX .OBJ LI = DH01.OS4MTEX .LST 059C 8397 05B4 0563 COPY FEXTL,A IS IT DEFINITELY A FILE? 059D 0B01 0564 ADD =1,A 059E B78A 05A9 0565 OR UNIT,A 059F 11D7 05B7 0566 JNE A,EXEC2F YES 05A0 BF94 05B5 0567 JST LOOKUP SEARCH FOR COMMAND 05A1 0004 0568 WORD CMDTBL 05A2 11D4 05B7 0569  JNE A,EXEC2F 05A3 9EC5 05E9 0570 JMP EXEC9 0013 0571 LPOOL 05A4 01E7 CIFNO  05A5 01E8 CIPUN 05A6 011C NAMPTR 05A7 012C ISMPL 05A8 000D E:GFN 05A9 011E UNIT 05AA 000F E:RCI 05AB 0139 CMDBP 05AC 0108 SLASHF 05AD 0109 ASSDO 05AE 011D VOLPTR 05AF 011F FNO 05B0 0123 NAME 05B1 0178 INBUF 05B2 0180 OUTBUF 05B3 000E E:ISM 05B4 012A FEXTL 05B5 1AF4 LOOKUP 05B6 000005B7 0573 EXEC2F EQU $ 05B7 83C7 05FF 0574 COPY  PAU:FLAG,A TEST FOR JCL SKIP TO NEXT PAUSE 05B8 1147 05C0 0575 JEQ A,EXEC2H NO, DO NEXT COMMAND 05B9 A7C5 05FF 0576 COPY X,PAU:FLAG SAVE X IN PAUSE FLAG 1PAGE 0031 MACRO (E100) OS4MTEX - MAG TAPE EXECUTIVE (93462-11-E400) 1980/06/04 19:07:13.50 SI = DH01.OS4EXEC .ASM SO = DH01.OS4MTEX .OBJ LI = DH01.OS4MTEX .LST 05BA A3BE 05F9 0577 E:JCL CHECK IF IN JCL 05BB 8080 0000 0578 COPY 0(X),A 05BC 1142 05BF 0579 JEQ A,EXEC2G NO, SKIP 05BD 87C1 05FF 0580 COPY A,PAU:FLAG 05BE 9E2D 056C 0581  JMP EXEC1 KEEP LOOKING 05BF B3BF 05FF 0582 EXEC2G EXCH PAU:FLAG,X RESTORE X REG 05C0 87BE 05FF 0583  EXEC2H COPY A,PAU:FLAG CLEAR FLAG 05C1 8364 05A6 0584 COPY NAMPTR,A MUST HAVE NAME 05C2 1162 05E5 0585 JEQ A,EXEC12 INVALID 05C3 0900 0586 COPY:M =0,A,LL2 ASSUME 1 PROGRAM 05C4 87BB 0600 0586+ 05C5 83BB 0601 0587 COPY:M LL1,A,LUN SET LU 05C6 87B3 05FA 0587+ 05C7 FFBA 0602 0588  JSK CPG CONNECT FIRST PROGRAM 05C8 1159 05E2 0589 JEQ A,EXEC11 NOT FOUND 05C9 13DE 05E8 0590 JLT A,EXC16J EXCEPTION 05CA 835C 05A7 0591 COPY TC,A 05CB 0AC5 0592  SUB =';',A CHECK FOR SEOND PROGRAM 05CC 11CB 05D8 0593 JNE A,EXEC6 NONE 05CD 82B5 0603 0594 COPY:M ='Z1',A,LL2 LU FOR SECOND PROGRAM 05CE 87B1 0600 0594+ 05CF 87AA 05FA 0595 COPY A,LUN  05D0 A255 05A6 0596 E:GFN NAMPTR GET SECOND PROGRAM 05D1 FF56 05A8 0596+ 05D2 11D2 05E5 0597  JNE A,EXEC12 INVALID NAME 05D3 8352 05A6 0598 COPY NAMPTR,A MUST HAVE NAME 05D4 1150 05E5 0599 JEQ A,EXEC12 INVALID 05D5 FFAC 0602 0600 JSK CPG CONNECT SEOND PROGRAM 05D6 114B 05E2 0601 JEQ A,EXEC11 NOT FOUND 05D7 13D0 05E8 0602 JLT A,EXC16J EXCEPTION ?  000005D8 0604 EXEC6 EQU $ 1PAGE 0032 MACRO (E100) OS4MTEX - MAG TAPE EXECUTIVE (93462-11-E400) 1980/06/04 19:07:15.25 SI = DH01.OS4EXEC .ASM SO = DH01.OS4MTEX .OBJ LI = DH01.OS4MTEX .LST 05D8 834E 05A7 0606  COPY TC,A COMMAND MUST BE FOLLOWED BY 05D9 1145 05DF 0607 JEQ A,EXEC4 END OF LINE 05DA 0C20 0608 CLSN A,=' ' BLANK OR COMMA 05DB 9E83 05DF 0609 JMP EXEC4 BLANK 05DC 0C2C 0610 CLSN A,=',' 05DD 9E81 05DF 0611 JMP EXEC4 COMMA 05DE 9E86 05E5 0612  JMP EXEC12 SYNTAX ERROR 000005DF 0613 EXEC4 EQU $ 05DF A2A1 0601 0614 E:LOAD LL1 LOAD PROGRAM(S) 05E0 FFA3 0604 0614+ 05E1 9FA3 0605 0615 JMP EXEC: ERROR IF IT RETURNS  000005E2 0618 EXEC11 EQU $ 05E2 BF98 05FB 0619 JST FMSG FILE NOT FOUND 05E3 1D25 0620 WORD ERR10 05E4 9E07 056C 0621 JMP EXEC1 000005E5 0623 EXEC12 EQU $ 05E5 BF96 05FC 0624 JST MSG INVALID COMMAND 05E6 1CC6 0625 WORD ERR2  05E7 9E04 056C 0626 JMP EXEC1 TRY AGAIN 05E8 9EC8 0631 0627 EXC16J JMP EXEC16 000005E9  0628 EXEC9 EQU $ 05E9 8395 05FF 0629 COPY PAU:FLAG,A TEST FOR JCL SKIP TO NEXT PAUSE 05EA 114A 05F5 0630 JEQ A,EXEC98 NO, DO NEXT COMMAND 05EB A793 05FF 0631 COPY X,PAU:FLAG SAVE X IN PAUSE FLAG 05EC A38C 05F9 0632 E:JCL CHECK IF IN JCL 05ED 8080 0000 0633 COPY 0(X),A 1PAGE 0033 MACRO (E100) OS4MTEX - MAG TAPE EXECUTIVE (93462-11-E400) 1980/06/04 19:07:16.50 SI = DH01.OS4EXEC .ASM SO = DH01.OS4MTEX .OBJ LI = DH01.OS4MTEX .LST 05EE 1145 05F4 0634 JEQ A,EXEC97 NO, SKIP 05EF 838F 05FF  0635 COPY PAU:FLAG,A 05F0 2000 0636 COPY A,X LOOK FOR NEXT PAUSE COMMAND 05F1 8E94 0606 0637 SUB =PAUSE,A 05F2 1142 05F5 0638 JEQ A,EXEC98 FOUND NEXT PAUSE COMMAND 05F3 9F8A 05FE 0639 JMP EXEC1 KEEP LOOKING 05F4 B38A 05FF 0640 EXEC97 EXCH PAU:FLAG,X RESTORE X REG 05F5 8789 05FF 0641 EXEC98 COPY A,PAU:FLAG CLEAR FLAG 05F6 FC80 0000 0642 JSK 0(X) GO PROCESS COMMAND 05F7 FF8F 0607 0643 JSK COM CHECK FOR COMMNETS OR EXTRA PARAMETERS 05F8 9F85 05FE 0644 JMP EXEC1 GO GET NEXT COMMAND 000F 0645 LPOOL 05F9 000C E:JCL 05FA 0120 LUN 05FB 1B42 FMSG 05FC 1B32 MSG 05FD 0631 EXEC16 05FE 056C EXEC1 05FF 010A PAU:FLAG 0600 010F LL2 0601 010B LL1 0602 1A6B CPG  0603 5A31 0604 000B E:LOAD 0605 0540 EXEC: 0606 1378 PAUSE 0607 1980 COM 0608 87B3 063C 0647 EXEC14 COPY A,T1 SAVE ERROR CODE 0609 0931 0648 COPY:M =CLOZFC,A,CIFC 060A 87AC 0637 0648+ 060B 3A07 0649  I:IO CIIOB CLOSE CI 060C 0193 0649+ 1PAGE 0034 MACRO (E100) OS4MTEX - MAG TAPE EXECUTIVE (93462-1@ 1-E400) 1980/06/04 19:07:17.75 SI = DH01.OS4EXEC .ASM SO = DH01.OS4MTEX .OBJ LI = DH01.OS4MTEX .LST 060D 9EA3 0631 0650 JMP EXEC16 ERROR 060E 83AD 063C 0651 COPY T1,A ERROR CODE 060F 0AFF  0652 SUB =EOF:,A 0610 11E0 0631 0653 JNE A,EXEC16 NOT EOF 0611 A367 05F9 0654  E:JCL BRING BACK PREVIOUS JCL FILE FROM STACK 0612 8080 0000 0655 COPY 0(X),A STACK COUNT 0613 115D 0631 0656 JEQ A,EXEC16 EMPTY 0614 0AFF 0657 SUB =1,A 0615 8480 0000 0658 COPY A,0(X) NEW STACK COUNT 0616 0E11 0659 SHIFT A,LO,2 4 WORDS PER ENTRY 0617 2B01 0660 ADD =1,X SKIP COUNT 0618 2002 0661 ADD A,X ADDR OF ENTRY 0619 8080 0000 0662 COPY:M 0(X),A,CIFNO FNO 061A 8709 05A4 0662+ 061B 870A 05A6 0663 COPY  A,NAMPTR FOR CONNECT 061C 8081 0001 0664 COPY:M 1(X),A,UNIT DIB ADDR 061D 870B 05A9 0664+ 061E 8706 05A5 0665 COPY A,CIPUN 061F A79C 063C 0666 COPY X,T1 SAVE STACK POINTER 0620 8297 0638  0667 COPY:M ='CI',A,LUN 0621 8758 05FA 0667+ 0622 3A1A 0668 F:CFNO NAMPTR CONNECT BY FNO 0623 011C 0668+ 0624 12CC 0631 0669 JLE A,EXEC16 ERROR 0625 0930 0670 COPY:M =OPENFC,A,CIFC 0626 8790 0637 0670+ 0627 3A07 0671 I:IO CIIOB OPEN 0628 0193 0671+ 0629 9E87 0631 0672 JMP EXEC16 ERROE 062A A391 063C 0673 COPY T1,X 062B E38D 0639 0674  COPY E:CIFP,Y CI FILE POINTER 062C 8082 0002 0675 COPY:M 2(X),A,0(Y) RESTORE FILE POINTER ON RECALLED JCL 062D 8440 0000 0675+ 062E 8083 0003 0676 COPY:M 3(X),A,1(Y) TO WHERE IT LEFT OFF 062F 8441 0001 0676+ 1PAGE 0035 MACRO (E100) OS4MTEX - MAG TAPE EXECUTIVE (93462-11-E400) 1980/06/04 19:07:19.75 SI = DH01.OS4EXEC .ASM SO = DH01.OS4MTEX .OBJ LI = DH01.OS4MTEX .LST 0630 9F4D 05FE 0677 JMP EXEC1 GO GRT NEXT COMMAND  0631 FF8B 063D 0679 EXEC16 E:IJCL CLEAR JCL STACK 0632 FF8B 063E 0680 JSK INITJCL SET CI TO NEXT JCL FILE 0633 0900 0681 COPY =0,A 0634 8785 063A 0682 COPY A,CIPUN CLEAR UNIT 0635 8785 063B 0683 COPY A,CIFNO 0636 9F88 063F 0684 JMP EXEC 0009 0685  LPOOL 0637 0196 CIFC 0638 4349 0639 0037 E:CIFP 063A 01E8 CIPUN 063B 01E7 CIFNO 063C 0100 T1 063D 0009 E:IJCL 063E 0033 INITJCL 063F 0553 EXEC 1PAGE 0036 MACRO (E100) OS4MTEX - MAG TAPE EXECUTIVE (93462-11-E400) 1980/06/04 19:07:20.25 DELETE SI = DH01.OS4EXEC .ASM SO = DH01.OS4MTEX .OBJ LI = DH01.OS4MTEX .LST 00000640 0688 DELETE EQU $ 0640 A296 0657 0689 E:GFN NAMPTR GET FILE NAME 0641 FF96 0658 0689+ 0642 11CE 0651 0690 JNE A,DEL14 INVALID FILE NAME 0643 8393 0657 0691 COPY NAMPTR,A 0644 114C 0651 0A 692 JEQ A,DEL14 INVALID FILE NAME 0645 FF93 0659 0693 JSK CPUN CHECK DEFUALT UNIT 0646 FF94 065B 0694 JSK SYF CHECK FOR SYSTEM FILE 0647 11C5 064D 0695 JNE A,DEL10 0648 3A17 0696 F:DELE NAMPTR DELETE FILE 0649 011C 0696+ 064A 1143 064E 0697 JEQ  A,DEL12 FILE NOT FOUND 0000064B 0698 DEL5 EQU $ 064B 838E 065A 0699 COPY TC,A  SEE IF MORE TO DELETE 064C 11B3 0640 0700 JNE A,DELETE MORE TO DO 064D 2309 0701 DEL10 RSK  0000064E 0703 DEL12 EQU $ 064E BF2C 05FB 0704 DELE12 JST FMSG FILE NOT FOUND 064F 1D25  0705 WORD ERR10 0650 9E7A 064B 0706 JMP DEL5 LOOK FOR MORE 0651 BF2A 05FC 0708 DEL14 JST MSG INVALID FILE NAME 0652 1D06 0709 WORD ERR8 0653 9E79 064D 0710  JMP DEL10 00000654 0711 DEL16 EQU $ 0654 BF27 05FC 0712 JST MSG FILE IS NOT DELETE 0655 1E1E 0713 WORD ERR29 0656 9E74 064B 0714 JMP DEL5 0005 0715  LPOOL 0657 011C NAMPTR 1PAGE 0037 MACRO (E100) OS4MTEX - MAG TAPE EXECUTIVE (93462-11-E400) 1980/06/04 19:07:22.00 DELETE SI = DH01.OS4EXEC .ASM SO = DH01.OS4MTEX .OBJ LI = DH01.OS4MTEX .LST 0658 000D E:GFN 0659 1B2C CPUN 065A 012C TC 065B 19CF SYF 1PAGE 0038 MACRO (E100) OS4MTEX - MAG TAPE EXECUTIVE (93462-11-E400) 1980/06/04 19:07:22.25 DO -- PROCESS JCL SI = DH01.OS4EXEC .ASM SO = DH01.OS4MTEX .OBJ LI = DH01.OS4MTEX .LST 065C 9F87 0664 0717 LFAJ  JMP LFA 0000065D 0719 DO EQU $ 065D DF85 0663 0720 IMS ASSDO SET FLAG FOR DO 065E 8259 0638 0721 COPY:M ='CI',A,LUN ASSIGN COMMAND INPUT 065F 871A 05FA 0721+ 0660 9EA8 0689 0722 JMP ASS3A 0661 9F83 0665 0724 ASS14J JMP ASS14 0662 9F83 0666 0725 ASS18J JMP  ASS18 0005 0726 LPOOL 0663 0109 ASSDO 0664 0777 LFA 0665 072F ASS14 0666 073D ASS18 0667 1PAGE 0039 MACRO (E100) OS4MTEX - MAG TAPE EXECUTIVE (93462-11-E400) 1980/06/04 19:07:22.50 ASSIGN SI = DH01.OS4EXEC .ASM SO = DH01.OS4MTEX .OBJ LI = DH01.OS4MTEX .LST 00000668 0728 ASSIGN EQU $ 00000668 0729 ASS0 EQU $ 0668 A271 065A 0730 E:ISM ISMPL 0669 FF88 0672 0730+ 066A 8388 0673 0731 COPY NC,A 066B 1130 065C 0732 JEQ A,LFAJ LIST FILE ASSIGNMENTS 066C 0AFE 0733 SUB =2,A 066D 12C6 0674 0734 JLE A,ASS3 GOOD 066E BF0D 05FC 0735 JST MSG 066F 1CBE 0736  WORD ERR1 SYNTAX ERROR 0670 9F80 0671 0737 JMP ASS10 0003 0738 LPOOL 0671 0705 ASS10 0672 000E E:ISM 0673 012D NC 00000674 0739 ASS3 EQU $ 0674 4000 0740 COPY A,Q SAVE # OF CHARACTERS 0675 83EA 06E0 0741 COPY SBUF,A GET LOGICAL UNIT FOR CONNECT 0676 5144 B 067B 0742 JEQ Q,ASS3A1 JMP IF 2 CHARACTERS 0677 83E9 06E1 0743 COPY DF,A CHECK DECIMAL FLAG (-A- = 0 ==>DECIMAL NUMBER) 0678 11C9 0682 0744 JNE A,ASS3A2 ERROR IF NOT DECIMAL INPUT(SINGLE CHAR) 0679 83E8 06E2 0745 COPY DV,A GET THE DECIMAL VALUE 067A 9E83 067E 0746 JMP ASSSLU GO SEARCH FOR LOGICAL UNIT 0000067B 0747 ASS3A1 EQU $ 067B C3E5 06E1 0748 COPY DF,Q  GET DECIMAL FLAG 067C 51C1 067E 0749 JNE Q,$+2 USE DECIMAL VALUE IF WE HAVE A DEC. NUMBER 067D 83E4 06E2 0750 COPY DV,A 0000067E 0751 ASSSLU EQU $ 067E 87DA 06D9 0752 COPY A,LUN ELSE USE NAME 067F 83D9 06D9 0753 E:SLU LUN GO CHECK FOR EXISTENCE OF LU 0680 FFE2 06E3 0753+ 0681 1143 0685 0754 JEQ A,GOODLU FOUND IT IF -A- = 0 0755 * 0682 BFD7 06DA 0756 ASS3A2 JST MSG NO GOOD LU 0683 1CDC 0757 WORD ERR4 (INVALID UNIT MESSAGE) 1PAGE 0040 MACRO (E100) OS4MTEX - MAG TAPE EXECUTIVE (93462-11-E400) 1980/06/04 19:07:24.25 ASSIGN SI = DH01.OS4EXEC .ASM SO = DH01.OS4MTEX .OBJ LI = DH01.OS4MTEX .LST 0684 9F6C 0671 0758 JMP ASS10 THATS ALL 00000685 0759 GOODLU EQU $ 0685 83DA 06E0 0760 COPY SBUF,A RECALL LOGICAL UNIT NAME 0686 0E79 0761 SHIFT A,RO,8 GET FIRST CHARACTER 0687 0AA6 0762 SUB ='Z',A 0688 1119 0662 0763  JEQ A,ASS18J SYSTEM LUN 00000689 0765 ASS3A EQU $ 0689 A24D 0657 0766 E:GFN NAMPTR GET FILE NAME 068A FF4D 0658 0766+ 068B 1195 0661 0767 JNE A,ASS14J INVALID NAME 068C FF4C 0659 0768 JSK CPUN CHECK FOR DEFUALT UNIT 068D 83CB 06D9 0770 COPY LUN,A  068E 8ED5 06E4 0771 SUB ='SL',A 068F 11C1 0691 0772 JNE A,ASS3B NOT SYSTEM LOG 0690 FFD4 06E5 0773 JSK CLSL CLOSE OLD LOG FILE 00000691 0775 ASS3B EQU $ 0691 83C7 06D9 0776 COPY LUN,A 0692 8E25 0638 0777 SUB ='CI',A IF COMMAND INPUT BEING CHANGED 0693 11E3 06B7 0778 JNE A,ASSI3 NO 0694 A342 0657 0779 COPY NAMPTR,X IF FILE NAME MUST CHECK EXTENSION 0695 3148 069E 0780 JEQ X,ASS3D NO NAME 0696 83C4 06DB 0781 COPY FEXTL,A CEHCK IF EXTENSION GIVEN 0697 1346 069E 0782 JGE A,ASS3D EXTENSION GIVEN 1PAGE 0041 MACRO (E100) OS4MTEX - MAG TAPE EXECUTIVE (93462-11-E400) 1980/06/04 19:07:25.50 ASSIGN SI = DH01.OS4EXEC .ASM SO = DH01.OS4MTEX .OBJ LI = DH01.OS4MTEX .LST 0698 8085 0005 0784 ASS3E COPY 5(X),A PUT IN 'JCL' AS EXTENSION 0699 96C2 06DC 0785 AND =:FF00,A 069A 194A 0786 OR ='J',A 069B 8485 0005 0787 COPY A,5(X) 069C 82C9 06E6 0788 COPY:M ='CL',A,6(X) 069D 8486 0006 0788+ 0000069E 0790 ASS3D EQU C  $ 069E A3BE 06DD 0791 E:JCL 069F 8080 0000 0792 COPY 0(X),A CHECK IF STACK LIMIT HIT 06A0 8B42 0663 0793 ADD ASSDO,A 0 IF ASSIGN 1 IF DO 06A1 2AFF 0794 SUB =1,X 06A2 8C80 0000 0795 SUB 0(X),A 06A3 1274 06D8 0796 JGT A,ASS20J DO PUSHES IT BEYOND LIMIT 06A4 0931  0797 COPY:M =CLOZFC,A,CIFC 06A5 8711 0637 0797+ 06A6 3A07 0798 I:IO CIIOB CLOSE OLD FILE 06A7 0193 0798+ 06A8 0000 0799 NOP 06A9 A3B3 06DD 0800 E:JCL ADDR OF JCL STACK 06AA C080 0000 0801 COPY 0(X),Q NUMBER OF ENTRIES 06AB 4E11 0802 SHIFT Q,LO,2 4 WORDS PE NETRY 06AC 2B01 0803 ADD =1,X 06AD 2042 0804 ADD Q,X  ADDR OF NEXT ENTRY 06AE 830C 063B 0805 COPY:M CIFNO,A,0(X) SAVE OLD JCL INFO IN STACK 06AF 8480 0000 0805+ 06B0 8309 063A 0806 COPY:M CIPUN,A,1(X) DIB ADDR 06B1 8481 0001 0806+ 06B2 E306 0639 0807 COPY E:CIFP,Y FP ADDR 06B3 8040 0000 0808 COPY:M 0(Y),A,2(X) SAVE OLD FP 06B4 8482 0002 0808+ 06B5 8041 0001 0809 COPY:M 1(Y),A,3(X) 06B6 8483 0003 0809+ 1PAGE 0042 MACRO (E100) OS4MTEX - MAG TAPE EXECUTIVE (93462-11-E400) 1980/06/04 19:07:27.25 ASSIGN SI = DH01.OS4EXEC .ASM SO = DH01.OS4MTEX .OBJ LI = DH01.OS4MTEX .LST  000006B7 0811 ASSI3 EQU $ 06B7 83AF 06E7 0812 COPY SLASHF,A 06B8 114B 06C4 0813 JEQ  A,ASS3C NOT PERMANENT ASSIGNMENT 06B9 E021 0021 0814 COPY R:ACT,Y 06BA E049 0009 0815 COPY AC:ECB(Y),Y 06BB 93AC 06E8 0816 EXCH:M E:UATP,ED:UAT(Y) MAKE PERMANENT UAT CURRENT 06BC 9060 0020 0816+ 06BD 93AA 06E8 0816+ 06BE BFAA 06E9 0817 JST ASSCON MAKE PERMANENT ASSIGNMENT 06BF 93A8 06E8 0818  EXCH:M E:UATP,ED:UAT(Y) PUT UAT BACK 06C0 9060 0020 0818+ 06C1 93A6 06E8 0818+ 06C2 117B 06FE 0819 JEQ  A,ASS9 USER REQUESTS ABORT ON FILE NOT FOUND 06C3 13D2 06D6 0820 JLT A,ASS10J EXCEPTION  000006C4 0822 ASS3C EQU $ 06C4 BFA4 06E9 0823 JST ASSCON CONNECT FILE 06C5 1178 06FE 0824 JEQ A,ASS9 USER REQUESTS ABORT ON FILE NOT FOUND 06C6 13CF 06D6 0825 JLT A,ASS10J  EXCEPTION 06C7 C391 06D9 0826 COPY LUN,Q 06C8 CE9B 06E4 0827 SUB ='SL',Q 06C9 51C5 06CF 0828 JNE Q,ASS4 NOT SYSTEM LOG 06CA FF9F 06EA 0829 JSK OPSL OPEN NEW FILE 06CB A39F 06EB 0830 COPY E:SLFP,X RESET SL FP 06CC 0900 0831 COPY:M =0,A,0(X) 06CD 8480 0000 0831+ 06CE 8481 0001 0832 COPY A,1(X) 1PAGE 0043 MACRO (E100) OS4MTEX - MAG TAPE EXECUTIVE (93462-11-E400)  1980/06/04 19:07:28.25 ASSIGN SI = DH01.OS4EXEC .ASM SO = DH01.OS4MTEX .OBJ LI = DH01.OS4MTEX .LST 000006CF 0834 ASS4 EQU $ 06CF C389 06D9 0835 COPY LUN,Q 06D0 CE8D 06DE 0836 SUB ='CI',QD  06D1 51EC 06FE 0837 JNE Q,ASS9 NOT CI 06D2 0AFF 0838 SUB =1,A ZERO IF DEVICE 06D3 11DB 06EF 0839 JNE A,ASS5 NOT DEVICE 06D4 878A 06DF 0840 COPY A,CIFNO 0 MEANS DEVICE, NOT FILE 06D5 9E9C 06F2 0841 JMP ASS6 06D6 9EAE 0705 0842 ASS10J JMP ASS10 06D7 9EB5 070D 0843 ASS12J JMP ASSI12 06D8 9EE9 0742 0844 ASS20J JMP ASS20 0016 0845 LPOOL 06D9 0120 LUN 06DA 1B32 MSG 06DB 012A FEXTL 06DC FF00 06DD 000C E:JCL 06DE 4349 06DF 01E7 CIFNO 06E0 0132 SBUF 06E1 0130 DF 06E2 012E DV 06E3 0011 E:SLU 06E4 534C 06E5 17CB CLSL 06E6 434C 06E7 0108 SLASHF 06E8 003A E:UATP 06E9 074C ASSCON 06EA 17BD OPSL 06EB 0036 E:SLFP 06EC 06ED 06EE 1PAGE 0044 MACRO (E100) OS4MTEX - MAG TAPE EXECUTIVE (93462-11-E400) 1980/06/04 19:07:29.00 ASSIGN SI = DH01.OS4EXEC .ASM SO = DH01.OS4MTEX .OBJ LI = DH01.OS4MTEX .LST 06EF 808A 000A 0847 ASS5 COPY:M FC:FNO(X),A,CIFNO SAVE FNO 06F0 876E 06DF 0847+ 06F1 A089 0009 0848 COPY FC:DIB(X),X 06F2 A794 0707 0849 ASS6 COPY X,CIPUN SAVE CUURENT DIB ADDR 06F3 8396 070A 0850 COPY ASSDO,A 06F4 1144 06F9 0851 JEQ A,ASS7 NOT DO SO DONT STACK 06F5 A367 06DD 0852 E:JCL GET JCL STACK ADDR 06F6 8080 0000 0853 COPY 0(X),A BUMP STACK 000006F7 0854 ASS6A EQU $ 06F7 0B01 0855 ADD =1,A 06F8 8480 0000 0856 COPY A,0(X) 06F9 0930 0857 ASS7 COPY:M =OPENFC,A,CIFC 06FA 878D 0708 0857+ 06FB 3A07 0858 I:IO CIIOB OPEN NEW FILE 06FC 0193 0858+ 06FD 9EB4 0732 0859 JMP ASSI16 ERROR 000006FE 0861 ASS9 EQU $ 06FE 838B 070A  0862 COPY ASSDO,A 06FF 11C5 0705 0863 JNE A,ASS10 DO SO NOT MULTIPLE 0700 838A 070B 0864 COPY TC,A 0701 0C2C 0865 CLSN =',',A MORE TO DO? 0702 9F89 070C 0866 JMP  ASS0 IF SO, LOOP ON NEXT ASSIGNMENT 0703 0C2B 0867 CLSN ='+',A " 0704 9F87 070C 0868 JMP ASS0 " 0705 2309 0869 ASS10 RSK 0706 9F85 070C 0870 ASS0J JMP ASS0 0006 0871 LPOOL 0707 01E8 CIPUN 0708 0196 CIFC 0709 0732 ASSI16 070A 0109 ASSDO 070B 012C TC 1PAGE 0045 MACRO (E100) OS4MTEX - MAG TAPE EXECUTIVE (93462-11-E400) 1980/06/04 19:07:30.50 ASSIGN SI = DH01.OS4EXEC .ASM SO = DH01.OS4MTEX .OBJ LI = DH01.OS4MTEX .LST 070C 0668 ASS0 0000070D 0873 ASSI12 EQU $ 070D 834B 06D9 0874 COPY LUN,A 070E 8E4F 06DE 0875 SUB ='CI',A 070F 11DC 072C 0876 JNE A,ASS12B  NOT CI 0710 834A 06DB 0878 COPY FEXTL,A CEHCK IF EXTENSION GIVEN 0711 134B 071D 0879 JGE A,ASS12A SOME OR NULL EXTENSION GIVEN 0712 0900 0880 COPY:M =0,A,FEXTL PREVENT LOOPING 0713 8747 06DB 0880+ 0714 A3B1 0746 0881 COPY NAMPTR,X 0715 3147 071D 0882 JEQ X,ASS12A NO NAE ME 0716 8085 0005 0883 COPY 5(X),A TRY WITH NO EXTENSION 0717 9644 06DC 0884 AND =:FF00,A 0718 1920 0885 OR =' ',A 0719 8485 0005 0886 COPY A,5(X) 071A 82AC 0747 0887  COPY:M =' ',A,6(X) 071B 8486 0006 0887+ 071C 9E1A 06B7 0888 JMP ASSI3 GO TRY AGAIN 0000071D 0890 ASS12A EQU $ 071D 0930 0891 COPY:M =OPENFC,A,CIFC 071E 8769 0708 0891+ 071F 3A07  0892 I:IO CIIOB RE-OPEN OLD CI 0720 0193 0892+ 0721 9E90 0732 0893 JMP ASSI16  ERROR 0722 A33A 06DD 0894 E:JCL 0723 C080 0000 0895 COPY 0(X),Q CALCULTE NETRY ADDR IN STACK 1PAGE 0046 MACRO (E100) OS4MTEX - MAG TAPE EXECUTIVE (93462-11-E400) 1980/06/04 19:07:31.75 ASSIGN SI = DH01.OS4EXEC .ASM SO = DH01.OS4MTEX .OBJ LI = DH01.OS4MTEX .LST 0724 4E11 0896 SHIFT Q,LO,2 0725 2B01  0897 ADD =1,X 0726 2042 0898 ADD Q,X 0727 E3A0 0748 0899 COPY E:CIFP,Y ADDR OF CI FP 0728 8082 0002 0900 COPY:M 2(X),A,0(Y) RESTORE OLD FILE POINTER 0729 8440 0000 0900+ 072A 8083 0003 0901 COPY:M 3(X),A,1(Y) 072B 8441 0001 0901+ 0000072C 0903 ASS12B EQU $ 072C BF98 0745 0904 JST FMSG FILE NOT FOUND 072D 1D25 0905 WORD ERR10 072E 9E56 0705 0906 JMP ASS10 072F BF2A 06DA 0908 ASS14 JST MSG INVALID FILE NAME 0730 1D06 0909 WORD ERR8 0731 9E53 0705 0910 JMP ASS10 00000732 0912 ASSI16 EQU $ 0732 0931 0913 COPY:M =CLOZFC,A,CIFC 0733 8754 0708 0913+ 0734 3A07 0914 I:IO CIIOB CLOSE CI 0735 0193 0914+ 0736 0000 0915 NOP 0737 FF91 0749 0916 E:IJCL RESET CI TO OC, & CLEAR SATCK 0738 FF91 074A 0917 JSK INITJCL SET CI TO NEXT JCL FILE 0739 0900 0918  COPY:M =0,A,CIFNO INIT 073A 8724 06DF 0918+ 073B 874B 0707 0919 COPY A,CIPUN CLEAR UNIT 1PAGE 0047 MACRO (E100) OS4MTEX - MAG TAPE EXECUTIVE (93462-11-E400) 1980/06/04 19:07:33.25 ASSIGN SI = DH01.OS4EXEC .ASM  SO = DH01.OS4MTEX .OBJ LI = DH01.OS4MTEX .LST 073C 9E48 0705 0920 JMP ASS10 0000073D 0922 ASS18 EQU $ 073D 831B 06D9 0923 COPY:M LUN,A,ERR23A LU 073E 878C 074B 0923+ 073F BF1A 06DA 0924  JST MSG SYSTEM LUN 0740 1DBA 0925 WORD ERR23 0741 9E43 0705 0926 JMP  ASS10 0742 BF17 06DA 0928 ASS20 JST MSG JCL STACK FULL 0743 1DDE 0929 WORD ERR26 0744 9E40 0705 0930 JMP ASS10 0007 0931 LPOOL 0745 1B42 FMSG 0746 011C NAMPTR 0747 2020 0748 0037 E:CIFP 0749 0009 E:IJCL 074A 0033 INITJCL 074B 1DBC ERR23A 1PAGE 0048 MACRO (E100) OS4MTEX - MAG TAPE EXECUTIVE (93462-11-E400) 1980/06/04 19:07:33.75 ASSIGN SI = DH01.OS4EXEC .ASM SO = DH01.OS4MTEX .OBJ LI = DH01.OS4MTF EX .LST 0000074C 0933 ASSCON EQU $ 074C 0E0D 0934 ENT CONNECT ROUTINE FOR ASSIGN (DOES CREATE UPON REQUES 074D 3A18 0935 F:CONN NAMPTR ATTEMPT TO CONNECT 074E 011C 0935+ 074F A7F8 07C8 0936 COPY X,T6 SAVE FCB POINTER IN CASE OF GOOD CONNECT 0750 A308 06D9 0937  COPY LUN,X ASSIGNING CI? 0751 AE0C 06DE 0938 SUB ='CI',X 0752 1142 0755 0939 JEQ  A,ASSCMAYF FILE NOT FOUND 0753 A3F4 07C8 0940 COPY T6,X RESTORE FCB POINTER IN X 0754 9F77 074C  0941 JMP *ASSCON 00000755 0942 ASSCMAYF EQU $ 0755 31C4 075A 0943 JNE X,ASSCNOTF  NOT CI ASK FOR CREATE 0756 BF6E 0745 0944 JST FMSG 0757 1D25 0945 WORD ERR10 FILE NOT FOUND 0758 0900 0946 COPY =0,A RESET A REG 0759 9F72 074C 0947 JMP *ASSCON ELSE, RETURN (A = STATUS) 0000075A 0948 ASSCNOTF EQU $ 075A BF6A 0745 0949 JST FMSG  OUTPUT CREATE? MESSAGE 075B 1E04 0950 WORD ERR28 " 0000075C 0951 ASSCPROM EQU $ 075C 3A07 0952 I:IO PAUSPR OUTPUT CX> PROMPT 075D 01CB 0952+ 075E 0000 0953 NOP IGNORE ERRORS 075F 3A07 0954 I:IO OCIOB READ IN ONE CHARACTER 0760 01B3  0954+ 0761 0000 0955 NOP IGNORE ERRORS 0762 A3E6 07C9 0956 COPY OCBUF,X  LOAD THE CHARACTER INTO A 0763 8080 0000 0957 COPY 0(X),A " 0764 0E79 0958 SHIFT A,RO,8 " 0765 0C43 0959 CLSN ='C',A USER SPECIFIED CONTINUE (CREATE THE FILE)? 0766 9E87 076E 0960 JMP ASSCREAT IF SO, BRANCH TO CREATE THE FILE 0767 0C58 0961 CLSN ='X',A USER SPECIFIED ABORT? 0768 9F63 074C 0962 JMP *ASSCON IF SO, RETURN (A = 0) 0769 0C63 0963  CLSN ='C'+:20,A CONTINUE IN LOWER CASE? 076A 9E83 076E 0964 JMP ASSCREAT IF SO,BRANCH TO CREATE THE FILE 1PAGE 0049 MACRO (E100) OS4MTEX - MAG TAPE EXECUTIVE (93462-11-E400) 1980/06/04 19:07:36.00 ASSIGN SI = DH01.OS4EXEC .ASM SO = DH01.OS4MTEX .OBJ LI = DH01.OS4MTEX .LST 076B 0C78 0965 CLSN ='X'+:20,A ABORT IN LOWER CASE? 076C 9F5F 074C 0966 JMP *ASSCON IF SO, RETURN (A = 0) 076D 9E6E 075C 0967 JMP ASSCPROM IF NOT, PROMPT AGAIN 0000076E 0968 ASSCREAT EQU $ 076E 291E 0969 COPY =30,X SETUP SECONDARY EXTENTS 076F A7DA 07CA 0970 COPY X,SEXT " 0770 2900 0971 COPY =0,X SET INITIAL EXTENT TO 0 0771 B3D9 07CB 0972 EXCH X,INXT (SAVE LUN IN X) 0772 3A16  0973 F:CREA NAMPTR CREATE THE FILE 0773 011C 0973+ 0774 A7D6 07CB 0974 COPY X,LUN RESTORE LUN 0775 1317 074D 0975 JGE A,ASSCON+1 IF IT WENT OK, BRANCH TO CONNECT 0776 9F55 074C 09G 76 JMP *ASSCON ELSE RETURN (A = STATUS) 1PAGE 0050 MACRO (E100) OS4MTEX - MAG TAPE EXECUTIVE (93462-11-E400) 1980/06/04 19:07:37.00 LIST LUN ASSIGNMENTS SI = DH01.OS4EXEC .ASM SO = DH01.OS4MTEX .OBJ LI = DH01.OS4MTEX  .LST 00000777 0978 LFA EQU $ LIST LUN ASSIGNMNETS 0777 FFD4 07CC 0979 JSK BLB BLANK BUFFER 0778 0900 0980 COPY:M =0,A,UNITCNT LU COUNTER 0779 87D3 07CD 0980+ 077A 82D3 07CE 0981 COPY:M ='SL',A,LOLUN OUTPUT TO SL 077B 87D3 07CF 0981+ 077C 091B 0982 COPY:M =WRFAFC,A,LOFC WRITE FORMATTED ASCII 077D 87D2 07D0 0982+ 077E 08FC 0983 COPY:M =-4,A,UNITLN INIT # OF UNIT PER LINE  077F 87D1 07D1 0983+ 0780 C3D1 07D2 0984 COPY LOBUF,Q INIT BUF ADDR 00000781 0985 LFAA EQU  $ 0781 A2D1 07D3 0986 COPY =MES4A,X SET UP HEADING IN BUFFER 0782 83D1 07D4 0987 COPY MES4,A BYTE COUNT OF MESSAGE 0783 0E09 0988 SHIFT A,RO,1 CONVERT TO WORD COUNT 0784 FFC2 07C7 0989 JSK MOV 0785 83CE 07D4 0990 COPY MES4,A 0786 0E09 0991 SHIFT A,RO,1 0787 4002 0992 ADD A,Q 0788 DFC8 07D1 0993 IMS UNITLN INCREMENT # OF LU PER LINE 0789 9E77 0781 0994 JMP LFAA COPY THE NEXT ONE 078A 3A07 0996 I:IO LOIOB OUTPUT HEADING 078B 018B 0996+ 078C 9EB9 07C6 0997 JMP LFA8 ERROR 078D BFC7 07D5 0998  JST LOMSG BLANK LINE 078E 1B6B 0999 WORD MES1 0000078F 1000 LFA1 EQU $ 078F 0900 1001 COPY:M =0,A,OFFSET RESET OFFSET 0790 87C5 07D6 1001+ 0791 08FC 1002 COPY:M  =-4,A,UNITLN INIT # OF LU PER LINE 0792 87BE 07D1 1002+ 0793 FFB8 07CC 1003 JSK BLB BLANK BUFFER  00000794 1004 LFA2 EQU $ 0794 A3C2 07D7 1005 COPY E:UAT,X UAT ADDR 1PAGE 0051 MACRO (E100) OS4MTEX - MAG TAPE EXECUTIVE (93462-11-E400) 1980/06/04 19:07:38.75 LIST LUN ASSIGNMENTS SI = DH01.OS4EXEC .ASM SO = DH01.OS4MTEX .OBJ LI = DH01.OS4MTEX .LST 0795 83C2 07D8 1006 COPY SLASHF,A 0796 1141 0798 1007  JEQ A,LFA3 CURRENT ASSIGNMENTS 0797 A3C1 07D9 1008 COPY E:UATP,X PERMANENT ASSIGNMENTS  0798 83B4 07CD 1009 LFA3 COPY UNITCNT,A LU INDEX 0799 B880 0000 1010 CSK A,0(X) SEE IF DONE 079A 9E82 079D 1011 JMP $+3 NOT DONE 079B 0000 1012 NOP 079C 9EA3 07C0 1013  JMP LFA6 DONE 079D 0002 1014 ADD A,A 2 WORDS PER 079E 2002 1015  ADD A,X ADDR OF LU 079F 8084 0004 1016 COPY 4(X),A LU 07A0 C3B5 07D6 1017  COPY OFFSET,Q GET OFFSET FOR BUFFER 07A1 4042 1018 ADD Q,Q CONVERT TO BYTE 07A2 4B01 1019 ADD =1,Q ADD 1 FOR FORM CONTROL 07A3 C7B6 07DA 1020 COPY Q,BP SAVE H IT BACK TO POINTER 07A4 FFB6 07DB 1021 JSK ATB GO TO PUT IT INTO BUFFER 07A5 A085 0005 1022  COPY 5(X),X DIB OR FCB ADDR 07A6 314E 07B5 1023 JEQ X,LFA5 UNASSIGNED 07A7 8081 0001 1024 COPY DI:FLG(X),A 07A8 1346 07AF 1025 JGE A,LFA4 DIB ADDR 07A9 83B0 07DA 1026  COPY BP,A GET BUFFER POINTER 07AA 0B07 1027 ADD =MES4C-MES4B*2+1,A POINT TO PLACE FOR FNO 07AB 87AE 07DA 1028 COPY A,BP SAVE BUFFER POINTER 07AC 808A 000A 1029 COPY FC:FNO(X),A 07AD FFAE 07DC 1030 JSK HAD PUT FNO IN BUFFER 07AE A089 0009 1031 COPY FC:DIB(X),X NOW PUT DEVICE NAME IN FRONT OF FNO 000007AF 1033 LFA4 EQU $ 07AF E3A6 07D6 1034 COPY OFFSET,Y GET BUFFER OFFSET 07B0 EBA1 07D2 1035 ADD LOBUF,Y ADD TO BUFFER ADDR. 07B1 8084 0004 1036  COPY DI:NAM(X),A PUT DEVICE NAME IN BUFFER 07B2 8442 0002 1037 COPY A,MES4B-MES4A(Y) 07B3 8085 0005 1038 COPY:M DI:NAM+1(X),A,MES4B+1-MES4A(Y) 1PAGE 0052 MACRO (E100) OS4MTEX - MAG TAPE EXECUTIVE (93462-11-E400) 1980/06/04 19:07:40.25 LIST LUN ASSIGNMENTS SI = DH01.OS4EXEC .ASM SO = DH01.OS4MTEX .OBJ LI = DH01.OS4MTEX .LST 07B4 8443 0003 1038+ 000007B5 1039 LFA5 EQU $ 07B5 839E 07D4 1040 COPY MES4,A LENGTH OF OUTPUT FOR LU 07B6 0E09 1041 SHIFT A,RO,1 FORM WORD COUNT 07B7 8B9E 07D6 1042 ADD OFFSET,A ADD OFFSET TO IT 07B8 879D 07D6 1043 COPY A,OFFSET SAVE IT FOR OFFSET OF BUFFER 07B9 DF93 07CD 1044 IMS UNITCNT INCREMENT # OF LU 07BA DF96 07D1 1045 IMS UNITLN INCREMENT # OF LU PER LINE 07BB 9E58 0794 1046 JMP LFA2 GET NEXT LU 07BC 3A07 1047 I:IO LOIOB PRINT OUT ONE LINE OF LU 07BD 018B 1047+ 07BE 9E87 07C6 1048 JMP LFA8 ERROR 07BF 9E4F 078F 1049 JMP LFA1 OK, GET NEXT LU 000007C0 1051 LFA6 EQU $ 07C0 8390 07D1 1052 COPY UNITLN,A # OF LU LEFT FOR OUTPUT 07C1 0B04 1053 ADD =4,A 07C2 1143 07C6  1054 JEQ A,LFA8 EXIT IF NO MORE 07C3 3A07 1055 I:IO LOIOB WRITE LU & ASSIGNMENT 07C4 018B 1055+ 07C5 9E80 07C6 1056 JMP LFA8 ERROR 000007C6 1058 LFA8 EQU $ 07C6 2309 1059 LFA10 RSK 0017 1060 LPOOL 07C7 1B37 MOV 07C8 0105 T6 07C9 01B8 OCBUF 07CA 0121 SEXT 07CB 0120 INXT 07CC 1979 BLB 1PAGE 0053 MACRO (E100) OS4MTEX - MAG TAPE EXECUTIVE (93462-11-E400) 1980/06/04 19:07:42.00 LIST LUN ASSIGNMENTS SI = DH01.OS4EXEC .ASM SO = DH01.OS4MTEX .OBJ LI = DH01.OS4MTEX .LST 07CD 0146 UNITCNT 07CE 534C 07CF 018B LOLUN 07D0 018E LOFC 07D1 0144 UNITLN 07D2 0190 LOBUF 07D3 1C06 MES4A 07D4 1C05 MES4 07D5 17D9 LOMSG 07D6 0145 OFFSET 07D7 0039 E:UAT 07D8 0108 SLASHF 07D9 003A E:UATP 07DA 0170 BP 07DB 1433 ATB 07DC 1407 HAI D 07DD 1PAGE 0054 MACRO (E100) OS4MTEX - MAG TAPE EXECUTIVE (93462-11-E400) 1980/06/04 19:07:42.25 AUTOLOAD -- SI = DH01.OS4EXEC .ASM SO = DH01.OS4MTEX .OBJ LI = DH01.OS4MTEX .LST 000007DE 1062 AUTO12J EQU $ 07DE 9ED7 0836 1063 JMP AUTO12 000007DF 1065 AUTOLD EQU $ AUTOLOAD A FILE 07DF A2DC 083C 1066 E:GFN NAMPTR GET FILE 07E0 FFDC 083D 1066+ 07E1 11BC 07DE 1067 JNE A,AUTO12J INVALID 07E2 83D9 083C 1068 COPY NAMPTR,A 07E3 113A 07DE 1069 JEQ A,AUTO12J MUST BE FILE 07E4 FFD9 083E 1070 JSK CPUN GET DEFAULT UNIT 07E5 FFDF 0845 1071 JSK SND LOOK FOR NAME 07E6 11D4 07FB 1072 JNE A,AUTO1 IF FOUND, BRANCH AROUND 07E7 FFDE 0846 1073 JSK  CLDR CLOSE THE DIRECTORY 07E8 83D6 083F 1074 COPY FEXTL,A USER SPECIFIED AN EXTENSION? 07E9 13C1 07EB 1075 JLT A,$+2 IF NOT, TRY SOME DEFAULTS 07EA 9ECE 0839 1076 JMP AUTO16  IF SO, BRANCH ON FILE NOT FOUND 07EB 83DB 0847 1077 COPY NAME+5,A TRY .AUT 07EC 96D3 0840 1078  AND =:FF00,A 07ED 1941 1079 OR ='A',A 07EE 87D8 0847 1080 COPY A,NAME+5 07EF 82D8 0848 1081 COPY:M ='UT',A,NAME+6 07F0 87D8 0849 1081+ 07F1 FFD3 0845 1082 JSK SND 07F2 11C8 07FB 1083 JNE A,AUTO1 IF FOUND, BRANCH AROUND 07F3 FFD2 0846 1084 JSK CLDR CLOSE THE DIRECTORY 07F4 83D2 0847 1085 COPY NAME+5,A ELSE, TRY .BIN 07F5 96CA 0840 1086 AND =:FF00,A 07F6 1942 1087 OR ='B',A 07F7 87CF 0847 1088 COPY A,NAME+5 07F8 82D1 084A 1089  COPY:M ='IN',A,NAME+6 07F9 87CF 0849 1089+ 07FA FFCA 0845 1090 JSK SND 000007FB 1091 AUTO1  EQU $ 1PAGE 0055 MACRO (E100) OS4MTEX - MAG TAPE EXECUTIVE (93462-11-E400) 1980/06/04 19:07:43.75 AUTOLOAD -- SI = DH01.OS4EXEC .ASM SO = DH01.OS4MTEX .OBJ LI = DH01.OS4MTEX .LST 07FB 87C5 0841 1092 COPY A,T1 07FC FFC9 0846 1093 JSK CLDR CLOSE DIRECTORY 07FD 83C3 0841 1094 COPY T1,A 07FE 117A 0839 1095 JEQ A,AUTO16 NOT FOUND 07FF A3C2 0842 1096 COPY UNIT,X 0800 8085 0005 1097  COPY DI:NAM+1(X),A 0801 8EC9 084B 1098 SUB ='00',A 0802 87C0 0843 1099 COPY A,T2  SAVE UNIT # 0803 87B8 083C 1101 COPY A,NAMPTR CONNECT TO JUST DISK 0804 FFC7 084C 1102 JSK CODK CONNECT TO DISK 0805 A3BC 0842 1103 COPY UNIT,X 0806 0900 1104 COPY:M =0,A,DUFP 0807 87C5 084D 1104+ 0808 0908 1105 COPY =8,A BOOT SECTOR FOR DF AND DP 0809 C084 0004 1106 COPY DI:NAM(X),Q IS IT A FLOPPY? 080A CEC3 084E 1107 SUB ='DF',Q " 080B 5144 0810 1108 JEQ Q,AUTO2 IF SO, BRANCH AROUND 080C C084 0004 1109 COPY DI:NAM(X),Q IS IT A MINIJ -FLOPPY? 080D CEC1 084F 1110 SUB ='DP',Q " 080E 5141 0810 1111 JEQ Q,AUTO2 IF SO, BRANCH AROUND 080F 0900 1112 COPY =0,A ELSE, ASSUME DM OR DH 0810 87BF 0850 1113 AUTO2 COPY  A,DUFP+1 0811 0050 1114 COPY L,A 0812 8ABE 0851 1115 ADD =:100,A 0813 7000 1116 COPY A,K SET STACK BELOW BOOT 0814 82BD 0852 1117 COPY:M =:400,A,DUBCT 0815 87BD 0853 1117+ 0816 3A07 1118 I:IO DUIOB READ IN BOOT 0817 019B 1118+ 0818 9E99 0832 1119 JMP AUTO9 ERROR 0819 C084 0004 1120 COPY DI:NAM(X),Q GET DEVICE NAME 081A CEB9 0854 1121  SUB ='DM',Q IS IT 'DM' ? 1PAGE 0056 MACRO (E100) OS4MTEX - MAG TAPE EXECUTIVE (93462-11-E400) 1980/06/04 19:07:45.50 AUTOLOAD -- SI = DH01.OS4EXEC .ASM SO = DH01.OS4MTEX .OBJ LI = DH01.OS4MTEX .LST 081B A3A8 0844 1122  COPY DUBUF,X GET BOOT ADDRESS 081C 83A6 0843 1123 COPY T2,A GET UNIT # 081D 4C00  1124 CLSN =0,Q SKIP IF NOT DM DEVICE 081E 0E09 1125 SHIFT A,RO,1 TWO PUN PER LUN 081F 8491 0011 1126 COPY A,:11(X) STUFF INTO BOOT 0820 A883 0003 1127 ADD 3(X),X  ADD NAME BLOCK OFFSET 0821 4020 1128 COPY X,Q USE AS DESTINATION ADR 0822 A2B2 0855 1129  COPY =NAME,X ADDR OF FILE NAME TO LOAD 0823 0907 1130 COPY =7,A 0824 FF22 07C7 1131  JSK MOV MOVE FILE NAME TO BOOT 0825 0940 1132 COPY =XA:V,A 0826 3000 1133  COPY A,S XA & NOHTING ELSE,SHUT OFF CLOCK 1134 * 1135 * MOVE BOOTS TO TOP OF MEMORY 1136 * 0827 C2AE 0856 1137 COPY =:200,Q PUT LENGTH OF BOOTS IN Q 0828 A024 0024 1138 COPY R:EMEM,X TOP OF MEMORY TO X 0829 AEAC 0856 1139 SUB =:200,X PUT BOOTS HERE 082A E399 0844 1140 COPY DUBUF,Y BOOTS ARE HERE NOW 082B 8040 0000 1141 MVLOOP COPY 0(Y),A GET WORD 082C 8480 0000 1142 COPY A,0(X) MOVE WORD 082D 6B01 1143 ADD =1,Y INCREMENT POINTERS 082E 2B01 1144 ADD =1,X 082F 55BB 082B 1145 JNED Q,MVLOOP  DONE? 0830 AEA6 0857 1146 SUB =:201,X YES,SET X TO START OF BOOTS 0831 9C81 0001 1147 JMP 1(X) GO EXECUTE BOOT PART 2 0832 938E 0841 1149 AUTO9 EXCH:M T1,DUBUF RESTORE 0833 9390 0844 1149+ 0834 938C 0841 1149+ 0835 2309 1150 AUTO10 RSK 1PAGE 0057 MACRO (E100) OS4MTEX - MAG TAPE EXECUTIVE (93462-11-E400) 1980/06/04 19:07:46.75 AUTOLOAD -- SI = DH01.OS4EXEC .ASM SO = DH01.OS4MTEX .OBJ LI = DH01.OS4MTEX  .LST 00000836 1152 AUTO12 EQU $ 0836 BFA1 0858 1153 JST MSG INVALID NAME 0837 1D06 1154 WORD ERR8 0838 9E7C 0835 1155 JMP AUTO10 0839 BF9F 0859 1157 AUTO16 JST K  FMSG FILE NOT FOUND 083A 1D25 1158 WORD ERR10 083B 9E79 0835 1159 JMP AUTO10 001E 1160 LPOOL 083C 011C NAMPTR 083D 000D E:GFN 083E 1B2C CPUN 083F 012A FEXTL 0840 FF00 0841 0100 T1 0842 011E UNIT 0843 0101 T2 0844 01A0 DUBUF 0845 198E SND 0846 172F CLDR 0847 0128 0848 5554 0849 0129 084A 494E 084B 3030 084C 1738 CODK 084D 01E3 DUFP 084E 4446 084F 4450 0850 01E4 0851 0100 0852 0400 0853 019F DUBCT 1PAGE 0058 MACRO (E100) OS4MTEX - MAG TAPE EXECUTIVE (93462-11-E400) 1980/06/04 19:07:47.25 AUTOLOAD -- SI = DH01.OS4EXEC .ASM SO = DH01.OS4MTEX .OBJ LI = DH01.OS4MTEX .LST 0854 444D 0855 0123 NAME 0856 0200 0857 0201 0858 1B32 MSG 0859 1B42 FMSG 1PAGE 0059 MACRO (E100) OS4MTEX - MAG TAPE EXECUTIVE (93462-11-E400) 1980/06/04 19:07:47.50 CREATE -- SI = DH01.OS4EXEC .ASM SO = DH01.OS4MTEX .OBJ LI = DH01.OS4MTEX .LST 085A 9FE6 08C1 1162 CRE12J JMP CRE12 085B 9FE6 08C2 1163 CRE14J JMP CRE14 0000085C 1165 CREATE EQU $ CREATE FILE OR DIRECTORY 085C A2E6 08C3 1166 E:ISM ISMPL GET KEYWORD 085D FFE6 08C4 1166+ 085E 113B 085A 1167 JEQ A,CRE12J SYNTAX 085F BFE5 08C5 1168 JST LOOKUP LOOKUP KEYWORD 0860 00C3 1169 WORD CRE8TABL 0861 11B8 085A 1170 JNE A,CRE12J NOT FOUND 0862 A75E 0841 1171 COPY X,T1 INDEX TO KEYWORD 0863 A258 083C 1172 E:GFN NAMPTR GET FILE NAME 0864 FF58 083D 1172+ 0865 11B5 085B 1173 JNE A,CRE14J INVALID FILE NAME 0866 FF57 083E 1174 JSK CPUN GET DEFAULT UNIT 0867 8359 0841 1175 COPY T1,A 0868 11CB 0874 1176 JNE A,CRE5 NOT DIRECTORY 0869 8355 083F  1177 COPY FEXTL,A MUST DEFAULT TO DIR 086A 1330 085B 1178 JGE A,CRE14J INVALID 086B A350 083C 1179 COPY NAMPTR,X 086C 312E 085B 1180 JEQ X,CRE14J MUST HAVE NAME 086D A7D8 08C6 1181 COPY X,T3 086E 82D8 08C7 1182 COPY:M ='IR',A,6(X) 086F 8486 0006 1182+ 0870 8085 0005 1183 COPY 5(X),A 0871 964E 0840 1184 AND =:FF00,A 0872 1944 1185 OR ='D',A 0873 8485 0005 1186 COPY A,5(X) 00000874 1188 CRE5 EQU $ 0874 090A 1189 COPY:M =10,A,INXT SET DEFAULTS 1PAGE 0060 MACRO (E100) OS4MTEX - MAG TAPE EXECUTIVE (93462-11-E400) 1980/06/04 19:07:49.00 CREATE -- SI = DH01.OS4EXEC .ASM SO = DH01.OS4MTEX .OBJ LI = DH01.OS4MTEX .LST 0875 87D2 08C8 1189+ 0876 87D2 08C9 1190 COPY A,SEXT 0877 0900 1191 COPY:M =0,A,RLN 0878 87D1 08CA 1191+ 0879 A2C9 08C3 1192 E:ISM ISMPL INIT EXTENT 087A FFC9 08C4 1192+ 087B 1144 0880 1193 JEQ A,CRE6  USE DEFUALT 087C 83CE 08CB 1194 COPY DF,A 087D 119C 085A 1195 JNE A,CRE12J SYNTAX 087E 83CD 08CC 1196 COPY:M DV,A,INXT 087F 87C8 08C8 1196+ 00000880 1197 CRE6 EQU $ 0880 A2C2 08CL 3 1198 E:ISM ISMPL GET SECONDARY EXTENT 0881 FFC2 08C4 1198+ 0882 1144 0887 1199 JEQ A,CRE7 USE DEFYALT 0883 83C7 08CB 1200 COPY DF,A 0884 1195 085A 1201 JNE A,CRE12J 0885 83C6 08CC 1202 COPY:M DV,A,SEXT 0886 87C2 08C9 1202+ 0887 A2BB 08C3 1203 CRE7 E:ISM ISMPL GET RECORD LENGTH 0888 FFBB 08C4 1203+ 0889 1144 088E 1204 JEQ A,CRE8 NOTHING SAID 088A 83C0 08CB 1205  COPY DF,A 088B 118E 085A 1206 JNE A,CRE12J SYNTAX ERROR 088C 83BF 08CC 1207 COPY:M  DV,A,RLN 088D 87BC 08CA 1207+ 0000088E 1209 CRE8 EQU $ 088E 3A16 1210 F:CREA NAMPTR CREATE FILE OR DIRECTORY 088F 011C 1210+ 0890 13EB 08BC 1211 JLT A,CRE10J EXCEPTION 0891 116B 08BD 1212 JEQ A,CRE16J ALREDY EXISTS 0892 87BA 08CD 1213 COPY A,DIRME FNO OF DIRECTORY 1PAGE 0061 MACRO (E100) OS4MTEX - MAG TAPE EXECUTIVE (93462-11-E400) 1980/06/04 19:07:51.50 CREATE -- SI = DH01.OS4EXEC .ASM SO = DH01.OS4MTEX .OBJ LI = DH01.OS4MTEX .LST 0893 832D 0841 1214 COPY T1,A 0894 11E7 08BC 1215 JNE A,CRE10J FILE NOT DIRECTORY 0895 83B8 08CE 1216 COPY:M FNO,A,DIRYOU FNO OF PARENT DIRECTORY 0896 87B8 08CF 1216+ 0897 11C1 0899 1217 JNE A,CRE8A NOT ROOT 0898 DFB6 08CF 1218  IMS DIRYOU FNO=1 00000899 1219 CRE8A EQU $ 0899 83B3 08CD 1221 COPY DIRME,A 089A FFB5 08D0 1222 JSK RFE FIND LENGTH OF FILE 089B 11E0 08BC 1223 JNE A,CRE10J ERROR 089C A327 0844 1224 COPY DUBUF,X 089D C086 0006 1225 COPY FL:LEX(X),Q LENGHT IN AU'S 089E A323 0842 1226 COPY UNIT,X 089F 4720 1227 MUL DI:BPA(X),AQ BYTES 08A0 0020 08A1 871F 0841 1228 COPY A,T1 08A2 C720 0843 1229 COPY Q,T2 SAVE LENGTH IN BYTES 08A3 83A2 08C6 1231 COPY:M T3,A,DIRPL ADDR OF NAME OF DIRECTORY 08A4 87AC 08D1 1231+ 08A5 FFAC 08D2 1232  JSK CODR GET READY TO INIT DIRECTORY 08A6 11D5 08BC 1233 JNE A,CRE10J ERROR 08A7 FFAB 08D3 1234 JSK OPDR TO ALL ZEROS 08A8 11D3 08BC 1235 JNE A,CRE10J ERROR 08A9 0918  1236 COPY:M =WRFSFC,A,DRFC 08AA 8793 08BE 1236+ 08AB 82A3 08CF 1237 COPY:M =DIRYOU,A,DRBUF WRITE ENTRIES FOR DIRECTORY & PARENT 08AC 87A7 08D4 1237+ 08AD 3A07 1238 I:IO DRIOB PARENT 08AE 0183 1238+ 1PAGE 0062 MACRO (E100) OS4MTEX - MAG TAPE EXECUTIVE (93462-11-E400) 1980/06/04 19:07:53.00 CREATE -- SI = DH01.OS4EXEC .ASM SO = DH01.OS4MTEX .OBJ LI = DH01.OS4MTEX .LST 08AF 9EB9 08E9 1239 JMP CRE9B 08BIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIII