IMD 1.16: 2/09/2008 13:09:36 84-93709-00 a0 palasm : release pal assembler software 12/17/79    @0|)v1uo)  " }jA cOMEGA4MOM790111120000OM790111120000OM790111120000PALASM:RELEASE:A0     -M@jjggg@ o G`k_C# b# }B u[ ]e JRiCp@=<; G9P@ Gnrgy w"I {MqD}H.`,tC) >d $:98y675+1OS:: SYSe& OM790111120000OM790111120000OM810305163420e @OM790111120000OM790111120000OM810305163133e%OM790111120000OM790111120000OM790111120000eOM790111120000OM790111120000OM790111120000eOM790111120000OM790111120000OM790111120000e(N[7912181453052579121814532225810305163206deyOj7912181453297579121814540175810305163242d e(7912181454102579121814541350810305163249d e+7912181454202579121814542200810305163254d e?}~7912181454290079121814545500810305163325d e,^7912181455025079121814550425810305163331d e-7912181455107579121814551375810305163337d e5i7912181455222579121814554475810305163404de (>7912181455530079121814560375810305163419d  . PALASM FTNPALASM OBJPUT ASM PUT OBJ PALASM BIN PROCESS JCL OBJECT  OS:: SYSEXEC:: SYS  TITL SINGLE BYTE IO ROUTINE *** * PUT - THIS SUBROUTINE IS A FORTRAN CALLABLE SINGLE BYTE I/O * SUBROUTINE. CALLING SEQUENCE IS * CALL PUT(IVALUE) * THIS WILL OUTPUT THE LOWER BYTE OF IVALUE TO LOGICAL UNIT * X4 . * THE UNIT IS OPENED AND CLOSED BY THE CALLS 'OPUT', AND 'CPUT'. * *** NAM PUT NAM OPUT NAM CPUT EXTR F:RGMY PUT REL * * PUT OUT A DATA BYTE * PUT EQU $ JSK F:RGMY WORD 1 COPY *IVAL(Y),A GET VALUE COPY A,BUF PUT INTO LOCAL BUFFER I:IO IOB DO THE WRITE JSK ERR1 IF WRITE ERRORS COPY 0(Y),Y RSK * * OPEN FILE * OPUT I:IO OPNIOB OPEN THE FILE JSK ERR1 ERROR HANDLER COPY =0,A COPY A,CFI CLEAR CFI COPY A,CFI+1 I:IO REWIOB REWIND FILE JSK ERR1 ERROR HANDLER RSK RETURN TO FORTRAN * * CLOSE FILE * CPUT I:IO CLOIOB CLOSE THE FILE JSK ERR1 ERROR HANDLER RSK RETURN TO FORTRAN * * ERROR HANDLER. * ERR1 COPY IOB+IO:ST,A GET STATUS SELP A,:4 PUT ON CDR ERR2 I:IO MSG OUTPUT MSG TO CRT JMP ERR2 RSK * IOB:A IOB,'X4',WR:,FB:,1,BUF,CFI,SB: IOB:A OPNIOB,'X4',FU:,OP:,0,0,CFI IOB:A REWIOB,'X4',PO:,WAB:,0,0,CFI IOB:A CLOIOB,'X4',FU:,CL:,0,0,CFI BUF RES 1 CFI RES 2,0 * IOB:A MSG,'X2',WR:,FA:,MSGLN,MSGLOC,0 MSGLOC BYTE ' ERROR IN ''PUT'' ROUTINE (IOS4 STATUS IN CDR)' MSGLN EQU $-MSGLOC*2 * PUT::::: REL RES 7,0 IVAL EQU 7 RES 1,0 END OR HANDLER RSK RETURN TO FORTRAN * * ERROR HANDLER. * ERR1 COPY IOB+IO:ST,A GET STATUS SELP A,:4 PUT ON CDR EJCPUT OPUT PUT O0SEGMENTBLANK PUT OPUT:::::o bKF:RGMY iigG:@# g:% :-# g:5# :@}# X4>=X4>0X4>"X4>1>X2,H ERROR IN 'PUT' ROUT INE (IOS4 STATUS IN CDR)tiOM790111120000OM790111120000OM790111120000PAUSE : IS UNIT 5 ASSIGNED TO THE INPUT? AS UF=SF AS 1=TV AS 2=TV AS 4=OBJECT AS 6=LP PALASM OM790111120000OM790111120000OM790111120000p@ p @ `p`@`` p@@ `p  ppp`pPp@@@@@@@@@@@@@@@@@@@@@@@@`pp Ppp P@p`p@ppp@pppppp`pppppp@0pp0`@p@0p@pppppp PpppppppPP@PPP@P@PP@PPPPPPPPPPPPPPPPP@PP@P@@PP@P@@P@PPP@PPP@PPPPPPPP@PP@P@P@P@P@PPP@PP@PP@@PPPPP`pp Ppp P@p`p@ppp@pppppp`pppppp@0pp0`@p@0p@pppppp PpppppppPP@PPP@P@PP@PPPPPPPPPPPPPPPPP@PP@P@@PP@P@@P@PPP@PPP@PPPPPPPP@PP@P@P@P@P@PPP@PP@PP@@PPPPP                JF:MAIN O0SEGMENTOFORTRA OF:FORT::OBLANK: OINITLZ::OGETSYM::OMATCH:::OINCR::::OIXLATE::OPLOT::::OFIXSYM::OTWEEK:::OHEX:::::OBHLF::::OTCOUT:::ooo ooooooooooooKF:XRDA KF:XFDA KF:RWEF KF:RETF KF:RREF KF:RIOL KF:RIUS KINITLZ KGETSYM KMATCH KINCR KIXLATE KPLOT KFIXSYM KTWEEK KHEX KBHLF KTCOUT KF:RSTO KF:RFZ KF:RSTU itddd3dGd[ddd d ;d ctdddddd d d d d ddddddddiF:MAIN hgi4   ihi#ih  (' PAL ASSEMBLER (DALLAS)......VERSION 1.0'/) r  $b %b &bbbbb(3X ,I2,A1,I1,T1,40A2/40A2/80A1/80A1) g h i j - 'bb (bb )bb *bb-(2(1X,I3,'.  ',40A2/),2(1X,I3,'.  ',80A1/)) Q$%&+4#)hR4(#,h+  RH #,\4intlqtstx{~tS- mm m! n  d(t <\PcT#\]  6)ono pqRH #,lS- m q q)gpg6t777t58'g+  .RA rm)ECIm)HFO rKQNBQU-+rsp'!^_#_t *u`,tab c]d ghit fjVH 40\^uWH #140tY^`a_Tc#\8H`\o+  ER H #,]\chkX+%4VH 40\ DD(' HEX, BNPF, OR OBJECT FORMAT (H,B,O)?')  Y 'bY(1A1) ggRt gKHgY4gZ4gkt vt [4 \\(/'0*END OF ASSEMBLY*')  H  B O 8'[' ttttttttt    s      hJINITLZ O0SEGMENTOFORTRA OINITLZ::OINCR::::ooGooKF:XRDA KF:XFDA KINCR itddd tdiINITLZ giL R X A iKF:RGMY K NL OGGOG@ JG I  J  G I  J"(%(G HR J*0-0HSHUHT2F95C9 J8;Q  @#  CG/DEt<FtJGETSYM O0SEGMENTOFORTRA OGETSYM::OBLANK: OINCR::::oovoooKF:XRDA KF:XFDA KINCR itddd dtddddddddiGETSYM gKF:RGMY G MJ NH Oi i LRSTUVQ  RH#W IIQ  )0)ZIZ'YZ+  )ZIZ'+[[*Z+  I '\K\+"YXZQ  RXSTVUPkmimgmemamcm@# YoL@# 4'=sA'0sP'!sttu+u[utJINCR O0SEGMENTOFORTRA OINCR::::OBLANK: oo~ooKF:XRDA KF:XFDA KF:RREF KF:RIUS KF:RETF KF:RWEF KF:RIOL KF:RFZ itddtdddddddiINCR gKF:RGMY G Ii ( * + / = ) : iii KHH H $G(80A1)*  bG(' ',I3,'.  ',80A1)5Z77HRK:=HRY@CDHSGJ IKLHTOR QSMHUWZ Y[NHV_b acOHWgj ikPHXor  qsQ$tt@# vO'w2wPxt"yt(z3zt){4{t+|t0}tJMATCH O0SEGMENTOFORTRA OMATCH:::oo7oKF:XRDA KF:XFDA itdddtiMATCH gKF:RGMY H JI K G)MN)OMO'PO+PN# B# "$NO+  NMG+B.M+  @# '56tJIXLATE O0SEGMENTOFORTRA OIXLATE::oooKF:XRDA KF:XFDA itddtiIXLATE gKF:RGMY i                 iHG'K@# 'tJFIXSYM O0SEGMENTOFORTRA OFIXSYM::OINCR::::OPLOT::::ooozooKF:XRDA KF:XFDA KINCR KPLOT itdddddd)d,tddiFIXSYM gKF:RGMY G NL OH PI QiA B / + * N Q 0 1 2 3  ) i2/ A + / B , A + / B    / B  / A + B    / A   A Q B / A * / B   A + B   A N B     A  A * / B     B  / A * B   A * B i d)eb+e+  U  Jece^ d,/e_ d14e` d69ea d;>)f+ f+f+  e)WeXeYeZe[e\e]]CaZFaWIaTLaNRaQOaa)e+){edfe+  J)-er g)fh)efe''xte'xhB he+  hfgBf+   t`gK K)eMe'e+   O)eg dexMAxy 'yg g gggge+  )vV  )U8  @# |'l'@ tJPLOT O0SEGMENTOFORTRA OPLOT::::oo o_KF:XRDA KF:XFDA KF:RWEF KF:RIUS KF:RETF itdddd dddtiPLOT gKF:RGMY H MK OG QI Ri * + / X - i^                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                   i&LJ+@T@# ,B/)ZJ'+@'^'^*Z+  WJ1G)[J+@T@# MBP[+T)ZJ'+@'^'^*'cbdZ+  [+JTZo[+  J+@T@# xB{)ZJ'+@'^'^*Z+  UJ@# c tK(1H1,80A1,//) )\)]\] JTJ)[J+@T)ZJ'+@'^'^*Z+  EmTJ{[+  )[XJ['Y[C[J'[+ [+     b (8(' ',4A1),' ',32A1) ]+   (1X)\+  @# P4'X'~''M'$”@'. tttJHEX O0SEGMENTOFORTRA OHEX:::::ooo5KF:XRDA KF:XFDA KF:RWEF KF:RETF KF:RIOL KF:RIUS KF:RFZ itdddtiHEX !gKF:RGMY G H ('1HEX FORMAT',//)+ K)LL M)N)O PNMAOqqP?BB NMAOrr PPJCN NMAOss PPVCZ NMAOtt PPbCfPO+     b b KK   bN+  L+    (' ',32(Z1,' '))(' :',Z3,4X,32(Z1,' ')) @# všŽ !t'n}t*xtstwtJTWEEK O0SEGMENTOFORTRA OTWEEK:::oooKF:XRDA KF:XFDA itddtiTWEEK gKF:RGMY I Ji L C i G )N '+PP+P+P+G"%N '+ QQ+Q+ Q+ G8;N '+RR+R+R+#L$L9L:LN+   Q QG )O)NO'HL]B` _aPPHMNO'HLmBp oqQQfNuN+  G})t P SpNO'HLB RRHMNO'HL!D SSPN+  Gq)N7{O'HLB TTHMNO'HLB UUNN+  |~O+  @# s'''='Y'i'x'Z'I',' UJBHLF O0SEGMENTOFORTRA OBHLF::::ooo9KF:XRDA KF:XFDA KF:RWEF KF:RETF KF:RIOL KF:RIUS KF:RFZ itdddtiBHLF 'gKF:RGMY G Hi N P i, ('1BNPF FORMAT',//) 1 M)NN O)P)Q)RQR S 'K+tt+t+t+POASuuLt+YD^ POASvvR 'L+fGn POASwwR 'L+vG~ POASxxR 'L+GR+    b b MM  't-t0t} bwQ+  P+  N+   (' ',8('B',4A1,'F ')) (' :',Z3,4X,8('B',4A1,'F '))@# £“ C'|i'Vy'F'6tt=;94JTCOUT O0SEGMENTOFORTRA OTCOUT:::OOPUT::::OPUT:::::OCPUT::::ooo=oooKF:XRDA KF:XFDA KF:RWEF KF:RETF KOPUT KPUT KF:RIOL KF:RIUS KCPUT KF:RFZ itdddd5tdddiTCOUT ,gKF:RGMY G Hi6i1 ('1OBJECT FORMAT',//) 6L)OPMO+   (' ADDR',T8,'+:0',T31,'+:10') L Q)OO R)S)T USRATyyU`Bc SRATzz UUkCo SRAT{{ UUwC{ SRAT|| UUCUT1UM UMT+    b b,t 2Ht5Kt7t}('0:',Z3,4X,2(4(4Z1,1X),4X)) QQS+  O+   >tN@# ›  tttT+    b b,t 2Ht5Kt7t}('0:',Z3,4X,2(4(4Z1,1X),4X)) QQS+  O+   >tN@# O0SEGMENTFORTRA F:FORT::BLANK: INITLZ::GETSYM::MATCH:::INCR::::IXLATE::PLOT::::FIXSYM::TWEEK:::HEX:::::BHLF::::TCOUT:::OPUT::::PUT:::::CPUT::::BLANK PUT F:LIBR F:LIBR::DATA oE _z59=bCF:MAIN hhh  (' PAL ASSEMBLER (DALLAS)......VERSION 1.0'/) r  $b %b &bbbbb(3X,I2,A1,I1,T1,40A2/40A2/80A1/80A1) g h i j - 'bb (bb )bb *bb-(2(1X,I3,'. ',40A2/),2(1X,I3,'. ',80A1/)) (Q$%&+4#)hR4(#,h+ RH #,\4in .lqqs"x{~ S- mm m! n  d( <\P cT#\]  6()ono pqRH #,lS- m q q)gpg6777Y58 'Ǡg+ .RA rm)ECIm)HFO rKQNBQ U-+rsp'!^_#_M*u`,tab c]d Ǟghifj VH 40\^u WH #140tY^`a _Tc#\8H`\o+ ER H #,]\chkX+%4 VH 40\ DD(' HEX, BNPF, OR OBJECT FORMAT (H,B,O)?')  Y 'bY(1A1) ggRgKHgY4gZ4gkv[4 \\ (/'0*END OF ASSEMBLY*')  H B O 8'[' $.q"-'    s      INITLZ  K ߄NL OGGOG@ J&&G I  J(.+.G I  J0636G HR J8>;> HSHUHT@FGCCG JFIQ @# Q!G/RS(1JTUGETSYM Y G MJ NH Od LRSTUVmpkpgpipQ RoHx W I͡IQ ~))ZIZ'YϠZ+ )ZIZ'+Ϥ[[*ϠZ+ I '\KΠ\+ϞwQ RXSTVUP@# L@# '='0'!Y(1qINCR G I KHH   H $G(80A1)  bG (' ',I3,'. ',80A1)ZHɌRKHɌRɌY HɌS LHɌT MHɌU"% $&NHɌV*- ,.OHɌW25 46PHɌX:= <>Q??@# AOBBPC(1D"EEFFqG.HIMATCH MH JI K G)MN)OMO'PO+ʠPNgliBl km NO+ NMGtBwM+ @# _'~M(1IXLATE HG'ɄK@# '(1FIXSYM G NL ߄OH PI Q d)eb+Рe+ U Jфece^ de_ de` dea d#)f+ Рf+Рf+ e)ЌWeXeYeZe[e\e]CFILRO)e+{ Ҡe+ J)Ҟ- g)fh)efe''x(1 e'xhB  he+ hfg$B'f+ ,-+.gK K)eMe'Ϡe+ 2OB)eg dexMAxy 'yFUg g gW[ ggge+ )Ξ0vgfh V )grU8 @#  'lz9'@{ i|q}}~PLOT H MK OG QI ߄R LJ+@ЌT@# B)ZJ'+@'^'^*РZ+ WJ )[J+@ЌT@# B[+͌T)ZJ'+@'^'^*О Z+ [+͡JZ [+ J+@ЌT@# B)ZJ'+@'^'^*РZ+ UJ@#  (1K(1H1,80A1,//) #)\)]\] JTJ)[J+@ЌT)ZJ'+@'^'^*РZ+  @@ @%@?ATJ{-F[+ )[XΡJ['Y[TCX[J'Р[+ Π[+   b (8(' ',4A1),' ',32A1) n]+  (1X)x\+ @# P'''1'MZ'$k”@Q'. ft.lmwqr|HEX G ߄H  ('1HEX FORMAT',//) K)LL M)N)O PNMAOqqPB NMAOrr PPC NMAOss PPC NMAOtt PPC PO+   b b KK  bN+ L+ (' ',32(Z1,' '))!  (' :',Z3,4X,32(Z1,' ')) @# š Ž (1. q  TWEEK $I ߄J)G+.)N '+ʤPP+ʠP+ʠP+ʁGBEN '+ ʤQQ+ʠQ+ ʠQ+ GX[N '+ʤRR+ʠR+ʠR+ClDlYlZlN+ ,q-qG )O)NO'HL}B PPʁHMNO'HLB QQN N+ G)$(1*p sp NO'HLB RRʁHMNO'HLAD SSP N+ Gq)NWO'HLB  TTʁHMNO'HLB UUNN+ O+ @# 1'G']'y''x'Z'I',' uBHLF -G ߄H2    ('1BNPF FORMAT',//) 7 M)NN O)P)Q)RQR S 'K+ɤtt+ɠt+ɠt+ɀPOASuuLt+_Dd POASvvR 'L+lGt POASwwR 'L+|G POASxxR 'L+GR+   b b MM -(13.6q} bwQ+ P+ N+  (' ',8('B',4A1,'F ')) (' :',Z3,4X,8('B',4A1,'F '))@# £“ I'|o'V'F'6CA?:TCOUT G ߄H  ('1OBJECT FORMAT',//) L)OʄPMO+  (' ADDR',T8,'+:0',T31,'+:10')  Q)OO R)S)T USRATyyU2B5 SRATzz UU=CA SRAT{{ UUICM SRAT|| UUUCYUT1UM UMT+   b b{(1||p|.}}q ~z}('0:',Z3,4X,2(4(4Z1,1X),4X)) QQS+ O+ ߞ_fN@# x› n uyg'@A/!h"AGĂ))( AGĂ)-(  K1C,KE!Q bQTaRE6!! I(AĒGMĂ" (  AĒGOĂ( E!Q!+ I(EEJCE@6F@E  PI(+I)I)I )I)I)I)NI)@MNOƀFMFLy I(I)I)I)I)I[I)NOI( *@Ab +  SLW !I(@ALF# F# A` # Z[\N*Ƅ2 E6GJР` ,`k ,J ,z`^ I# ^` k# ^d ^k# }(WX@QC*WyW !m# !FoJol# ^__^# ^ab`# ^`Ea^B ^# ^d ^# QRQ# @ dQ`H%'`H# # @ dQ`H%'`H# !W,VV# `JQ ^# ,,d# w$Q# _RdE6K6IRWQ+W|# E/6w .!K # ) *3=# GGGΞGGמGG+HX'T/AZILFEGD)(P-*$,"!]WB~ ""g"###v$jREAD INTERNAL FORMATTED WRITE INTERNAL FORMATTEDREAD EXTERNAL FORMATTED WRITE EXTERNAL FORMATTEDATTEMPT TO WRITE LONG RECORDILLEGAL INTEGER IN FORMAT ILLEGAL REPEAT COUNT IN FORMAT%UNMATCHED RIGHT YPARENTHESES IN FORMAT %TOO MANY NESTED PARENTHESES IN FORMAT ILLEGAL CHARACTER IN FORMAT HOLLERITH INPUT "g X O #E6 Y''X  0 кAYGYr 0 , #G YJBXG+Y#2 YCXY` ^cQI@AT#9 0' TyTS5XC -'^ aŸ''  O E6 XY  , T FuY  ,Ϟy` ^)TY)F '' E6bW # , 0 ЄS   I SÀS\\WgN#S*Ӆ2<  NWb^^  0 Ww  YX1AF  SYG%YQIS# G'+  , YZ[\# Y /1TYZ/1YZ[/1Z[\/1[\T# INPUT OVERFLOWNUMERIC/LOGICAL #v$ E6ǀO ǟ$  E@ @ @E'G=&%WcD %'=G& pc^Y\b bcpD# %WcD%p($ `K`bKb ''%W$$E6ҀO   I I'9ă E ||%YpcRAID)$E6d}cD%Q(pYQAe$ ''$E6M$E6F}%Y$O  I I'9ăE }eE&B %O %+FYZO ̀[\GNOY@[NGZ OL v@RgSXQdGQᎴ'@AT'JSCITTIJN0C /TR3XQS@ @I G53G+ X' Q'@ FO) Ɵ  O # G矀+eREcRcDcJRn@ADe%YDpepe(  EE@6 D pÄp - + p '̈́p 0 p 0 ' 'SA VU DUQÌVFV  W`WDVUX1A ^aX1C - WQFJW 0 xS% S S:USD W . SFS 0 % Wt # Y/.IY 0 '>&&mv TF )1f*ٞ| T\[./I\/Z/Y[/Y/iZ TaTXYG5+ XYZ[\# %Ype%yE}E)XpvYAXZ[\{O  ) ) vGG @IG*( Y@ ZNN[\/A. \/I[/. [/YZ/. Z/iY/i. . Y v p# E6(W'SvD vX SW{ 0H NSDS SW{# Dq Yg'GA&pqpY Z[\ vp3D !&zv U v&U|'A&qp# P ]' vYT  &sF .+',l Wv&W{# 0r ''!Xspk .c trppk ,k , v&[ 'R T)6ˁԈ*376Yv# )   +,w# )*1Y# *2)+p"pv#v'T Y'YZ./'Z[./'[\./'\)/'])5Y6M)*39v vp# *2)+v "vp#pYZ[\]W 'ET \\[[ZZYY# T \[ZY' . # INTEGER INPUT OVERFLOWNUMERIC/LOGICAL REAL INPUT OVERFLOW }q 5= ') - +Ǟ # €E?6  *|EO6  $# a^^ ^E@O6Ča $E?6ɀa^F W *W| a^`W ? W{  ^ ^#   |# k ^ ^# ' STOPPAUSE Gw/B+ @# ñ@QCG+#AĂ` pJC'WIĀŸāĂă@  j G 0%' *QGW +6  # 1W (1)`pAAAąJă@@` @QWD+F CEE ESA@N6FEFDpE p# G+ NUMBER OF ARGUMENTS (g`pB BB BBBB` SA@NSAG# G` +NUMBER OF ARoGUMENTS `p@@AąJă` +F CEE )N6ǡEESA@N6FFDmE p# `pAAAJă` IE# pGEF CGG GGSA@N6EFG p# DA*` p*C)B@+# DGQAGVHQ힆mDLIQG')HVQM@QHN 6+ B+t@ K'`I C *JS:V'])1GW+- pĀ@# STATUS $ = :XXXX, IO# # F.zFF.zF# O0  0/x# )H0 END OF FILE  I/O HALTED NOT READY  WRITE PROTECT TIME OUT POWER FAILDDT NOT AVAILABLE VOLUME NOT ON UNITVOLUME NOT FOUND LOGICAL UNIT NOT RELEASED A BAD CHECK SUM BUNASSIGNED DEVICE CLUN NOT IN UATDREACHED END OF MEDIAEHARDWAREF!ILLEGAL OPERATION FOR THIS DEVICE GNON-EXISTANT MEMORY ADDRESS HMEMORY ADDRESS IN SYSTEM AREA IDIRECTORY FULLJDISK NOT LABELEDKFILE ADDRESS OVERFLOW L ILLEGAL AUM AU NOT FOUNDNWRITE DIRECT HIT END OF FILEONOT EXTENDABLEPILLEGAL FILE ADDRESSQALLOCATION TABLE FOULED UPRSYSTEM USAGE ONLY S FCB CHAIN BAD T FILE OPEN U FILE NOT OPEN VOLD OR NEW WRONGVILLEGAL FILE POINTERWUNIT NOT GIVENXUNASSIGNED FCBYBUFFER HAS WRITE PENDINGZNO MORE FREE SPACE[ BAD TYPE CODE \ABORT RTX ACCESSFORMATINVALID TRAILING COUNTUNABLE TO BACKSPACE PAST EOFTOO MANY UNITSREAD AFTER WRITECANNOT BACKSPACE NEW UNIT FILE ALREADY OPEN INVALID FILE NAME FILE NOT FOUNDINVALID LEADING COUNT NON-EXISTANT UNIT FILE ALREADY EXISTS .CANNOT DELETE PHYSICAL UNIT LOGICAL UNIT (UF) NOT ASSIGNEDILLEGAL INPUT CHARACTER +A,h,\: A` ED @E , DAE@6CE@/6@E6Ǡ@@  @FtFt@# ,26FFE/-E6B Gl/8Bz@ ̂B O0ߞ  0BwE?6GPF AG, ,9>' C# '>BB|# H%'H# J%'JC# )6  #  ERROR AT : LINE  CALLED FROM : IN SL ,\ @B` {C,h` yNzO$ ` -O+Nq M# /Y 逆 LCK/ށCB0u/0;/ЁCB0~/DǁC0\B0u@# /Y A L/ @GĄC0\JB0{JC0/GQٞ/Q0;CB0XĄ/,ˁC0\B0{ /f00aI/`ФL  K//K/D@# 0aI/`ͤL /ĄK/,/f0a LR$TCJL0WRB0{L0WH@KKĄB0u@# 0aLR$TLJ KC0/̄QA // @# 0a0EŸ--IDED  EHEGE   FBF LI 'J+R` yz+KS@# @/N J G G'0@-ć# @Ĉ\J G G'0@,ć# 0a0I)/sJ0I*/s@@KQL@<ć@#  @6   @6   @o6 @<@?6 @_6À?6I 6 # 00e 0 IЂG' G!AKĈ@ć HĀ# /Q G 0{ˀKŀ< K# 0/ G 0uK# G 0xK# /6-0 I I# @/6Ÿ0# /6 ,0# zyGIHSDIIH@QM+GuHLI0* ERG$T# IG'  0GLG& +G{L/60G&G' = # K0\EK# @SBBI# ` A# L 1BL@M@Lć# WIWIWIWIÝQYΘQքPL1AQ1AQ1CRLRP# SLOC1WLGGQ GWI WIWII'I!I#I I"I0I1U@O6BUVY?  sU@ DJQB # LG IG' +G{LL k# /*DEOLNEDICOUN ?1W1YF.2s.Darp5n,()-*'+& S/1Y 92sr@L R X A E1YU  JMC2sr()*,-+'] s1Y x2s'()*+,- ( * + / = ) : b1YI`a2s1Y2s  `          q1Y  v[ox2sr A B / + * N Q 0 1 2 3 ) F/ A + / B , A + / B / B / A + B / A A Q B / A * / B A + B A N B  A A * / B B / A * B A * B 1Y~ ..2s% * + / X - o '                                 (        +  1Y2s1Y 2sL C 61YD2s@N P o1YT2sG:@# : :# :# :}# X4X40X4"X41X2, ERROR IN 'PUT' ROUT INE (IOS4 STATUS IN CDR)(11X2s1Z1Y122@1422>22A1Y2s2s2t1Y224s@N P o1YT2sG:@# : :# :O0SEGMENT oP+){ @ƚ֛ʛƔ@Ɠ‘ΏJ⒢@+kUˆ5PO0SEGMENTBLANK DATA o 3n LDLDZ1 >#>'> $MCA#[ EXEC:: SYS' ⡤B:Ԣσ !_pC PE` Ce  B  p0!s pC PEsƠSB# fIZC C @UTTSნGLB J!H pCC @KP@E UFSFF@ +y' CI dNǀv:#  [G:# w,  EXEC:: NOT FOUND  BAD TYPE CODE PROGRAM TOO LARGE LOAD ERROR  UAT WIPED OUTOC `pj`x`zjI@zDP M@HI0K` JBLI KE @| o O m E,q- %@ 㜀枦qB3ĤBՠBM%''B# A C&CA# @sDC I1Kkp`# @A b.ML@]AAEx%DEQDTAATVUVRHAA30} " GEO@SA?=/p(p(C @`pD+E` B@ C@/ph@ph?ph@kphE@/p p?p(+p(# OCSL/p(p(` BDCEAI `+C U@r 0 :D A FE [ E :AQ\DQZBN!BB @BCN1@CA,D,E,@k%'jAKN€MA?p(+p(# MNQ@ SS/p(p(Nq% '?p(+p(M# '?p(+p(L 5sMN1B I@@M#  ̂y1A: :/ph@ph ?ph@kphF :  # @SAyCI SL) CI  SL @:/p(p(` `+hQ TCVyV͠H N@P נBQ gWG CW90.r@ VۤB c00P By  `+l)NQ %Vy  `+kIC @C U j@P  `+PQN mVWNyk%LrKM'jP ւM D%Y'DBBCP ̀C9 ?p(+p(# x vtIROV NOO1N1  # OZPPOB 0- 05:: - !: ':w 1 : 1:)!@QD@QBkzA@ƽN JA+kU :j:z:ry X R CqB,,2 OCOCOC CRX>   < $. 7AEBMCWDdEkFsG}HIJKLMNOPQRSTUVWXY Z-39D NOT READY WRITE PROTECT TIME OUT POWER FAILVOLUME NOT ON UNITVOLUME NOT FOUNDLOGICAL UNIT NOT RELEASED BAD CHECK SUM UNASSIGNED DEVICE LOGICAL UNIT NOT IN UAT END OF MEDIAHARDWARE ERRORILLEGAL OPERATION NON-EXISTANT MEMORY ADDRADDR IN SYSTEM MEMORY DIRECTORY FULLDISK NOT LABELED FILE ADDR OV ILLEGAL AU AU NOT FOUNDWRITE DIRECT EOFFILE NOT EXTENDABLE ILLEGAL FILE ADDR ALLOCATION TABLE ERRORSYSTEM USAGE ONLY BAD FCB CHAIN FILE OPEN FILE NOT OPEN ILLEGAL FILE POINTERUNIT NOT GIVENUNASSIGNED FCBBUFFER HAS WRITE PENDING DISK FULL RTX ERROR UNDEFINED ERROR BGG+ GBpaFbDcE/ph@ph?ph@kph# FaDbEc# # ,2,lz</ph@ph/ph@ph?ph@kph?ph@kphĢ/ph@ph`pHK Q KRQH ?ph@kph`pC# ,2,p @3/n0 +#@+/HHw#@HHLP00 n0  2      pDM00AA  &  pDM01AA  & Hvg?hd p X1X2X3X4SILO SFUFOCCISLSOSALDOVXXPO Z1Z2Z3Z4Z5Z6ZP0 ãNr@OXC } , Q 7  6>ÍF@N"XC ® 86 yF@ unF@ @D] TF@N"XC s*   m W\aouyL=͐B*C @ ! 1 'BwBC @'B !C @c # C @ ! 1+'C @Bc # JA80'`B@`p0AAAc # `pFEDCBA@c # C @ FFc # BC @c # BC @c # C @# C @c # C @#  C @c # * !8C @# C @c #  6.9  'ABC @n5ABC @Vn5n5BC @ n 5ABC @V n 5` n 5VҀBC @ n 5 pC Vŀ6c # =2@/6DC @JC @F@/6DC @JC @C @c # C @c # AC @C @A 6 Ac #  AC @qC @eC ~F+Fc # ܀Fc # 8c # sA GBCA@5XAAc # @A Q iN9XC B9 BxuC.  uD`pkC# ??N9XC lB9 CBxqKn2P@c c MPHc Mo☀DqF@UDc # 8c # 5@ADBCCc # NMSAC +/8Lmx1 CSABc # c # FOڣǣc # pE A`@c # E@`*@`A`pDc # c )# & &FF ! b*P&Ip C @C U`(g+GEHc # _ Fc # FG*Gc /`x@`x# D1ΠCBUFD@+kUc @ # cVA !hNt`pG@I N GC@yNqGQbB GNBG@֚@NrN M@A Q G/P@P3B !+zC@shNtN `pBC` VE b*~Vƞ b*~VA !hNAtN `p G ÔGÐC GN CN6 3B !.BCAu*h-35GN5 N 4V @AQ A BCSA A Ac # VQ~nA9t `C @C @C @C @C @C @`pلGI@DEFLA1Ǟ/22MHF@6EQM@IGk F@6IMIāM/p $p# Jho6Mekk@6M_@6;ZlBv1,2,p@Р1MIABC # ABx# !@BJ+ B CJS8@9  @XyJK QEJN BJR # BCF09FXB + N1C 6C$F09C +HF@6Eo# # BKQ]6ǀF#  IDL 1 N6H 1 N Bȉ@AH# MCMC+CM # # C+C # /ph@phC+C?ph@kph# ,i..,20]lC6# 6B # # 섁@ +b @1# O( Hܕ܄+6Ϡj@F@ `+11X<=H,2D-,nO,EH>ZJ@ZJ.A W⑂@ @AF ## + # ZJaTV00PP  ptP?h     tP?hMCR00PPMtJL?hMfPP00  MftP?hPR00  _t?h&DF01AAM MG&DF00AAM MG&t?hfd&O&PEDπF ĠB΋QG F ʀDOTR)<QDԄDI3BJEK~C DOFB6E@6ArP + 1 0y vBCܗD+KUPB ЄP#GGe󟊟 ;{QYDO YDFF6EEKdddcbF@0 CXJQB1v6ǀy C DD+KFFBJ[D Xܗ 1VD+KB,yÂGG'C  PҞw@KQB@61R@ KCNĂ܄6À# @KQQJDI@lJHJICIIBΝQ;ʙNyJQKQ/6/ ;lI{LPb IED'DDF  EKBF A@JF àCIHGKF@6y}@*  &ID `DF6BKFJQCkƀF6OKb OKĀy}MKI IIMDNI ;D{)DIIzDFXJQKIMF6A*%*'} CРB̘Q ICB1C D~F 9I@C K%'BK K IICK C%' B+K I1I@AICsIMMDOD F@6 @M 6@FKK DBKFFwByE} M DTI IEIFƀy IICđB@1B /* ;! ql"IQYxBJF / . ʠKX D II ӠB1P1|D+KB I螳 ҠB K D IIF  FBSyDID@Dy ĞDDCDI1kD+KGaCI IZBBܗI ICF  , @KQB@6X   ;!)IY2B KB =KI D ILPTYTKPPTPDIBK̈́JSC DIFFd IED؞ҞОсKy  D, 5 ΠCFK ICDEKnCCFF DBKCILUCCIDGKCȞ{w  ;{I q؞ӀDIBK̈́JFGFb0 DCIĐ IK ֠CKD@yNqāJIpGFCDEK?CC9`DI66݀FF DCBK Ā#"I! IG}wDI@lJ_6D/6Bhl)KF@6+%'6* 6|EK+D@*l# zEDрF PDIBNCDIEKמ؞ٞ߀DIDBJ1B6GBK'B /6yF ̠BǀII F ^D DBP KDB āBKB6À }J/6wurO; {"YlI c@ SjB TY3 C )@aE+6֤ N 6LN 6EYPY # NYR€YNN# A+# , QS@AP@`OQ%'`@\E%'`@\OPp# \SOf̀ZNZ# %/_@APOQ`H%} 'F+`HPu `@_P# ZB+F C8# AEYF@Y# %V#AWXĂ/ # NVWXW# YNY# QS@AP@`\E%'`@SQ%'`@\SPp# A+# ,2YS@@YCYZBZ @GVWX@ PY# '["S SRKRPQWSРBGVNOPSǀSP S # })&)=i RBG NOS GS G !GVNO# }S. Q# @ GؠBG! SȜRU# BG! ]^ # I C U# B+# !+# B SXR.*RS SB 9P{Q>->}2~  @001y[1,.121*K1*KGC @+`pF @6@6@6g/ph@ph@ ֬ 6I@ 6/`xF`xB 6@AB 6`@ 6/`xE`xB ?ph@kphXC`B@**Ac # z**2+,+*+...//B,n1Z/0-.. .5-%-T.2 1*` A# `(FE ```# G ``pCDEF!I# 1)1J+./p(p(` F/2ª2 Bg˂FEGL] ``Y`?p(+p(# +?p(+p(# 1.0]W/2xt2/2nKl2B C BBB/2^Z2 E1̀FG``㡤E H C`jBCDEj䃀@G0AF#Ā#0w/0c01J+t/ph@ph+} # !I܆HCDIhA DCH/2K2GAτR+ !I/22 @"6H/2·2CDICCH/2§2)ÀEI `!B E‚B/BB/22*010]n/1;1s.+3 @6NN @ SA# .+/2Š2,# >10]0( oSJRCQT܀ Ā /2Œh2#Ā# # # ./2YW2V,59# 'P)iHOr@bRCj(""/2]92@`'`@(qTqR `/2L(2#Ā# jk) # 0c,n/p(p(` /ph@phG`.,.-1)"@AB /2™2 C` +1Q)+ݞoÇBS-BN1>2 o-yB--B@As@`+@Ui `?ph@kph<`?p(+p(# 1J?)., 0+)+/` 1[/2JH2-DŽ/FnnmA@@Y `b//-/.).U,1s,2--@,p--.-%C p # /p(p(` /ph@phj)+` @@h@ih?ph@kph`?p(+p(# /ph@phP?ph@kphA p # .-.21;,n1s-oⓂ@ @A BCDEF 䃧# p------@-k--G. 01AP?10,qnI,B0&C1&D/2®2 `@/ph@ph?ph@kphr`H@@h@`@@r`H@A-p-,n,2>1,1;1s-4 pO10 # p?10 # /p(p(` F/ph@ph܂@AB /2Ž2 DC1).uN>1.^'/p(p(` sF/ph@phm@AB /2db2 01DCV &` /ph@ph),ƞ,@,i `?ph@kph`?p(+p(# .-.21J./ p # /p(p(` /ph@phj),` @@h@ih?ph@kph`?p(+p(# .-.21;.# . p# !# @ A# . # !"Ă##+0]0.A# A# œ?FE # . lG?.,nl,2n, 01s/0` 1@ ` A# `pCD# /2©2Op(䂄Āp(` +E/p pOphA@kphDE `+?p(+p(# //}~1,2,N` 1Ƥ@ ` A# `pCD # /2ge2/p(p(` +]ӠDE?phA@ph `+QOphA@kph ?p(+p(# @`` @1GAx`@# !# /.) /2¥2` 1Z@zJ@0 K` `@@C䃄C+ # |xn1=yz /2wu2@"F&@#S@ Ȁ@RBgd` 1E {^(CHW jC1M`@ ` TGwC@@xB # 1s/0 # !I!CL0 # !I0]/0/0G !CDC!CBp c # /#qW@#/2­K2I""B1F@ y@(@f"qI!C?#Qp c # /P P!U%'y# .10> 9 ܆@/2tr2?p(Āp(`@qEB`@ Op(+p(@`@qK/2RKP2Btr`H@ĀOp(+p( # 0@0!PÞQA@pAA o0_0srvut02m120!uA qphjBCDpEF0AgcbP@[@ !䃞V 1)O%1‚# %Q&ޤ/¢FƠ # ܋—Jƕ/&&1%Ā# ܋ŠJƈ?%Ā%Q& # 1Z@ A# 1a# "` 1I{@#Ā#+0]01s }{# )))))) }z }v2~1PiSC* bĀ+u*M] # Sm vjsCk JS검@mkb `@nbG*`@ G*g'ā > CX>@ |M (M 6IXQCv SBާ:-,) ԇу߇ߢB( f /ǃ \  ‡&ae \ყ ˂ՃSNӃE , ,e)&CIYZ]r0 Z1 1: ࣦ]  + RTOJR: 0:㍀@A9 97   02΃-L:C&# 'ezFyGMlVd. ſm-%@QAxy )\ˎՃǎ1HFJʄ.  1':$N+ B@AL!I`:`U:QÐΑQ ÈΊQ ؇SLCIYZ CLi B qpmD  0: bà A#  YPR܃QK NJ1GK ل 0j: eN+ B̀@AeWFT 1U: **I DA  A 㡄A1KE CD: ߄_# ]M    (x‡fdu ηQ $PPp:GEΩBL @  8 @042# /F|+eyG" V00 _UDFV!DMR;m.bba ˃0Z1.݂݄D ؇ עDӇ΢ḊȢDŇ:k烾߼.*G ' :: IĀ 9 KIR  o a: 'b: ]UϑQ# |FyQv  VM]lmno98+9 ¤+ ¡&Ÿ : "Rm` "  Dƀ;+ Kf D J[ + + §LL+ ¢GÞK BBB×K ; +K7 @ 愂     o!o Wih 4cb - [ >XZW:  TPbQ4P FE# F|  ij VM; ɇȇȇȇ ǢăE«ǩ ڃ آE ›ǙÃR u G }eσkMgjdy ZaW W\Q\VYP:r  0:= <9@><:6H d d:؇:҃1,Σ,#I@+kUR:垶Ϟٞ E •Ǐ__:{ RGOi6ƃC l@QI@gQ@Y6# FL(uFroQleiM]E;;;1D 78,R'%'; y 5y À. + ‡:n 0:  d :s:s @ K + 2 KR # $ + " 9 IRQ# e{yv] VM)OFGD, 84 --:+'և':  ʃ̇ч:  ǣ ЀC 6IƢB' ߲߱n ҃:   # | yevs K8 o"Z3 2 g\:ރ - - ::# |mMd)66k53࣫; ʣ 2 À-y )+– :H^# ~H{ex " 9 IRR V]:552 1㸣@AǯgecacC Q((SM@6ˀ:E :E+k߂R# HCI E hG D ڃ܇Z ڂڇ ̓УNG!@ޣ ϣÈ̿:# 8 4/+*' %ɣ 㯀: ÓG! R# 0{48 MVU _  !R "# 0C @Hǩ@N2@% @'ߞuc # TT%'O# @Xy}@} . Z .M I.MZI.i@g# { 5ʢ44)CĢΧ:# -=|:=:5€y C Xr 1: # H qF L%K'F:E# F |I %K'Flen GM] :YZ ZPST kkjh]]䃭⃯X: _ëK  !:  :# >e{9Fx6t4Qq  R Vd: -R-<H-<::# |M00d1IH儆D # cF {"ڃ!: G C # Q {  0: # ž} 1: # } :C # -= {nԣ G Ǔ áG !GVߊNJ: # }UV$GIR ! j> g f: ؀ ? Y#  Yy wRʀɿn\Ik9@+kU# +9 ¶ v 0:  # } 1:  # } {+ ÔK: qp"M  RSL LO :ကD # ޞ} {ۇ׃ڇ 0QCQA AЇ:: ŇǃȇƞǃHƃƇ:%:6E ':E: ߳`ãQàQ :E @Q+kK# (E  EJ%IHi 1 # I?+U# H Ǣă #  |K :փAУ:; I㑀@+kU-# } M K ă B #  {   9:7X@AKN1 # ڞ}K֞ў+s # } ǣ| VKԀCC C :߫߬m ^] |à G ǡǡ::  # |] N  OPQRã # }Õ֍yGÑXqG#  (pyGXqG# ߃ B90.r# +1# {&]ҀSSۄ: UԣǀHBф: Jɣ= :%# 3 ˃.. ÃB# ǣy B  Т ̓ ʾa ǧ # ( {  M YSINTO3 ~@eIa%C B'`(_%C @'` YKSof akA [Z FBƃBD= #  {84#  ~|{IC @`@@+kc #  ~ƊK 1ģ+ icqp  C @ @Ā+c # EXEC (C0) N NAME EXT LENGTH CREATED MODIFIED EXTENTS AUD 'S F# NAMES B UNIT= VOLUME= DIRECTORY=  LU DEVICE FNO  GRAND AU TOTAL=  AU YY/MM/DD HH:MM:SS /JOB  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  MUST LOAD FROM UNIT 0 JCL STACK FULL  COPY VERIFY ERROR2ZB:P<((CI<CIEFõXQ# :% 0:2 P :29 1:2:%ØXQÕ֕ǓVD S:)OOdOO 0jBՂ :2ˇ P΂΢Ƅ+ K| :2 &:2؃  P ":2 ? O :2 1:2:݃ 0::%# <C:;576 jkilk@+k z:%:%dS$ 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 ZB^W + K| :2 &:2؃  P ":2 ? O :2 1:2:݃ 0::%# <C:;576 jkilk@+k z:%:%dS$ BATCH FILE NOT FOUND* BATCH QUEUE EMPTY - PROCESSING SUSPENDED " BATCH QUEUE PROCESSING COMPLETED  OS4 INTERACTIVE MODE RESUMED  LUN EFE F G H I J K L