IMD 1.16: 1/09/2008 12:49:12 os4 utilities #1 product diskette 84-93460-01 g200 12apr84    @0|)wwЀЀtQql)  " }gA `_l M@/*/*/*/*/*/*/*/*/*/*/*/*/*/*/*/*/*/*/*/*/*/*/*/*/*/*/*/*/*/*/*/*/*/*/*/*/*/*/*/*/*/*/*/*/*/*/*/*/*/*/*/*/*/*/*/*/*/*/*/*/*/*/*/*OS4 MF181102113120903821027102501 821027102501 @F46001 VOLOS4 UTILITIES #1 PODUCT DISKETTE 84-93460-01 G200   IIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIII_l M@iGyy GGG`HZ@ b G`^Y e IQ BBp@;:9 :7P@ G:پN 8!0. * C'xC# b# }B!9 @0DAJL w+™ЀЀΖQA1"   i ž} š} @EEFF)DEۄF8 џ} ԟ} ̟} * `jUBBI,v BI, # @ G9H@pܾrCHC C GTq` Lg"gEXC P+s=胾P+c fQN p $Rxnj  ޔniZ ތ⊞ } }HGž Ÿ@ALS)"$ C k20j.h( +$`%ꂜ\1 !M' y %'+os慾)sY ed|{ @8 o O m J K i gN )V% t%sLn`"E F. F„ D>) =`;nrgy w"G,{Kq1 A&}E*`(t@% ;c  765y342(.OS:: SYS"iwvc Bc A@6<# Ic B# gIjHc rOVicEdDanoP8){ @ƤI@0@¡Ǥ ǣ)@IЀЀ؀QA1*@ ΍╢@+kUŒk5mEEEBE5E3--E2E1POVicEdDano8.b57 y LDLDZ1l  ~ C q-]! >>> y EXEC::  SYSLD '1ƞ þmM)ŢfE) ]]⺤B1C: ): ̃ !_pC PE` C   p0! pCPEs !) ~LD chbIqC C @U ilffeKB́QȃYAـ ԄQ`(QBNKCBǞB!=? pCùC @KP@E OQF@ +zCI ƀv: >#  [ mG u+* R  OC ` EXEC:: NOT FOUND  BAD TYPE CODE PROGRAM TOO LARGE LOAD ERROR  NO EXECUTION ADDRESS  UAT WIPED OUT SYSTEM EXCEPTION XXXX OCCURRED AT LOCATION XXXX%I@2NK0M9K+U'#  q=/p(p(C @`pD+E` B@ C@/ph@ph?ph@kphE@/p p?p(+p(# OCSL :@`` D@1HNFLO DL)OB`H: ) # `@:(x  OVST 4@pJp@`H@Bƒ C ADEFGHF HAEG@h @6@6@6@6I pB# ) ZP  $PO $Bƻ: C @@ B+{āc  0 0$: :   : : w 1:  1:  Z: :ZPZP +׀!ӄҢҢ̀@QD@QBkz A@N JÀA+kUǺ : ::&y X R C x r ck4  > -45K35k+)*  OC(OC+OC% CRX> ? X^fls~ ABCDEFGHIJKLMNO P+Q5RBSLTTUZVbWnXwYZK NOT READY WRITE PROTECT TIME OUT POWER FAIL  VOLUME NOT ON UNIT  VOLUME NOT FOUND  LOGICAL UNIT NOT RELEASED  BAD CHECK SUM UNASSIGNED DEVICE LOGICAL UNIT NOT IN UAT END OF MEDIA  HARDWARE ERROR  ILLEGAL OPERATION NON-EXISTANT MEMORY ADDR  ADDR IN SYSTEM MEMORY DIRECTORY FULL  DISK NOT LABELED  FILE ADDR OV ILLEGAL AU  AU NOT FOUND  WRITE DIRECT EOF  FILE NOT EXTENDABLE ILLEGAL FILE ADDR ALLOCATION TABLE ERROR  SYSTEM USAGE ONLY BAD FCB CHAIN FILE OPEN FILE NOT OPEN ILLEGAL FILE POINTER  UNIT NOT GIVEN  UNASSIGNED FCB  BUFFER HAS WRITE PENDING DISK FULL RTX ERROR UNDEFINED ERROR0GG GBpaFbDcE/ph@ph?ph@kph# FaDbEc# # 25k-35K4-</ph@ph/ph@ph?ph@kph?ph@kphĢ/ph@ph`pHK Q KRQH ?ph@kph`pC# 25k-35K4!ŸǟžǜœǙšǖ˜Ǔ–ǐ”Ǎ p+LJc #   itPt| n0. ; u".(+%1:4=@ t H  H )H f )H>   M DF00AAM  MG%M DF01AAM  MGMl%v)<)<)?- fdMvlLP00 m'$$2$vlLP01 Q6$$2$R DM00AA  &R DM01AA  & R DM02AA  &*R DM03AA  &RMl*v***?-ydR{ DH00AA 7  &7#]@L{ DH01AA 7  &7#]@LRlv***?-d MT00 A C+ 0P@lv+5+A+,8?- 0- X1X2X3X4SI5LOvSFUF%OC5CI5SL5SO5SA5LDOVXX%POvZ1Z2Z3Z4Z5Z6ZPb4dQSI1ECNBCO# $'/p(p(` D/ph@ph)@BCOD6DZ `+ʀP COBBT€RQ EVAQ mWG CW90.r@ VBCO- OV!00ߞހP D  /NBy M  `+d,NQ (Vy )ք5` @P  `+MN sVWNy%ZrY['OCP  /NM D%Y'B2BC] ҀO? ?ph@kphD?p(+p(# r pN N igIRN1N1  # -d/p(p(` BDCEAׂI `+C Uф@z 0 :D A FE [ _ E :E ED DAQ\DQZBN!BB @BCN1@CA,D,E,@k%'jACN€MDB BEB CA?p(+p(#  9</p(p(` /p(p( MNQ@ ϪSW/p(p(Nq% ' z ` ?p(+p(M?p(+p(# '?p(+p(L 0n:>MN1EMM M1B I@@Mǁ# 9 1 æ :%:/ph@ph?ph@kphF:- ª # @SAy>CI! SLCI5 >SL7; @~Ǡ1DSB# :"SFUF!VϤA FDZYBZ Z Bą  Y H H H @ ɠAZg Zulc(L DgHo 7FuWmѤA ʄZH ĞƞΞϞЀWX AZ̀  TZT UVETi`ZӀ`Z͠AZ QZgZAsl, DH Lo [7FurN͠Y ABSA ZZߠYۀABā A@Ѐ ĀBĉZĊ¨ć§ā@ giZAZw ABZZCAN lcu-2{7F:&*B1:A QB1NBɀ6[ 1 gl!Zc rsqoql! _ "* H1KQJGBĀZB B C @C @ pā_B __ __6 1  B* pE/p p_/p p @*31*_1A&# /p p@pKp@g /*BBC B1Hggyu{bߞ N OQJ?QC @QB[TP G `QRS GGG_\ ·G!ac BR IG+SF @ B, @GBĝBR IGSB #  [ D,Hoxuc Y 1C# MTlC @C @C @C @C @`p FYcB/p $p# ? I[QbGWXZ/p(p(Y@IC @C U?p(+p(# URV_ S R_ 3C#  , DH u =gYIA@AĊ# PB1LZĀ6P1PA# ƒċ# 7IGVWXWBG! R]^TVC SSUR` `0р^SB `G G! RBR#" #  [ZΞQ;/ph@ph@(РP+?ph@kph P+P6oP   @瞛Pvu  Ā ΦQ/ph@ph ?ph@kph ?ph@kph # ?ph@kphv!5k5KZPMT7FFZB+E(z(# ^][`WXS SEI@ Z# Y\΀[ PWXG[ # I\a`\+U*ZZ#  D [,HZYB1Jy YQ^\YQg!WXWXJS+XW7y B N OKƠQ ?F # }{y=v N O5ӠQMI+9\Y\+\JR9P#P# 01 \F6\AB [ IZF cL\FXN9C qDx&__________B[GZI #  -A6AkDYLWXFXC _______0WXADAASO`NCZNZYNNYCYTڀ`LS B D [JXWFA Z [NWOX I:A]G [NWOXWXPAOGAA6QSÂYK=A:YQFXQfx;'`WX%A$EA [SÂlYHAgYDfc#LWXā e A6ADYF ________bbb_;a_:WXAPQBWXGA;A6XSÀYRSDAYA\Aws-, = D Sx5vvCnWNXOAhPQfBbWX``G^AY\;[A6_SÀYRYRAHPPYAaAWFXFAAA@? k@''WXY )C,NOAWXAGA;SD A BfÖE JEI\YSYZ Zl S05vx1w3WXPQY )oBBWXBB[rZE JEI\YSONeLDZ D`C`e9A6ALWXhF מ DSAGV WE [NOWXP [ I_aWXWXLāEҠA+ DSAGV NCWXM [ IA+WXNFрOF [WXEA;WXAĂ/ 5k5s-LNO[esFFA A6AAA`AAրF̄F@BK@" @+ `  @6F@F@``/AB`@ CVUF̈́F` ʀ6AAA A@(@( À# ‘D }L DHo  ?7F}ޭqqA6B6D6BπF ĠA AZ_Aפ`ARQF̄FM6@BK@" H @(_GAC@_@``EF D`@0`G CABŀÀ@@`@ C`AF@F@ā ܉ZL  Z__`u{eA_AVBVL D [o;BV TBV UA__dcC_^u+O*P+NTTOxU΀VG_BYHU<˄`_54r`A`*) e_`_ AZ  +@(Q+@(@#QF*UR+UVATVU # +/ph@ph?ph@kphr( gum\Y/p(p(E%G @  }*19 ' ?p(+p(Y# YDLPWX T]VBG S^YSBYDEQ` LPLπIY@SB INZZI QE# 2SN# PQWXʸNO F # [| TV]R]TSUR^S # !_ Yx^A]AZؠQÈJ^*+DYY^yED€DY]AZNWOXQEDZင\\1g*\ "E8Y@Y]RVU ǀWNXObL D S [-yDZZInmDـDdcZπDZ%@AІ̆VUS # H 3NO@AGVA PÀYCY# 2V# AVUT# MB TUA/ąV # -,/A1 # L# ANO# WPXQY)=EYPY # NYR€YNN# A+# 5K qSÒZNZ# 0_@APOQ`H%} 'F+`HPu `@_P# ZB+F C8# AEYF@Y# AWXĂ/ # NVWXW# YNY# A+# 5koYS@@YCYZBZ @GVWX@ Y# Q# C @Q# C A @\"\S@"VSO 6ĈEN 6ОEN 6Q`*%VB`H`H5Q`*%VBt`H`H5Q`%VA`HA`HA'kK*Q`V`H 6*%`H`H'. 5D@5c # "S SRKRPQWSРBGVNOPSǀSP S # } [ D RBG NOS GS G !GVNO# }S. Q# @/ph@ph5 7 GϠBG! SR/646_RQS_ R S?;W?ph@kphR⌆+JzR(?ph@kph GG! RSAJSȀRR 7# ?ph@kph# BG! ]^ # I C U# B+# !+# B SYRRS SB 9P}QƀVVUJ 1 NĀ9  `NW E 6i V sĀS SBVNO  S[ E 1 NĀ # *|,H  =Q Q #   D BQKQ# PP{ !" ^ S'Q QQQ QQ ߘ Q+K1FǏÍNjx #  5K6!Z Q QQQ Q PQ6PP# !$ ^ +1NA6QQp #   !Z  # 5k8z*1]*BONQ6J,!A Q+]^ QNOBA! # !Zf Gx Q|{((Ā /6-6C @Q# ))FP'FQDBLEDB G E LQDBLEPFFIćĈăąЄ# # # !5k 5K !e[C @C @C @C @C @C @`p҄GI@DEFLA1MHF@6EQM@IGk F@6IMIāM/p $p# Jho6Mekk@6M_@6;Z--25k5K@Р1MIABC # ABx# !+@ D   # # U=+vUvBCF09FXB + N1C 6C6F09C +HF@6E)o# # BKQ\6ƀF IDL 1 N6H 1 N Bȉ@AH# MCMC+CM # "T # C+C # 555k6/ph@phC+Cn?ph@kph# 5K-C6# 6B # # @ +j @1# "( _Hܕ܄+Ϟj@F@ `+11X 5k3{4v5K> @"p ."A s⑂@ @AF ## # " "!-"s p`pA bDBOϠ 1E OS p# G AEA@BF EG HK 1ETRIP EAO sO G@iNJK˜FC@@BF]GG@oFS#ab?#O [IFF# $[#V#^$m#^=]p pSRXN` P 0Q Q YZ О E@ @ E 1Q]‚p# @M SA G[C  #z#z#######$[LL@fLOLoLmMNMIG$M% qXQ3ĤX;\@`XS%'`@\'X# hA@ QA[1DHV ]'$T$.$MNF[1DHV)NGQBIT#HL[1۠Y1Y@" Y&ZA&Z[1DHVIGa@Zs1@N Y@&VV<V9V6[1CHV1I#x#V1G@CZQCYQG C pÀYZA@@eZ1B@Z`GG}YY&Z@# p``p^] )5]@AB_][Y@QADQZQBY@ĈE6Bg^ p# #z#5QTV00P$$<$j$Ql5t%$'K?-Qj$   lQlt$'K?-l$ $ l$EDπF ĠB΋QG F ʀD-TR%g(ZD݄DI3BJEKCFyDOFB6E@6ArP + 1QCܗ 0y xBD+KFQFQFWBwPB ЄP怑GG[柊 -L-A"V-s----&"%TO [DFF6EEKdddcbBawF@0 CXJQB1h6ǀy C DD P+KFQFBJGy ÂGG-pPAC -@&z"d"OϞw@KQB@61U@ KCNJĂ܄6À @KQNDI@lJFJCIIBΜQ:ʘNyJQKQĀJ/6-&I--~"x-A"V-s-LP(0'*'j IPRED)DDNF  EKBF @Q6@JPF 6 M_CK_%'3 oPDJ IQDF6AKFQCK_%+'PQ͟&-')"-L'&'LL K IDGDQh IIADDIIFXJQCcKF6+DJ B%QC*˞aa' QQ ICB1€F DPQ_QAFND' '-%%B'%EKM B%'Q_J  K@* H%'@(KK+I_K#BK`M@#QbAIIDMN F6F KK _IQҠMK1yAʠMK1yv DBKFFM `K@P QQҞ QMJM`UEK>Q hKMeII ΀_E6q.y' IICđB@1B P;XJQp# c p+p(/*-@"V-s&%>%_-A---%`-~"x%'(BJFF $ # ʠK_ D II ӠB1P1wD+KB I螮 B K D IIF  FBDQKNy@HID@DÀDrI1oD+KGeCI I  ^ BBܗI ICF  ŠB- @KQB@6TLP "%1%]%_%g-~"x%?Bp MBV ;KI D I KI D I -'dTYTKPP'yTP((%'(0wDIBK̈́JSC DIFF IEDמҞОсKy  D5 ͠CFK ICDEKnCCFF DBKCILUCCIDGKCǞ{x "-@"V-s)&-) )-~"x-L-Ap؞ӀDIBK̈́JFGFc0 DCIĐ IK ֠CKD@yNqāKJpGFCDEK@CC:`DI77݀FF DCBK Ā$#I" IG}wDI@lJ_6D/6Bh"d"-)KF@6+%'6* 6|EK+D@*l# )<ZEDAAӠBCAĠCI  ID  EK@BĕXCĜ FN9XKQA rC6G@G@XQII/6РBܕCܝ ]} )*-*"*+ +"d"-]@KQ26٠C =6?6ˠCCKJJBC  %BC>E@KQ:C6N13C6FB # # }/*F AE D***-))@*mEDB-5# BCDB1ABCD !E-E*GCV B B# BB# !EEECD# * N 5# 0100. # -..DBBCDEE EE# G N GH GDN GGGG CD# 0010.C2DBBQ# CDE+E+*# CGCCDQÀCD# G G# GHIGNH# 01"0010.#0.~C @QBBRRc # 0-.F ÄB%*h-B1ANONBB# # +2*+1m# *2Q+*1d# B1ANO 1Q# NOM M# M M# NOM M# 0000. B 1A)BNO# 014.M0BBBBGCBGB1D+1A@AB0M# 1|01g/  M0@IG0M# 1l1W/ QPONMLKk p`c # /# # 1Z/'F# RR# 1o/0N# 1Z/6N# 1o/<# 1Z/@# 1o/DM00M# 1o1Z/NM00M# 1o1Z/X# 1o1Z/^R# /`R+R# /eM0܀R0M# /m M0 HJR0M# /x# 1l1W/~# 1l1W/# 1l1W/K# RR# 1l/.2# # 1o1Z/.2#  # 1o1Z/ .2I@*# I@#C # 1o1Z/5# 1|01g/M00M# //N6@ 5# 1|1g/ M0N50M# 1|1g/5# 1|01g/M00M# // N 65# 1|1g/ M0 N 50M# 1|1g/ M0 N 50M# 1|1g0NO@ RA9@A8*2+# -. ..C.~0010$@RNOA8# ..0.@RA9@*A # ./ //#/'/0/6/> >{c 8s~ e6J07k745 7]5|7d8@7V1<@ A# @HBD`pCDEF!I JAFGHDIH6 @QDCEGEI A‰ `@# 7F281M# BJJ B` E ``b`# D# r`@@ABCDEF` &`JHIFˤHG^FDZ HFFEFĎEJ # 656/66i7&BGDFwDHI`(j򀁄IJKLG@ @HA BF@`CED@ H6RC @I܆/#@# ``@ # CČ @䀞l8o7F832| 01AsA?10,qgI,B0&C1&D `@/ph@ph?ph@kphq`H@@h@`@@q`H@@ 3x4v5k5K76 $3yk3{3|PiSC* bĀ+u*M] # Sm vjsCk JS검@mkb `@nbG*`@ G*g'ā OC M OOC M S OC f hAT w u>:χ: V: ^: i"y X x B  ! q>B|{ñC F E:  q: whCEC @Û㕣f&!1ç1>/Njc  L h8@mF1EBE5E3--E3E1CICI0 ; C L G: J#  ; ABORT? OC M OOC M S OC f hAT w u>:χ: V: ^: i"y X x B  ! q>B|{ñC F E:  qOVicEdDano?,ASSIGN .ADVANCE 5AUTOLOADBACKSP 4COPY  COPYALL CREATE COPYPACKDATE NDELETE DISMOUNT6DO #DUMP dIDIR INIT 2]JOB KILL 4[MOUNT 9PAUSE PRINT WRENAME REWIND 4TIME VIEW  gVERIFY HWTAPEM 4Z3. .. OS:: SYSLDZ1LD  Z1Z2Z1Z2Z3LOCIZ1CICIOCOCCIOC > CX> I ¿  oM B(=vXQF qs SHCI>k ^I@EZQ:X2)PP B ^ /ݢǃ T ߗ Ž%AɿԞSFOV%-1Gɣ€BŞ(ǃdf ]\ ςXXT%VԃPRKЃJE ,gȃJE B  M =tZ1 1:@ g] + X: 0:@㒀@AK CCI >k ˜%̓K:C# $gz#Hy  `tUFOV߅Spq0 ƿ@QDɃQC+ly ؇JJJ%I ۇ̓̎؃Ȏ;1HFJ̈́:*u 1:@2N+ B㯀@AK[ۃ` APÒΟQ ÊΒQ ᇋ= CISLCL!ihDc  0:@ Ń , +# C.GO܃GK D1GA  0i:@ 7N+ B5@AgW'HT 1T:@ GB ?M  >k  1M@6ʃ 1:fƃDb::B^1ĿVg YR F:x:` NyLCLXILcLxEm)):;=CIe   @w:8v. ףAӸ @BKՠ1NF ̀͠BC ߲ߵX:8O C:8&# 4 UNIMPLIMENTED COMMAND. USE MAG TAPE EXEC (MTEX::)  LU DEVICE FNO ySL8;=BEџтĢ%6OȖAłŇăB!# o6HKLC f 6:Pp @0C f0)@ )?UFOVB=UTIN00l M Pdp͇:H)JSITTL @ P OC @ ` "* H1LAy  5: H*3mc @0œ$㑀@k+U# !H|gyMLM*%lD D܇עDՇѢD·:$wŃǎ DÇ7G 3ǥ :0Â:0:0 I Ā 3 J U V YIR5:0 'b:0 ]VQ NMM # |HySv2_\=M/p   هȀEy M :냢f )C @A  y * Y q-ULO 1W pΟΟΟ:+9 ţ+  :"  ++ " +4E1 ,6B* ))C @AΞߟS t fM+B#Q2 :  A 0:H # C @)$5 p5 GEc # =HK 2 yec 546‚X)(އр;Nˀ DsǞpoà * p6F*/+  <AA F +  A+IǑ +ILj5IR tM r s<<>> LM a W}+{]wv -KJ -p C 7@h? ٿN]՞^Y.2QAσ):D("6_6 pQJNyJQIQJQD߫:˪ǩ_6^o6GGÀF Dç pM@+C @* B 2Sy k b p t|p`v ]Vg QF{E , Pp# gqwopef  iM= @ G:HL # ݿݟ݃ E¿ գ҇҂чуЃσ ; 㿻E ¥ǣ̃ B  KL-+ MT  9΃[LTy M JRǪ GMKMDLJHI>H=G<864A  n7z795m)G% :Fg QAk  0: +Ѓއb ʞVǃLJԃ҇ŃчăЇâL·IICǴù@Ƿăć:G d: /:؃˃ȃţ! Qoȃƃ:W韡"#  +M e&o5 LK  1 H`MRX GQRGQ1D žM DD:98 88q;MT  B V56ȃE  fSB@A@Y IR +SRRwH + DDCC < ,# # FL-o )r?oHliSf kc &`C @ ƀ S G @Aǻ ÷G Ƿ :HhE 6ߞt+ ÜN Cߚg'qc # ;=M MLyz g{ +ts n(ܣ;+ I 5BB}+ߩߨm e_ A# 6J:8 ߕߌ  # } y=B5 q2&g `` ^  6 +@VK K7GH+ FCnB.v# YM -  IǤ+ߠ&h $+ bIǓ+ߏWT + # }LACR J NAME .EXT LENGTH DATE TIME EXTENTS AU'S F# 2NDX NAMSJ NAME .EXT NAME .EXT NAME .EXT NAME .EXT  <1PAGE VIEW (E700) UNIT= VOLUME= J 19YY/MM/DD HH:MM:SS CREATED 19YY/MM/DD HH:MM:SS DIRECTORY=   TITLE=  TOTAL AU'S =  TOTAL FILES=  AU'S FREE =  AU'S USED = FA FB FSUFFL NAMEONLYEXTENDEDSTANDARDALLFILES NOTREE @DIRONLY SUMMARY  % SӃт:X)i cbUFOV]S ѣ̧̀ڇʣ٧1D ăa򣺧ȇD  ŇŇŃɢ֞Ӄ<5ˢl%cB ;:B-UMT# 77DE \Ң\+ S P y7795m)G%3Aтp+ l0˃ DQ2(&/,':Bş( 0: $  d dǂC>:ÃΞ: ÌK + jҞ5Bld2IR#+&5:ݞܞȃ\ ZWׂׄ:h Q̓ϟϟ̿S8-ȢȠ+ K +1ģ+ '& y nWy# gtpurom 8Uq;M8 =8/ K8d:8Hң׀: y 4 À- # # şşşşF>㩌D8ò1 š% ::My5IR -(fB dałŇ:  ЀC 6IKƢGB ߧߩn҃::  # |ygvsZ3#+=-M` ݇݇؇ׇևՂ# dƇE ƒ‡ݣEڇڂ͇΃ă şŃE ¨Ǧ'ʃ   %B   $,-MT8VσYWNyLMJQKOH HJCJHAE864275.AƂ# 7zh795m)G : DQAݟ  0: .LJ AÃLJWۃPMMñKïǤIAMGFED냦7:J 0:(۟# +&-+ B޿] Z[X1D Ǜ RRGFqMT  B  .lSB@A@Y$ Y +1W ÿL ,B# =oHy)uv?rsHoplSigfg kc ` ݇Q̇ۢڇ"MK҂: APAއރ  σQ͇˃A;K있ʇÇ:' ‡#ÿQAǡӢ+›ǘ ó Ăß" B795m)GM 7DZ40,Z3y7q%[[AaZW+ VV:B 0: D ;<<>8QA<<Ǔ:A87Ђ6 d#&7z-q:r 0:( ÝQ¢ ÛK :h o(+5Blm qoBg%CƢƠ+ ŸY# + ,# OVERWRITE REWIND RVERIFY VOCCUR O M8 =8/ K8:Z30Z4HN\:ラ - - :: # | =_h  Eٞٞ٢Q9 هآ SȀ; π QI ÀDy Ń8e+± :XZI%QI :0# ~{gx 5IR B3M:ʇ Ƣȿ Ň Z¿ 1㿣@AǽigeceP((@6ˀ:7:1 E1DSB%%:#+kߎP#  =CI DО πȃŇ̂̇˃ȇ ߢăG D  8íG!@ ®x:H ǃÖG!ϕR# M-UMT)G3,;L=~B2Z9.VC @ كPLЀJ̃Fȏ˞v 5߷:8 c # c # :x:`y C X c x ~l 1:@ # # =yN eC >k =C @G`@@Q+kc I# c # C @QQ@AǩZ%'㥣%'ߞߟߛqc I# c # C @QP@AǐA%'㌣%'߆߇߃rc # C @) w(N Gpo N15c # :h:`Fy# C @H^@N2@% @'Suc # C @)@ G@0FD5c # C @%'ߘc # C @@Xy}@} . ~ .M I.M~I.d@bc # =.C @xI [ /O+Ul jHhc # cII C :7+UT R0P#  { Gʑw I䀅 I.Gj#   ҃ՇՂՇբ)ƢЧЂ:# :|?xŢ%CHþL(Ӄ )1Bg ,_ +]# 2w t0123456789ABCDEF dBs(=UFOVM Ԃڢ%Aχԃԇẇ‚ȇ:¢%郸E샷: _õK  !:0  :0# g{HxtSq nB=UFOV 543Md: -R-<H-<::  ?# <|00 _h7&& m VT1Pc  êT ¦Ǧ  # ЂÛ)•   # Hg=7TVMT d)C @` $@Aǡ%'  +ÖN1B6ߑo pc #   kc # ߇: I Eۂ99 # 7 {  0:0 # ͞} 1:0 # Ğ}Ç :C # ? {I Ƕ :  0:H × G ǔ:H 1:H # }O437HLK5ރˏڃ͇f̠S7ŇZG+@ # IM#  + # B ? >:H  ? 1#  1y w( n#+BM= ( !H V@ąلC΢fk9IUE@+t@y# X+9 ST v 0:8 # } 1:8 # } { + áK(:8qp :0 D # } {OLSL8LO;?y=357 0: :(ȃKFՃ:P: ̃,އ҃ƃۇEٞ:($Z ȧȃȇ YćăćăćăQ d::ȃS:t:H 0:(@ #  )' 5&,#+ qP6Xo/mlM='Wʇʂ͇ǢRRŇÃDB˃LЃBDB5C: 33QD0:(.,'  @QA+k4#  - )G%(.$ +n:(k +: >d eaC @a ]¸ ² IðG! G!@B 20INj )c #  =b 6B e  9 : ? @ D E*BLOCK AU  IĀ+# Ӟ 1 # I?ʣʄ+U# JH ǢăC # @ | :)䃧⃰ ކIIڣ; 㞀@+kUƀy@NyC # 5 ( =Ƀ S DB #  { [9:07SX@AKN1O # ܞ}KFA+s # } ȣ| 0VKԀCC C :0߭m ^] | G ǡǡ: :(  # |IRM347&,$'/!ã # } B90.r# Y1# zSQS: ɣB:#  ,YSIN ˃؇Ӣmm ÃkBˇ# gy) MQ B ‚ PP ˾+",O ,R,V܃> ) ,d Т00̃ -)k$$ # ) y=TO MT ) q}@ I%C B'`(c%C @'` ]Koe `kA MYX ƃD # % {#  ~|{IC @`@@+kc #  ~ƊK 1ģ+ icqp / C @ @…Ā+c # MTEX (F101)  AU YY/MM/DD HH:MM:SS /JOB (FILE IS OVERWRITTEN) > FILE ALREADY EXISTS. OVERWRITE 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  #FILE FBLOCK B0123456789ABCDEF d) Z1Z1P!Z3!7OC!OC! OC CX> CRX> H!냺êJSQôƃA «+ §:   93 !B9&2< 5_7z7D2Q:):! : 2D2T2Nj` ^Y V TI) D M +ރq ϠلD Ճ 4yϢ1.  I  I KD  + L " !§K =iy8B=7  9!)  !'9w!$7 s8!*!F12= V1;V;v; E , # J:f9KõII%IQZìǻ¾ǸI%ǹIǶI; Y y×ǦI%Ǧ+IǠǚI%ǚI5_ 38B =VOL17D3!K;;!;!8_Z<s< <  b3^ P[ET P 1: # K"#  98D 9: 3-܃ (փ    )G4Xxvn' (emk``QÂ܃VAƃ)Iև ԢIӄEЂC˞zȟ D  01 ¥,Ƕ;  D 4)47 8;B;;" H4144   7z799   64:;! ;#A UU SSנOdHLaJ; IτG:>S<;<߿߻4 )) ''#8 5; #  D (w# =# ># =# 97=:t %R@AǸ IC ߯y# ]ߨžwV# Q=# N=vc ć : : 'yH RI CI rI cI# #  ˢF #   # =W# VOL1 898hM =9=! 9 7_7a8'ǻBFჵL±Kǯǫ+ +ã QCўfC a # E=W@< # 8â6# #  8:8 BK D D߾ўz DhIqaBB] # f D  # ߟ# D 5# Dmʞz ;Ǟq77 # #  8 898h96 tD # # Y N y n nu# # Y y # P :  # P: # 889;F!;E!7D;-;, 8 : :  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>3P>M* from tvxCI XQ# zZ$ 0::>+˂ц7 P4 1:>++XQb L_ @ X¼@*+ QP6qJ©@)5HQB|@ 1:>+Z$ÙXQÖ֙ǔ/D ,Z%)?k?k?Y>T?k (>5???ۃ :>+gև :>+^ &:>+YŇʃćɃ  P ":>+ 1:>+ 邵%'=:>M A:>M ` 맀A:>M 0:>a ǂ Z$#  >3>4>.>M>0>/>;><>:CI>Q |>c>PUF>d >\>[>S>Rg⧂@+k zZ$C @ RRS OR M:>+ c # pZ$9?>T?| >k>5?>?`$ BATCH FILE NOT FOUND* BATCH QUEUE EMPTY - PROCESSING SUSPENDED " BATCH QUEUE PROCESSING COMPLETED  OS4 INTERACTIVE MODE RESUMED  LUN EF NOT FOUND  I/O ERROR ON LUN ZBmF1EBE5E3--E3E1F1m&***** PATCHED 81101911485325 ***** >M 0:>a ǂ Z$#  >OVicEdDano(@SCRATCH Z1QZ1Q PZ1QZ1QPZ18Z13CIFICIF , 5 .  OS4 F2 00    VOL1OS4:MT    VOL   3  r rv~   5 10 40 80 150 300 5 10 10 20 40 16 48 80 16 48 80   #M77777,&@8@Lzz) @@@@fM(@LK pٿ,CԠSC΀̓pP LJLJƿI1Z%@' F *1P%A' ƃ*1W  5I ۃكڿ=-aLOC [/Ip&݇:ۚښI^@6R]W!QO  ̟JQB ğ:EE~SMAǪC VL L@L" .@6A-'%@6AWCIL! b}1 Z1MT DF3 a$LȿI$igC C # * ۣQۡQB@ V@N KC 6D I Cq L-aIJ{`ދt)?`x@ @`x#  'ǪǩǨǧǦN ǥǤGǡpN CpPJ"H=pBFPbacdeo_` SX+A G_AK GYAK@G GSAK G! AK̟@A G GG G?J@A˹Ǹ ùG! AKN 6AK@A˭ǬI !I@ " @ G GʟAN4 C @c  - =YZT@ ! GG! AK€ ˻ǻ KN)G! AKdzBëT> GG! KǥHMII1Bǜ7*a agpojkmnl]^ S  C @Jƅ oÖ ) >Vh1E`pKCc #   !I@y4E@k4# 9 0N1@# F A N1@# (# -~`pEUUuI1:MPkI1:CQaI1:9S ˜GQITa G`R GGG_c ` - éěL `   P+Q+R+S+T+_+`LLL}  8IJQVV!I1D;R8I#1D1S/ QGGG_ `'C @ a RUA y|U ࿫  `pEU `pE ŸGHU|U`pEUU`pE R- a a EBC  66 a c )c  WjUo| R_ E6A Y  q: zyxOC *ls.+ y@J^쾧<%'UmlI߀Gk9 ?Aۢր@+kU+ӢjOS4:SCRATCHVOL  . / ӽ@ ӺB+ުh !  \ӡQH GAK *O JE  @#S [  F(o np¿ Eh*edk   ~|%@ % '⡢Q[) bAjÖQ@INFLVLMY@)5SR-aOL Z @ 9 / # # nC :&:@G^ ➙A%J' Oޞ~ PσؘEy Ͽ>=I/y@%@'kI .%C AC U'ðSƂB⸞⵿HǧⳢI %C @`(KC @`(JU'Ϳ Q dI9S VO L1 L I  + 66C ɞ+ʃA: IēĶē:5_C @ O6A  ţ9 c # `pF Fc # /S.H+ ' A6  / QR  ^PoI+9Qd +8JRBKlu S +9 CFk@q Q8C*ƞ*¾ : V- + SOL G :j曃}{zyxJut.rCNn. lji `β@ uc%'I%C @'J%C @'ʟΟS"ΜʜTҙQ$җK1 G+K%C @'3>%'ΆʄR΂ʂW+: @֟Q@XQ+k6pAԿ  N   pqAmA g  i   ҿeܞοI1@SÿJqÿI1:@Sÿ\r I17J G@ϳSÿlh åG+ @  A6A-a PL} adcaT_(j:&::.A_:.[# =:6 |y ^P z a qpI EI 1Ly%@' F C8?qonЃ :% A Σ  C܅qߍ߈j RoVS£ĖC] RàǑǑ::A- Q IzL` ~*?  ½Ɓ\ZX5k*igCܞîLLìG@@Aǥ4CGGV=ǝ;GDϘS# ߎ.ÎGCÊ@Lj !4 yb_ReC @c # C @`pF+F)I@M JKK0%'95  c # G-4z ߲  mQGS⣧ih ģ J ߖ ߑߌ߈J]# = zv+rrJRnmnlăjԞfdK_^ăWURUPJ^QB ËHGDG A|wvX! ǃv4s01m**'ig ãe Amu\[Z XVUvOLu  ǟz .߂v x2u Iۃѣ݀܀ۀڀـ؀׿FƆ8Āʿ:ğC @ p+` @ @*׀oI1K%@' C c # c QRS =Z1L-aI$ كV GGSAK̞ IGGAKƃNOĂććĿopmnjk <:: 4 3:01  uq A usAr _   oqu2st" GAKƳ  +@ΩQHߟߟv: H  Ɛ:; YTUSg Ǹ kF: ǫIG1VߢǠ: YVXgf::H: VRQm\jGs߇.އ- n !؇%ׇ$ " @YBE U VGꄆć þJGĈQRSTaYB 31: 0'': $1AǞ S nTU   :hIⵀG@A+kKwmq h@Aǥ~}ߠzjmÛN @AǗQH—Ɓ~}ߏz:p rWk $%ñN Bp èG ǣ# . *5# Ʃ| :D rq ~+:D}vuRQ`#CI ~+:Y}vuSL ~Ǭ|{y:>&@y 15N%' ^+ % K4'1L*% z a 5'QBCD&>  G2G!GV# . *@ @5# G!Ɵ߸BYĀ #  p #  ~})Ð@*+xr g TUo eL-  Í G!GGV߂ǂ# QR ~ GDGC@A[ poTpo: gXLv dcb8 ~ yx@  e  0. -*+A&%܆ ܄@B B kk@Bƅ+ @B B++++ CW&%A G Ć  Îġ : STl@ ԀAB+kJR8ks@1N9 B N N Ā# @1N9 B N N Ā#  P!Lz Gsvu ~ h 7G\Vߔǒ:++L:ml\[VjRQ ~}|{zUF@+kUsrC @ C C C }c #  LABEL (F200)  ENTER UNIT NAME> (Y OR N)>  ENTER VOLUME NAME>$ OLD IDENTIFIERS ON THIS UNIT ARE:  VOLUME NAME: TITLE:4 TO CONTINUE LABELING, TYPE IN THE OLD VOLUME NAME> UNUSABLE DISK  LABEL MORE (Y OR N)> VERIFY DISK (Y OR N)>  DISK VERIFY IN PROGRESS  NEW BOOT ONLY (Y OR N)> \ VOLUME NAME DOES NOT MATCH YOU MAY HAVE TO USE THE APPROPRIATE DIAGNOSTIC TO REFORMAT THE TOTAL NUMBER OF BAD AUS =  RENAME VOLUME ONLY (Y OR N)> AVAILABLE DISK FAMILIES ARE: 1. PERTEC MEDIUM CAPACITY DRIVE. 2. CDC SMD HIGH-CAPACITY DRIVE. 3. SHUGART WINCHESTER DRIVE. 4. QUANTUM WINCHESTER DRIVE. 5. PHOENIX, WITH SPO OPTION. 6. PHOENIX, WITHOUT SPO OPTION. 15. SCOUT WINCHESTER DRIVE. 20. STANDARD FLOPPY DRIVE. 21. MINI-FLOPPY DRIVE. 22. DUAL DENSITY DRIVE. 40. SCOUT FLOPPY DRIVE.  ENTER FAMILY NUMBER>( INVALID DEVICE FAMILY, PLEASE REENTER  ENTER DISK SIZE IN MB>& ADDITIONAL MEMORY REQUIREMENTS ARE: , ENTER TRACKS PER CYLINDER (DEFAULT IS :4)>. ENTER CYLINDERS PER DISK (DEFAULT IS :12C)> < FORMAT ONLY, FORMAT AND LABEL OR LABEL ONLY (F, FL, [L])>  RETRY OR EXIT (R,X)>. UNRECOVERABLE I/O ERROR. CONTROLLER STATUS=  DISK FORMAT IN PROGRESS 6 FORMATTING FLOPPIES IS NOT ALLOWED ON THIS PROCESSOR CONTINUE LABEL (Y OR N)>2 W A R N I N G --- TRYING TO LABEL SECURE TAPE 6 MAGNETIC TAPE...LABEL IN PROGRESS...STAND BY PLEASE : ENTER AN ACCESS SECURITY CODE (A..Z , 0..9 , OR BLANK)> F UN-LABELED OR NON-STANDARD LABELED TAPE LABEL THIS TAPE (Y OR N)> $ ONE MOMENT PLEASE FOR TAPE ACCESS 0 OVERRIDE VERIFICATION OF VOLUME NAME (Y OR N)>$ MAXIMUM NUMBER OF FILES (DEFAULT=:,MAX=: NOT A HEX NUMBER - RE-ENTER> 8" DRIVE (Y OR N)> DOUBLE DENSITY (Y OR N)> IBM 2D FORMAT (Y OR N)>  DOUBLE SIDED (Y OR N)>& ENTER BYTES PER SECTOR (NO DEFAULT)>( ENTER SECTORS PER TRACK (NO DEFAULT)> & ENTER TRACKS PER DISK (NO DEFAULT)> " CA SINGLE SIDED DRIVE (Y OR N)> 4 INPUT EXCEEDS MAXIMUM FILES ALLOWED, TRY AGAIN...  FILES ON DISK:  FILES IN ROOT DIRECTORY: . SECONDARY EXTENT SIZE FOR ROOT (DEFAULT=0)> : DO YOU WISH TO ENTER MANUFACTURER'S BAD SPOTS (Y OR N)> 2 ENTER CYLINDER NUMBER (CARRIAGE-RETURN IF DONE)>" ENTER TRACK NUMBER (NO DEFAULT)>, ENTER BYTE INDEX INTO TRACK (NO DEFAULT)> 2 THE LIMIT OF 30 SETS BAD SPOTS HAVE BEEN ENTERED* YOU MAY ENTER UP TO 30 SETS OF B AD SPOTS SYNTAX ERROR UNIT NOT FOUND I/O ERROR  I/O ERROR CODE : TOO MANY BAD AUS4 INSUFFICIENT STACK SPACE AVAILABLE FOR VCB BUFFER  -K- REGISTER = -L- REGISTER =4 INSUFFICIENT MEMORY AVAILABLE TO FORMAT ONE TRACK  DEVICE NOT READY! RATE ERROR ON SELECTED DEVICE FAULT ERROR ON SELECTED DEVICE" UNIT SELECTED IS WRITE PROTECTEDD I/O FAILS RE-TRY COUNT DATA TRANSFER FROM/TO DEVICE IS UNREADABLE  FORMAT ON MAGTAPE NOT ALLOWED & TO CONTINUE LABEL ENTER ACCESS CODE>( 'OC' NOT FOUND IN UAT...ABORTING LABEL0 'OC' NOT CONNECTED PROPERLY....ABORTING LABEL $ UNIT IS NOT READY, RETRY (Y OR N)>* UNIT IS WRITE PROTECTED, RETRY (Y OR N)>" INVALID CYLINDER NUMBER ENTERED  INVALID TRACK NUMBER ENTERED" BYTE INDEX EXCEEDS SIZE OF TRACKC @Ȣ X N 6  B N ā BGąc # [`P@p@cjp` G G!RPC@ GƅO  pp# L-6 @ AB G@AǥECD Ń DAyBO |{}~dTs  Ńu roCk܂iDGee+\I@ WGǮM ̀DLI HDDEA)# ??=y7 BGNjE, -%‚#yOX Q|JSAw G @GbȁG[ţb]GW@ GMCćQAZð G.Ǭ  èQBJ C*1 G B6Ø+U# -ÉJ+U# T}_U VVԂC C C })C C }àɞtC C }2c1A# ó G BNyM @AB G BGȃBà@Rǝ > 1G C.J,+U$Cb 6` 6J 6W 6H 6J /6K ?6Lmljhu{xu ] m 12{C @o  X Rwc # c L- #) @hhgge@n G geafힹa XRW R^e IQiBp@<;: H8P@ G;NPCHC C GTqE'ž * Cȟx @0DAJL )‘ЀЀΎQBx"  i+ fEB `jm@kC# b# }J,r @EEFF)DcEF, jH@pTğv g>g;]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 (>=) =`;nrgy w"G,{Kq1 A&}E*`(t@% ;c  765y342(.OS:: SYS A"iwvc Bc A@6<# Ic B# gIjHc rc ޚ# @0X)P VVЀЀSQPpI N@6=< G:P@ G=NPCHC C GTqn/I iޞU * Cןx @0DAJL )ЀЀ΍QAy"  i+ fC@ `j_NQRSTTIITSSJISRIN# B# A@6<@6Y # B|  vH@pɾv g.g+iXi Phb+s=胾c_Z SRמؾ ¡@AvLS)"$ C j<:j8h p y0Rw kkos rp  15 !YW\ f %'+\s愾I)s SR|{ @$ o O m J K i g< V tsFn`"FED) E`Cnrgy w"N!{Rq1H|L2`0tG- Bc (>=      F @0  ^eE"tĚYp mlbi)fd a` ]1\[ X!WN QIJIDHAۇ^6. ,GtP8^k~)fT   x )C .  .q  C + X" +|  q ׇ֗ԇ͞Ɇ‚ć  ńķĄ߷ "ާ h",n& B  ut +߉|d >  o"vw _ +[|"Z  y KZ h|_ s8q o"i((ycߧ 6CZW S_Qy N"  ut6"z 鄀 䄅 T)F. !ݢ݇݃ݗ݄+Ԟx W"ߞUܢƧ(قǗć ߽q߶ɞ @q qߧ޺pqߝް^f "ޟq 5(   ut`"d +_|tq℅ OO"a VѷC"S ==y a"FA  !!&"  yx*"$  y.q sD 1l R +7ABCDEFGHIJKLMNOPQRSTUVWXYZ 012345678?!#$%&+-=@*"':;.,<>()/W/@ u ӞЖКY ɇɃŖȚ)ÃĚ 1 !  C + Z R o o o       ( K : \ d نŢ3A u  q + ^q׶ք ^  Ǟo+ q ن+ q  1  "  A utސ5q <O  Nz6jw܆o3ņkfjB@e"XQmWAY D؄ꄁ$I" 1q q 0Ƅ򄁢7" 2q q 򄁢%" 4q q 򄁢" 8q q 򄁢"섁  Nć q q + q + Ճ ^qзτ ^ +ƞq q q + q  q ++  A 8" ^ߖߓ7, q + q +4   VFU LINE SLEW TEST 1 LINE SKIP ݌ !"#$%&'()*+,-./0123456789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ !"#$%&'()*+,- QמY l) ߇ 1ڇ !ՆX  ˖˚Y ĆEš) 1  !3  +$$!     % ~j C + p <]" +| ݇ q Ӈ҇˞  ń߻ "߱ h"A.߫2 D A ts +߇|cC> }  {y" ^ +Z|"   ry i  ? |[҇ nsq g"i##y^߽ 6CUR N_Ly NF"  >?>;  7  B .2Gp $Yhg6 ! & & Y r) 1 !] YTQL  +О|2` Ƅ<[""+߯ߪwQ A BrqA& ) + Ay   *- P@ B" @ B" @ B"  @ B" @ B" ސ ތ   {{͖͚Y Ɔm–Ě) 1 !W UU OLI҇4.c +E]ky $1UdoM&q ] C + p N"ه q q + ^qڷل ^  ͞o+ qه q    " C6A mlߑ+q 8σM 8 R"stq?i"`j e tu"͢ +Ȟ|ȣBDŽ e9"2 -"$ y tN"|rA  1 ")/ %.6 |{" oo y.q D 1al_ FD' !"#$%&'()*+,-./0123456789:;.=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ !"#$%&'()*+,-߶ߵ߲߱"⣰ "⣠ "= " ?IHB A vug"e a``^"\ S℁S"=HNEC " 9C DATA SET READY (INPUT MODE) DATA SET READY(OUTPUT MODE)TURN OFF CRT - THEN BACK ON  }  x |z}y ~Ȟu  :>{ iTj5ROPpENFG T ( :҂J - :҂" )  } ȦpP0 @0B ` h }cD «⫂pP0/o D E B U G 4 B 0 ҟi 7}z ҂zҾ P AC Q@ X= Y:ӽо K3 L0 S- D* C'ӟK =ҟ{ } ҟ|" *ؽц A Gѽ׆ R Ƥ D V W޽ƚ›LBLCLFLLLSLJLILGLRLZܝ Ǟ@ 3}ц{цu łt P Lłj T P Bم P ҂\ W H TŅ _؞ Ğ|QEF , ,oЁ膂ԟ ` JTՂ [ޏ @ލދ ` ,p\v o| xj D `瞊oc B `ǁ D螄*`riQ `ĢO*MG Er "BƽЃڽսˁCᇑā  / XŃ нڞi ]Ё@كڽՁBǢ ,ž[ + - * X /KJƎ^[{ xނZ ,ş|˽Ёھޅ{Оu ,ŽՆx@FC pqLL (w{u dޏJQC`y L Sā T|Нˆzxe| IƎG ,ŽƇ ,ƂpIưk , ,Htr Hm -vņՁ -ņCB\\ÂF -&tЂ5ك3Ӟx ’@"Fz@ Ό F ō lz#.bƝޙޖJQ!’ފދJQĽ %҂Ӟu U B * ҂Go h fe "cIaM K Y&V&RR `QKL$kK N =҂DD G҂A   :Ҟ ҟL ǟ{ y9u    :w ® 0C C 96C C "0 `j •ᢒC "C tC I6?:#@'="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>3P>M* from tvxCI XQ# zZ$ 0::>+˂ц7 P4 1:>++XQb L_ @ X¼@*+ QP6qJ©@)5HQB|@ 1:>+Z$ÙXQÖ֙ǔ/D ,Z%)?k?k?Y>T?k (>5???ۃ :>+gև :>+^ &:>+YŇʃćɃ  P ":>+ 1:>+ 邵%'=:>M A:>M ` 맀A:>M 0:>a ǂ Z$#  >3>4>.>M>0>/>;><>:CI>Q |>c>PUF>d >\>[>S>Rg⧂@+k zZ$C @ RRS OR M:>+ c # pZ$9?>T?| >k>5?>?`$ BATCH FILE NOT FOUND* BATCH QUEUE EMPTY - PROCESSING SUSPENDED " BATCH QUEUE PROCESSING COMPLETED  OS4 INTERACTIVE MODE RESUMED  LUN EF NOT FOUND  I/O ERROR ON LUN ZBmF1EBE5E3--E3E1F1m&***** PATCHED 81101911485325 ***** >M 0:>a ǂ Z$#  > ަ| } Kz  # hƿcQHUbQÎaA¶snQBzx } @ydK@_Fs? V;8HgKeI 3Q IIZ@ZI A=; 7 6 31w BK . IJQs %Ԃ" ՟x M L CM yIPvwrJpR76hifQFfIP6A`_ \ LQSTQRQOM MKRJ| P ?>DÎA6TO6T6T  Gj6 F I Dҽhg Ԟx @9@@? R6A W ߍ?ÌˌJR>JKSB|ҝ s={ ӆvtrLDLELILRLWƖd ,ka ņyĆxÆw pQAlýkL=\L>L:|öbL<L=L^]\Q HǞ wqqno = < > :ba  ~dy C 1 =Ԃ C 2 =Ԃ C 3 =Ԃ M =ԃTܽҞH&ƽ׆ =FFEFCCE=:7&Ɠ5-Ɠ,&Ɠ$Q߇ƽ? lmEEEBE5E3--E2E1?ÌˌJR>JKSB|ҝ s={ ӆvtrLDLELILRLWƖd ,ka ņyĆxÆw pQAlýkL=\L>L:|öbL<L=L^]\Q HǞ wqqno = < > :ba  ~dy C 1 =Ԃ C 2 =Ԃ C 3 =Ԃ M =ԃTܽҞH&ƽ׆ =FFEFCCE=:7&Ɠ5-Ɠ,&OVicEdDano22 `IA # %#K&$?2C @qW6TAM 6 6ɀFHXĆ `pEc # "z\@ SOQKM*T`"i# # )# h)?z)ҀGQ)F@ @G͢6ɢF@ @F@ @T# @I.#  SI =  SO =  LO = (*{Xs(?#  MACRO (F200) C @`PF`pDc # C @`PI)%C *V;LJU /GJ :QT .W MN[Z 9D'A @ ``pDc # N 10# C @`Pu_ c # p)rHC @³)" b%bfd1edaS٠`r "` ςSΠaS p c r )c #  ps zUFOV 0 EtC @]` ]_ p]Č)ҀG)`+a]āI`C ]C U`IB ]ăc # C @ _ ^D] c@ UD@k{`"`#]^c # C @^]_^c # C @`P]Ia]` 0`I]C `C Ua]`٠] pă_ _]J]@c?SBI]I`pDc # I 00H # IUǠ1FU 10H# `Pe@p ÀAKKrQ@  I?`%5`C+`I 5'« 1A¤@`)DB)@><+ .%'# bUbV)օ5CU U# +(h%QnĤVS@6\SSY U+UHVNV0N3H# II00 V ͞ FI# )Q  Ă0)C A# A)" brEQIQ]cvbdK1ded@ J q# y D qJ # qz # H# c\ M?RAC @`@K'@``pBC`HARJk%`(C @`(C @U ``p'BDBc # # C @`p ĄBߠ1]QDĂ D@ďBDc # @ DĂ@ ď n2x GրXTOPQRKLMNT TrL,L)L(L=dIS "))҂SFX) b$фO K QMrL())rL+] GPORQLKN MT T2rJQWS€JԀGA)Ҁ6YW RIdž "D L’)0ESAZ2BXsST)"ZXÀHFڀr )2 b΀vÀtFϟXTQQAT KMX„Kr A)2 bsQrQu)8 bX+JQaހXK# @ B# @ KBM# @ # @ r # @ M)2 brr +LyNO2EA)2 bssQrwr*ߤB1X)2 blrXxfX1B(JR+9 b]-3AO# @ XB# @ OBQ# @ # @ QrL,JL HL+FL)<A)2 b6s# n) b) bO K QM GZrQmL=L(L+L,SJ: "))SŀgZQYD OƞJ„\ \ ϞYSЀJ ))Sڢ O¦rL()# ))ςSƢ bŠjZ1Z20XSOZ3SISA EBJ) YZo bnnghS "fdJBIY# b bV WI# `"  # eP`pjP`ۢۄ* 5 'HӠĀAHHF))IPX)'IPT(PIPLIH)\IPD)QI@I<Ţp @)2 bsrQA CCCI )# h%sLOZ5zhWZ4OCCISLu&Z ZI)DD\r +nTG 0 ĢJJrEBDEFINITIONS 0ERRORSONLY EXPANDMACROS0FALSECONDS @FIRSTONLY PFORMATSOURCE`IFSANDENDCS pLISTING a"LISTOBJECT LISTONPASS1 LISTSPACES MACRODEFS MACHINE  OBJECT PAGESIZE SAVE XADDRESSING 410 410A0430 @430AP490 `490Ap404 404A495 MAC ASM`" JF KI EIDIC@`K EIPDI CFQ+DFF)J%'+J`H}# GSX?JQC @1E`pLc Wc  MAC..`"@@} L DJ+%'+DJSIC ` DĄIDFHDC @XNX`PU,K KꕀO6AKJ[ -3A# ===Ls`=%)\IWQҢr Sڢl6E "0I U[ўc )# EiSm SDD)ҀG)E6B՞ b͂Є b  VSAS P DE+DQEUU`p%Ec )# SǢDESEE+-E? πDDc )# @? wc )# %xXXZ4QQ#fBZϢ Sᢹ6E "0_U`D%'+D` ʟQI0LIğC @i` `(%'`( @1 pt)`pDc # # XhZ)@ Xׄۄ؄܄لaIȀd6I6I)@Qɞz)@eJQ)I)@eeL)@a)1!)@ wVV)@aĀXXNIII#   ( |"[}  e )@1# _^# d/6C )@ s)Ä))@քڄdb b+ 1KVXāXLgsh f# 7ik@) 6FB(Ѐ(,4C @IX `+` 1YЁ@֨  @@mЁC@``pEB dc `+ `+ 1# yj# )Rd6ҀXXIQEȞIk@VZj# d6ҀX6XIIk@W[j# @I @ )@@I/@@œI )@I/# " )()(),)/)  **** GRAND-TOTALS **** ERRORS ( WARNINGS (})@edX@6,@6A,@6AX `Gt)@Y  # B Q۞ QXYX    )1Bʞ )1BŞ )1Lc # `  W±   |dO6 Gt )1 )1,6XYXK #   ) 4%$?* ,/"V"b#K  C @C AL "L &)@ VQNQ@I p @V1c # [ . b   BLANK  0SEGMENTENDM +4 MACENT *4 MACLAB +4 MACRO *4MACRO *4 XMACRO *4 XMACRO  *4 ABS >  ASMDATE  7  BYTE 57  CHAN 5 8COMMENT 4  COMMON 4 " DOUBLE ; * DPOOL 6? 2END z6 :ENDC 4 BEQU  : J EXTR 4 R FLOATING; Z HEAD 5 bIFF H: jIFT F: r0INCLUDE z4 z INITY <  LINKDATE25  LOAD 4  LPOOL 6 MACHINE >  M4D12 u?  NAM 6 0NOTE k?  OBJECT :6  OBJNOTE 86 OPTIONS > 0ORG > REL >  RES 7  ROMMABLE4 0SAVE 4 SET  :  SEXT 4  SHARABLE4  SNAM 6 0SPACE  "SYMATT : *SYMVAL : 2 SYSTEM a< : TASK t4 B TASKEX 6 J TEMPLATE5 R0TITL 4 Z WORD  7SIGNAL & jWAIT & rENTER &] zSCNTX \5 FIELD  SFIELD  SEX &  NXTQUE & LCNTX \E DEQUEN &M DEQUE & ENQUEB &= ENQUEA & GENECC & MOVE &} COPYU \ ECC & SEARCH  LOCATE = INSERT ] DELETE } ENT   HLT    NOP  "RSK #  *UIS   2FIX R  :FLOAT R  BEXIT &m JFMT  RXNX   ZSAL pf bPUSH C  j POP c  sSIN  |AIB E AIN  AOB e AOT % SST  COMP  CSN  NEG  IN  OUT  SELP   STRAP  UTRAP  ROTATE  SHIFT  CBIT  RBIT  SBIT  TBIT  JT  JF  (JEQ  0JGE  8JGT  @JLE  HJLT  PJNE  XIJEQ  `IJNE  hJEQD  pJNED  xDMS Gg  DMSE Gg  IMSE GG _ JSTE G' ? JMPE G  JSKE G ADDF G\ SUBF G\  MULF G\ DIVF G\ CSKF G\ IMS  JST  JMP  JSK  CSM   CSME E CSK  CSKB  CSKE D'?#ADDC ,SUBC C'?5ANDE C>ORE C'?GXORE CPDIV YMUL b ADDE C k SUBE C t CEA C} AND  OR  XOR  ADD  &  SUB   &  ANDB  ORB  XORB  ADDB  SUBB  CLSN `EXCH EXCHB  EXCHE A COPY   COPYB # COPYE @  AY = AX F AQ O P X L a K j S s Y | Q  X  A  V Hc66YQA6t@ltXXV# '"b? YQ) 1k` lBIĆlB)1[Ćg* fg›hW8o•1”# # *=*K8"P"w(Hi#K"$?% $I . '%'+U ' ` q rIlXX+U# &.a&C%$5RI̞IWIVk ' H)T*5Q|Nƀl ,Y yVĀkB V# + ' # ' # +# mH%%%"q8"PkQqWk# WWVXX eQkWGt# #K$?"k@L )1K6 l ky# kl%(A"Y*'"#K$?Y ]k%5'ji `# %$?k  y 1Ck ,p y# %"q*K$?' k HAml kWošo  , y GtXXk^# 8"P0#K&$?%"q69  ny 1df  ,yk@jj힄Al C W8o.q'“ XX# %"q*K"w8"Px#K&$?z^ VS)@` Ԟ lWXLX BA@A uvwj6X6Xe _^d6ÀXXdX6@Xi6A¡)@BqJBf””l)@#  (H8%$?"S"%,(#&"wi#K `(BIdO6A )@A B@ B @d6A) GtA# %"S$? 3 o BHG6 rYmWlo# lhmǀqfr IfY Œy# 8(A"b'$?#K$ ghF.  k@B BHqAlmA kJB@A XXmWloGtǀd6O6BB# 8(A"P%$?zC `) -u `j6G)@ ` a)@ 傢# e # %'+# C @Iak@Œdec # &.%%"q%"Va"$?/  y )1\6 , ykq) 6“klo XX# %"q*'"8*="wG#K$? `^W # %$?(HQHIkdQAbWYQJl mq r oɢQC@ 4oQAGtDX  =XWoo {k)@QBQ€@ $oGokQAbQɄd6I6I# +=-cegel# l# l l#  '%[%8"b%"q$? uU HҀr Ξp  G6U@6Zq1ŀloh3B f1΀lh@6 lqo kGo6Qp@6p@<@ loh B@ NG oW” GtXX.# 8"Y"wg"P#K$?%     I@IWk V  )1A)1A6ꀁk݀WVlk@ LL   Le Þe   Le WJeLlk   D6AVkJASGWWXXV  ,_ V# G# %* *'"""Y"z$?k,X|X6`L E Wd@/6U@ ,tLELW @L z `#  $?%%!"}"%)(%)'hDmAlC ,X@Xšf˜CLDA‘CClW# l# 8&%#K$?"Pe k@),4j `ek@ @@j# %$?*qAGtl*dd6AIoXY8XXlUQSIk@dj B3K)@ 䞇UFk@dj## 8(A"P$?E)) Go`  H1nIq@A@A@Lr @ @ @܀p/6@6@6@6@G6@|A@\I1B@l@l m tq r oG8(Aa `)@oe 6A# %"h$?t  y )1F6 ,l y# %"q*'"$?AlC W)@SBꞈ@6E@ @ꞁ# 8"P"h$?!  y )1O6yg 6A {# %"q*'""wH#K$?*Y)ÀA)@`@") @h%'@h-B+*`H@`Hd@/6CI)@# `# &.%%$? Hk =VAVDpp , y GtXXf# %%8g$%"q/c (@6@6H kCcIUWk # g']DVrtv"B'LgC @C @pVW # c@6@6I  r枎€〇p@O6pO6@UUrJQ̀p@O6pO6@ dU@MUrp@O6pO6@c@6DWWWWc c # !8k"t'L +# i+R+# pA# VllmmppqqrrnnV# 8"q'U@6Ҟ@6ϞV #˞@ X.y G   0rcW@6G@6E@6Cc@6B# # RURՂVLpO6ƐWccWA VBGG# *+l WW# k8!pp"t"q8]C @C @pV՞L 6Dr̞@6H@6BWWl1GWHn AUUcWc c # VllmmppqqrrnnV# 8!8"tkpO6€W@6F@6B# 8k!AlVr @ c@6V@6Dr@CSޞWV.'WR՞p@O6W؇W˞VlN1GWc@6B# #  !88k"t]*rV6CU֞UpO6ĀWWVR# WlN1GW# # !8k"tppֆQA# 8"q86HpO6WA# 8"qk.@6g HJQBfCllo @w ?WWX@{e # ^1# hf# L ^A# Lof# kohMM2IM1E^o# /6Ce Ơo1ke DL^HLLh R'Q#oh RQnGŀpG6r O M6qrp/l6A<# (`p6Jr  nDG6A@ohA@,Ā pp6Sžp/6C,pl6EqÀd6qAfo# Ip# @ ^e ܅ă Ă @ lnqr pG6Ān\# ## "\""k;C @lCnDqErFM CE FpGkqElCfUBEЀCDg CpO6p E Fp1WWc # "qg"w"C @cW9@ 6J@ 6Gy @ 6Ac # pp"tXL @L @L @NyQEJ/`x@ph# HC AC @) C AC @) C AC @) C AC @) C AC @) C AC @) VAr J L L l.y,yWW,c # 8"tC @C llCpˀr F EnDc # x"P"Y8C @ +JI pqmlLO n  ,܄NLTYgWpL p = *YpQBńNLNM nL$gL( LPL' rI)KOMSAP.q PyNq@rQP ' # # '# #  "Y6 p%%%KJr Gm1CJI O@qd1BOaL nK r )1)1¤n nIAn6nG  6A@잂 @쀁6@G "  * *' n@ p @HO6_6DpAlQPX6@K  r6THQr NpˠK KQPNQP nK QC RA L@KO1EOO)OIIIko)5EC;Gj L (@Cn 1EJI L +JII"Y g=   )1)1gp ߀H\,X̄XUUY,Y,Ypp ,R ) G\G LAA?%%* _{G6O)5OkojJQ9MRBq3 qHŀmC A€prHM M o6)8 >'] ?6Y /6/6l@@l-6EqQd@6A /6ErLLL prqnc # "w"""YC @QDJ+z)`pDc #  !+ \ - + - * / //! %! ** D& D++ G; G-- E<!>>!>=!><=!>=<!>>=!>=>!><>!>oC @@@鞄C6B p܆c # ko Gj# KQ[ko)5jDCȞ *3+ bjVŒLL6B# L)orQPCQViKko)5fd VG1EG0/Ȟp6T `+oЀml$ G K ďjj# "wml# ml# QPQPQP @IQPLL# hi# cd# $^_# YZ# ڠmQ# mlP# l# L)oǀQPȞ@B 1Q 1I @ , lm1A&# P3B !I I5# N#  N # QP@IIIԂQAIlIm#  !e!\!k!! p d!8!;!\G6# @I T wy6Dn6Cu# jr# "wAăQPAQP ߄# Z6Đe# 6sĉ# C @C @ pU6ŀ4ą    ܉jD9Qc c # C @C @ p,QPNąQP@ą܃܉f'c c # "! C# p(܀ # %%"q!LC AIC @X6)@@@&)@ `+ `+aF aVC pIăI)@c # # 1PAGE   SI =  SO =  LI = "3(),b"8"PbGGGG G\G,GܞGlG̞GGG[`pBc # -&C%C @`1ǤZ\]Yjj )# %&%%&gBI` * )QGIY`֞I`) @Q8IQ3I @`Q.@(Z - )` `]j6TI '@IQ I`Is]jj `)QBIQQBI@ II | pĂc # %&q&.%)I)j&.C @I Td o6]]] K păc # %%&C-C @`1ä]\\@*\d@o6̪]Rq ]UB4]y]-T)S]c # k%'ji#  &k&q ž.IV̞KL :%C 'oVA# &%))*%&&' !jj6C @šðvQssąv`")%@ 0 9 *N9Qc # 00&C @L p%C ']k%-S 'ji]T4c # &C @h)@BFhg@c # "&,C @)@¦@k|`pE Ÿ I HC @—c `H%'`H+ HqoI@c # #K'im'PJ'PI'PL'rO'ro'PK@'PM@'PN@'w&h p+DBI1CD6L@A+*QIgc @``pE)`@1A+Cl, .r y p+@AC @A ` )@ %'4c C @`pLc # *=&O#K'C @YLhl mfq r oc # Y‡ †y# 'gh#K'cC @ )1)ܤY1i     oC6Broрr @6EXD p܆c # lmqoA@ā֤G# l̀mɀ6q#  ḠG# * *'"q"b(A # {%"Y(HoC @)GItXGXC @^1׀fhU{1ЀXX lqn rKUn Gtze ӀQ((K 6 6^ ^Ue lrqn GtD^e  #``pH`1I ^ ^c GtXc # $(2)(C @BqC `{Cc # )( _1G_19|^# )((_1M^1G/6Byw^1# (2( C @+ zc # ((C @@r yE)1yc # [)  G.9 6$# )XܐX# XݐX# )C @)@NK0M9K15c # (),C @C A)“@@ GK05VBI c #  d'X()IC @ pIPQă Є I QP QP܃oc # %)!!\%)j(HP)IQ Q F A QPN.N.N.N.@hQ,PK # %)%) Z A z a 9 0/`x@`x# )k@B1CBA*C Aj)# j# )C @@ h1Hk@`B DDMM`pDc # "),C @`k@AC¥)`H`H 5BK `@@qOI``pE1I`@ )`H`H5o`pEk@) 5c #  ))k@BBj# * k@BBC{Bj# * C @ b+D`@A1111B11C11`pDc # *'C @1 p1F `pDBc # * )*p*=C @ b+D1DX@Q`pDc # *K"C @)1XHLXKĈIā@``pEk@IR)JRj)`pBDc # *')"*p `@ĂAăBĄCą`# *{C A`(+%', L - tc # V@I.@L sq* z $ `# # (*hcmj6PIlkm߄mj6ńlID6ςWXYXȞ Y)QC Y Ee k@@j)1I  Emj܄j]J]V] | CkFFk DE1Ać E1gkĆ,$?"b++"V#K%&q%%)*p+oE1Imj݄jYAa `\X؄Xd6Vj6B # )@ Gt`Zj@jmdXGUP cZ )c1MXXV# Ue I)1E6€UZ HCF ] n FFsCU (&) ,<* 6`  AlWWJQH `RFXX # 1I H3C @C B BAĂBă6LPUĒQęMĠc #    _:: C R Xrnml K::8s C Xtqp C @ õO MN. 5F@h`H:lc j㦞@@q# @q# DLÎGÍHÌnj# x%#  NAD'LL3S1VIH@GɀHȟȂHădbC ‡ƒYXHH9:$ ߳) ()%1ޕ `@6BL FVH L}A  EOnaN)30=lD ROQA%Hf@qF fH_bVb^1BVžMAVJ HL"F"A"H:V>1A9@ 4NC @yc # I@yH# @=) 9 .q'# 0 9# #  㮾@q㨟w DLJQӮ1C 1ʃBHkBHfed y wvwDabE$f )I̐LMƉ „LM# &ǵHp p[ (g :f 9d 8bƖ)(⦂5B}+I?%C*|' `# H c , x  obcstC q# kO;) uaJ0!KBHQAH1BQBH) ABC+BHAxBδDE`*FN1C 6HC ( y wHF)  N1C # GRTC00D4A# ⽣k .*3D¸@k++%5B}'­Nƣë%UE+ޜz' ,F%+'g: # &o bhc 4OC\OCYOC4CI^~ Command Line Error, Device unknown to this OS4 configuration * Device cannot support archive operations Too many Parameters  Filenames not allowed " Illegal Device-type combination  Duplicate Device specified2 Unit - AU :<# is bad: Continue or Abort?, Unit cannot be connected to LUN a&& Unit's last AU is bad - ignoredB Unit Error - IOS Status = :; Areg= :; Qreg= :, Archive ABORTED!  Unit End-of-Medium  Unit Write-Protected  Unit Not Ready  Unit Time-Out Unit Verify Error. Unit End-of-Tape (logical or physical) Unit Unexpected FM or EOT6 Unit - Load Next Reel and Type "C" when Ready " Unit Filemark was expected & Unit End-of-Medium not detected6 Unit does not contain Archive of this Disk type* Unit contains out-of-sequence reel 6 Unit contains bad tape - retry count exhausted  ARCHIVE (A200) END0 Opening Devices...+ Copying in progress.....P( E< Please type C when you are ready to continue Archiving  Verifying in progress... Rewinding in progress...P Next operation:   Verify completed CRX>  CX> ARC.. mE7E3E5E3--E2E0q Filemark was expected & Unit End-of-Medium not detected6 Unit does not contary  qvty j 6 fdv s`z fZYya[ľꟄ Cԝ IOH0zr(E ` <;C TK@՝Ž Mԃ/՝ 6I6;6D6666""d "96=96"q "I6=I6"qp 0|| y0 `{ 6} ` L o , ,ƪߦ `AƆЁ V IP΃͆˃ʅ QJ @ } }IPNÂAKK ՂF IƱ ² ¨N ‚çަ| } Kz  # hƿcQHUbQÎaA¶snQBzx } @ydK@_Fs? V;8HgKeI 3Q IIZ@ZI A=; 7 6 31w BK . IJQs %Ԃ" ՟x M L CM yIPvwrJpR76hifQFfIP6A`_ \ LQSTQRQOM MKRJ| P ?>DÎA6TO6T6T  Gj6 F I Dҽhg Ԟx @9@@? R6A W ߍ?ÌˌJR>JKSB|ҝ s={ ӆvtrLDLELILRLWƖd ,ka ņyĆxÆw pQAlýkL=\L>L:|öbL<L=L^]\Q HǞ wqqno = < > :ba  ~dy C 1 =Ԃ C 2 =Ԃ C 3 =Ԃ M =ԃTܽҞH&ƽ׆ =FFEFCCE=:7&Ɠ5-Ɠ,&* Ɠ$Q߇ƽ? lmEEEBE5E3--E2E1?ÌˌJR>JKSB|ҝ s={ ӆvtrLDLELILRLWƖd ,ka ņyĆxÆw pQAlýkL=\L>L:|öbL<L=L^]\Q HǞ wqqno = < > :ba  ~dy C 1 =Ԃ C 2 =Ԃ C 3 =Ԃ M =ԃTܽҞH&ƽ׆ =FFEFCCE=:7&Ɠ5-Ɠ,&5 USER SUPPLYING THE BUFFER FLAG FCF:EOV EQU 6 DO AN EOV FUNCTION IF WRITE CREATING A NEW VOL FCF:NTRN EQU 7 FILE IS NOT TO BE TRANSLATED FCF:EBCD EQU 8 FILE IS AN EBCDIC FILE FCF:FWRT EQU 10 FILE WRITE WRITE FLAG FCF:ULB EQU 11 MAG. FILE POSITION AT USER LABELS IF ANY FCF:RDBK EQU 12 BLOCK HAS BEEN READ NEEDS BACKSPACE FCF:EOF EQU 13 FILE HAS ENCOUNTERED AN EOF FCF:WRT EQU 14 BUFFER FILE WRITE FLAG FCF:FCB EQU 1//15 YES MARTHA, I'M AN FCB * * MFM FDB EQUATES * FD:NAM EQU 1 NAME OF DATA SET FD:BUF EQU 9 USER SUPPLIED BUFFER ADDRESS TITL .... FCB:SA ************************************************************ * FCB:SA MACRO * *  * * FOR CREATING A PERMANENT SFM FCB * *  * * CALLING SEQUENCE * * * * FCB:SA LABEL,FNO,PUN * * * ************************************************************ MACRO FCB:SA LPOOL O: SET $ TABLE: REL SHARABLE TABLE:  EXTR FM:SFM WORD FC:CHK #1 EQU $ CHAN Z:#3 WORD :8000 RES 5,0 WORD FM:SFM  RES 1,0 WORD D:#3 WORD #2 WORD FC:CHK ORG O: ENDM SAVE END  TITL O S 4 . M A C - OS4 GENERAL EQUATES & MACROS (93420-18-F000) TITL ..... CONTENTS ******************** *  * * OS4.MAC * * * ******************** * * EXR: MACRO * E:MON MACRO * E:MONE MACRO *  E:MONC MACRO * E:SLU MACRO * E:SF MACRO * E:UF MACRO * E:IJCL MACRO * E:JCL MACRO * E:ISM MACRO * E:ICH MACRO * E:GFN MACRO * E:MSG MACRO * E:CMD MACRO * E:RCI MACRO * E:LOAD MACRO * E:PRINT MACRO * E:LDR MACRO * ISM:PL MACRO * GFN:PL MACRO * E:ISM PL EQUATES TITL ..... EXR: * EXEC REQUEST MACRO, FOR ROGER PARAMETERS: * A ROGER PARAMETER IS AN INDEXED OR UNINDEXED, NON-INDIRECT, * WORD ADDRESS. *  THIS MACRO GENERATES INLINE CODE WHICH LOADS THE ROGER * PARAMETER INTO THE X REGISTER. * EXR: MACRO S: SYMATT #(1) * IFT S:**:0040 IF NO PARAMETER... COPY =0,X USE DEFAULT ENDC * IFF S:**:0040 OTHERWISE... P: SET #(1,'(') COMPUTE POSITION OF INDEX SPECIFICATION... IFF P: P: SET 100 ENDC P: SET P:-1 IFT S:**:0200 IF POST-INDEXED... ADD =#(1,1,P:),X ENDC IFF S:**:0200 IF NOT POST-INDEXED... COPY =#(1,1,P:),X ENDC IFT S:**:0100 IF PRE-INDEXED... +  ADD Y,X ENDC IFT S:**:0830 FLAG INDIRECT, BYTEREL, OR ERROR NOTE E,'PARAMETER ERROR' ENDC ENDC ENDM TITL . *  MONITOR EXIT * E:MON MACRO EXTR E:MON JMP E:MON ENDM * * MONITOR ERROR EXIT * E:MONE MACRO EXTR E:MONE JMP E:MONE ENDM * * MONITOR CONTINUE EXIT * E:MONC MACRO EXTR E:MONC JMP E:MONC ENDM * * SEARCH FOR LOGICAL UNIT * E:SLU MACRO EXTR E:SLU COPY #(1),A JSK E:SLU ENDM * * GET SYSTEM FILE * E:SF MACRO EXTR E:SF JSK E:SF ENDM TITL * GET USER FILE * E:UF MACRO EXTR E:UF JSK E:UF ENDM * * INIT JCL MACRO * E:IJCL MACRO EXTR E:IJCL JSK E:IJCL ENDM * * GET JCL STACK ADDR * E:JCL MACRO EXTR E:JCL COPY E:JCL,X ENDM * * INPUT SYMBOL * E:ISM MACRO EXTR E:ISM EXR: #(1) JSK E:ISM ENDM * * INPUT CHARACTER MACRO * E:ICH MACRO EXTR E:ICH EXR: #(1) JSK E:ICH ENDM TITL * GET FILE NAME * E:GFN MACRO EXTR E:GFN IFT #(2,?) USER SUPPLIED DEFAULT LUN? IFF #(2,'A') COPY #(2),A 2ND PARAMETER IS DEFAULT LUN ENDC IFT #(3,?) USER SUPPLIED CONNECT LUN? IFF #(3,'Q') COPY #(3),Q 3RD PARAMETER IS CONNECT LUN ENDC ENDC IFF #(3,?) NO USER SUPPLIED CONNECT LUN? COPY ='OV',Q USE DEFAULT ENDC ENDC EXR: #(1) IFT #(2,?) USER SUPPLIED CONNECT LUN? SBIT BY:,S FLAG FOR SUPPLIED DEFAULT LUN ENDC JSK E:GFN ENDM * * MESSAGE SERVICE * E:MSG MACRO EXTR E:MSG EXR: #(1)  JSK E:MSG ENDM * * COMMAND SERVICE * E:CMD MACRO EXTR E:CMD EXR: #(1) JSK E:CMD ENDM * * READ CI * E:RCI MACRO EXTR E:RCI EXR: #(1) JSK E:RCI ENDM * * LOAD PROGRAM SERVICE * E:LOAD MACRO EXTR E:LOAD  EXR: #(1) JSK E:LOAD ENDM TITL * PRINT FILE SERVICE * E:PRINT MACRO EXTR E:PRINT EXR: #(1) JSK E:PRINT ENDM * * LOAD OVERLAY SERVICE * E:LDR MACRO EXTR E:LDR EXR: #(1) JSK E:LDR ENDM TITL * E:ISM PL MACRO * ISM:PL MACRO S: SYMATT #(1) IFF S:&NULL: #(1) EQU $ ENDC RES ISMLN:,0 ENDM * * E:GFN PL MACRO * GFN:PL MACRO CREA:A #(1),0,,,0,0,0 RES 7,0 RES 2,0 ISM:PL #(2) ENDM TITL * E:ISM PL EQUATES * ISMTC: EQU 0 TEST CHAR ISMNC: EQU 1 NUMBER OF CHARS ISMDV: EQU 2 DECIMAL VALUE ISMHV: EQU 3 HEX VALUE ISMDF: EQU 4 DECIMAL FLAG ISMHF: EQU 5 HEX FLAG ISMSB: EQU 6 SYMBOL BUFFER, 7 WORDS ISMBP: EQU 13 BUFFER POINTER ISMUB: EQU 14 USER BUFFER ADDR ISMLN: EQU 15 LENGTH OF PARAMETER LIST * * E:GFN PL EQUATES * NAME: EQU 6+1 NAME OFFSET (RLN:+1) FEXTL: EQU NAME:+7 FILE EXTENSION FLAG GFNLN: EQU FEXTL:+2+ISMLN: GFN BLOCK LENGTH SPACE 3 SAVE END ISM PL EQUATES * ISMTC: EQOVicEdDano/#ASSIGN #ADVANCE AUTOLOAD%BACKSP COPY  COPYALL CREATE COPYPACKDATE XDELETE DISMOUNT7DO DUMP nIDIR INIT JOB  KILL MOUNT :PAUSE PRINT XRENAME REWIND TIME VIEW  VERIFY jWTAPEM Z3. ..,  OS:: SYSLDZ1LD 'Z1Z2Z1Z2Z3LOCIZ1CICIOCOCCIOC > CX> I ¿M (9[tXQF os SHCI  \I@EXQ:O0) B" ` /ݢǃ V ߗ Ž%AɿԞSFOV$1Gɣ€BŞ*ǃdf ]\ ςXXT%VԃPRKЃJE  ,&ȃJE B  k[Z1 1:7 g] + X: 0:7㒀@AL :CI   ˜%̓K:C# $z"fy~tUFOV߅Seq0 ƿ@QDɃQC<+ly ؇JJJ%I ۇ̓̎؃Ȏ;1HFJ̈́:*u 1:72N+ B㯀@AK[ۃ` 뭀APÒΟQ ÊΒQ ᇋ[ CISLCLihDc  0:7 Ń , +# :#GO܃GK D1GA  0i:7 7N+ B5@AW'fT 1T:7 GB>?k    1M@6ʃ 1:wfƃDb::B^1ĿV YRd:o:W NyLCLXILcLxEm)):;w[zCI\   @w:/. أAԸ @BKנ1NF πϠBC ߳߶X:/O C:/# :@p@p@K @ K: p ;p+# [SL /24` .MTEX:: SYS4 UNIMPLIMENTED COMMAND. USE MAG TAPE EXEC (MTEX::)  LU DEVICE FNO #EџтĢ%6OȖAłŇăB!# o6HKLC f 6:Pp @0C f0)@ )]UFOV`[UTIN00l M Pdp͇:?)JSITTL @ P OC @ ` "* H1LAy  5: H*3mc @0œ$㑀@k+U# !f|yDCk*%lD D܇עDՇѢD·:$wŃǎ DÇ7G 3ǥ :'Â:':' I Ā * w - IR,:' 'b:' ]VQ NMM # |fyqv)EB[k/p   هȀEy M :냢fu )C @A   W WVLO ? ΟΟΟ:+9 ţ+  :"  ++ " +4E1 ,6B*u ))C @AΞߟ LD`  : A 0:? # C @)$5 p5 GEuc # 4?B  ec 546‚X)(އр;Nˀ DsǞpoà * p6F*/+  <AA F +  A+IǑ +ILj,IR D <<>> LM a W}+{]wv -KJ -p C 7@h? ٿuN]՞^Y.2QA):D("6_6 pQJNyJQIQJQD߫:˪ǩ_6^o6GGÀF Dç pM@+C @* B <     |p` ]V QF)E , Pp# qw12 O k[ @ Gςχ:?< # ɿɟ E° ݃C ۿE œǚà F` 5BCW"dMT3 @ ĨdJ`y W] TXVXṘ̃VT:F QAǟ  0:F ؃64206G d: :؃˃"ȃ ţÐ Qaȃƃ:Wٟk ( L L 4 C쿩`V: S1D ›ǙBB !d3MT ` g1n6ȃE  dSB@A@YIP +OPPw F +DD ? ,# # FL$" Gr]ofliq&fC @ ƀ Y G @AǺ ÷G Ƕ :?hE 6ߞt+ ÜN Cߙg-c # 2[k DC'( h{ +ts n(ܣ;+ I 5BB}+ߩߨm e_ A# 6J:/ ߕߌ  # } 4`,  q&g `` ^  6 +@VK K7GH+ FCnB.# D -  IǤ+ߠ&h $+ bIǓ+ߏWT + # }LACR J NAME .EXT LENGTH DATE TIME EXTENTS AU'S F# 2NDX NAMSJ NAME .EXT NAME .EXT NAME .EXT NAME .EXT <1PAGE VIEW (E700) UNIT= VOLUME= J 19YY/MM/DD HH:MM:SS CREATED 19YY/MM/DD HH:MM:SS DIRECTORY=  TITLE= .  TOTAL AU'S =  TOTAL FILES=  AU'S FREE =  AU'S USED = FA FB FSUFFL NAMEONLYEXTENDEDSTANDARDALLFILES NOTREE @DIRONLY SUMMARY d ž% SӃт:O)i cbUFOVT5 ң1D ²ǰ_NGDW r`z}WVMT G A˂ˇ!+ bƃ DQ2[Y‡Y:BŞ 0: HCG d d:Ã3Ξ: ÏK + *j s,cqIR "Çe:^ \Z:_ Sq¯K E1ģ+ ? y% njy# {wu&r`d  !k[Hң: y 4 À- # # ğğğğPH㩌DBñ; š2/ :#!:DIR ;<?BEWFL} fcłŇe:  ЀC 6IMƢIB ߦߨn҃<=:  # |yvsZ3 "*@[vQkL ܇ɇɇڇڇڇڂڇڇهه# lҿEµdz Nǂ݃ ۿE ¡ǟ6Ãd`s #$MT3}\a^NyJQSYP PTKTQI: D=QA  0:C2 .Aك0.30.:J 0:郏Þ "& Bѿhi 1D ”ǎSS!MT`3 CsSB@A@Y97 +>\ \ÿ ,B# [#jwGst]pqfmnjqg d :AdA" :  D k'Z3FZ4#A傠+ œ:B0 0: UW `̓@q:p 0: ÜQ¢ ÚKX :_  "#,cd q66 +. ,# OVERWRITE Z4'Z3jX\:ラ - - :: #  | [Eٞٞ٢Q9 هآ SȀ; π QI ÀDy Ń8e+± :XZI%QI :'# ~{x },IR `*k:ˇ Ƣɿ Ň Z¿ 1㿣@AǽigeceP((@6ˀ:7:w1 E1DSB%%:#+kߎP#  [z/ CI w=ɞ ǀŃ ܢÿG ǽD  ?êG!@ «:? ǃÓG!ϒR# WVMT2C4`P]<.YC @ كR֣ЀL̃Fȏ̞v 㿀߷:/ c # c # :o:Wy C X c x ~l 1:7 # # [DE \:   =C @G`@@Q+kc I# c # C @QQ@AǩY%'㥣%'ߞߟߛqc I# c # C @QP@Aǐ@%'㌣%'߆߇߃rc # C @) w'N GpoN15c # :_:WFy# C @H^@N2@% @'Suc # C @)@ G@0FD5c # C @%'ߘc # C @@Xy}@} . ~ .M I.M~I.d@bc # 4.C @xI [ /O+Ul jHhc # cII C :7+UT R0P#  { Gʑw I䀅 I.Gj#   ҃ՇՂՇբ)ƢЧЂ:# :|]xŢ%CfþL(Ӄ )1B ,_ +]# Pw t0123456789ABCDEF d`tF}[UFOVk Ԃ٢%Aԇԇẇ‚LJ:%都E샷: _õK  !:'  :'# {fxtqq3n`[UFOV,+*kd: -R-<H-<::  ># ;|00 #&& m VT1Pc  ÕT ‘Ǒ  # f{UTV(C @` @@Aǡ%'  +ÖN1B60ߑo pc #   kc # ߇: I E܂AA # 0 {  0:' # Ξ} 1:' # Ş}ć ‡:C # ] {I Ƿ :  0:? Ø G!Ǖ:? 1:? # }[F+*.?CB5ރˏڃ̇eˠS6ćYG*@ # IM"  +  # B ? >:? ? 1#  1y w'#(n"`D*+!H V@ąڄD΢gk9IUE@+t@y# Y+9 T v 0:/ # } 1:/ # } {+ âK):/qp :' D # } {[OLSL/LO264*,. 0:::G:6: ߏl# # FGe #"G:s;r:omi - `@QA+kVVZ# ^$% +u:r +:6k hC @ߴ ³ -IîG! G!@B @InjGc # [T` WX]^bc*BLOCK AU  0 IĀ+# Ӟ 1 # I?ʣʄ+U# LH ǢăE # B | :)䃧⃰ ކIIڣ; 㞀@+kUƀy@NyC # , 4Ƀ S DB #  { [9:'7SX@AKN1O # ݞ}KFA+s # } ɣ| 0VKԀCC C :'ߢm ^] | G ǡǡ::  # |IRk*+.#&!ã # } B90.r# Z1# zTQS: ɣB:#  2YSIN ˃mm ÃkB# gyQ B TT˃Q )HH # GBB y[TO) }@5I1%C B'`(j%C @'` dK#oe `kA YX ƃD  # <% {#  ~|{IC @`@@+kc #  ~ƊK 1ģ+ icqp  C @ @…Ā+c # EXEC (F101)  AU YY/MM/DD HH:MM:SS /JOB (FILE IS OVERWRITTEN) > FILE ALREADY EXISTS. OVERWRITE 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? ~ZBP* from tvxCI XQ# zZ$ 0::~˂ц7 P4 1:~+XQb L_ @ X¼@*+ QP6qJ©@)5HQB|@ 1:~Z$ÙXQÖ֙ǔ/D ,Z%) ( ۃ :~gև :~^ &:~YŇʃćɃ  P ":~ 1:~ 邵%'=: A: ` 맀A: 0: ǂ Z$#  CI ;gUF g⧂@+k zZ$C @ RRS OR M:~ c # pZ$9 $`$ BATCH FILE NOT FOUND* BATCH QUEUE EMPTY - PROCESSING SUSPENDED " BATCH QUEUE PROCESSING COMPLETED  OS4 INTERACTIVE MODE RESUMED  LUN EF NOT FOUND  I/O ERROR ON LUN ZBmF1EBE5E3--E3E1F1m&***** PATCHED 81101911483125 *****  0: ǂ Z$#  CI ;gUF g⧂@+k zZ$C @ RRS OR M:~ c # 1 pZ$9 $`$ BATCH FILE NOT FOUND* BATCH QUEUE EMPTY - PROCESSING SUSPENDED " BATCH QUEUE PROCESSING COMPLETED  OS4 INTERACTIVE MODE RESUMED  LUN EF NOT FOUND  I/O ERROR ON LUN ZBmF1EBE5E3--OVicEdDano$ SCRATCH Z1QZ1Q PZ1QZ1QPZ18Z13CIFICIF * 5 .  OS4 F1 04    VOL1OS4:MT    VOL   3   pt| 5 10 40 80 150 300 5 10 10 20 40 16 48 80 16 48 80   #M77777&@8@Lzz) @@@@fM(@L pCSC瀘pE ׇ޿ F LUп ўo66 h6/aO6BYV 6: P ?L  I ރ$9$OC [3 9' VIkЇ:ΚIY@6LWW!QI  :FG|SMAǥC PL L@L" /@6A.&]CIhL! h5{ Z1MT EDF7 c!I$mkC C # *ۢQ۠QB @ Z@N KC 6D I q$IJ^ދvr%?`x@ @`x# ,ǦǥǤN ǣǢGǟpN CpPPNpH PC bacm_` S$X4AII@ GUAK GOAK@G GKAK G! AK̟@A G GGǸ G7J@A˱ǰ ñG! AKN 6AK@A˥Ǥ G G"ʢANǘ C @{c   <DPDFYZT@ E! GG! AK ˺Ǻ KN)G! AKDzBêR GG! KǥFII1Bǜ5(9 cenmhiklj]^ S  C @Jƅ Ù ] ? Rf1E`pKCc # $ V !I@y4E@k4# 9 0N1@# F A N1@# (# ~i`pEUUuCPqQQm]S ˜GQITa G`R GGG_c ` Km5 `   ΧΪ΀P+Q+R+S+T+_+` `]C @ a RUA yoUG`pEU?`pEU|U ( 6`pEUU 6+`pE R E F2 %EBC  66 a ) +3G Ǟc ) c  T1R| RW E6A Y 9p q: _zyxOC ^&s.+ y@J\쾧<%'UmlI2 ߀Gk9 ?Aۢր@+kU+ӢjOS4:SCRATCHVOL  . / ӽ@ ӺB+ުh !  \ӡQH GAK *O JE  @'S [ V (o np¿ h*edk g  ~|%@ % '⡢Q[) bAjÖQ@INFLVLMY@)5SR9OL Z @ 9 / # # n :&:@G^ ➙A%J' OAޞ~ PσؘEy Ͽ>w=I/y@%@'kI .%C AC U'ðSƂB⸞⵿HǧⳢI %C @`(KC @`(JU'Ϳ  I9S {VO KL1 $ 9I  V66C ˞+̃A: IƓƶƓ:8bC @C A6A  ţ7 c # `pF Fc # -S,H) % A6   <QR DH  oI+9 +8JRBKu S +9 CFk@" Q8C*ƞ*¾  q KSOL j曃}{zyxJut.rCNn. lji `β@ uc%'I%C @'J%C @'ʟΟS"ΜʜTҙQ$җK1 G+K%C @'3>%'ΆʄR΂ʂW+: @֟Q@XQ+k6pAԿ pݞ ~ \ɞ pqAmA gTi \A $;v[:&::.CAj:.f':6 |y ^ z a qpI4l~ N YͻI?@[nZ~ fOùo N Y[Z̓ :  Σ  C܅qߏߋkR[ VmVbSb: kҶ҇ЃѶχςχC˂ˇˇ˟\ ɇWÃ::2OCFܞøǰǰöGz@@AǯfçGvGeVߢ0GjDϢKS# ߙP!G^C@C Ix$  Q`uwb_cC @gc # C @`pF+F)I@M JKK0%'95 IB c # C6{ ߴ  nQGS䣩ji ƣߝ ʃ ߖ ߑߌ߈J[# 26 wu uvrRonoDljKedă][X[VJcWB ËNMJN A|utX! ǃw;t79n11.jh ãe'Ams\[Z XVUvPMu !z .ߵv IǴѣF8:\>sQRSv $ mnmnklhi [YY S R:OP CB ><so ̢7 31sq𞍞&I  mopqr" GAAKƳ   +@ΩQHߟߟv:   Ɛ: YTUSeb/ Ƿ 3 jF: GǩIG^VߢǠ: =ZVWhg:2:,I:# VRQk\h>t/. oQۇ&ڇ%JI Ď [ [Gć PGĈRSTYB =;: 11:1Aփt 'A+Sp-nDP%NDFlTU   E_ :ccIⴀG@A+kKwmo Th@Aǣ~}ߞzhkÙN @AǕQH•Ɓ~}ߍz:Gp bW3 K "óN Bp éG Ǥ# . *5# ƪ| : rq ~+:}vuRQ`/'CI ~+:1}vuSL ~Ǡ|{y:>@y 15N%' ^+ % K4'^3BCD%> -) Gd$G!GV# . *@@5# G!Ɵ߸BYĀ # 3 p #  ~})Ð@*+xr g TUm c K Ì G!GV߂ǂ# QR ~ G|G{@A] poVpo: gYNv dcb8 ~ yx@  e  20 /,-A('܆"܄@B B kk@Bƅ+ @B B++++ CW&%A G Ć  Îġ : STbj@ ӀAB+kJR8ks@1N9 B N N Ā# @1N9 B N N Ā#  P!Lz Gvu ~ h7GVߔǒ:,,M:nm]\VhRQH ~}|{zUF@+kUsr LABEL (F104)  ENTER UNIT NAME> ENTER VOLUME NAME>$ OLD IDENTIFIERS ON THIS UNIT ARE-  VOLUME NAME: TITLE:6 TO CONTINUE LABELING, TYPE IN THE OLD VOLUME NAME -  UNUSABLE DISC  LABEL MORE? (Y OR N)>  VERIFY DISC? (Y OR N)>  DISC VERIFY IN PROGRESS  NEW BOOT ONLY (Y OR N)? \ VOLUME NAME DOES NOT MATCH YOU MAY HAVE TO USE THE APPROPRIATE DIAGNOSTIC TO REFORMAT THE TOTAL NUMBER OF BAD AUS = RENAME VOLUME ONLY (Y OR N)? AVAILABLE DISK FAMILIES ARE: 1. PERTEC MEDIUM CAPACITY DRIVE. 2. CDC SMD HIGH-CAPACITY DRIVE. 3. SHUGART WINCHESTER DRIVE. 4. QUANTUM WINCHESTER DRIVE. 5. PHOENIX, WITH SPO OPTION. 6. PHOENIX, WITHOUT SPO OPTION. 20. STANDARD FLOPPY DRIVE. 21. MINI-FLOPPY DRIVE. 22. DUAL DENSITY DRIVE. 40. SCOUT FLOPPY DRIVE.  ENTER FAMILY NUMBER>( INVALID DEVICE FAMILY, PLEASE REENTER. ENTER DISC SIZE IN MB>& ADDITIONAL MEMORY REQUIREMENTS ARE: < FORMAT ONLY, FORMAT AND LABEL OR LABEL ONLY (F, FL, [L])?  RETRY OR EXIT (R,X)>. UNRECOVERABLE I/O ERROR. CONTROLLER STATUS=  DISC FORMAT IN PROGRESS 6 FORMATTING FLOPPIES IS NOT ALLOWED ON THIS PROCESSOR CONTINUE LABEL (Y OR N)?2 W A R N I N G --- TRYING TO LABEL SECURE TAPE.6 MAGNETIC TAPE...LABEL IN PROGRESS...STAND BY PLEASE.: ENTER AN ACCESS SECURITY CODE (A..Z , 0..9 , OR BLANK)> F UN-LABELED OR NON-STANDARD LABELED TAPE. LABEL THIS TAPE (Y OR N)? $ ONE MOMENT PLEASE FOR TAPE ACCESS.4 0 OVERRIDE VERIFICATION OF VOLUME NAME (Y OR N)?$ MAXIMUM NUMBER OF FILES [DEFAULT=:,MAX=: ]  NOT A HEX NUMBER - RE-ENTER  8" DRIVE (Y OR N)> DOUBLE DENSITY (Y OR N)> IBM 2D FORMAT (Y OR N)>  DOUBLE SIDED (Y OR N)> SECTOR SIZE (IN BYTES)>  SECTORS IN A TRACK>  TRACKS ON A SURFACE>" CA SINGLE SIDED DRIVE (Y OR N)> 4 INPUT EXCEEDS MAXIMUM FILES ALLOWED, TRY AGAIN...  FILES ON DISK:  FILES IN ROOT DIRECTORY: . SECONDARY EXTENT SIZE FOR ROOT [DEFAULT=0]?  SYNTAX ERROR UNIT NOT FOUND I/O ERROR  TOO MANY BAD AUS4 INSUFFICIENT STACK SPACE AVAILABLE FOR VCB BUFFER. -K- REGISTER = -L- REGISTER =4 INSUFFICIENT MEMORY AVAILABLE TO FORMAT ONE TRACK. DEVICE NOT READY! RATE ERROR ON SELECTED DEVICE." FAULT ERROR ON SELECTED DEVICE. $ UNIT SELECTED IS WRITE PROTECTED. F I/O FAILS RE-TRY COUNT. DATA TRANSFER FROM/TO DEVICE IS UNREADABLE. FORMAT ON MAGTAPE NOT ALLOWED.& TO CONTINUE LABEL ENTER ACCESS CODE>( 'OC' NOT FOUND IN UAT...ABORTING LABEL0 'OC' NOT CONNECTED PROPERLY....ABORTING LABEL C @ ʢ X H N 6  B N ā BGąc # .%3`Ps@pz@cjp`n G G!RPC@ Gƅ p\p# $$s4 @?쀀 A+B G@A4E+C+Dڢ)+-*,*Ä́%̈́!yBA   C܂ DG+X@ ϨGǜ# y BGNJE9 ‚y*%+zy{1783@ýpC C })hC C }btC C }2`1A# SÞ GS B Ny@ABGK BEGGB>@R; C9.'() 6` 6J 6W 6H 6J /6K ?6Lml1h<{Mx_u ] m 12C @ X Rwc # c $$ 9' 旿I1P)I 0% G 9 /4'℟ji g9I ) @hhgge@n G geafힹa XRW R^e IQiBp@<;: H8P@ G;NPCHC C GTqE'ž * Cȟx @0DAJL )‘ЀЀΎQBx"  i+ fEB `jm@kC# b# }J,r @EEFF)DcEF, jH@pTğv g>g;]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 (>=) =`;nrgy w"G,{Kq1 A&}E*`(t@% ;c  765y342(.OS:: SYS-A"iwvc Bc A@6<# Ic B# gIjHc rc ޚ# @0X)P VVЀЀSQPpI N@6=< G:P@ G=NPCHC C GTqn/I iޞU * Cןx @0DAJL )ЀЀ΍QAy"  i+ fC@ `j_NQRSTTIITSSJISRIN# B# A@6<@6Y # B|  vH@pɾv g.g+iXi Phb+s=胾c_Z SRמؾ ¡@AvLS)"$ C j<:j8h p y0Rw kkos rp  15 !YW\ f %'+\s愾I)s SR|{ @$ o O m J K i g< V tsFn`"FED) E`Cnrgy w"N!{Rq1H|L2`0tG- Bc (>= > CX> I ʿ 1DBQ (9SLtpXQF ls SGCI/ YI@EUQ:O0) B" ` /ݢǃ V ߗ Ž%AɿԞSFOV$R1Gɣ€BŞ*ǃdf ]\ ςXXT%VԃPRKЃJE ,[ȃJE B  "Z1: 1:7 g] + X: 0:7㒀@AL :CI / ˜%̓K:C# $z"ytUFOVN߅T{ q0 ƿS@QDɃQCq.ly ۇJJJ%I!Q ۇ̓̎كȎ81HFJ΄7*u 1:72N+ B㯀@AK[ۃ` 뮀APÒΠQ ÊΒQ ⇋ CISLCL(hgDb  0:7 Ń , +# : .FN܃FK C1G@  0i:7 6N+ B4@AW&T#Q 1Q:7 D]?<  _  1M@6ʃ 1:wfʃHb:ó]DZ:BZ1ĿR UN:o:W NyLCLXELcLxAm)): 7wzCI\   @w:/. أAԸ @BKנ1N7 F πϠBC ߳߶X:/O C:/# :@p@p@K @ K: p ;p+# SL /2410 .MTEX:: SYS4 UNIMPLIMENTED COMMAND. USE MAG TAPE EXEC (MTEX::)  LU DEVICE FNO 9Qܟ܂Т%6OԖAтчЃ˖BȂ̇ȇǃ!Ň# o6AH @ " !KLC f 6:Pp @0C f0)@ )UFOVUT IN00j M Pbp͇:?)JSIRRQA @ N MC @ ` "* H1LJy  3: H*3mc @0œ$㑀@k+U# |yDC*%lD D݇آDևҢDχ:$wƃȎ Dćƒ7G 3ǥ :':':' I Ā * IR,:' 'a:' \UQ MLL # S|yv)wt0p   ه1IȀEy M :냢f )C @A   | |}LO d1 ΟΟΟ:+9 ţ+  :"  ++ " +4E1 ,6B* ))C @AΞ& ~D$*  : A 0:? # C @)$5 p5 GEc # 4?B  ec 546‚X)(އр;Nˀ Dspoà * p6F*/+  <AA F +  A+IǑ +ILj,IR D <<>>D *LM a W}+{]wv -KJ -p C 7@h? ٿN]՞^Y.2QAσ):D("6_6 pQJNyJQIQJQD߫:˪ǩ_6^o6GGÀF Dç pM@+C @* B a&    |p` ]V: QFNE , Pp# qSwBC8V9W t4  @ Gςχ:?< # ɿɟ E° ݃C ۿE œǚà k ZBC|"MTX& e ñdJ`y W] TXVXṘ̃VT:F QAǟ  0:F ؃64206G d: :؃˃"ȃ ţÐ Qaȃƃ:Wٟ M Dp q Y C쿩`V: S1D ›ǙBB QX&MT  1n6ȃE  8 dSB@A@YIP +OPPw F +DD ? ,# # FL$" |rolSi&fC @ ƀ Y G @AǺ ÷G Ƕ :?hE 6ߞt+ ÜN Cߙg-Dc # 2 4DCLM h{ +ts n(ܣ;+ I 5BB}+ߩߨm e_ A# 6J:/ ߕߌ  #  } 4,D q&g `` ^  6 +@VK  K7GH+ FCnB.# ,D -  IǤ+ߠ&h $+ bIǓ+ߏWT + # }LA*CR J NAME .EXT LENGTH DATE TIME EXTENTS AU'S F# 2NDX NAMSJ NAME .EXT NAME .EXT NAME .EXT NAME .EXT <1PAGE VIEW (F100) UNIT= VOLUME=  J 19YY/MM/DD HH:MM:SS CREATED 19YY/MM/DD HH:MM:SS DIRECTORY=  TITLE=  TOTAL AU'S =  TOTAL FILES=  AU'S FREE =  AU'S USED = FA FB FSUFFL NAMEONLYEXTENDEDSTANDARDALLFILES NOTREE @DIRONLY SUMMARY  ž% SӃт:O)i cbUFOVT5 ң1D ²ǰ_NGDW |}MT k1 A˂ˇ!+ bƃ DQ2[Y‡Y:BŞ 0: HCG d d:Ã3Ξ: ÏK + *j ,cIR "Çe:^ \Z:_ S¯K E1ģ+ ? y% njy# {SwSu[rd  QHң: y 4 À- # # ğğğğPH㩌DBñ; š2/ :#!:DIR `adgj|{~ fcłŇe:  ЀC 6IMƢIB= ߦߨn҃<=:  # S|ByvsZ3 "_uL ܇ɇɇڇڇڇڂڇڇهه# lҿEµdz Nǂ݃ ۿE ¡ǟ6à #$MTX&\̓a^NyJQSYP PTKTQI: D=QA  0:C2 .Aك0.30.:J 0:郏Þ "& Bѿhi 1D ”ǎSS!MTX& CsSB@A@Y97 +>\ \ÿH ,B# Vw|stpqmnSjg d :AdA" 9 :  D 'Z3jZ4#A䂠+ œ:B0 0: UW ̃@q:o 0: ÚQ¢ ØKX   "VIH, cp 77 +/ ,# OVERWRITE Z4'Z3|\:ラ - - :: # M| Eٞٞ٢Q9 هآ SȀ; π QI ÀDy Ń8e+± :XZI%QI :'# ~{x ,IR *:ˇ Ƣɿ Ň Z¿ 1㿣@AǽigeceP((@6ˀ:7:w1 E1DSB%%:#+kߎP#  *zCI w=ɞ ǀŃ ܢÿG ǽD  ?êG!@ «:? ǃÓG!ϒR# |}MT2C4]<S.YC @ كR֣ЀL̃Fȏ̞v 㿀߷:/ c # c # :o:Wy C X c x ~l 1:7 # # DE \: / =C @G`@@Q+kc I# c # C @QQ@AǩY%'㥣%'ߞߟߛqc I# c # C @QP@Aǐ@%'㌣%'߆߇߃rc # C @) w'N GpoN15c # :_:WFy# C @H^@N2@% @'Suc # C @)@ G@0FD5c # C @%'ߘc # C @@Xy}@} . ~ .M I.M~I.d@bc # 4.C @xI [ /O+Ul jHhc # cII C :7+UT R0P#  { Gʑw I怅  I.Gj#   ׇׇׂ҃ע)Ƣҧ҂:# :|xǢ%CL(Ճ )¯ǵ1B ,] +[# wS t0123456789ABCDEF d{UFOV ԂԢ%Aчԃԇẇ‡:ꂽ¼%郺E샷: _õK  !:'  :'# {xStqvnUFOV N,+*d: -R-<H-<::  A# >U|00 *(&&&%% j"_ VT1P^  ÚT –ǖ  # {wTV(C @` 6@Aǡ%'  +ÖN1B6&ߑo pc #   kc # ߇: I Eۂ@@ # >e {  0:' # ͞} 1:' # Ğ}Ç :: C #  {I Ƕ :  0:? × G ǔ:? 1:? # }F+*.?CB7͏܃χfΠ1VT6ƇY1IG)@ # IK!  + # @ = <:? ? /#  /y w&kn"Dmn!H V@ąلC΢fk9IUE@+t@y# X+9 ST  v 0:/ # } 1:/ # } {+ áK(:/qp :' D # } {OLSL/LO264*,. 0:::G:6: ߏl# # e #"G:r;q: nlh - _@QB+kTT죅Y# $% +u:r +:7k hC @ߴ ³ +qeIíG! G!@B ?INjc #  *BLOCK AU  IĀ+# Ӟ 1 # I?ʣʄ+U# MH ǢăF #  | :)䃧⃱ ކIIڣ; 㟀@+kUƀy@NyC # , 4Ƀ S DB # ) { Z9:'7RX@AKN1N # ݞ}KE@+s # } ɣ| /VKԀCC C :'ߢm ^] | G ǡǡ::  # |IR*+.#&!ã # } B90.r# Z1# zTQS: ɣB:#  2YSIN ˃mm ÃkB# gyQ B ΢TT˃Q )HH # |BB yTO) }@5I1%C B'`(j%C @'` dK#oe `kA YX ƃD  # q% {#  ~|{IC @`@@+kc #  ~ƊK 1ģ+ icqp   C @ @…Ā+c # EXEC (F200)  AU  YY/MM/DD HH:MM:SS /JOB (FILE IS OVERWRITTEN) > FILE ALREADY EXISTS. OVERWRITE 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  UNASSIGNED LOGICAL UNIT & 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? ZBP; * from tvxCI XQ# zZ$ 0::˂ц7 P4 1:+XQb L_ @ X¼@*+ QP6qJ©@)5HQB|@ 1:Z$ÙXQÖ֙ǔ/D ,Z%) (<N&܃ :gׇ :^ &:YƇ˃Ňʃ  P ": 1: ꂶ%G'<: A: ` 맀A: 0: ǂ Z$#  CIUF g⧂@+k zZ$C @ RRS OR M: c # pZ$9 hG^`$ BATCH FILE NOT FOUND* BATCH QUEUE EMPTY - PROCESSING SUSPENDED " BATCH QUEUE PROCESSING COMPLETED  OS4 INTERACTIVE MODE RESUMED  LUN EF NOT FOUND  I/O ERROR ON LUN ZBmF1EBE5E3--E3E1 A: ` 맀A: 0: ǂ Z$#  CIUF g⧂@+k zZ$C @ RRS OR M: c # pZ$9 hG^`$ BATCH FILE NOT FOURESS FOR SCOUT MULTI-CHANNEL SERIAL * * THE INTERRUPT ADDRESS SPACE FOR THE SCOUT MCS WAS ALLOCATED * BELOW LOCATION :200 BECAUSE IT MUST ALSO FUNCTION IN CONJUNCTION * WITH THE SCOUT SPI BOARD WHICH INTERRUPTS TO THE SAME LOCATIONS * AS THE DIO. INTERRUPT VECTOR ADDRESS MUST BE BELOW 8K. * MCSIV: SET :180 DEFAULT INTERRUPT BASE ADDRESS TITL DIB & CIB GENERATION SUPPORT EQUATES & MACROS * * MISCELLANEOUS EQUATES * R:SA12 EQU :3F LF: EQU :A FF: EQU :C CR: EQU :D * * EQUATES FOR DISK DEVICE FAMILIES. * FAM:DM EQU :1 PERTEC MEDIUM CAPACITY DISK DRIVES FAM:DH EQU :2 CDC STORAGE MODULE DISK DRIVES FAM:SWIN EQU :3 NM4 SHUGART WINCHESTER DISK DRIVES FAM:QWIN EQU :4 NM4 QUANTUM WINCHESTER DISK DRIVES FAM:PHWS EQU :5 CDC PHOENIX DISK WITH SPO OPTION FAM:PHNS EQU :6 CDC PHOENIX DISK WITHOUT SPO OPTION FAM:SWNS EQU :13 NM4 SHUGART WINCHESTER DISK DRIVES ON SCOUT FAM:QWNS EQU :14 NM4 QUANTUM WINCHESTER DISK DRIVES ON SCOUT * FAM:DF EQU :20 STANDARD FLOPPY DRIVES FAM:DP EQU :21 MINI-FLOPPY DRIVES FAM:DFQ EQU :22 QUAD FLOPPY DRIVES * FAM:DS EQU :40 SCOUT FLOPPY DRIVES * * BUILD A WORD OF BITS MACRO * BIT:WORD MACRO WORD MACLAB BIT:EQU  MACENT EQU MACLAB BIT:SET MACENT SET MACLAB * BIT:SET SET 0 * BIT:LOOP MACENT NULL IFT #(1,?) BIT:SET SET 1//#(1)++BIT:SET BIT:LOOP #(2),#(3),#(4),#(5),#(6),#(7),#(8) ENDC IFF '##(0,1,1)'='N' #(-1) #(0) BIT:SET ENDC ENDM TITL * MACRO FOR INTERRUPT SEQUENCE * INT:SEQ MACRO JST R:SA12 COPY =$-CI:EOB-1,X CIN ADDR  JMP *$+1 IFF #(1,?) EXTR I:EOB WORD I:EOB ENDC IFT #(1,?) EXTR #1 WORD #(1) ENDC ENDM * * STANDARD DIB MACRO * * SUPPORTS: TK00 TY00 TP00 TR00 TV00 * LP00 (81,57,LF:) CR00 PP00 PR00 * DF00 DF01 DF02 DF03 (ALL FLOPPIES ARE SINGLE DENSITY) * DM00 DM01 (BOTH ARE 5MB) < * DM02 DM03 (BOTH ARE 10MB) * DH00 (40MB) * DH01 (80MB) * DH02 (150MB) * DH03 (300MB) * DIB:ST MACRO LOAD D:#(1) ENDM * * STANDARD CIB MACRO FOR DM0 AND DH0 * CIB:ST MACRO LOAD C:#(1,1,3) ENDM TITL ** MACRO: TVDIBCIB * * USAGE: TO CREATE DIB'S AND CIB'S FOR OTHER CRT'S ADDED * TO THE SYSTEM.... * * TVDIBCIB NAME,CHAN * TVDIBCIB NAME,BDAD,CHAN,VECT * * NAME = DEVICE NAME (4 CHARACTERS) * CHAN = CHANNEL NUMBER FOR THIS DEVICE * BDAD = BOARD ADDRESS (DEFAULT = :F) * VECT = BASE VECTOR FOR THE BOARD (DEFAULT = :C0) * * EXAMPLE: TVDIBCIB TV01,3 * * THIS CREATES DIB & CIB FOR TV01 ON CHANNEL 3 * * TVDIBCIB TV02,:C,3,:80 * * THIS CREATES DIB & CIB FOR TV02 AT DEVICE ADDR :C6 * AND WITH A DATA VECTOR AT :98 (:80 + 3*8) * ** SPACE 1 TVDIBCIB MACRO * * GENERATE DIB FOR THIS TERMINAL * DIB:TV #(1),#(2),#(3),#(4) * * GENERATE CIB FOR THIS TERMINAL * CIB:TV #(1),#(2),#(3),#(4) ENDM TITL SCOUT DIB CONFIGURING MACRO * * OPTIONAL CONFIGURATION MACRO FOR SCOUT FLOPPY DIB * OPT:DS MACRO DS DSMOD: SET DSMOD:&:7F++:8400 ONLY FIELD NOT REQUIRED IS 'GAP=' IFT #(1,'MINI') DSMOD: SET DSMOD:--:600 ENDC IFT #(2,'MINI') DSMOD: SET DSMOD:--:600 ENDC IFT #(3,'MINI') DSMOD: SET DSMOD:--:600 ENDC IFT #(4,'MINI') DSMOD: SET DSMOD:--:600 ENDC IFT #(1,'UNI') DSMOD: SET DSMOD:--:8000 ENDC IFT #(2,'UNI') DSMOD: SET DSMOD:--:8000 ENDC IFT #(3,'UNI') DSMOD: SET DSMOD:--:8000 ENDC IFT #(4,'UNI') DSMOD: SET DSMOD:--:8000 ENDC IFT #(1,'GAP=') YYY: SET #(1,?) DSMOD: SET #(1,5,YYY:)--DSMOD:&:7F--DSMOD: ENDC IFT #(2,'GAP=') YYY: SET #(2,?) DSMOD: SET #(2,5,YYY:)--DSMOD:&:7F--DSMOD: ENDC  IFT #(3,'GAP=') YYY: SET #(3,?) DSMOD: SET #(3,5,YYY:)--DSMOD:&:7F--DSMOD: ENDC IFT #(4,'GAP=') YYY: SET #(4,?) DSMOD: SET #(4,5,YYY:)--DSMOD:&:7F--DSMOD: ENDC IFT #(1,'REV') DSMOD: SET DSMOD:--:400  ENDC IFT #(2,'REV') DSMOD: SET DSMOD:--:400 ENDC IFT #(3,'REV') DSMOD: SET DSMOD:--:400  ENDC IFT #(4,'REV') DSMOD: SET DSMOD:--:400 ENDC ENDM TITL DISK DIB MACROS * * THIS IS THE GENERALIZED DIB:DK MACRO WHERE A STANDARD * FORMAT GIVEN BELOW CAN BE FOLLOWED TO SET UP A DIB FOR * ANY DEVICE. * * HOS/UNIT WORD - SINCE THERE ARE TWO VOLUMES PER UNIT (AS WITH * THE PERTEC DRIVES), IT IS NECESSARY TO SET THE UNIT BYTE * TO "1" WHICH WILL CAUSE THE UNIT NUMBER DESIRED TO BE * SHIFTED 1 BIT TO THE RIGHT THUS OBTAINING THE ACTUAL * UNIT NUMBER. * * SPO OPTION - THE SPO OPTION IS AVAILABLE IF A USER DESIRES TO *  AUTOLOAD FROM THE FIXED PLATTER. AS OPPOSED TO NON-SPO, * THE SPO OPTION SWITCHES WHICH DRIVE YOU ARE TALKING TO - * IN OTHER WORDS, THE FIXED BECOMES THE REMOVABLE AND VICE * VERSA. TO OVERCOME THIS PROBLEM,=  THE TABLE BELOW IS USED * TO KEEP THE FIXED VOLUME AS DH00, DH02 ... & * TO KEEP THE REMOVABLE AS DH01, DH03 ... * ALL THAT IS NEEDED IS TO TOGGLE THE VOLUME CONTROL BIT * OF THE HOS WORD. * * LOGICAL/PHYSICAL DEVICE HOS(NO SPO) HOS(SPO) * ----------------------- ----------- -------- *  0 / 0 :10 0 * 1 / 0 0 :10 *  2 / 1 :10 0 * 3 / 1 0 :10 * ETC. * * * FORMAT --- * * DIB:DK ,[,] * *  -- TWO LETTER CODE FOR THE FAMILY TYPE * EG. DM,DH,DF,DS,DP * WHERE DH IS USED FOR PHNS,PHWS,QWIN,SWIN,QWNS,SWNS * DF IS USED FOR DFQ * * -- IS THE SPECIFIC FAMILY FOR THE DIB. THE LIST * OF ALL POSSIBLE FAMILY NAMES IS GIVEN ABOVE IN THE *  EQU'S WHERE QWNS AND SWNS HAVE NOT BEEN AS YET * IMPLEMENTED AND ARE IN FOR FUTURE USE. * * <OPTIONAL ARGS> -- ARGUMENTS 3 TO N CORRESPOND TO ARGUMENTS 2 TO * N-1 IN THE STANDARD CALLS (EG: DIB:DM, DIB:DH ...) * DIB:DK MACRO FAM: SET FAM:#(2) SET FAMILY TYPE. DIB: #(1),#(3),#(4),#(5),#(6),#(7)  ENDM * DIBS FOR THE PME/PLU DISK CONTROLLERS, THE SCOUT AND * NM4 FLOPPY DISK CONTROLLERS, AND THE MINIFLOPPY *  PICO. * DIB: MACRO DIB:DM MACENT DM *** DISK CARTRIDGE DRIVE DIB MACRO *** DIB:DH MACENT DH *** DISK PACK DRIVE DIB MACRO *** DIB:DF MACENT DF *** STANDARD FLOPPY DISK DIB MACRO *** DIB:DFQ MACENT DFQ *** QUAD FLOPPY DISK DIB MACRO *** DIB:DS MACENT DS *** SCOUT FLOPPY DISK DIB MACRO *** DIB:DP MACENT DP *** MINIFLOPPY PICO DIB MACRO *** LPOOL O: SET $ TABLE: REL SHARABLE TABLE: SYSTEM XXX: SET 1 (FIX THE BUG IN MACRO) YYY: SET 1 (DITTO) BMW: SET -1 UNIT: SET 0 SET THE UNIT TO 0, CHANGE LATER IF DM,PHWS,PHNS IFT #(0,?) FAM: SET FAM:#(0) SET FAMILY NAME IF NOT DIB:DK ENDC IFT FAM:=FAM:DS UNIT: SET '##(1,4,4)'-'0'&3 SET UNIT TO IF SCOUT ENDC HOS: SET 0 SET HOS TO 0, CHANGE LATER IF DM,PHWS,PHNS IFF FAM:=FAM:DS BPS: SET 512 ALLL HARD DISKS ARE 512 BYTE SECTORS MB: SYMVAL #(2) MEGABYTES IFT FAM:=FAM:DM UNIT:  SET 1 FOR MCDC, UNIT = SHIFT COUNT HOS: SET '##(1,4,4)'-'0'&1*2 SPT: SET 12 SECTORS PER TRACK TPC: SET 2 TRACKS PER CYLINDER SPA: SET 1 SECTORS PER AU CPD: SET 203  CYLINDERS PER DISK, 5MB IFT MB:=10 CPD: SET 406 ENDC ENDC IFT FAM:=FAM:DH TPC: SET 5 SPT: SET 32 CPD: SET 823 SPA: SET 8 IFT MB:=40 CPD: SET 411 SPA: SET 4 ENDC IFT MB:=150 TPC: SET 19 CPD: SET 411 ENDC IFT MB:=300 SPA: SET 16 TPC: SET 19 ENDC ENDC IFT FAM:=FAM:SWIN TPC: SET 2 CPD: SET 256>  SPT: SET 16 SPA: SET 1 IFT MB:=10 TPC: SET 4 ENDC ENDC * IFT FAM:=FAM:QWIN TPC: SET 2 CPD: SET 512 SPT: SET 16 SPA: SET MB:/10 IFT MB:=20 TPC: SET 4 ENDC IFT MB:=40 TPC: SET 8 ENDC ENDC * T1: SET FAM:=FAM:PHWS IFT FAM:=FAM:PHNS++T1: TPC:  SET MB:/16 UNIT: SET 1 SET UNIT TO 1 FOR SHIFT IN MCDC CPD: SET 823 SPT: SET 32 SPA: SET 1 IFT MB:=48 SPA: SET 4 ENDC IFT MB:=80 SPA: SET 8 ENDC DN: SET #(1,4,4) T1: SET DN:/2*2=DN: IFT T1: HOS: SET :10 SET HOS TO :10 IF UNIT EVEN ENDC IFT FAM:=FAM:PHWS HOS: SET :10-HOS: TOGGLE HOS IF FAMILY IS PHWS ENDC ENDC * ENDC T1: SET FAM:=FAM:DF IFT FAM:=FAM:DFQ++T1: IFT FAM:=FAM:DFQ BPS: SET 256 ENDC IFT FAM:=FAM:DF BPS: SET 128 ENDC SPT: SET 26 CPD:  SET BPS:/128*77 SPA: SET 512/BPS: TPC: SET 1 ENDC IFT FAM:=FAM:DP BPS: SET 128 SPT: SET 16 CPD: SET 35 SPA: SET 4 TPC: SET 1 BMW: SET :200 ENDC IFT FAM:=FAM:DS BMW: SET DSMOD:++:1900 TPC: SET 1 BPS: SET 128 SD SECTOR SIZE DEFAULT = 128 BYTES XXX: SET  #(2,?) YYY: SET #(3,?) CPD: SET 77 8 IN. DISKS USUALLY HAVE 77 TRACKS SPT: SET 5208-73 IFT BMW:&:200 IS IT A 5 1/4 IN. DRIVE? SPT: SET 3125-67 BIT TIMES PER TRACK (LESS HEADER) CPD: SET 35 DEFAULT IS 35 TRACKS PER DISK ENDC IFT #(2,?)>0 BPS: SYMVAL #(2) IFT '##(2,XXX:,XXX:)'='D' BMW: SET BMW:+:80 SET DOUBLE DENSITY FLAG IFT XXX:=1 BPS: SET 256 DD SECTOR SIZE DEFAULT = 256 BYTES ENDC ENDC ENDC IFT #(3,?) IFF '##(3,1,1)'='*' CPD: SYMVAL #(3)  ENDC XXX: SET #(3,?)-1 IFT '##(3,XXX:,YYY:)'='*2' TPC: SET 2 XXX: SET #(3,?)-2 IFT XXX:>0 CPD: SYMVAL #(3,1,XXX:) ENDC ENDC ENDC XXX: SET BPS:+33+FGAP: SPT: SET SPT:-33 SECTORS PER TRACK LESS ONE SECTOR O/H IFT BMW:&:80 XXX: SET BPS:+61+FGAP2: BYTE TIMES PER SECTOR SPT: SET SPT:+SPT:+5 (61 NOT 66 OVERHEAD BYTES) ENDC SPT: SET SPT:-BPS: DATA IN THAT FIRST SECTOR SPT:  SET SPT:*97/100 ALLOW 3% SPEED VARIATION SPT: SET SPT:/XXX:+1 NUMBER OF SECTORS PER TRACK IFT SPT:>MAX:SPT SPT: SET MAX:SPT ENDC SPA: SET 512/BPS: IFT SPA:=0 SPA: SET 1 ENDC ENDC APD: SET SPT:*TPC:*CPD:/SPA: AU'S PER DISK NAM D:#(1) D:#(1) CHAN #(1,1,2): WORD 0 DI:FLG WORD C:#(1,1,3) DI:CIB HEAD Z:#(1) DI:FCB BYTE '##(1)' DI:NAM WORD 0 DI:DN WORD 0 DI:DS SPB: SET -9 WBT: SET 1*8 T1: SET FAM:=FAM:DS T1:  SET FAM:=FAM:DF++T1: T1: SET FAM:=FAM:DFQ++T1: IFT FAM:=FAM:DP++T1: SPB: SET -6 WBT: SET 2*8 ?  ENDC T1: SET FAM:=FAM:SWIN IFT FAM:=FAM:QWIN++T1: WBT: SET 5*8 ENDC WORD SPB: DI:SPB WORD WBT: DI:WBT BIT:WORD FA:,FB:,FS:,DA:,DB:,UF: BIT:WORD FS:,DA:,DB:,UF: BIT:WORD BIT:WORD  OP:,CL: RES 2,0 WORD BPS: DI:BPS XXX: SYMVAL SEC:TRK USER SPECIFIED SECTORS/TRACK? IFT  XXX: WORD SEC:TRK DI:SPT ENDC IFF XXX: WORD SPT: DI:SPT ENDC  WORD TPC: DI:TPC WORD CPD: DI:CPD WORD SPA: DI:SPA WORD BMW: DI:BMW BYTE 3,10 DI:TRY WORD 1 DI:VTS WORD 1 DI:ATS BYTE UNIT:,HOS: DI:HOS -- UNIT AND HEAD OFFSET WORD 0 WORD FAM: DI:FAM -- DEVICE FAMILY WORD APD:/2 DI:FLP WORD CPD: DI:FLN WORD APD:/2+CPD: POINTER TO FREE AU MAP WORD APD: DI:APD WORD BPS:*SPA: DI:BPA IFT BPS:>256 FOR LARGE SECTOR DISKS, BUFFER=SECTOR WORD 1 DI:SBF ENDC IFF BPS:>256 FOR SMALL SECTOR DISKS, BUFFER=512 BYTES WORD 512/BPS: DI:SBF ENDC RES 6,0 DI:SAU - DI:FAU IFT FAM:=FAM:DS IFF DSMOD:&:200 IF A STANDARD FLOPPY DRIVE XXX: SET :AF24 IFT #(4,?) XXX: SET #(4)--:F+1%12--XXX:&:F000--XXX: ENDC IFT #(5,?) XXX: SET #(5)+1&:FE--XXX:&:FF--XXX: ENDC  IFT #(6,?) XXX: SET #(6)+15%4--XXX:&:0F00--XXX: ENDC ENDC IFT DSMOD:&:200 IF A MINI-FLOPPY XXX: SET :2F18 IFT #(4,?) XXX: SET #(4)+1/2--:F+1%12--XXX:&:F000--XXX: ENDC IFT #(5,?) XXX: SET #(5)+3/2&:FE--XXX:&:FF--XXX: ENDC IFT #(6,?) XXX: SET #(6)+31%3--XXX:&:0F00--XXX: ENDC ENDC WORD XXX: DI:INT INTERVAL TIMER SPECS. ENDC IFT FAM:=FAM:DP WORD -1 DI:INT WORD 0 DI:SCT WORD 0 DI:SEC ENDC ORG O: ENDM TITL DISK CIB MACROS * MINIFLOPPY CIB MACRO (REFORMATTER) * CIB:DP MACRO IFT #(?)>1  CIB:DP: DP00,#(1)%3+#(2)%1 ENDC IFF #(?)>1 CIB:DP: DP00 ENDC ENDM * * THIS IS THE GENERALIZED CIB MACRO FOR ALL BUT THE MINIFLOPPY * PICO. IT HAS THE FOLLOWING FORMAT: * * CIB:DK ,[,,] * * -- DM,DH,DS,DF,DP * WHERE DH IS USED FOR: QWIN,SWIN,PHWS,PHNS * DF IS USED FOR: DFQ * * -- SET TO 00. * *  -- FAMILY NAME (SEE DIB:DK FOR LIST). * * -- DEVICE ADDRESS (USES DEFAULT IF NOT SPECIFIED). * * -- INTERRUPT ADDRESS (APPLICABLE TO SCOUT AND MINI ONLY) * (USES DEFAULT IF NOT SPECIFIED). * CIB:DK MACRO FAM:  SET FAM:#(2) CIB: #(1),#(3),#(4),#(2) ENDM CIB: MACRO DK CIB:DM MACENT DM CIB:DH MACENT DH CIB:DS @  MACENT DS CIB:DF MACENT DF CIB:DFQ MACENT DFQ CIB:DP: MACENT DP IFF #(0,'DK') FAM: SET FAM:#(0) SET FAM: IF NOT CIB:DK ENDC LPOOL O: SET $ TABLE: REL SHARABLE TABLE: SYSTEM NAM C:#(1,1,3) C:#(1,1,3) CHAN CIB: CI:PER DEVAD: SYMVAL #(2) IFF #(2,?) IFT #(4,?) DEVAD: SET #(4,1,2)DA: SET DEVAD: IF FAMILY NAME GIVEN ENDC IFF #(4,?) DEVAD: SET #(0,1,2)DA: SET DEVAD: IF FAMILY NAME NOT GIVEN (NOT CIB:DK). ENDC ENDC IFT DEVAD:<:20 T1: SET FAM:=FAM:DS IFF FAM:=FAM:DP++T1: DEVAD: SET DEVAD:%3 ENDC IFT FAM:=FAM:DP DEVAD: SET ETIODAD:%3+DEVAD:%1 ENDC ENDC WORD 0 CI:FLG - FLAG WORD HEAD CIB: CI:MST - MASTER CIB LINK HEAD #(1,1,2): CI:DIB WORD :7600 CI:PRI WORD DEVAD: IFT FAM:<:20 CHECK IF HARD DISK EXTR DK:RD,DK:WRT,DK:FUN WORD 0,0,DK:RD,DK:WRT,0,DK:FUN ENDC T1: SET FAM:=FAM:DFQ CHECK IF DF OR DFQ IFT FAM:=FAM:DF++T1: " " EXTR DF:RD,DF:WRT,DF:FUN WORD 0,0,DF:RD,DF:WRT,0,DF:FUN ENDC IFT FAM:=FAM:DP EXTR DP:RD,DP:WRT,DP:FUN XXX: SYMVAL #(3) IFF #(3,?) XXX: SET DEVAD:&:E%2+ETIODIB: ENDC WORD XXX:,0,DP:RD,DP:WRT,0,DP:FUN ENDC IFF FAM:=FAM:DS INT:SEQ I:EOB ENDC IFT FAM:=FAM:DS  EXTR UF:RD,UF:WRT,UF:FUN XXX: SYMVAL #(3) IFF #(3,?) XXX: SET DSIA: CI:IV ENDC  WORD XXX:,0,UF:RD,UF:WRT,0,UF:FUN DSMOD: SET :8407 RESTORE DEFAULT VALUE TO DSMOD INT:SEQ UF:EOB  ENDC RES 4,0 WORD 1 CI:USM WORD 0,0,0,0,0,0 IFF FAM:=FAM:DP  RES 6,0 T1: SET FAM:=FAM:DFQ IFF FAM:=FAM:DF++T1: WORD 0,C:#(1,1,3)+CI:DIV ENDC  RES 4,0 IFT FAM:=FAM:DF++T1: JSK C:#(1,1,3)+CI:EOB WORD 0 ENDC JSK C:#(1,1,3)+CI:EOB ENDC IFT FAM:=FAM:DP WORD -2 CI:CLK ENDC ORG O:  ENDM TITL ASYNC MUX OPTIONS MACRO * MACRO TO CONDITIONALLY GENERATE A SYMBOLIC REFERENCE OR ZERO WORD * COND MACRO 0 COND1 MACENT 1 IFT #(2) IF CONDITION TRUE WORD #(1) GENERATE SYMBOLIC REFERENCE ENDC IFF #(0) IF ALTERNATE ENTRY, DON'T ASM IFF #(2) IF CONDITION FALSE WORD 0 GENERATE ZERO WORD ENDC ENDC ENDM * * USEFUL VALUES * DIF:AB EQU 7 BIT NUMBER TO REQUEST AUTO-BAUDING OPT:DC EQU 1%DIF:DC SET THE BIT OPT:FA EQU 1%DIF:FA SET THE BIT OPT:FC EQU 1%DIF:FC SET THE BIT FOR FORM CONTROL OPT:AB EQU 1%DIF:AB SET THE BIT * * BAUD RATE VALUES * BD:50 EQU 0 BD:75 EQU 1 BD:110 EQU 2 BD:135 EQU 3 BD:150 EQU 4 BD:300 EQU 5 BD:600 EQU 6 BD:1200 EQU 7 BD:1800 EQU 8 BD:2000 EQU 9 BD:2400 EQU :A BD:3600 EQU :B BD:4800 EQU :C BD:7200 EQU :D BD:9600 EQU :E BD:19200 EQU :F TITL ASYNCH MUX DIB MACRO * * THIS MACRO GENERATES A DIB FOR AN ASYNC MUX CHANNEL * * THE CALLING SEQUENCE IS * * D:AC CCDD[,OPTS] * * WHERE 'CCDD' IS THE 4 CHAR IDENTIFIER TO FORM DIB ENTRY * POINT NAME 'D:CCDD'. * A REFERENCE TO A CIB NAME 'C:CCDD' WILL BE GENERATED. * THE OPTIONAL 'OPTS' FIELD MAY CONTAIN THE OPTION SPECIFIERS: * * OPT:DC MEANING, DYNAMICALLY CONFIGURE AT FIRST OPEN * OPT:FA MEANING, LOAD FA: HANDLER * OPT:AB MEANING, REQUEST AUTO-BAUDING DURING CONFIG * OPT:FC MEANING, 1ST CHAR IS FORM CONTROL * * IF MORE THAN ONE OPTION IS TO BE SPECIFIED, THE OPTIONS ARE SEPARATED * BY PLUS (+) SIGNS. * AUTO-BAUDING IS EFFECTIVE AT THE FIRST OPEN ONLY IF DYNAMIC CON- * FIGURATION IS ALSO SPECIFIED. * * * THERE IS ALSO AN ENTRY POINT FOR DIB:TV AND DIB:LP. * THEIR CORRESPONDING FORMATS ARE: * * DIB:TV TVnn[,address],cn[,inta] * * WHERE: TVnn is the name of any device used in this DIB * (e.g. TV00, TV01...) * * address is the device address; default is :F (shifted * with channel number :C6) * * cn is the channel number for this device * * inta is the interrupt vector address specified by the * board switch; default is :C0 * * * DIB:LP LPnn[,cpl][,lpp][,LF:][,spb] * * WHERE: LPnn is the device name (e.g. LP00, LP01) * * cpl is the number of characters per line printed by *  the device plus 1 (format control); default is 81 * * lpp is the number of lines per page printed by the * device; default is 57. * * LF: specifies that the printer does not have the *  automatic line feed capability; default is * automatic line feed * * spb  watchdog timer (shifts per byte). Defines the * number of positions the byte count needs to be *  shifted in order to form the time in seconds for * watchdog timer calculations. Refer to Topic 7.2 * for details. * D:AC MACRO AC DIB:TV MACENT TY DIB:LP MACENT LP LPOOL O: SET $ TABLE: REL SHARABLE TABLE: SYSTEM NAM D:#(1) ASYNC CHANNEL DIB ENTRY POINT NAME IFT #(0,'LP') D:#(1) CHAN D:#(1,1,3) ENDC  IFF #(0,'LP') D:#(1) WORD 0 DI:PER PEER POINTER (NO PEERS) ENDC IFT #(0,'AC') EXTR AC:CNFG DYNAMIC CONFIGURATION ROUTINE ENTRY POINT EXTR AC:FIO FORMATTED I/O ROUTINE ENTRY POINT D:: SET #(2) EVALUATE OPTIONS WORD D:: ASSEMBLE FLAGWORD ENDC IFT #(0,'TY') EXTR TYEOL:,TYTOF:,TYELI: BIT:WORD DIF:NT,DIF:FC DI:FLG FLAGWORD ENDC IFT #(0,'LP') BIT:WORD DIF:FC EXTR C:#(1,1,3) ENDC IFF #(0,'LP') WORD C:#(1) ENDC IFT #(0,'LP') WORD C:#(1,1,3) ENDC WORD 0 DI:FCB FCB ADDR (NOT USED) BYTE '##(1)' DI:NAM DEVICE NAME WORD 0 WORD 0 IFF #(0,'LP') WORD 0 DI:SPB WATCHDOG SHIFTS/BYTE WORD -1 DI:WBT WATCHDOG BASE TIME (NO WATCHDOG) ENDC * IFT #(0,'AC') TRAILER OF ASYNC MUX DIB WORD -1,-1,0,-1 ALL READ, WRITE, FUNCTION ALLOWED RES 2,0 LAST TWO WORDS OF STANDARD DIB IFT D::&OPT:DC ASSEMBLE IF DYNAMIC CONFIG CALLED FOR COND AC:FIO,D::&OPT:FA REFERENCE FIO OR SPACER WORD AC:CNFG REFERENCE CONFIGURATOR ENDC IFF D::&OPT:DC ASSEMBLE IF NO CONFIGURATION COND1 AC:FIO,D::&OPT:FA REFERENCE FIO OR ASSEMBLE NOTHING ENDC ENDC IFT #(0,'TY') BIT:WORD FA:,UF: READ BIT:WORD FA:,UF:,WP: WRITE BIT:WORD 0 POSITION BIT:WORD WB F:,TF:,SC:,OP:,CL: FUNCTION RES 2,0 LAST TWO WORDS OF STANDARD DIB WORD 80 DI:CPL - CHARACTERS PER LINE WORD 0 DI:LPP - BOTTOM OF FORMS CT/LINES PER PAGE WORD :1618 DI:BMW - BRANCH MODE WORD FOR INPUT WORD :1612 DI:BMO - BRANCH MODE WORD FOR OUTPUT WORD TYEOL: DI:EOL - POINTER TO EOL SEQUENCE WORD TYTOF: DI:TOF - POINTER TO TOF SEQUENCE WORD :3B14 DI:ERM - ERROR MASK FOR STATUS WORD 0 DI:LC - LINE COUNTER WORD :08 DI:EDT - EDIT CHARACTER WORD TYELI: DI:ELI - ADDRESS OF EOL SEQUENCE ON INPUT WORD #(1)BF: DI:BUF - POINTER TO 2 WORD INTERNAL BUF WORD TYEOL: DI:PU - POINTER TO POWER UP SEQUENCE #(1)BF: RES 2,0 TWO WORD INTERNAL BUFFER ENDC IFT #(0,'LP') SPB:: SET -3 DEFAULT SHIFT COUNT IFT #(5,?) SPB:: SET #(5) ENDC WORD SPB:: DI:SPB (SHIFTS/BIT) WORD 4*8 DI:WBT WATCHDOG TIMER BASE WORD 0 NO READS BIT:WORD FA:,UF: WRITE FUNCTIONS ALLOWED WORD 0 NO POSITION FUNCTIONS ALLOWED BIT:WORD OP:,CL:,WF:,SC:,TF: ALLOWED OTHER FUNCTIONS LPP: SET 57 LINES/PAGE BOF: SET 3 BOTTOM OF FORMS COUNT (LINES) CPL: SET 81 DEFAULT LINE LENGTH IS 81 CHARS IFT #(2,?) CPL: SET #(2) ENDC IFT #(3,?) LPP: SET #(3) ENDC RES 2,0 LAST TWO WORD OF THE STANDARD DIB WORD CPL: DI:CPL - CHARACTERS PER LINE BYTE BOF:,LPP: DI:LPP - BOTTOM OF FORMS CT/LINES PER PAGE WORD 0 DI:BMW - BRANCH MODE WORD FOR INPUT WORD :1210 DI:BMO - BRANCH MODE WORD FOR OUTPUT IFT #(4,?) EXTR DPEOL: WORD DPEOL: ENDC IFF #(4,?) EXTR LPEOL: WORD LPEOL: ENDC EXTR LPTOF:,LPPUF: WORD LPTOF: WORD :3202 WORD -LPP: DI:LC - LINE COUNT WORD 0 WORD 0 WORD #(1)BF: DI:BUF - POINTER TO 2 WORD INTERNAL BUFFER WORD LPPUF: DI:PU - POINTER TO POWER UP SEQUENCE #(1)BF: RES 2,0 TWO WORD INTERNAL BUFFER ENDC ORG O: ENDM TITL ASYNCH MUX CIB MACRO * * THIS MACRO GENERATES A CIB FOR AN ASYNC MUX CHANNEL * * THE CALLING SEQUENCE IS: * * C:AC CCDD,DA,CN,IV * * WHERE 'CCDD' IS THE 4 CHAR IDENTIFIER TO FORM CIB ENTRY * POINT NAME 'C:CCDD'. * A REFERENCE TO CIB EXTENSION NAME 'CX:ACDD' WILL * BE GENERATED. * 'DA' IS THE 'DIO' STYLE DEVICE ADDRESS (4 BITS), * 'CN' IS THE CHANNEL NUMBER (0-7), AND 'IV' IS THE INTERRUPT * ADDRESS SET BY THE INTERRUPT VECTOR ADDRESS SWITCH ON THE BOARD * C:AC MACRO AC CIB:TV MACENT TY LPOOL O: SET $ TABLE: REL SHARABLE TABLE: SYSTEM NAM C:#(1) ASYNC CHANNEL CIB EXTR #(0):WRT TRANSMIT DRIVER EXTR #(0):RD RECEIVER DRIVER EXTR #(0):FUN FUNCTION DRIVER C:#(1) CHAN CIB: CI:PER PEER LINK WORD 0 CI:FLG FLAGWORD HEAD CIB: CI:MST MASTER LINK WORD D:#(1) LINK TO DIB (CI:DIB) WORD :7400 CI:PRI REQUEST PRIORITY IFT #(3,?) IF DEVICE ADDRESS AND VECTOR SPECIFIED WORD #(2)%3+#(3)%1 DEVICE ADDR WORD #(4)%-7%4+#(3)%3 CI:IV INTERRUPT VECTOR ADDR ENDC IFF #(3,?) IF NO DEVICE ADDR AND VECTOR SPEC IFT #(0,'AC') NOTE E,'NO DEVICE ADDRESS SPECIFIED FOR ASYNC MUX CIB' ENDC WORD ETIODAD:%3+#(2)%1 CI:DA DEVICE ADDRESS WORD #(2)%3+ETIODIB: CI:IV INTERRUPT VECTOR ENDC WORD 0 CI:UNI RESERVED * * SIMPLY REFER TO ALL DRIVER MAIN ENTRIES SINCE THEY ARE ALL * IN THE SAME CONTROL SECTION AND WILL ALL BE LOADED * WORD #(0):RD READ ENTRY WORD #(0):WRT WRITE ENTRY WORD 0 NO POSITION ENTRY WORD #(0):FUN FUNCTION ENTRY INT:SEQ I:EOB INTERRUPT SEQUENCE WORD 0 CI:T1 TEMP WORD 0 CI:T2 TEMP WORD 0 CI:APR REQUESTORS SAVED PRIORITY WORC D 0 CI:TIB ADDR OF TIB WORD 1 CI:USM CONTROLLER USAGE SEMA4 WORD 0 CI:TIM WATCHDOG COUNTS WORD 0 CI:CSM COMPLETION SEMA4 WORD 0 CI:CFL COMPLETION FLAG IFT #(0,'AC') WORD CX:AC#(1,3,4) CI:OPT ADDR OF OPT+SPEC CHAR TBL ENDC ORG O: ENDM TITL ASYNCH MUX CHAN OPTION TABLE MACRO * * OPTION TABLE CIB EXTENSION FOR ASYNC MUX CHANNEL * * CALLING SEQUENCE IS: * * CX:AC DD,BAUD * * WHERE 'DD' IS A TWO DIGIT STRING USED TO FORM THE CIB EXTENSION * ENTRY POINT NAME 'CX:ACDD' * 'BAUD' IS THE TERMINAL BAUD RATE * CX:AC MACRO LPOOL O: SET $ TABLE: REL SHARABLE TABLE: SYSTEM NAM CX:AC#(1) TABLE ADDR CX:AC#(1) WORD :21CD  WORD BD:#(2)%8+:3037 WORD :7F5F SPECIAL CHAR TABLE, ,_ ORG O: ENDM TITL MAGTAPE DIB MACRO * DIB MACRO * *  DIB:MT #(1) --- #(1) = MTXX, XX = UNIT # * DIB:MT MACRO LPOOL O: SET $ TABLE: REL SHARABLE TABLE: SYSTEM D:#(1) NAM D:#(1) CHAN MT: DI:PER WORD 0 DI:FLG WORD C:MT0 DI:CIB HEAD Z:#(1) DI:FCB BYTE '##(1)' DI:NAM WORD  0 DI:DN WORD 0 DI:DS WORD -4 DI:SPB WORD 3*8 DI:WBT BIT:WORD FA:,FB:,FS:,DB:,UF: DI:DSW - READ BIT:WORD FA:,FB:,FS:,DB:,WP:,UF: DI:DSW - WRITE BIT:WORD SBF:,SBR:,SKF: DI:DSW - POSITION BIT:WORD RWD:,OFL:,EBL:,EFM:,OP:,CL:,SS:,WF: DI:DSW - FUNCTION RES 2,0 RESERVED WORD 0 DI:BLKCT WORD 0 DI:SERV WORD :0230 DI:BMI WORD :0250 DI:BMO WORD :0240 DI:BMR WORD 0 DI:OWM WORD :0005 DI:TRY WORD 1 DI:VTS WORD 0 DI:MASK WORD 0 DI:FLAG WORD 0 DI:THWS ORG O: ENDM TITL MAGTAPE CIB MACRO * CIB MACRO * * CIB:MT #(1) -- DEVICE ADDRESS / CHANNEL *  #(2) -- INTERRUPT VECTOR * * CIB:MT MACRO * * DEFAULTS FOR MAGTAPE * DVICADD: SET :F0 MT DEFAULT DEVICE ADDRESS CHANNEL: SET :02 MT DEFAULT CHANNEL NUMBER INTVECT: SET :C8 MT DEFAULT INTERRUPT VECTOR LPOOL O: SET $ TABLE: REL SHARABLE TABLE: SYSTEM EXTR MT:RD,MT:WRT,MT:POS,MT:FUN C:MT0 NAM C:MT0 CHAN CIB: CI:PER WORD 0 CI:FLG HEAD CIB: CI:MST HEAD MT: CI:DIB WORD :7600 CI:PRI IFF #(1,?) WORD DVICADD:++CHANNEL: CI:DA - DEFAULT ENDC IFT #(1,?) WORD #(1) CI:DA - USER DEFINED ENDC IFF #(2,?) WORD INTVECT: CI:IV - DEFAULT ENDC IFT #(2,?) WORD #(2) CI:IV - USER DEFINED ENDC WORD 0 CI:UNI WORD MT:RD CI:RD WORD MT:WRT CI:WRT WORD MT:POS CI:POS WORD MT:FUN CI:FUN INT:SEQ I:EOB CI:EOB DOUBLE 0 CI:T1,CI:T2 WORD 0 CI:APR WORD 0 CI:TIB WORD 1 CI:USM WORD 0 CI:TIM WORD 0 CI:CSM WORD 0 CI:CFL WORD 0 CI:RAT/CI:RTY WORD 0 CI:HRD WORD -720 CI:CNT WORD -2 CI:TIC WORD 0 CI:MODE ORG O: ENDM TITL BISYNC PICO DIB MACRO * * BISYNC PICO DIB MACRO * DIB:BP MACRO  LPOOL O: SET $ TABLE: REL SHARABLE TABLE: SYSTEM D:#(1) NAM D:#(1) CHAN BP:#(1,3,3) WORD 0 WORD C:BP#(1,3,3) DI:CIB WORD 0 DI:FCB BYTE '##(1)' DI:NAM WORD 0 DI:DN WORD 0 DI:DS IFF #?>1 WORD -7  DI:SPB ENDC IFT #?>1 WORD #(2) ENDC WORD 1 DI:WBT WORDD  0 READ MASK WORD 0 WRITE MASK WORD 0 POSITION MASK WORD :1F FUNCTION MASK WORD 0 RESERVED WORD 0 RESERVED V: SET 0  IFT #?>4 V: SET #(5,?)-2%11++:8000 ENDC WORD V: DI:DVS V: SET 0  IFT #?>2 V: SET #(3)%2 IFT #?>3 V: SET V:++#(4) ENDC ENDC WORD 0 DI:OPT WORD V:%8 WORD BPO:02 WORD BPO:03 WORD BPO:04 WORD BPO:05 WORD BPO:06 WORD BPO:08 WORD BPO:08 WORD BPO:09 WORD BPO:10  WORD BPO:11 IFT #?>4 BYTE #(5) DI:SID ENDC ORG O: ENDM  TITL BISYNC PICO OPTION TABLE MACRO * * BISYNC PICO OPTION TABLE MACRO * BPO:02 SET :0016 DEFAULT SYNC CHARACTER BPO:03 SET :1610 DEFAULT DLE CHARACTER BPO:04 SET :FF1F DEFAULT PAD AND ITB CHARACTERS BPO:05  SET :1703 DEFAULT ETB AND ETX CHARACTERS BPO:06 SET :0102 DEFAULT SOH AND STX CHARACTERS BPO:08 SET  :0405 DEFAULT EOT AND ENQ CHARACTERS BPO:09 SET :1530 DEFAULT NAK AND ACK0 CHARACTERS BPO:10 SET :313B DEFAULT ACK1 AND WACK CHARACTERS BPO:11 SET :3C05 DEFAULT RVI AND TTD CHARACTERS * DBP:O MACRO  IFF #?=16 NOTE 5,'WRONG NUMBER OF PARAMETERS' ENDC BPO:02 SET #(2) BPO:03 SET #(2)%8++#(1) BPO:04 SET #(3)%8+#(4) BPO:05 SET #(5)%8+#(6) BPO:06 SET #(7)%8+#(8) BPO:08 SET #(9)%8+#(10) BPO:09 SET  #(11)%8+#(12) BPO:10 SET #(13)%8+#(14) BPO:11 SET #(15)%8+#(16) ENDM TITL BISYNC PICO CIB MACRO * * BISYNC PICO CIB MACRO * CIB:BP MACRO LPOOL O: SET $ TABLE: REL SHARABLE TABLE: SYSTEM C:#(1,1,3) NAM C:#(1,1,3) EXTR BP:FUN,BP:EOB CHAN CIB: CI:PER RES 2,0 HEAD BP:#(1,3,3) CI:DIB WORD :7600 CI:PRI WORD #(2) CI:DA WORD #(3) CI:IV  WORD 0 CI:UNI WORD 0 CI:RD WORD 0 CI:WRT WORD 0  CI:POS WORD BP:FUN CI:FUN JST R:SA12 INTERRUPT SEQUENCE COPY =$-CI:EOB-1,X JMP *$+1 WORD BP:EOB DOUBLE 0 CI:T1, CI:T2 WORD 0 CI:APR  WORD 0 CI:TIB WORD 1 CI:USM RES 3,0 RESERVED ORG  O: ENDM SAVE END NI WORD 0 CI:RD WORD 0 CI:WRT WORD 0  CI:POS WORD BP:FUN CI:FUN JST R:SA12 INTERRUPT SEQUENCE COPY =$-CI:EOB-/,# //-R# -R+R# - M0܀R0M# - M0 HJR0M# -# /.-$# /.-*# /.-0K# RR# /-9.2# # //-A.2#  # //-I .2I@*# E I@#C # //-V5# /".f/ -^M00M# -V-eN6@ 5# /"/ -o M0N50M# /"/ -{5# /".p/ -M00M# -{- N 65# /"/ - M0 N 50M# /"/ - M0 N 50M# /"/ -NO@ RA9@A8*2+# +v+++,$../'-@RNOA8# ,6,-@RA9@*A # ,,,,,,,,,,,,---A --- - A6AA6A.--$-*-0.@RA8.A6A    -V-^-e-o/'/'/'/'-{----  /'-9-A-I.1C @C @`pä@Ak p`c #  -.?-.C\-.G..K ~1A v/'.^# # N#  N # .x @IGVA # . 1Q# .i|# .CDE6A)BCDE# ..?66/66# R B# Q B# P B# .#CDEM M# CDE*MMRA R# BNO# ..!QGV++ *2F+3.a" p܀ p܀# I# *6# .h.f.A֒AN2XC N# P# O# Q# N@p# @/A֒AN2XC N# P# O# Q# r@N# @/'AIk p`5$  9C @_9#C @? P Px!@p@C @ *P z ał S 9*q254>> >{c 6~ e4yJ.1542u3t55|554/A<@ A# @HBD`pCDEF!I JAFGHDIH6 @QDCEGEI A‰ `@# 40`6F/M# BJJ B` E ``b`# D# r`@@ABCDEF` &`JHIFˤHG^FDZ HFFEFĎEJ # 48334>4 4BGDFwDHI`(j򀁄IJKLG@ @HA BF@`CED@ H6RC @I܆/#@# ``@ # CČ @䀞l646E30" 01AsA?10,qgI,B0&C1&D `@/ph@ph?ph@kphq`H@@h@`@@q`H@@ 1232441k1!1"PiSC* bĀ+u*M] # Sm vjsCk JS검@mkb `@nbG*`@ G*g'ā 3? p# !# @ A# 3M # !"Ă##0`484 3ZA# A# I?FE # 3q gG?3p2g3i24431Q[J@VQF!  + # 1)# Fjߎ @ā@"KЀĀ ]FIF H @# # F  Ď # 窧1I iQB ` 1S㜣# N K qLBE CA A@ 1&V0d/st44 !CDC!CBp c # /#qP@#I""B1F@ y@(@m/P P!U%'y# 24h0 9 ܆@?p(Āp(`@qEB`@ Op(+p(@`@qDB{y`H@ĀOp(+p( # 4h/"qI!C?#Qp c # 454'4@4y$ @0 PÞQA@pAA o0_nmqpo25![46L4 !uA qphjBCDpEF0AgcbP@[@ !䃞V 4.O%1K%&ߥ/ # ܋ /&&1„% # ܋ ?%%& # 2324UC @IC @IC @IC @II`pF!`@qC p@1 p~ !1Eā䃀*!oqC@1gIf5OI I H!ID H@Iq~4 /} ?| ?|5d5d?!1qB@1I nEE5wJO@ 1LJIq# # F 55FI5IȃȇȃȇȂwÂvàJ*+$DB$ @@Ģ$@ĪHI f)% JS `k z&‹DI 6JiIJ6]3/~0k246J # 6L # 57C @ð+`pF @6@6@6R 6D6ƨE6 !F66DXʎ`@@ Ac # 6D6 55Q6N6 $5O23/A03F3?3Z6P6Q26R6S6T6U6V6W0l226Xe!11"A!6Y6Z6[6!u$6N6P6Q6R6S6T6U6V6W6X6Y6Z6[6\5O6ⴀ@u  `0_ pP㩠!@@BK@+kU:P:B:R:`ʃ:e W OC J1OS4 (G100) 81111618162775INITIAL:: JCLYCICI0KS\W:Z# K ABORT? OC ] _OC ] c OC v xAT  >:χ: f: n: y"y X x B  ! q>B|{ñC F G E:  : hCEC @Û㕣f&!1ç1>/Njc  \ x5mF1EBE5E3--E3E1CICI0KS\W:Z# K A )* 0s{zvv1Ax @ Qhzz1d d  d1Q @ 1Mzz1GĂx z{# )z|I1dy@Ĉ|@M1Y G 0XQCK0NqG@ yyĂ v# Iw@s01234)0#/f{zv 1vysG͠yk yyq`H%'@hyT =@ *@ ֶVĈ@6 VJĄ{z# HwvB9# -1TvBB` QBHEFG# 00-0[z{v1| @v @̀6 ɠvQZ @||6G6A@ 6A@Ĉ@6||ćvQG @8(EX|XXdb1C|QĀjjQI @XjQj{z# )*$?z{1J wāz{ # { # ww@g@# )Ov1C1ʠu%'+ )u#  0rr1KqlmrPQlmqs# 00R HOQCҞOnKńpIJȄNǞpn, SIJIQ2ppS/Im . EndKJMcJx)  , + - * /1o1O1S1%%11v)j11111%1111"YJK !I I Qn3M4HHH5 I@ȠH+3C͞*2ڂHH+.aLi'NiLNLNt tO# QG6EH Hy# ' + -## #  9 0 p܀# # I @ J # BH#  N # N# IQP# QP# ML# ML# !!\""!1/# # DJJLMI*y# DJJQ @IJLMI !+z# 2Z22p"2q_BLMJ1ALMJ !I1K2F !IIILM* N 5I*G  JJA# K N G ΄N KMN G KG G# LKLMQML KZ# G NIG NN# !eRy JLMIPQ# QE .i|# N#  N # Q\*l6GV++ c*2F+3.a"JHJ I# ""mF1EBE5E3--E3E1\!1/# # DJJLMI*y# DJJQ @IJLMI !+z# 2Z22p"2q_BLMJ1ALMJ !I1K2F !IIILM* N 5I*G  JJA# K N G ΄N KMN G KGOVicEdDanoԾ ~֞8O]&Ea3x_|l*| }~gҡ# A `Q T ( :ӂ< - :ӂ" )   pP0 @0B բ` h  } c= ¢‚pP0/o X)C $ `)C ")PC ")C " `m D E B U G 4 E 8 0 0 ӟe } O  -% ӂzӾ P AC Q@ X= Y:ԽѾ K3 L0 S- D* C'ԟK =ӟ{ } ӟ| @)C ")PC ")C " `r" *ٽ҆ Y Q A Gҽ؆ R Ƥ D V Wƚ›LBLCLFLLLSLJLILGLRLZߝ Ǟ< !}҆{҆u łt P Lłj T P BŁ P ӂY T H TŅ Ğ|QEF , , `솂՟ _ٞ0 6} ` J B YK QJf䞁ւ cޡ @ޟH ޝ `@E ;߽RA@EN@Aޏǎ Qފ ,^:FB& o*| x` D `랞oY*Qd Ѐ_Ѐ āZ@AĄ܃T B `ǁ D임*L_U3 `Ģ1*/) 'r "Bƽу۽ֽˁC凑ā  / XŃ ѽ۞i Ğ]с䆫@ڃ۽ցBǢ ,ž[ + - * X /KJƎ^[{ xނZ  ,ş| ֽL ΁ P ޽с۽۽޺{ ӽўq kɆȂGާ}ަyޠ}y E ~  .Ӄ E ~  .ޣރfN ,Žֆs@FC kqLL (w{u ^|JQBZy L S TўNM  Isľˆ_]]| IƎ> ,ŽƇ ,ƂpIưk , ,Htr Hm -ņց -ņ('\\ÂF -tтڃԞx ’@"Fz@ Ό F ō l#䆠.bƝޙޖJQ!’ފދJQĽ %ӂԞu U B * ӂGo h fe "cIaM K Y&V&RR `QKL$kK N =ӂDD GӂA   :Ӟ ӟL ӟ{ y9u    :ӂw @0ƵQ¾ˢ̂C C 96C C " z a ࢜0 `a ´C /6 C C 6 C C 6C h Q¾{”C "C C I6 b: b•SA)TIO)T ğSISAZ2 M  En C @Q1c C @+ .+% D B E+'. +'. О+'. ɞ'c Ģ̠€)Ty Dp ĞV cbW)օ5kT D%kljkij .i'jLvXhQPڂ  EŽMh +YI sIRAKDTg"v„UrrnpULl fFe ͢bbhL(# V QPuIN b•SL=Iu @<>XPQL# 4Z3SOW`"  # @P`pjP`jA`#I5eD¹gAµc]I_)TI[)GIWISp H)( buihQA ukT C DEEj# EDIT (F300) \Z1Z2OCCILO  /KAh +te MA )5hZ 8 \`"JF K K1IELD CE D CMNyJFQ)K%}'+JJU JJJ`"Q DJ@#R%'+DICID)KJID`## C @`PɄV8-3A#  Y i [ w T T k>)`pDc #  p)s)? )l)T S 00` Ğ LM  "0MV)A)F^g  D.. D..( > > > <FXR> C @)LL1K`PNyQI b+ `pDc # ^ O(C @ 5c QDHPOU@`Kg1(H G@ 0Fg1 F4`pDc # 'd C D)QHF444 „V/c # )1< z z a _#  B C @_ )n1;c # {C @RS 6@t%) @@hV€@h 664C @`pKnc 44VB^K\C @`pK_A6Ac 64lM'`pEn6ހR %@ VJ`HV€BA`HK`HV€`H 䞂'tGRNVKS`pFc # C @Ijy p 6C1A ,jj1 B $ C = E #  yGTy]jQ) j)DHP1BHPN1Ȅjy ,)jy`pBCDc # C @6 k")%QC@ 4' pq@Q܆c # C @I% @'D)1Tc # } Pr B 2F[dt3 *** DEVICE ERROR *** *** EDIT BUFFER FULL *** *** END OF FILE *** *** LINE # ERROR *** *** SYNTAX ERROR *** *** BUFFER CAPACITY ERROR *** *** BANK BUFFER EMPTY *** *** INVALID IN EDIT MODE *** *** INVALID IN CREATE MODE *** 123456789.123456789.123456789.123456789.123456789.123456789.123456789.12 BYTES AVAILABLE INPUT BUFFER LIMIT REACHED REQUESTED LINE # REACHED  END OF FILE REACHED EDIT BUFFER EMPTY END OF DATA CURRENT GLOBAL OPTIONS = THESE ARE NOT VALID DELIMITERS:  THESE ARE VALID ALPHANUMERIC DELIMITERS: LINE TRUNCATED TO 132 CHARACTERS LINE OVERFLOW ***ABORTED*** CHANGES MADE - DO YOU WANT TO ABORT? IF YES TYPE K NO CHANGE - DO YOU WANT TO TERMINATE? IF YES TYPE T ABNORMAL EXIT C @OC @YPI&I`pDc # C @ @_) 1@@-*# apo)@`pBDc # C A C @ [\ C @1L_:]8 1D].y 1V VC @`pEn6c c 1E[,*[\[*VE\+. A b`pC)`pDc # KC @D@z`pDc # C @P@*`pDFc # C @ D@ *@ { pĄc #  B'C @n )6]GP@*In 6AI)1РHG1D)1ʞ @ =`1ў))`pDc # 7+{C @C ArJFNrN@ AJJVDrPP1R4N VFNPÀJ"P1D*5c # C @`pLRZA@h@h5c # C @P@#Q€h kc # C @g)G%'`pE+F@@6 @}K1ɠn 6Ơn 6 IJg1R;F GG)`pDc # FG%+ |'*`pFF # C @pk@"@*{c # C @O@D9@Yc # C @ C[\%QD@|+I+'`pEC[C @I[\%qC*|2Bc # )c #  B{cEC @SRA*.% A+ @'`pER w Z)3A`pB EZ3A`pEn@?6T@6RärRSuC @uQ`p Bc Z3ޞ@LnRZ %'+. 6+ H@A`pEu@rS wc # `pE wc # q,RZ%@hD@hC'c # uQC @Z% C+'`pDc # C @`pLun@6A@Ln@6`pCc # # C @*%'6`pBC%'@6B~6A `pBDE*%'c # % `H `HE ,4'# ')(# C @rN@HJ F @*&  Hr#yJ CN(+jj@*y@ N FJ FtJqyj p܆c # c )# {mF1EBE5E3--E3E1 @'`pER w Z)3A`pB EZ3A`pEn@?6T@6RärRSuC @uQ`p Bc Z3ޞ@LnRZ %'+. 6+ H@A`pEu@rS wc # `pE wc # q,RZ%@hD@hC'c # uQC @Z% C+'`pDc # C @`pLun@6A@Ln@6`pCc # # C @*%'6`pBC%'@6B~6A `pBDE*%'c # % L OVicEdDano2AORG RORG ADATA RDATA RES END 'AEND  REND "SITfCIb CNʃ=ǧŇƃƇ:*t 0:L ':L :L !:L  :L  #:L ':L :PIJ*, -L.O9fgTVUW g:Z)]nT) k # J ! u E)ߛ<Cy@yX%'# d]YphQGYX o#   :NI @%'KM(w 1:L 1:Lm&***** PATCHED YYMMDDHHMMSSQQ ***** 2%'߇# OEIJP< @yXl@j# fǰ,+,-,*,/ # XˢTC@N GHӒ SA Gnj[ # EÈQA Æ# K:?= 6:L/#  ~@I%C B'`(%C @'` Kof akA [Z ~+: vuOCli  ":L ;@X?VTWUO'0 PATCH (E600)  INVALID HEX VALUE INVALID FILE NAME FILE NOT FOUND  INVALID COMMANDmE7E4E5E3--E2E0f%'߇# OEIJP< @yXl@j# fǰ,+,-,*,/ # XˢTC@N GHӒ SA Gnj[ # EÈQA Æ# K THIS IS THE "INITIAL::.JCL" FILE ON UTILITIES DISKETTE #1. USE EDIT TO CREATE ANY INITIAL MESSAGES YOU DESIRE. THIS FILE IS PRINTED WHENEVER A SOFTWARE OR HARDWARE AUTOLOAD IS DONE. REMEMBER TO SET DATE (DA) AND TIME (TI)! 811021131209811021131209811021131209IIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIII